User:Lynnore Vaher - Revision history

Lynnore Vaher at 14:12, 16 February 2009

2009-02-16T14:12:52Z

← Older revision		Revision as of 07:12, 16 February 2009
Line 1:		Line 1:
			{{skills
			\|Architect=*
			\|Builder=*
			\|Machinima=
			\|Scenographer=
			\|Scripter=*
			\|SLogistician=
			\|Terraformer=
			\|}}


	A little dump of what i made, started scripting a few months ago. Things can be better i know, but this works so i'm good with it.		A little dump of what i made, started scripting a few months ago. Things can be better i know, but this works so i'm good with it.

Lynnore Vaher at 13:31, 16 February 2009

2009-02-16T13:31:05Z

← Older revision		Revision as of 06:31, 16 February 2009
Line 526:		Line 526:
	# DEBUG On or Off		# DEBUG On or Off
	DEBUG,OFF		DEBUG,OFF

			<b>Plugin Menu Creator</b>

			This basicly lists scripts with "*" in front of their name and gives a dialog with them in it.
			Example: You have 2 scripts "Example" and "Example 1". The script will list those scripts and give a menu with buttons like "Example ..." and "Example 1 ...".
			If one of those buttons get pressed, it will send a linked message to those scripts.

			<lsl>//////////////////////////////////////////////////////////////////////////////////////////////
			// Basic Plugin menu creator
			// by Lynnore Vaher
			// Added:
			// - Whitespaces added to full up the dialog, function from OpenCollar used
			// - Added a function to restack the menu so it starts from the top, also code from OpenCollar
			// - Menu items changed, added "..." to improve visual ^^
			// - Fixed a small bug, script now correctly creates the menu after rezzing.
			//////////////////////////////////////////////////////////////////////////////////////////////

			list invItems;
			integer x;
			integer pluginsCreated = FALSE;
			list FillMenu(list in)
			{
			//adds empty buttons until the list length is multiple of 3, to max of 12
			while (llGetListLength(in) != 3 && llGetListLength(in) != 6 && llGetListLength(in) != 9 && llGetListLength(in) < 12)
			{
			in += [" "];
			}
			return in;
			}

			list RestackMenu(list in)
			{
			//re-orders a list so dialog buttons start in the top row
			list out = llList2List(in, 9, 11);
			out += llList2List(in, 6, 8);
			out += llList2List(in, 3, 5);
			out += llList2List(in, 0, 2);
			return out;
			}
			integer channel = 0;
			default
			{
			state_entry()
			{
			channel = (integer)(llFrand(-1000000000.0) - 1000000000.0);
			llListen(channel,"", NULL_KEY, "");
			if(pluginsCreated == FALSE)
			{
			state createPluginList;
			}
			}
			listen(integer c, string n, key id, string m)
			{
			integer index = llListFindList(invItems, [m]);
			if(~llListFindList(invItems, (list)m))
			{
			llMessageLinked(LINK_THIS, 0, llList2String(invItems, index - 1), "");
			}
			}
			changed(integer change)
			{
			if (change & CHANGED_INVENTORY)
			{
			invItems = [];
			llSleep(2.0);
			state createPluginList;
			}
			if (change & CHANGED_OWNER)
			{
			llResetScript();
			}
			}
			link_message(integer sender_num, integer num, string x, key id) {
			if (num == 20)
			{
			llDialog(id,"Plugin list", RestackMenu(FillMenu(llList2ListStrided(llDeleteSubList(invItems, 0, 0), 0, -1, 2))), channel);
			}
			}
			on_rez(integer l)
			{
			llResetScript();
			}
			}
			state createPluginList
			{
			state_entry()
			{
			invItems = [];
			integer length = llGetInventoryNumber(INVENTORY_SCRIPT);
			for (x = 0; x < length; x++)
			{
			string PlugName = llGetInventoryName(INVENTORY_SCRIPT, x);
			if (~llSubStringIndex(PlugName, "*"))
			{
			string PlugMenuName = llGetSubString(PlugName, 1, -1);
			invItems += [PlugMenuName, PlugMenuName + "..."];
			}
			}
			llOwnerSay("Plugins are ready.");
			pluginsCreated = TRUE;
			channel = (integer)(llFrand(-1000000000.0) - 1000000000.0);
			state default;
			}
			}</lsl>

			<i>*Example</i>
			This is an example for the plugin menu creator.
			<lsl>
			string scriptname = "";
			default
			{
			state_entry()
			{
			scriptname = llGetSubString(llGetScriptName(), 1, -1);
			}

			link_message(integer sender_num, integer num, string msg, key id) {

			if(msg == scriptname)
			{
			//execute code
			}
			}
			}
			</lsl>

Lynnore Vaher at 13:18, 16 February 2009

