Guest User

Untitled

a guest
Apr 20th, 2018
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //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 =)
  2.  
  3. //Summary: The following script will make an object accept donations on your behalf.
  4. //Usage: stick it on any object you own(my favorite is a top hat), and it will promptly display:
  5. //"<your name>'s donation hat.
  6. //Donate if you are so inclined."
  7. //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
  8. //also shows the total amount donated
  9.  
  10. //The lowest ammount of L$ to shoot lips
  11. integer lowestamnt = 100;
  12. //The penis item's name put between the "" and be accurate with the name
  13. string penisname = "penis";
  14. //The Lip's item's name put between the "" and be accurate with the name
  15. string lipname = "lips";
  16. //Dont mess with this stuff
  17. key lastdonated;
  18. integer totaldonated;
  19. string owner;
  20. default
  21. {
  22.     on_rez( integer sparam )
  23.     {
  24.         llResetScript();
  25.     }
  26.     state_entry()
  27.     {
  28.         owner = llKey2Name( llGetOwner() );
  29.         llSetText( owner + "'s donation hat.\nDonate if you are so inclined!\n$0 Donated so far",<1,1,1>,1);
  30.     }
  31.  
  32.     money(key id, integer amount)
  33.     {
  34.         lastdonated = id;
  35.         totaldonated+=amount;
  36.         llSetText( owner + "'s donation hat.\nDonate if you are so inclined!\n$" + (string)amount + " Donated so far",<1,1,1>,1);
  37.         llInstantMessage(id,"Thanks for the tip!");
  38.         llInstantMessage(owner,llKey2Name(id)+" donated $" + (string)amount);
  39.         if(lowestamnt >= amount)
  40.         {
  41.             llRezObject(penisname,llGetPos() + <0.0,0.2,0.0>,<0,0,0>,<0,0,0,1.0>,0);
  42.             llSay(0,"This is what you get with that tip!");
  43.         }
  44.         else if(lowestamnt <= amount)
  45.         {
  46.             llRezObject(lipname,llGetPos() + <0.0,0.2,0.0>,<0,0,0>,<0,0,0,1.0>,0);
  47.             llSay(0,"You are the greatest tipper in this Virtual world! Mwah!");
  48.         }
  49.     }
  50.     object_rez(key id)
  51.     {
  52.         llSay(-4867,(string)lastdonated);
  53.     }
  54. }
Add Comment
Please, Sign In to add comment