Script for Payment Amounts in a Tip Jar

[achem Serenity]

Can anyone help me with a script for the payment buttons and options that pop up when paying a Tip Jar?

 

[Stefanosje Sellers]

 

llSetPayPrice(integer price, list quick_pay_buttons)

llSetPayPrice(PAY_HIDE, [50, PAY_HIDE, PAY_HIDE, PAY_HIDE]);

 

http://lslwiki.net/lslwiki/wakka.php?wakka=llSetPayPrice

[Rolig Loon]

What does your script look like so far?  Post what you have written and tell us where it's giving you trouble.

[achem Serenity]

Thanks for your response.

This is the script:

integer pot; integer amount; integer total; key tid; string ownername;

init() {     ownername = llKey2Name( llGetOwner());     llSetText( "Tips",<0,1,0>,1);     llOwnerSay ( "Tip jar for " + ownername + " ready..." ); }

default {     state_entry()     {         init();     }     on_rez( integer param )     {         init();     }     touch_start( integer num )     {         llInstantMessage( llDetectedKey(0),"Leave a Tip if you enjoyed");     }     money( key id, integer payment )     {         amount = payment;         tid = id;         llRequestAgentData( id, DATA_NAME );     }     dataserver( key query, string name )     {         llSay( 0, name + " tips " + ownername + " " + (string)amount + "Lindens");         llSay( 0, "Thanks " + llGetSubString( name, 0, llSubStringIndex( name, " " )) );         llInstantMessage( tid, "Thanks for your Tip " + llGetSubString( name, 0, llSubStringIndex( name, " " )));         if ( llGetInventoryNumber( INVENTORY_SOUND ) > 0 )         {             llPlaySound( llGetInventoryName( INVENTORY_SOUND, 0 ),1 );         }         if ( llGetInventoryNumber( INVENTORY_TEXTURE ) > 0 )         {             llGiveInventory( tid,llGetInventoryName( INVENTORY_TEXTURE,0 ));         }             } }

 

 

 

[Rolig Loon]

Wow....thanks.   OK, so here's a clean version that we can read.  Now what's the question, other than "Why do you need a dataserver event and two of the three global integer variables in this script" ?

integer pot;integer amount;integer total;key tid;string ownername;init(){	ownername = llKey2Name( llGetOwner());	llSetText( "Tips",<0,1,0>,1);	llOwnerSay ( "Tip jar for " + ownername + " ready..." );}default{	state_entry()	{		init();	}	on_rez( integer param )	{		init();	}	touch_start( integer num )	{		llInstantMessage( llDetectedKey(0),"Leave a Tip if you enjoyed");	}	money( key id, integer payment )	{		amount = payment;		tid = id;		llRequestAgentData( id, DATA_NAME );	}	dataserver( key query, string name )	{		llSay( 0, name + " tips " + ownername + " " + (string)amount + "Lindens");		llSay( 0, "Thanks " + llGetSubString( name, 0, llSubStringIndex( name, " " )) );		llInstantMessage( tid, "Thanks for your Tip " + llGetSubString( name, 0, llSubStringIndex( name, " " )));		if ( llGetInventoryNumber( INVENTORY_SOUND ) > 0 )		{			llPlaySound( llGetInventoryName( INVENTORY_SOUND, 0 ),1 );		}		if ( llGetInventoryNumber( INVENTORY_TEXTURE ) > 0 )		{			llGiveInventory( tid,llGetInventoryName( INVENTORY_TEXTURE,0 ));		}	}}

 

 

[Innula Zenovka]

Since the giver is going to be on the same sim as the tipjar, at least under normal circumstances, you can get the name in the money event, something like this:

money(key giver, integer amount)	{		string name = llGetDisplayName(giver);		llSay(0,"Thank you for the generous tip, "+name+",!");	}

 No need to mess around with dataservers.  

I would recommend using llGetDisplayName in this context, since the giver knows that's the name she or he is using, and would probably rather be thus addressed than as "joe123 Resident."  

[achem Serenity]

Thanks

Can you please show me how to change the option buttons for payment to 50, 100, 150, 200?

[Rolig Loon]

Oh, that's what Stefanosje was showing you >>>> http://wiki.secondlife.com/wiki/LlSetPayPrice.

llSetPayPrice( PAY_HIDE , [50,100,150,200] );

[achem Serenity]

Thanks for your help.

I never tried scripting before, so I don't know how to fit the script into the already exisintg script with the brackets and title.  Can you show me how to fit this into the existing script.

[Innula Zenovka]

Or llSetPayPrice(PAY_DEFAULT, [50,100,150,200]); if you want to give them the option of giving another amount.

[Rolig Loon]

---

achem Serenity wrote:

Thanks for your help.

I never tried scripting before, so I don't know how to fit the script into the already exisintg script with the brackets and title.  Can you show me how to fit this into the existing script.

---

 

Almost anywhere, but the logical place is in your init() function, so that it's done once as the script is reset.

[achem Serenity]

Thanks so much.  Works like a charm.

[Abbie Danitz]

Will this sript also hide the total ammount recieved and not do hover text?

[Innula Zenovka]

This script simply displays the word "Tips" in hovertext, so people know what the object is for.   There's nothing there to display either a total or the last amount given.

[Abbie Danitz]

Is there a way to make it work if the tip script is in a child prim? When I set the tip as the main prim is messes up the other scripts linked, but when I set it in the child prim of the link its only allowing 1, 5, 10 15 for pay options. 

[Innula Zenovka]

I don't think so.   You've run into the bug VWR-3048,  llSetPayPrice doesn't work on ChildPrims, which was reported in 2007 and still hasn't been fixed.

It may be possible to juggle things around so the tip jar doesn't break your other scripts, but certainly you're going to have to have  the llSetPayPrice call (and I think the money event, too, but I may be mistaken)  in the root prim for it to work.