2009-02-16T13:18:51Z

← Older revision		Revision as of 06:18, 16 February 2009
Line 222:		Line 222:
	</lsl>		</lsl>

	<b> Notecard handler </b>		<b> Notecard handler </b><br>
	This script reads data from a notecard and sends it to script via linked messages, the timer script below is an example script that will get its data from the notecard. The one below that is an example notecard.		This script reads data from a notecard and sends it to script via linked messages, the timer script below is an example script that will get its data from the notecard. The one below that is an example notecard.<br>

	<i>Main notecard reader script</i>		<i>Main notecard reader script</i>
Line 508:		Line 508:
	<i> The notecard </i>		<i> The notecard </i>

	###### START Timer.Handle Setup #####		###### START Timer.Handle Setup #####

	# This script requires a reset to run properly, THIS HAS TO STAY ON TOP		# This script requires a reset to run properly, THIS HAS TO STAY ON TOP
	Timer.Handle,@RESET		Timer.Handle,@RESET

	# Let the reader wait 10 second to give the script time to reset		# Let the reader wait 10 second to give the script time to reset
	WAIT,10		WAIT,10

	# Maximum and Minimum random time		# Maximum and Minimum random time
	Timer.Handle,TIME,30.0,5.0		Timer.Handle,TIME,30.0,5.0

	# Script list		# Script list
	Timer.Handle,SCRIPTS,&Chat		Timer.Handle,SCRIPTS,&Chat

	###### END Timer.Handle Setup ######		###### END Timer.Handle Setup ######

	# DEBUG On or Off		# DEBUG On or Off
	DEBUG,OFF		DEBUG,OFF

Lynnore Vaher at 13:13, 16 February 2009

2009-02-16T13:13:56Z

Show changes

Lynnore Vaher at 13:04, 16 February 2009

2009-02-16T13:04:44Z

@@ Line 193: / Line 193: @@
      timer(){
          llCloseAll();
+     }
+}
 </lsl>

Lynnore Vaher: New page: A little dump of what i made, started scripting a few months ago. Things can be better i know, but this works so i'm good with it. Menu Pagination Script ////////////////////...

2009-02-16T12:56:16Z

New page: A little dump of what i made, started scripting a few months ago. Things can be better i know, but this works so i'm good with it. <b>Menu Pagination Script</b> <lsl> ////////////////////...

New page

A little dump of what i made, started scripting a few months ago. Things can be better i know, but this works so i'm good with it.

<b>Menu Pagination Script</b>
<lsl>
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// PageScript by Lynnore Vaher
// Version number 1.00
//
// !Important:
// - Give me credit if you use parts or fully use this script, eg: mention as special thanks or something.
// - If you like this script, please consider a small(or big) donation.
// - This script can NOT be resold as full perm since i offer this for free.
// - This script CAN be given away/copied but the top text has to stay.
// - You can not ask me for help, if you have this script i assume you have scripting experience.
//
// Notes:
// - Can handle only 1 person at a time.
// - Don't feel like explaining the whole thing.
//
// BugFixes:
// - Fixed a bug where a back button got added with lists just above 12 items.
// - Fixed llPagesFunc start wich gave an error with lists with less then 12 items.
// - Deleted a line of code wich wasn't suppose to be there, this cause a wrong display of the menu.
//
// Usage:
// - Put all the functions and variables in your script.
// - Call the menu with llPagesFunc(LISTNAME, USERKEY), where LISTNAME is the list of buttons you want and
// USERKEY is the key of the person to send the dialog to. This is NEEDED before calling the next and back functions
// - Call the next pages with llPagesNext(LISTNAME, USERKEY).
// - Call the previous pages with llPagesBack(LISTNAME, USERKEY).
// - This is a fully working example and requires some experience with scripting.
//
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

// Start Global Variables
// -----------------------
integer curPage = 0; // Current page, Do not change this.
integer curStart = 0; // The start of the buttonlist, don't change.
integer curEnd = 9; // The end of the buttonlist, do not change this.
integer curLength = 0; // Length of the list, will be changed by the script.
integer curChan = 0; // Random channel, script will change this.
integer curListen = 0; // Listen number, again script will change this.
integer maxPerDia = 9; // Max items per dialog, don't change this.
integer itemBusy = FALSE; // Check if dialog is in use FALSE = no, TRUE = yes.
integer totalPages = 0; // Total of pages, script will calculate this.

float curDelay = 60.0; // Time before the listen will time out.

string curMsg = "Select wich notecard you want to load."; // Dialog message

list FirstAdd = [" ", "Exit", "Next >"]; // Added on the first page
list MidAdd = ["< Back", "Exit", "Next >"]; // Added on middle pages
list BackAdd = ["< Back", "Exit", " "]; // Added on last page
list notes = ["1", "2"]; // This is the actual list that will be split in pages
// --------------------
// End Global Variables

// Start Functions
// ----------------
llReset(){ // Reset the global variables
curStart = 0;
curEnd = 0;
maxPerDia = 9;
itemBusy = TRUE;
}
llPagesFunc(list notes, key user){ // Create the start dialog
list curButtons = [];
llReset();
curLength = llGetListLength(notes);
totalPages = llCeil((float)curLength / 9.0);
if(curLength <= 12){
totalPages = 1;
for(curStart=0;curStart<curLength;curStart++){
curButtons += llList2String(notes, curStart);
}
curButtons = FillMenu(curButtons);
}else if(curLength > 12){
totalPages = llCeil((float)curLength / 9.0);
for(curStart=0;curStart<maxPerDia;curStart++){
curButtons += llList2String(notes, curStart);
}
curEnd = 9;
curButtons = FillMenu(curButtons) + FirstAdd;
}
curPage = 1;
llGiveDialog(user, RestackMenu(curButtons));
}

llPagesNext(list notes, key user){ // Create the next page
list curButtons = [];
curEnd = curEnd + 9;
if(curEnd >= curLength){
curEnd = curLength;
for(curStart;curStart<curEnd;curStart++){
curButtons += llList2String(notes, curStart);
}
curButtons = FillMenu(curButtons) + BackAdd;
}else if (curEnd < curLength){
for(curStart;curStart<curEnd;curStart++){
curButtons += llList2String(notes, curStart);
}
curButtons = FillMenu(curButtons) + MidAdd;
}
curPage++;
llGiveDialog(user, RestackMenu(curButtons));
}

llPagesBack(list notes, key user){ // Recreate the previous page
curPage--;
list curButtons = [];
curStart = curStart - 9;
integer tempEnd = curEnd - 9;
integer tempStart = curStart - 9;
if(curEnd == curLength){
if(curPage == 1){
curStart = curStart - (curLength % 9);
curEnd = curStart + 9;
for(curStart;curStart<curEnd;curStart++){
curButtons += llList2String(notes, curStart);
}
curButtons = FillMenu(curButtons) + FirstAdd;
}else{
curStart = curStart - (curLength % 9);
curEnd = curStart + 9;
for(curStart;curStart<curEnd;curStart++){
curButtons += llList2String(notes, curStart);
}
curButtons = FillMenu(curButtons) + MidAdd;
}
}else if((tempEnd != 9) && (tempStart != 0) && (curEnd < curLength)){
curStart = curStart - 9;
curEnd = curEnd - 9;
for(curStart;curStart < curEnd;curStart++){
curButtons += llList2String(notes, curStart);
}
curButtons = FillMenu(curButtons) + MidAdd;
}else if(tempStart == 0){
llPagesFunc(notes,user);
return;
}
llGiveDialog(user, RestackMenu(curButtons));
}
llGiveDialog(key user, list buttons){ // This will give the dialog
curListen = llListen(curChan, "", user, "");
llDialog(user, curMsg + "\n\n\n\nPage: " + (string)curPage + "/" + (string)totalPages, buttons, curChan);
llSetTimerEvent(curDelay);
}
list FillMenu(list in){ // Fill the menu
while (llGetListLength(in) != 3
&& llGetListLength(in) != 6
&& llGetListLength(in) != 9
&& llGetListLength(in) < 12){
in += [" "];
}
return in;
}

list RestackMenu(list in){ // Restack the manu so the order is correct
list out = llList2List(in, 9, 11);
out += llList2List(in, 6, 8);
out += llList2List(in, 3, 5);
out += llList2List(in, 0, 2);
return out;
}

llShowError(key user, integer errorNum){ // Show an error, errorNum is used to add errors without changing much
string errorMsg = "";
if(errorNum == 1) errorMsg = "\n\nDialog currently in use, try again in 60 seconds.";
llDialog(user, errorMsg, ["Ok"], 465465);
}
llCloseAll(){ // Close listen, tell the menu can be used again.
itemBusy = FALSE;
llListenRemove(curListen);
}
// -------------
// End Functions

default
{
state_entry()
{
curChan = ( -1 * (integer)("0x"+llGetSubString((string)llGetKey(),-5,-1)) );
}
touch_start(integer num){
if(itemBusy) llShowError(llDetectedKey(0),1);
else llPagesFunc(notes,llDetectedKey(0));
}
listen(integer _c, string _n, key _id, string _m){
if(_m == "Next >") llPagesNext(notes,_id);
else if(_m == "< Back") llPagesBack(notes,_id);
else if(_m == "Exit") llCloseAll();
}
timer(){
llCloseAll();
}
}
</lsl>