User:Kuraiko Yoshikawa/sandbox/LSL Goodies/de

From Second Life Wiki
Jump to navigation Jump to search

Inv item object.png Sandbox Inv item script.png SL Chatlog Wikifier | Inv folder object.png Kurai's LSL Goodies | Inv item script.png Zai's LSL Goodies Lovely Stuff Heart icon.png Zai's Page

Intro

Inspiriert durch Zai's LSL Goodies werde ich von Zeit zu Zeit (hilfreiche) Scripte hier veröffentlichen.

Ich bin zwar kein LSL Guru aber alle Scripte sind getestet und ich hoffe sie arbeiten auch bei dir gut o.O
Solltest du dennoch probleme mit einem meiner Scripte haben dann sende mir eine InWorld IM oder Poste dein problem in der talk page!

Alle Scripte sind unter der Creative Commons Attribution-Share Alike 3.0 License veröffentlicht.

KVNSB (Kuraiko's VendorBox is not a Simple Box :P)
Summary:

Das KVNSB kann alles verkaufen! Egal ob du Scripte (du solltest sie auf not running setzen um Komplikationen mit dem/den Vendor Script(s) vorzubeugen), Notecards, Landmarks, Bodypars, Texturen, Gestures oder Sounds O_O. Es verkauft ALLES nur keine Freebies XD (wird vieleicht in einer folgenden Version ein Workaround eingebaut). Der Preis muss also mindestens auf 1L$ stehen.

Was kann das KVNSB ausser alles Verkaufen?

  • Alles Verkaufen ;P
  • Items müssen nicht geboxed werden. Sie werden als Inventar Folder übertragen, dessen Name frei im Script wählbar ist.
  • Benachrichtigung per Email über einen Verkauf (wenn gewünscht -> deaktivierbar).
  • @Touch eine definierbare Notecard senden.
  • Diese Notecard vom Verkauf ausschließen (also sie wird nicht mit den anderen Items übertragen).
  • Die Vendorscripte werden auch nicht mit dem Kauf übertragen!
  • Ein belibiger Hovertext mit beliebiger Farbe (RGB Wert) kann gesetzt werden.

Ich glaube, das war das wichtigste!
Ahja beim Starten fragt Dich das KVNSB nach der Erlaubnis Lindendollar von deinem Konto abzubuchen. Dies musst Du akzeptieren, ansonsten schaltet es in den Offline Modus! Es wird Dir nicht einfach Geld von Deinem Konto abgezogen. Dies ist nur nötig da manchmal bei hohen Lags das Eingabefeld bei dem PayDialog auftauchen kann und jemand Dir zu wenig oder zu viel bezahlen könnte. Sollte dies passieren, reagiert das Script darauf und gibt bei zu viel den Restbetrag zurück und bei zu wenig den ganzen Betrag der ja zu wenig war...

Solltest Du das KVNSB neu starten wollen (weil du z.B. die Permission-Debit-Anfrage abgelehnt hast oder etwas am Inventar geändert hast (nach Inventaränderungen MUSST du das KVNSB Neustarten ansonsten is der neue Inventarinhalt dem Script nicht bekannt!)) drücke einfach auf den Prim und halte mindestens 5 Sekunden den Left-Click.

The Main Script (.VEND)
<lsl> //-------------------------------------------------// // KVNSB 0.1 \\ // (KVNSB Kuraiko's VendorBox is not a Simple Box) // // released under \\ // Creative Commons Attribution-Share Alike 3.0 // // by Kuraiko Yoshikawa \\ // Contact: kuraiko.yoshikawa@gmail.com // //-------------------------------------------------\\

integer gPrice = 10; // set the price of the product in L$ string gFolder = "Advanced Vendor Box"; // set the name of folder you'd like to see

                                       // created in the customers inventory o.o

integer gNotify = TRUE; // if you'd like to get a notification when an item is purchased

                                       // then set this value to TRUE (the box will send you a mail)

string gMail = "foobar@example.com"; // is notify TRUE then set your mail addy here

string gNoteCard = ""; // have you got an info notecard? Set the name of it.

                                       // You have no info notecard? Leave it blank 
                                       //(example: string gNoteCard = "";)

integer gGiveNC = FALSE; // Give the notecard with other inventory

                                       // content to the customer? When YES set it to TRUE 
                                       // otherwise notecard is only for information on touch

// set a hover text... leave it blank for no hover! (i hate hover text o.O) (\n = new line) string gHover = "I'm a KVNSB test box\nTouch me hard :P\nBuy me!!!\nPlease *_*"; vector gHoverColor = <255,255,255>; // set the hovertext color in RGB values (example: <255,255,255> for white)

//-------------------\\ // Advance Variables \\ //-------------------\\ integer gMailScripts = 5; // How many .MAIL <ID> scripts are in the PRIM inventory?

//-------------------\\ // No Edit Variables \\ //-------------------\\ integer gPerms = FALSE; integer gTime; list gInventory; integer gListLength;

integer gAktMail = 1;

default {

   run_time_permissions(integer perm)
   {
       if (perm & 0x2)
       {
           gPerms = TRUE;
           state createInventory;
       }
       else 
       {
           llSetText("Offline", <1,0,0>, 1.0);
       }
   }
   state_entry()
   {
       llSetText("Please Accept PERMISSION DEBIT", <0,1,0>, 1.0);
       
       if(!gNotify)
           gNotify = 0;
       
       if (llGetInventoryNumber(-1) > 1 + gMailScripts)
           llRequestPermissions(llGetOwner(), 0x2);
       else 
           llSetText("Offline ~ Nothing @ Inventory o.O", <1,0,0>, 1.0);
           
       llResetTime();
   }
   touch_start (integer t)
   {
       if (llDetectedKey(0) == llGetOwner())
       {
           gTime = llGetUnixTime();
       }
   }
   
   touch(integer t)
   {
       if (llDetectedKey(0) == llGetOwner())
       {
           if (llGetUnixTime()-gTime > 5)
           {
               llResetScript();
           }
       }
   }

}

state createInventory {

   state_entry()
   {
       llSetText("Read Inventory", <1,0.5,0>, 1.0);
       integer length = llGetInventoryNumber(-1);
       
       integer x;
       for (x = 0; x < length; x++)
       {
           if(llGetInventoryName(-1, x) == llGetScriptName())
           {
           }
           else if (gNoteCard != "" && gGiveNC == TRUE && llGetInventoryName(-1, x) == gNoteCard)
           {
               gInventory += gNoteCard;
           }
           else 
           {
               if (llGetInventoryName(-1, x) == gNoteCard || llGetSubString(llGetInventoryName(-1, x), 0, 5) == ".MAIL " )
               {
                   
               }
               else
                   gInventory += llGetInventoryName(-1, x);
           }
       }
       state online;
   }

}

state online {

   state_entry()
   {
       llSetText(gHover, gHoverColor/255, 1.0);
       llSetPayPrice(gPrice, [gPrice, -1, -1]);
       
   }
   money(key giver, integer amount) {
       if (amount == gPrice) 
       {
           llGiveInventoryList(giver, gFolder, gInventory);
           llWhisper(0, "Thanks " + llKey2Name(giver) + "!");
           
           if (gAktMail == gMailScripts)
               gAktMail = 1;
           
           if(gNotify)
           {
               llMessageLinked(LINK_THIS, gAktMail, "[PURCHASER]: " 
               + llKey2Name(giver) + "\n[PURCHASED ITEMS]: " + llList2CSV(gInventory), (key)gMail);   
               ++gAktMail;
           }
           


       }
       else if (amount > gPrice) {
           integer back = amount - gPrice;
           llGiveInventoryList(giver, gFolder, gInventory);
           llMessageLinked(LINK_THIS, 22, "You have payed too much. The excess amount will be refunded to you.", giver);
           llWhisper(0, "You have payed to much. The excess amount will be refunded to you.");
           llGiveMoney(giver, back);
           
           if (gAktMail == gMailScripts)
               gAktMail = 1;
               
           if(gNotify)
           {
               llMessageLinked(LINK_THIS, gAktMail, "[PURCHASER]: " 
               + llKey2Name(giver) + "\n[PURCHASED ITEMS]: " + llList2CSV(gInventory), (key)gMail); 
               ++gAktMail;
           }
           
       }
       else {
           llMessageLinked(LINK_THIS, 20, "Sorry, it's not enough.", giver);
           llWhisper(0, "Sorry, it's not enough.");
           llGiveMoney(giver, amount);
   }
   }
   touch_start(integer t)
   {
       
       if (llDetectedKey(0) == llGetOwner())
       {
           gTime = llGetUnixTime();
       }
       else 
       {
           if(gNoteCard != "" && ~llGetInventoryType(gNoteCard) )
           {
               llGiveInventory(llDetectedKey(0), gNoteCard);
           }
           else 
           {
               llWhisper(0, "Sorry no information for this item found.");
           }
       }
   }
   touch(integer t)
   {
       if (llDetectedKey(0) == llGetOwner())
       {
           if (llGetUnixTime()-gTime > 5)
           {
               llResetScript();
           }
       }
   }

}

</lsl> Das Mail Script (.MAIL ID (example: .MAIL 01 (dieses Format ist sehr wichtig!!! > "(punkt)MAIL Leerzeichen Zahl" beginnend bei eins (01))
Wenn gNotify TRUE ist musst du mindestens ein .MAIL Script in den Prim kopieren! Standard wären fünf Scripte (max. Verzögerung somit nur 2Sekunden). Solltest du weniger als fünf benutzen wollen dann passe den Wert von gMailScripts @ Advance Variables an. <lsl> integer gID;

default {

   state_entry()
   {
       gID = (integer)llGetSubString(llGetScriptName(), 5, -1);
       
   }
   link_message(integer send_num, integer num, string lmsg, key id)
   {
       if (num == gID)
       {
           llEmail(id, "[SOLD]: " + llGetObjectName(), lmsg);
       }
   }

}

</lsl>