Advertisement
Guest User

Kitten Coveria give object script

a guest
Jul 4th, 2015
233
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.74 KB | None | 0 0
  1. integer pot;
  2. integer amount;
  3. integer total;
  4. key tid;
  5. string ownername;
  6.  
  7. init()
  8. {
  9. ownername = llKey2Name( llGetOwner());
  10. llSetText( "Tip the DJ",<0,1,0>,1);
  11. llOwnerSay ( "Tip jar for " + ownername + " ready..." );
  12. }
  13.  
  14. default
  15. {
  16. state_entry()
  17. {
  18. init();
  19. }
  20. on_rez( integer param )
  21. {
  22. init();
  23. }
  24. touch_start( integer num )
  25. {
  26. llInstantMessage( llDetectedKey(0),"Come on - tip the DJ and say thanks for the excellent music");
  27. }
  28. money( key id, integer payment )
  29. {
  30. amount = payment;
  31. tid = id;
  32. llRequestAgentData( id, DATA_NAME );
  33. }
  34. dataserver( key query, string name )
  35. {
  36. llSay( 0, name + " tips " + ownername + " " + (string)amount + "L");
  37. llSay( 0, "Thanks " + llGetSubString( name, 0, llSubStringIndex( name, " " )) );
  38. llInstantMessage( tid, "I really appreciate your tip " + llGetSubString( name, 0, llSubStringIndex( name, " " )));
  39. // if ( llGetInventoryNumber( INVENTORY_SOUND ) > 0 )
  40. // {
  41. // llPlaySound( llGetInventoryName( INVENTORY_SOUND, 0 ),1 );
  42. // }
  43. // if ( llGetInventoryNumber( INVENTORY_TEXTURE ) > 0 )
  44. // {
  45. // llGiveInventory( tid,llGetInventoryName( INVENTORY_TEXTURE,0 ));
  46. // }
  47.  
  48.  
  49. float totalobjects = llGetInventoryNumber(INVENTORY_OBJECT); //number of objects
  50. totalobjects = llFrand(totalobjects); //Total objects
  51. llGiveInventory(tid,llGetInventoryName(INVENTORY_OBJECT, (integer)totalobjects)); //Give any random object out of the total
  52. total = total + amount;
  53. llSetText( "Tips so far : \n" + (string)total +"L" , <llFrand(1),llFrand(1),llFrand(1)>,1 );
  54. }
  55. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement