Second Life Wiki - User contributions [en]

User:Mr Lovenkraft

2008-03-01T22:57:24Z

Mr Lovenkraft: /* The Script */

==Open source codes from Mr Lovenkraft==
----
I've just starting this page in the hopes of having quite a few codes open sourced
for those of you who either can't find what you are looking for, or just want an easy
place to look for codes :)
----
===Removable prim clothing script===
This script is written to be placed in the root prim of an object.
<lsl>
//Removable clothing by Mr Lovenkraft, free to use by anyone.
//Fully open source, but credit going to Mr Lovenkraft for his effort :)
key user; //Person touching the clothing.
key owner; //The owner of course O.o
integer diaChan; //Random Dialog channel to prevent other clothing items from listening..
integer listenNum; //Used to start a listen, and remove it.
list buttons = ["Tear", "Look", "Flick", "Tug"];//Buttons to click on of course.
integer touchable = TRUE;
integer removeable;
int()//The actual starting menu and calculating random channel to listen on.
{
touchable = FALSE;
diaChan = llCeil(llFrand(-9999999));
if(diaChan >= 0) //Just in case it returns 0, we want a negative listen :)
{
diaChan += llRound(llFrand(-9999999)); //Recalculate
}
listenNum = llListen(diaChan, "", "", "");//Listen handler to remove listen when done.
llDialog(user, "What would you like to do?", buttons, diaChan); //Menu with the buttons o.o
llSetTimerEvent(15); //Menu time out, in case someone doesn't pick an option :)
}
default
{
on_rez(integer r)
{
owner = llGetOwner(); //Of course it gets the owner O.o
}
state_entry()
{
owner = llGetOwner(); //Again just in case it didn't get the point.
}
touch_start(integer total_number)
{
if(touchable) //If it hasn't been touched, let it be touched
{
user = llDetectedKey(0); //Makes the person touching, the owner.
int(); //When touched, get the random channel.
}
}
attach(key av)
{
if(av)
{
removeable = TRUE; //If actually on an av, allow clothing to request permissions for detach.
}
else
{
removeable = FALSE; //Oposite if no av :)
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_ATTACH)
{
llWhisper(0, llKey2Name(user) + " rips " + llKey2Name(owner) +"'s clothing right off!");
llDetachFromAvatar( ); //Detach from av of course.
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="tug") //We use llToLower(msg) so that it's not case sensitive. :)
{
llWhisper(0, llKey2Name(user) + " tugs on " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="flick")
{
llWhisper(0, llKey2Name(user) + " flicks " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="look")
{
llWhisper(0, llKey2Name(user) + " looks at " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="tear")
{
if(removeable)
{
llRequestPermissions(owner, PERMISSION_ATTACH);
}
else
{
llWhisper(0, "Can not remove clothing that is not worn.");
}
}
touchable = TRUE;
llListenRemove(listenNum); //Stop listening to prevent lag :)
}
timer()
{
touchable = TRUE;
llSetTimerEvent(0.0); //Stops the timer
llWhisper(0, "Menu time out...");
}
}
</lsl>
----
===Stop all animations: basic===
<lsl>
//Stop all animations by Mr Lovenkraft
//Useful learning codes from the large inventory of Mr Lovenkraft ;)
list anims;
key av;
default
{
touch_start(integer total_number)
{
llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);//Dur, requests permissions.
av = llDetectedKey(0); //Person to stop animations for.
}
run_time_permissions(integer perm)//Runs if we get permissions.
{
anims = []; //Clears the list of any past animations.
anims = llGetAnimationList(av); //Gets the current users animations playing.
integer index = llGetListLength(anims); //The amount of animations for stopping.
integer i; //Starting place for our loop.
for(i=0; i<index; i++)//Runs through for each animation in the list.
{
llStopAnimation(llList2String(anims, i)); //Stops the animation in the list at point i.
}
}
}
</lsl>
----
===Single pose: pose ball===
Single animation poseball that uses the animation in the inventory
<lsl>
//Basic Poseball script
default
{
state_entry()
{
llSitTarget(<0.0, 0.0, -0.5>, ZERO_ROTATION);//Sets a sit target to actually work
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
key av = llAvatarOnSitTarget();
if (av)//If there is an av on it
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Ask permissions
}
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation("sit");//Stops the default sit
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));//Start the animation inside the prim
}
}
}
</lsl>
----
===Cycle pose ball: touch cycle===
<lsl>
//Multi poseball/pole by Mr lovenkraft
//Open sourced ;)
list anims;
key av;
integer pos;
integer listSize;
integer sat_on;
int()
{
if(sat_on)
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Request permissions to get the next animation
}
else
{
llWhisper(0, "No one sitting on this object.");
}
}
default
{
state_entry()
{
pos = 0;
anims = [];
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);//Sets the sit pose for the target
}
changed(integer change)//something has changed with this object
{
if(change & CHANGED_INVENTORY)//if only the inventory is changed of course ;)
{
pos = 0;//start the post over
anims = []; //clear the list
integer i;
integer totA = llGetInventoryNumber(INVENTORY_ANIMATION);//gets the total animations
for(i=0; i<totA; i++)
{
anims += [llGetInventoryName(INVENTORY_ANIMATION, i)];//adds each animation name to list
}
llOwnerSay("Animaions inside: " + llList2CSV(anims));//Tell the owner how many animations inside
}
if(change & CHANGED_LINK)
{
av = llAvatarOnSitTarget();
if(av) //if there is really someone sitting on it
{
sat_on = TRUE; //If someone is sitting make it true
int();//Start animation
}
else
{
sat_on = FALSE;
}
}
}
run_time_permissions(integer perm)//got permissions from user
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Stop last animation
pos += 1;//go to next in list
if(pos >= listSize)//if at the end of the list
{
pos = 0;
}
llStopAnimation("sit");
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Start the next animation
}
}
touch_start(integer total_number)
{
listSize = llGetListLength(anims);
int(); //start the new animation
}
}
</lsl>
----
===Basic notecard access list===
This is an example notecard, goes in the room prim of lockable object
Mr Lovenkraft
Fname2 Lastname2
Fname3 Lastname3
This also goes in your object you wish to lock/unlock etc
<lsl>
list allowed = [];
string allow_list = "Allow";
key owner;
key note_card;
integer line;
integer list_pos;
integer i;
integer locked;
int(integer on)
{
if(on==0)
{
llWhisper(0, "Locked, only allowed may use.");
locked = TRUE;
}
if(on==1)
{
llWhisper(0, "Unlocked, anyone may use.");
locked = FALSE;
}
if(on==3)
{
allowed = [];
note_card = llGetNotecardLine(allow_list, line);
}
}
default
{
on_rez(integer r)
{
list_pos = 0;
line = 0;
int(3);
owner = llGetOwner();
}
state_entry()
{
int(3);
list_pos = 0;
line = 0;
llListen(0, "", owner, "");
note_card = llGetNotecardLine(allow_list, line);
llOwnerSay((string)llGetFreeMemory());
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
int(3);
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="lock")
{
int(0);
}
if(llToLower(msg)=="unlock")
{
int(1);
}
}
touch_start(integer t)
{
if(locked)
{
string Ntest = llDetectedName(0);
integer index = llListFindList(allowed, [Ntest]);
if(index != -1)
{
llWhisper(0,"Opened for: "+llList2String(allowed, index)+".");
}
else
{
llWhisper(0, "You are not on the access list.");
}
}
else
{
llWhisper(0, "Opened.");
}
}
dataserver(key Qid, string data)
{
if (Qid == note_card)
{
if (data != EOF)
{
allowed += data;
line += 1;
note_card = llGetNotecardLine(allow_list, line);
}
else
{
line = 0;
llOwnerSay("Done.");
llOwnerSay(llList2CSV(allowed));
llOwnerSay("Memory left: "+(string)llGetFreeMemory());
}
}
}
}

</lsl>
----
===Greeter: landmark/notecard giver===
This uses two scripts, one for detect and give,
and one for handling the list and seeing if that
person has been given a notecard/landmark.

Greeter
<lsl>
//Greeter by Mr Lovenkraft
key owner;
integer counter; //Total amount of people greeted
key user; //Person to greet
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
counter = 0;
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY); //Clears the greeted list
owner = llGetOwner(); //Gets the new owner
}
collision_start(integer c)
{
user = llDetectedKey(0); //Person colliding with the object is the user
if(counter >= 70)//If our counter goes to 70 or higher (this prevents the list from getting to big)
{
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY);//Clear the list again
counter = 0;//Reset the counter
}
llMessageLinked(LINK_THIS, 10, llDetectedName(0), NULL_KEY);//Sends the name to be greeted
}
link_message(integer sender, integer num, string str, key id)
{
if(str=="give")
{
llGiveInventory(user, llGetInventoryName(INVENTORY_NOTECARD, 0));//Give notecard
llGiveInventory(user, llGetInventoryName(INVENTORY_LANDMARK, 0));//Give landmark
counter += 1;//Add one to our counter
}
}
}
</lsl>

User handler: List to keep track of people, so that it prevents multiple
copies to the same user
<lsl>
list names;//Names of people greeted since last reset
string test;//Name to test with the list
integer index;
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [];//Clear the names on rez
}
link_message(integer sender, integer num, string str, key id)
{
if(str == "clear")
{
names = [];//Resets the list
}
if(num == 10)
{
test = str;//Makes the name sent by the greeter the test
index = llListFindList(names, [test]); //Checks to see if it is in the list
if(index == -1)//If not found in the list
{
names += str;//Add the name to the list if not found
llMessageLinked(LINK_THIS, 0, "give", NULL_KEY);//Greet the new user
}
}
}
}
</lsl>
----
===Texture Organizer===
This is just a simple texture organizer for those with to many textures for their own good
hehe, I didn't comment this one but it works fine :)
<lsl>
//Texture organizer by Mr Lovenkraft
key owner;
key texture_key;
string texture_name;
integer inventory_pos;
integer diaChan;
integer listen_handler;
integer invTotal;
list button_options = ["Prev", "Next", "Give"];
dia()
{
diaChan = llRound(llFrand(-9999999));
if(diaChan >= 0)
{
diaChan += llRound(llFrand(-9999999));
}
listen_handler = llListen(diaChan, "", "", "");
llDialog(owner, "Pick your option below", button_options, diaChan);
llSetTimerEvent(30);
}
change(string choice)
{
if(choice == "next")
{
inventory_pos += 1;
if(inventory_pos >= invTotal)
{
inventory_pos = 0;
}
}
if(choice == "prev")
{
inventory_pos -= 1;
if(inventory_pos <= -1)
{
inventory_pos = invTotal;
}
}
llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos), ALL_SIDES);
llSetText("Texture Name: "+llGetInventoryName(INVENTORY_TEXTURE, inventory_pos)
+"\nTexture Key: "+(string)llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos))
, <1,1,1>, 1.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
inventory_pos = 0;
texture_name = "";
texture_key = "";
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
}
touch_start(integer t)
{
if(llDetectedKey(0)==owner)
{
dia();
}
else
{
llWhisper(0, "Owner only.");
}
}
listen(integer chan, string name, key id, string msg)
{
llSetTimerEvent(30);
if(llToLower(msg)=="next")
{
change("next");
}
if(llToLower(msg)=="prev")
{
change("prev");
}
if(llToLower(msg)=="give")
{
llGiveInventory(owner, llGetInventoryName(INVENTORY_TEXTURE, inventory_pos));
}
dia();
}
timer()
{
if(listen_handler)
{
llWhisper(0, "Option not chose, menu timed out.");
llListenRemove(listen_handler);
llSetTimerEvent(0);
}
}
}
</lsl>
----
===Tip Jar with option to keep a percentage===
This tip jar is very simple to use, just edit the settings notecard
and type in "TRUE" or "FALSE" as to keep or not, then type in your
percent to keep. Notecard example provided below.
====The Notecard====
# TipJar by Mr Lovenkraft
# Lines with " # " are comments, do not modify this card without knowledge of the scripting structure
# Below are the settings for the TipJar
# The lines with "" are just quoted, the quotes are not needed.
#
#Do you want to keep a %? (Use " TRUE " or " FALSE " below)
TRUE
#Kept TRUE or FALSE above
#
#Amount to keep in % below.
20

====The Script====
<lsl>
//TipJar by Mr Lovenkraft
//=======================

//Global variables==============
//Do not modify if you have
//No idea what each line does :)
//==============================
//Start globals
key owner;
key user;
key notecard;
list settings;
integer line;
integer percent_kept;
integer inuse;
integer keeping;
integer paid;
integer totalt;
integer ta;
integer lt;
string note = "*Settings";
set_text()
{
if (inuse == TRUE)
{
//This is for the actual amount.
llSetText(llKey2Name(user) + " logged in.\nLast tip: "+
(string)lt+ "\nTotal tips: " + (string)ta, <0,1,0>, 1.0);
//This line is for settext with only what the logged in actually get.
// llSetText(llKey2Name(user) + " logged in.\nLast tip: "+
// (string)paid+ "\nTotal tips: " + (string)totalt, <0,1,0>, 1.0);
}
else if (inuse == FALSE)
{
llSetText("Not in use. Touch to log in.", <1,0,0>, 1.0);
}
}
divide(integer amount)
{
integer kept;
kept = ((amount * percent_kept) / 100);
paid = (amount - kept);
pay(user, paid);
totalt += paid;
set_text();
debug((string)kept + " kept. Amount paid: "+(string)paid);
}
pay(key av, integer amount)
{
llGiveMoney(av, amount);
}

debug(string DEBUG)
{
//llOwnerSay(DEBUG);//Remove commented lines "//" when you want to debug, else add them to turn off debugging
}
//End globals
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
line = 0;
totalt = 0;
ta = 0;
lt = 0;
keeping = FALSE;
inuse = FALSE;
settings = [];
user = NULL_KEY;
set_text();
llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
if (llGetInventoryNumber(INVENTORY_NOTECARD) <= 0)
{
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) == 1)
{
notecard = llGetNotecardLine(note, line);
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) >= 2)
{
integer num = llGetInventoryNumber(INVENTORY_NOTECARD);
integer i;
for(i = 0; i < num; i++)
{
llRemoveInventory(llGetInventoryName(INVENTORY_NOTECARD, i));
}
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
}
touch_start(integer total_number)
{
if (inuse == FALSE)
{
paid = 0;
totalt = 0;
user = llDetectedKey(0);
inuse = TRUE;
set_text();
debug("Not in use, adding: "+llDetectedName(0));
}
else if (inuse == TRUE)
{
if (llDetectedKey(0) == user)
{
debug("In use, logging out: "+llDetectedName(0));
inuse = FALSE;
set_text();
user = NULL_KEY;
}
else
{
llInstantMessage(llDetectedKey(0), "This tipjar is in use, please try another.");
}
}
}
money(key id, integer amount)
{
if (user != NULL_KEY)
{
lt = amount;
ta += amount;
if (keeping == TRUE)
{
debug("keeping a percent");
divide(amount);
}
else if (keeping == FALSE)
{
debug("not keeping a percent");
if (inuse == TRUE)
{
pay(user, amount);
}
else if (inuse == FALSE)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
}
else if (user == NULL_KEY)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
run_time_permissions(integer perm)
{
if (perm & PERMISSION_DEBIT)
{
debug("Got permissions");
llSetPayPrice(20, [25, 50, 75, 100]);
}
}
dataserver(key Qid, string data)
{
if (Qid == notecard)
{
if (data != EOF)
{
if (llGetSubString(data, 0, 0) != "#")
{
settings += [data];
line += 1;
notecard = llGetNotecardLine(note, line);
}
else if (llGetSubString(data, 0, 0) == "#");
{
line += 1;
notecard = llGetNotecardLine(note, line);
}
}
else
{
llRequestPermissions(owner, PERMISSION_DEBIT);
llOwnerSay("Settings loaded.");
if ((integer)llList2String(settings, 0) == 0)
{
keeping = TRUE;
}
else if ((integer)llList2String(settings, 0) == 1)
{
keeping = FALSE;
}
percent_kept = (integer)llList2String(settings, 1);
line = 0;
debug("Keeping? " + (string)keeping + " What percent if kept: "+(string)percent_kept);
}
}
}
}
</lsl>

==Useful snippets==
Codes here are not supported by me, they are for learning purposes only
use at your own risk :)
----
===Max list length===
This will only allow a list to hold a max #, after that number is met
it will update the oldest
<lsl>
list words;
integer index;
string test;
integer listlength;
integer i;
default
{
state_entry()
{
i = 0;
llListen(0, "", "", "");
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(llGetSubString(msg, 0, 3)) == "add ")
{
listlength = llGetListLength(words);
test = llGetSubString(msg, 4, -1);
index = llListFindList(words, [test]);
list max = [test];
if(listlength <= 2)
{
if(index == -1)
{
words += [test];
llWhisper(0, test + " was stored. "+ "Total words: "+(string)(listlength + 1));
return;
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
return;
}
if(listlength >= 3)
{
if(index == -1)
{
if(i <= listlength)
{
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
i += 1;
return;
}
if(i >= listlength)
{
i = 0;
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
return;
}
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
}
}
if(llToLower(msg)=="list")
{
llWhisper(0, llDumpList2String(words, ".\n")+".");
}
}
}
</lsl>

User:Mr Lovenkraft

2008-02-29T12:13:23Z

Mr Lovenkraft: /* The Script */

==Open source codes from Mr Lovenkraft==
----
I've just starting this page in the hopes of having quite a few codes open sourced
for those of you who either can't find what you are looking for, or just want an easy
place to look for codes :)
----
===Removable prim clothing script===
This script is written to be placed in the root prim of an object.
<lsl>
//Removable clothing by Mr Lovenkraft, free to use by anyone.
//Fully open source, but credit going to Mr Lovenkraft for his effort :)
key user; //Person touching the clothing.
key owner; //The owner of course O.o
integer diaChan; //Random Dialog channel to prevent other clothing items from listening..
integer listenNum; //Used to start a listen, and remove it.
list buttons = ["Tear", "Look", "Flick", "Tug"];//Buttons to click on of course.
integer touchable = TRUE;
integer removeable;
int()//The actual starting menu and calculating random channel to listen on.
{
touchable = FALSE;
diaChan = llCeil(llFrand(-9999999));
if(diaChan >= 0) //Just in case it returns 0, we want a negative listen :)
{
diaChan += llRound(llFrand(-9999999)); //Recalculate
}
listenNum = llListen(diaChan, "", "", "");//Listen handler to remove listen when done.
llDialog(user, "What would you like to do?", buttons, diaChan); //Menu with the buttons o.o
llSetTimerEvent(15); //Menu time out, in case someone doesn't pick an option :)
}
default
{
on_rez(integer r)
{
owner = llGetOwner(); //Of course it gets the owner O.o
}
state_entry()
{
owner = llGetOwner(); //Again just in case it didn't get the point.
}
touch_start(integer total_number)
{
if(touchable) //If it hasn't been touched, let it be touched
{
user = llDetectedKey(0); //Makes the person touching, the owner.
int(); //When touched, get the random channel.
}
}
attach(key av)
{
if(av)
{
removeable = TRUE; //If actually on an av, allow clothing to request permissions for detach.
}
else
{
removeable = FALSE; //Oposite if no av :)
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_ATTACH)
{
llWhisper(0, llKey2Name(user) + " rips " + llKey2Name(owner) +"'s clothing right off!");
llDetachFromAvatar( ); //Detach from av of course.
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="tug") //We use llToLower(msg) so that it's not case sensitive. :)
{
llWhisper(0, llKey2Name(user) + " tugs on " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="flick")
{
llWhisper(0, llKey2Name(user) + " flicks " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="look")
{
llWhisper(0, llKey2Name(user) + " looks at " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="tear")
{
if(removeable)
{
llRequestPermissions(owner, PERMISSION_ATTACH);
}
else
{
llWhisper(0, "Can not remove clothing that is not worn.");
}
}
touchable = TRUE;
llListenRemove(listenNum); //Stop listening to prevent lag :)
}
timer()
{
touchable = TRUE;
llSetTimerEvent(0.0); //Stops the timer
llWhisper(0, "Menu time out...");
}
}
</lsl>
----
===Stop all animations: basic===
<lsl>
//Stop all animations by Mr Lovenkraft
//Useful learning codes from the large inventory of Mr Lovenkraft ;)
list anims;
key av;
default
{
touch_start(integer total_number)
{
llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);//Dur, requests permissions.
av = llDetectedKey(0); //Person to stop animations for.
}
run_time_permissions(integer perm)//Runs if we get permissions.
{
anims = []; //Clears the list of any past animations.
anims = llGetAnimationList(av); //Gets the current users animations playing.
integer index = llGetListLength(anims); //The amount of animations for stopping.
integer i; //Starting place for our loop.
for(i=0; i<index; i++)//Runs through for each animation in the list.
{
llStopAnimation(llList2String(anims, i)); //Stops the animation in the list at point i.
}
}
}
</lsl>
----
===Single pose: pose ball===
Single animation poseball that uses the animation in the inventory
<lsl>
//Basic Poseball script
default
{
state_entry()
{
llSitTarget(<0.0, 0.0, -0.5>, ZERO_ROTATION);//Sets a sit target to actually work
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
key av = llAvatarOnSitTarget();
if (av)//If there is an av on it
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Ask permissions
}
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation("sit");//Stops the default sit
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));//Start the animation inside the prim
}
}
}
</lsl>
----
===Cycle pose ball: touch cycle===
<lsl>
//Multi poseball/pole by Mr lovenkraft
//Open sourced ;)
list anims;
key av;
integer pos;
integer listSize;
integer sat_on;
int()
{
if(sat_on)
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Request permissions to get the next animation
}
else
{
llWhisper(0, "No one sitting on this object.");
}
}
default
{
state_entry()
{
pos = 0;
anims = [];
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);//Sets the sit pose for the target
}
changed(integer change)//something has changed with this object
{
if(change & CHANGED_INVENTORY)//if only the inventory is changed of course ;)
{
pos = 0;//start the post over
anims = []; //clear the list
integer i;
integer totA = llGetInventoryNumber(INVENTORY_ANIMATION);//gets the total animations
for(i=0; i<totA; i++)
{
anims += [llGetInventoryName(INVENTORY_ANIMATION, i)];//adds each animation name to list
}
llOwnerSay("Animaions inside: " + llList2CSV(anims));//Tell the owner how many animations inside
}
if(change & CHANGED_LINK)
{
av = llAvatarOnSitTarget();
if(av) //if there is really someone sitting on it
{
sat_on = TRUE; //If someone is sitting make it true
int();//Start animation
}
else
{
sat_on = FALSE;
}
}
}
run_time_permissions(integer perm)//got permissions from user
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Stop last animation
pos += 1;//go to next in list
if(pos >= listSize)//if at the end of the list
{
pos = 0;
}
llStopAnimation("sit");
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Start the next animation
}
}
touch_start(integer total_number)
{
listSize = llGetListLength(anims);
int(); //start the new animation
}
}
</lsl>
----
===Basic notecard access list===
This is an example notecard, goes in the room prim of lockable object
Mr Lovenkraft
Fname2 Lastname2
Fname3 Lastname3
This also goes in your object you wish to lock/unlock etc
<lsl>
list allowed = [];
string allow_list = "Allow";
key owner;
key note_card;
integer line;
integer list_pos;
integer i;
integer locked;
int(integer on)
{
if(on==0)
{
llWhisper(0, "Locked, only allowed may use.");
locked = TRUE;
}
if(on==1)
{
llWhisper(0, "Unlocked, anyone may use.");
locked = FALSE;
}
if(on==3)
{
allowed = [];
note_card = llGetNotecardLine(allow_list, line);
}
}
default
{
on_rez(integer r)
{
list_pos = 0;
line = 0;
int(3);
owner = llGetOwner();
}
state_entry()
{
int(3);
list_pos = 0;
line = 0;
llListen(0, "", owner, "");
note_card = llGetNotecardLine(allow_list, line);
llOwnerSay((string)llGetFreeMemory());
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
int(3);
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="lock")
{
int(0);
}
if(llToLower(msg)=="unlock")
{
int(1);
}
}
touch_start(integer t)
{
if(locked)
{
string Ntest = llDetectedName(0);
integer index = llListFindList(allowed, [Ntest]);
if(index != -1)
{
llWhisper(0,"Opened for: "+llList2String(allowed, index)+".");
}
else
{
llWhisper(0, "You are not on the access list.");
}
}
else
{
llWhisper(0, "Opened.");
}
}
dataserver(key Qid, string data)
{
if (Qid == note_card)
{
if (data != EOF)
{
allowed += data;
line += 1;
note_card = llGetNotecardLine(allow_list, line);
}
else
{
line = 0;
llOwnerSay("Done.");
llOwnerSay(llList2CSV(allowed));
llOwnerSay("Memory left: "+(string)llGetFreeMemory());
}
}
}
}

</lsl>
----
===Greeter: landmark/notecard giver===
This uses two scripts, one for detect and give,
and one for handling the list and seeing if that
person has been given a notecard/landmark.

Greeter
<lsl>
//Greeter by Mr Lovenkraft
key owner;
integer counter; //Total amount of people greeted
key user; //Person to greet
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
counter = 0;
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY); //Clears the greeted list
owner = llGetOwner(); //Gets the new owner
}
collision_start(integer c)
{
user = llDetectedKey(0); //Person colliding with the object is the user
if(counter >= 70)//If our counter goes to 70 or higher (this prevents the list from getting to big)
{
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY);//Clear the list again
counter = 0;//Reset the counter
}
llMessageLinked(LINK_THIS, 10, llDetectedName(0), NULL_KEY);//Sends the name to be greeted
}
link_message(integer sender, integer num, string str, key id)
{
if(str=="give")
{
llGiveInventory(user, llGetInventoryName(INVENTORY_NOTECARD, 0));//Give notecard
llGiveInventory(user, llGetInventoryName(INVENTORY_LANDMARK, 0));//Give landmark
counter += 1;//Add one to our counter
}
}
}
</lsl>

User handler: List to keep track of people, so that it prevents multiple
copies to the same user
<lsl>
list names;//Names of people greeted since last reset
string test;//Name to test with the list
integer index;
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [];//Clear the names on rez
}
link_message(integer sender, integer num, string str, key id)
{
if(str == "clear")
{
names = [];//Resets the list
}
if(num == 10)
{
test = str;//Makes the name sent by the greeter the test
index = llListFindList(names, [test]); //Checks to see if it is in the list
if(index == -1)//If not found in the list
{
names += str;//Add the name to the list if not found
llMessageLinked(LINK_THIS, 0, "give", NULL_KEY);//Greet the new user
}
}
}
}
</lsl>
----
===Texture Organizer===
This is just a simple texture organizer for those with to many textures for their own good
hehe, I didn't comment this one but it works fine :)
<lsl>
//Texture organizer by Mr Lovenkraft
key owner;
key texture_key;
string texture_name;
integer inventory_pos;
integer diaChan;
integer listen_handler;
integer invTotal;
list button_options = ["Prev", "Next", "Give"];
dia()
{
diaChan = llRound(llFrand(-9999999));
if(diaChan >= 0)
{
diaChan += llRound(llFrand(-9999999));
}
listen_handler = llListen(diaChan, "", "", "");
llDialog(owner, "Pick your option below", button_options, diaChan);
llSetTimerEvent(30);
}
change(string choice)
{
if(choice == "next")
{
inventory_pos += 1;
if(inventory_pos >= invTotal)
{
inventory_pos = 0;
}
}
if(choice == "prev")
{
inventory_pos -= 1;
if(inventory_pos <= -1)
{
inventory_pos = invTotal;
}
}
llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos), ALL_SIDES);
llSetText("Texture Name: "+llGetInventoryName(INVENTORY_TEXTURE, inventory_pos)
+"\nTexture Key: "+(string)llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos))
, <1,1,1>, 1.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
inventory_pos = 0;
texture_name = "";
texture_key = "";
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
}
touch_start(integer t)
{
if(llDetectedKey(0)==owner)
{
dia();
}
else
{
llWhisper(0, "Owner only.");
}
}
listen(integer chan, string name, key id, string msg)
{
llSetTimerEvent(30);
if(llToLower(msg)=="next")
{
change("next");
}
if(llToLower(msg)=="prev")
{
change("prev");
}
if(llToLower(msg)=="give")
{
llGiveInventory(owner, llGetInventoryName(INVENTORY_TEXTURE, inventory_pos));
}
dia();
}
timer()
{
if(listen_handler)
{
llWhisper(0, "Option not chose, menu timed out.");
llListenRemove(listen_handler);
llSetTimerEvent(0);
}
}
}
</lsl>
----
===Tip Jar with option to keep a percentage===
This tip jar is very simple to use, just edit the settings notecard
and type in "TRUE" or "FALSE" as to keep or not, then type in your
percent to keep. Notecard example provided below.
====The Notecard====
# TipJar by Mr Lovenkraft
# Lines with " # " are comments, do not modify this card without knowledge of the scripting structure
# Below are the settings for the TipJar
# The lines with "" are just quoted, the quotes are not needed.
#
#Do you want to keep a %? (Use " TRUE " or " FALSE " below)
TRUE
#Kept TRUE or FALSE above
#
#Amount to keep in % below.
20

====The Script====
<lsl>
//TipJar by Mr Lovenkraft
//=======================

//Global variables==============
//Do not modify if you have
//No idea what each line does :)
//==============================
//Start globals
key owner;
key user;
key notecard;
list settings;
integer line;
integer percent_kept;
integer inuse;
integer keeping;
integer paid;
integer totalt;
string note = "*Settings";
set_text()
{
if (inuse == TRUE)
{
llSetText(llKey2Name(user) + " logged in.\nLast tip: "+
(string)paid+ "\nTotal tips: " + (string)totalt, <0,1,0>, 1.0);
}
else if (inuse == FALSE)
{
llSetText("Not in use. Touch to log in.", <1,0,0>, 1.0);
}
}
divide(integer amount)
{
integer kept;
kept = ((amount * percent_kept) / 100);
paid = (amount - kept);
pay(user, paid);
totalt += paid;
set_text();
debug((string)kept + " kept. Amount paid: "+(string)paid);
}
pay(key av, integer amount)
{
llGiveMoney(av, amount);
}

debug(string DEBUG)
{
//llOwnerSay(DEBUG);//Remove commented lines "//" when you want to debug, else add them to turn off debugging
}
//End globals
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
line = 0;
totalt = 0;
keeping = FALSE;
inuse = FALSE;
settings = [];
user = NULL_KEY;
set_text();
llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
if (llGetInventoryNumber(INVENTORY_NOTECARD) <= 0)
{
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) == 1)
{
notecard = llGetNotecardLine(note, line);
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) >= 2)
{
integer num = llGetInventoryNumber(INVENTORY_NOTECARD);
integer i;
for(i = 0; i < num; i++)
{
llRemoveInventory(llGetInventoryName(INVENTORY_NOTECARD, i));
}
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
}
touch_start(integer total_number)
{
if (inuse == FALSE)
{
paid = 0;
totalt = 0;
user = llDetectedKey(0);
inuse = TRUE;
set_text();
debug("Not in use, adding: "+llDetectedName(0));
}
else if (inuse == TRUE)
{
if (llDetectedKey(0) == user)
{
debug("In use, logging out: "+llDetectedName(0));
inuse = FALSE;
set_text();
user = NULL_KEY;
}
else
{
llInstantMessage(llDetectedKey(0), "This tipjar is in use, please try another.");
}
}
}
money(key id, integer amount)
{
if (user != NULL_KEY)
{
if (keeping == TRUE)
{
debug("keeping a percent");
divide(amount);
}
else if (keeping == FALSE)
{
debug("not keeping a percent");
if (inuse == TRUE)
{
pay(user, amount);
}
else if (inuse == FALSE)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
}
else if (user == NULL_KEY)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
run_time_permissions(integer perm)
{
if (perm & PERMISSION_DEBIT)
{
debug("Got permissions");
llSetPayPrice(20, [25, 50, 75, 100]);
}
}
dataserver(key Qid, string data)
{
if (Qid == notecard)
{
if (data != EOF)
{
if (llGetSubString(data, 0, 0) != "#")
{
settings += [data];
line += 1;
notecard = llGetNotecardLine(note, line);
}
else if (llGetSubString(data, 0, 0) == "#");
{
line += 1;
notecard = llGetNotecardLine(note, line);
}
}
else
{
llRequestPermissions(owner, PERMISSION_DEBIT);
llOwnerSay("Settings loaded.");
if ((integer)llList2String(settings, 0) == 0)
{
keeping = TRUE;
}
else if ((integer)llList2String(settings, 0) == 1)
{
keeping = FALSE;
}
percent_kept = (integer)llList2String(settings, 1);
line = 0;
debug("Keeping? " + (string)keeping + " What percent if kept: "+(string)percent_kept);
}
}
}
}
</lsl>

==Useful snippets==
Codes here are not supported by me, they are for learning purposes only
use at your own risk :)
----
===Max list length===
This will only allow a list to hold a max #, after that number is met
it will update the oldest
<lsl>
list words;
integer index;
string test;
integer listlength;
integer i;
default
{
state_entry()
{
i = 0;
llListen(0, "", "", "");
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(llGetSubString(msg, 0, 3)) == "add ")
{
listlength = llGetListLength(words);
test = llGetSubString(msg, 4, -1);
index = llListFindList(words, [test]);
list max = [test];
if(listlength <= 2)
{
if(index == -1)
{
words += [test];
llWhisper(0, test + " was stored. "+ "Total words: "+(string)(listlength + 1));
return;
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
return;
}
if(listlength >= 3)
{
if(index == -1)
{
if(i <= listlength)
{
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
i += 1;
return;
}
if(i >= listlength)
{
i = 0;
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
return;
}
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
}
}
if(llToLower(msg)=="list")
{
llWhisper(0, llDumpList2String(words, ".\n")+".");
}
}
}
</lsl>

User:Mr Lovenkraft

2008-02-29T12:12:00Z

Mr Lovenkraft: /* The Script */

==Open source codes from Mr Lovenkraft==
----
I've just starting this page in the hopes of having quite a few codes open sourced
for those of you who either can't find what you are looking for, or just want an easy
place to look for codes :)
----
===Removable prim clothing script===
This script is written to be placed in the root prim of an object.
<lsl>
//Removable clothing by Mr Lovenkraft, free to use by anyone.
//Fully open source, but credit going to Mr Lovenkraft for his effort :)
key user; //Person touching the clothing.
key owner; //The owner of course O.o
integer diaChan; //Random Dialog channel to prevent other clothing items from listening..
integer listenNum; //Used to start a listen, and remove it.
list buttons = ["Tear", "Look", "Flick", "Tug"];//Buttons to click on of course.
integer touchable = TRUE;
integer removeable;
int()//The actual starting menu and calculating random channel to listen on.
{
touchable = FALSE;
diaChan = llCeil(llFrand(-9999999));
if(diaChan >= 0) //Just in case it returns 0, we want a negative listen :)
{
diaChan += llRound(llFrand(-9999999)); //Recalculate
}
listenNum = llListen(diaChan, "", "", "");//Listen handler to remove listen when done.
llDialog(user, "What would you like to do?", buttons, diaChan); //Menu with the buttons o.o
llSetTimerEvent(15); //Menu time out, in case someone doesn't pick an option :)
}
default
{
on_rez(integer r)
{
owner = llGetOwner(); //Of course it gets the owner O.o
}
state_entry()
{
owner = llGetOwner(); //Again just in case it didn't get the point.
}
touch_start(integer total_number)
{
if(touchable) //If it hasn't been touched, let it be touched
{
user = llDetectedKey(0); //Makes the person touching, the owner.
int(); //When touched, get the random channel.
}
}
attach(key av)
{
if(av)
{
removeable = TRUE; //If actually on an av, allow clothing to request permissions for detach.
}
else
{
removeable = FALSE; //Oposite if no av :)
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_ATTACH)
{
llWhisper(0, llKey2Name(user) + " rips " + llKey2Name(owner) +"'s clothing right off!");
llDetachFromAvatar( ); //Detach from av of course.
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="tug") //We use llToLower(msg) so that it's not case sensitive. :)
{
llWhisper(0, llKey2Name(user) + " tugs on " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="flick")
{
llWhisper(0, llKey2Name(user) + " flicks " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="look")
{
llWhisper(0, llKey2Name(user) + " looks at " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="tear")
{
if(removeable)
{
llRequestPermissions(owner, PERMISSION_ATTACH);
}
else
{
llWhisper(0, "Can not remove clothing that is not worn.");
}
}
touchable = TRUE;
llListenRemove(listenNum); //Stop listening to prevent lag :)
}
timer()
{
touchable = TRUE;
llSetTimerEvent(0.0); //Stops the timer
llWhisper(0, "Menu time out...");
}
}
</lsl>
----
===Stop all animations: basic===
<lsl>
//Stop all animations by Mr Lovenkraft
//Useful learning codes from the large inventory of Mr Lovenkraft ;)
list anims;
key av;
default
{
touch_start(integer total_number)
{
llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);//Dur, requests permissions.
av = llDetectedKey(0); //Person to stop animations for.
}
run_time_permissions(integer perm)//Runs if we get permissions.
{
anims = []; //Clears the list of any past animations.
anims = llGetAnimationList(av); //Gets the current users animations playing.
integer index = llGetListLength(anims); //The amount of animations for stopping.
integer i; //Starting place for our loop.
for(i=0; i<index; i++)//Runs through for each animation in the list.
{
llStopAnimation(llList2String(anims, i)); //Stops the animation in the list at point i.
}
}
}
</lsl>
----
===Single pose: pose ball===
Single animation poseball that uses the animation in the inventory
<lsl>
//Basic Poseball script
default
{
state_entry()
{
llSitTarget(<0.0, 0.0, -0.5>, ZERO_ROTATION);//Sets a sit target to actually work
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
key av = llAvatarOnSitTarget();
if (av)//If there is an av on it
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Ask permissions
}
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation("sit");//Stops the default sit
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));//Start the animation inside the prim
}
}
}
</lsl>
----
===Cycle pose ball: touch cycle===
<lsl>
//Multi poseball/pole by Mr lovenkraft
//Open sourced ;)
list anims;
key av;
integer pos;
integer listSize;
integer sat_on;
int()
{
if(sat_on)
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Request permissions to get the next animation
}
else
{
llWhisper(0, "No one sitting on this object.");
}
}
default
{
state_entry()
{
pos = 0;
anims = [];
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);//Sets the sit pose for the target
}
changed(integer change)//something has changed with this object
{
if(change & CHANGED_INVENTORY)//if only the inventory is changed of course ;)
{
pos = 0;//start the post over
anims = []; //clear the list
integer i;
integer totA = llGetInventoryNumber(INVENTORY_ANIMATION);//gets the total animations
for(i=0; i<totA; i++)
{
anims += [llGetInventoryName(INVENTORY_ANIMATION, i)];//adds each animation name to list
}
llOwnerSay("Animaions inside: " + llList2CSV(anims));//Tell the owner how many animations inside
}
if(change & CHANGED_LINK)
{
av = llAvatarOnSitTarget();
if(av) //if there is really someone sitting on it
{
sat_on = TRUE; //If someone is sitting make it true
int();//Start animation
}
else
{
sat_on = FALSE;
}
}
}
run_time_permissions(integer perm)//got permissions from user
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Stop last animation
pos += 1;//go to next in list
if(pos >= listSize)//if at the end of the list
{
pos = 0;
}
llStopAnimation("sit");
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Start the next animation
}
}
touch_start(integer total_number)
{
listSize = llGetListLength(anims);
int(); //start the new animation
}
}
</lsl>
----
===Basic notecard access list===
This is an example notecard, goes in the room prim of lockable object
Mr Lovenkraft
Fname2 Lastname2
Fname3 Lastname3
This also goes in your object you wish to lock/unlock etc
<lsl>
list allowed = [];
string allow_list = "Allow";
key owner;
key note_card;
integer line;
integer list_pos;
integer i;
integer locked;
int(integer on)
{
if(on==0)
{
llWhisper(0, "Locked, only allowed may use.");
locked = TRUE;
}
if(on==1)
{
llWhisper(0, "Unlocked, anyone may use.");
locked = FALSE;
}
if(on==3)
{
allowed = [];
note_card = llGetNotecardLine(allow_list, line);
}
}
default
{
on_rez(integer r)
{
list_pos = 0;
line = 0;
int(3);
owner = llGetOwner();
}
state_entry()
{
int(3);
list_pos = 0;
line = 0;
llListen(0, "", owner, "");
note_card = llGetNotecardLine(allow_list, line);
llOwnerSay((string)llGetFreeMemory());
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
int(3);
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="lock")
{
int(0);
}
if(llToLower(msg)=="unlock")
{
int(1);
}
}
touch_start(integer t)
{
if(locked)
{
string Ntest = llDetectedName(0);
integer index = llListFindList(allowed, [Ntest]);
if(index != -1)
{
llWhisper(0,"Opened for: "+llList2String(allowed, index)+".");
}
else
{
llWhisper(0, "You are not on the access list.");
}
}
else
{
llWhisper(0, "Opened.");
}
}
dataserver(key Qid, string data)
{
if (Qid == note_card)
{
if (data != EOF)
{
allowed += data;
line += 1;
note_card = llGetNotecardLine(allow_list, line);
}
else
{
line = 0;
llOwnerSay("Done.");
llOwnerSay(llList2CSV(allowed));
llOwnerSay("Memory left: "+(string)llGetFreeMemory());
}
}
}
}

</lsl>
----
===Greeter: landmark/notecard giver===
This uses two scripts, one for detect and give,
and one for handling the list and seeing if that
person has been given a notecard/landmark.

Greeter
<lsl>
//Greeter by Mr Lovenkraft
key owner;
integer counter; //Total amount of people greeted
key user; //Person to greet
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
counter = 0;
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY); //Clears the greeted list
owner = llGetOwner(); //Gets the new owner
}
collision_start(integer c)
{
user = llDetectedKey(0); //Person colliding with the object is the user
if(counter >= 70)//If our counter goes to 70 or higher (this prevents the list from getting to big)
{
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY);//Clear the list again
counter = 0;//Reset the counter
}
llMessageLinked(LINK_THIS, 10, llDetectedName(0), NULL_KEY);//Sends the name to be greeted
}
link_message(integer sender, integer num, string str, key id)
{
if(str=="give")
{
llGiveInventory(user, llGetInventoryName(INVENTORY_NOTECARD, 0));//Give notecard
llGiveInventory(user, llGetInventoryName(INVENTORY_LANDMARK, 0));//Give landmark
counter += 1;//Add one to our counter
}
}
}
</lsl>

User handler: List to keep track of people, so that it prevents multiple
copies to the same user
<lsl>
list names;//Names of people greeted since last reset
string test;//Name to test with the list
integer index;
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [];//Clear the names on rez
}
link_message(integer sender, integer num, string str, key id)
{
if(str == "clear")
{
names = [];//Resets the list
}
if(num == 10)
{
test = str;//Makes the name sent by the greeter the test
index = llListFindList(names, [test]); //Checks to see if it is in the list
if(index == -1)//If not found in the list
{
names += str;//Add the name to the list if not found
llMessageLinked(LINK_THIS, 0, "give", NULL_KEY);//Greet the new user
}
}
}
}
</lsl>
----
===Texture Organizer===
This is just a simple texture organizer for those with to many textures for their own good
hehe, I didn't comment this one but it works fine :)
<lsl>
//Texture organizer by Mr Lovenkraft
key owner;
key texture_key;
string texture_name;
integer inventory_pos;
integer diaChan;
integer listen_handler;
integer invTotal;
list button_options = ["Prev", "Next", "Give"];
dia()
{
diaChan = llRound(llFrand(-9999999));
if(diaChan >= 0)
{
diaChan += llRound(llFrand(-9999999));
}
listen_handler = llListen(diaChan, "", "", "");
llDialog(owner, "Pick your option below", button_options, diaChan);
llSetTimerEvent(30);
}
change(string choice)
{
if(choice == "next")
{
inventory_pos += 1;
if(inventory_pos >= invTotal)
{
inventory_pos = 0;
}
}
if(choice == "prev")
{
inventory_pos -= 1;
if(inventory_pos <= -1)
{
inventory_pos = invTotal;
}
}
llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos), ALL_SIDES);
llSetText("Texture Name: "+llGetInventoryName(INVENTORY_TEXTURE, inventory_pos)
+"\nTexture Key: "+(string)llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos))
, <1,1,1>, 1.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
inventory_pos = 0;
texture_name = "";
texture_key = "";
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
}
touch_start(integer t)
{
if(llDetectedKey(0)==owner)
{
dia();
}
else
{
llWhisper(0, "Owner only.");
}
}
listen(integer chan, string name, key id, string msg)
{
llSetTimerEvent(30);
if(llToLower(msg)=="next")
{
change("next");
}
if(llToLower(msg)=="prev")
{
change("prev");
}
if(llToLower(msg)=="give")
{
llGiveInventory(owner, llGetInventoryName(INVENTORY_TEXTURE, inventory_pos));
}
dia();
}
timer()
{
if(listen_handler)
{
llWhisper(0, "Option not chose, menu timed out.");
llListenRemove(listen_handler);
llSetTimerEvent(0);
}
}
}
</lsl>
----
===Tip Jar with option to keep a percentage===
This tip jar is very simple to use, just edit the settings notecard
and type in "TRUE" or "FALSE" as to keep or not, then type in your
percent to keep. Notecard example provided below.
====The Notecard====
# TipJar by Mr Lovenkraft
# Lines with " # " are comments, do not modify this card without knowledge of the scripting structure
# Below are the settings for the TipJar
# The lines with "" are just quoted, the quotes are not needed.
#
#Do you want to keep a %? (Use " TRUE " or " FALSE " below)
TRUE
#Kept TRUE or FALSE above
#
#Amount to keep in % below.
20

====The Script====
<lsl>
//TipJar by Mr Lovenkraft
//=======================

//Global variables==============
//Do not modify if you have
//No idea what each line does :)
//==============================
//Start globals
key owner;
key user;
key notecard;
list settings;
integer line;
integer percent_kept;
integer inuse;
integer keeping;
integer paid;
integer totalt;
string note = "*Settings";
set_text()
{
if (inuse == TRUE)
{
llSetText(llKey2Name(user) + " logged in.\nLast tip: "+
(string)paid+ "\nTotal tips: " + (string)totalt, <0,1,0>, 1.0);
}
else if (inuse == FALSE)
{
llSetText("Not in use. Touch to log in.", <1,0,0>, 1.0);
}
}
divide(integer amount)
{
integer kept;
kept = ((amount * percent_kept) / 100);
paid = (amount - kept);
pay(user, paid);
totalt += paid;
set_text();
debug((string)kept + " kept. Amount paid: "+(string)paid);
}
pay(key av, integer amount)
{
llGiveMoney(av, amount);
}

debug(string DEBUG)
{
//llOwnerSay(DEBUG);//Remove commented lines "//" when you want to debug, else add them to turn off debugging
}
//End globals
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
line = 0;
totalt = 0;
keeping = FALSE;
inuse = FALSE;
settings = [];
user = NULL_KEY;
set_text();
llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
if (llGetInventoryNumber(INVENTORY_NOTECARD) <= 0)
{
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) == 1)
{
notecard = llGetNotecardLine(note, line);
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) >= 2)
{
integer num = llGetInventoryNumber(INVENTORY_NOTECARD);
integer i;
for(i = 0; i < num; i++)
{
llRemoveInventory(llGetInventoryName(INVENTORY_NOTECARD, i));
}
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
}
touch_start(integer total_number)
{
if (inuse == FALSE)
{
user = llDetectedKey(0);
inuse = TRUE;
set_text();
debug("Not in use, adding: "+llDetectedName(0));
}
else if (inuse == TRUE)
{
if (llDetectedKey(0) == user)
{
debug("In use, logging out: "+llDetectedName(0));
inuse = FALSE;
set_text();
user = NULL_KEY;
}
else
{
llInstantMessage(llDetectedKey(0), "This tipjar is in use, please try another.");
}
}
}
money(key id, integer amount)
{
if (user != NULL_KEY)
{
if (keeping == TRUE)
{
debug("keeping a percent");
divide(amount);
}
else if (keeping == FALSE)
{
debug("not keeping a percent");
if (inuse == TRUE)
{
pay(user, amount);
}
else if (inuse == FALSE)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
}
else if (user == NULL_KEY)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
run_time_permissions(integer perm)
{
if (perm & PERMISSION_DEBIT)
{
debug("Got permissions");
llSetPayPrice(20, [25, 50, 75, 100]);
}
}
dataserver(key Qid, string data)
{
if (Qid == notecard)
{
if (data != EOF)
{
if (llGetSubString(data, 0, 0) != "#")
{
settings += [data];
line += 1;
notecard = llGetNotecardLine(note, line);
}
else if (llGetSubString(data, 0, 0) == "#");
{
line += 1;
notecard = llGetNotecardLine(note, line);
}
}
else
{
llRequestPermissions(owner, PERMISSION_DEBIT);
llOwnerSay("Settings loaded.");
if ((integer)llList2String(settings, 0) == 0)
{
keeping = TRUE;
}
else if ((integer)llList2String(settings, 0) == 1)
{
keeping = FALSE;
}
percent_kept = (integer)llList2String(settings, 1);
line = 0;
debug("Keeping? " + (string)keeping + " What percent if kept: "+(string)percent_kept);
}
}
}
}
</lsl>

==Useful snippets==
Codes here are not supported by me, they are for learning purposes only
use at your own risk :)
----
===Max list length===
This will only allow a list to hold a max #, after that number is met
it will update the oldest
<lsl>
list words;
integer index;
string test;
integer listlength;
integer i;
default
{
state_entry()
{
i = 0;
llListen(0, "", "", "");
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(llGetSubString(msg, 0, 3)) == "add ")
{
listlength = llGetListLength(words);
test = llGetSubString(msg, 4, -1);
index = llListFindList(words, [test]);
list max = [test];
if(listlength <= 2)
{
if(index == -1)
{
words += [test];
llWhisper(0, test + " was stored. "+ "Total words: "+(string)(listlength + 1));
return;
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
return;
}
if(listlength >= 3)
{
if(index == -1)
{
if(i <= listlength)
{
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
i += 1;
return;
}
if(i >= listlength)
{
i = 0;
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
return;
}
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
}
}
if(llToLower(msg)=="list")
{
llWhisper(0, llDumpList2String(words, ".\n")+".");
}
}
}
</lsl>

User:Mr Lovenkraft

2008-02-29T11:49:56Z

Mr Lovenkraft: /* The Notecard */

==Open source codes from Mr Lovenkraft==
----
I've just starting this page in the hopes of having quite a few codes open sourced
for those of you who either can't find what you are looking for, or just want an easy
place to look for codes :)
----
===Removable prim clothing script===
This script is written to be placed in the root prim of an object.
<lsl>
//Removable clothing by Mr Lovenkraft, free to use by anyone.
//Fully open source, but credit going to Mr Lovenkraft for his effort :)
key user; //Person touching the clothing.
key owner; //The owner of course O.o
integer diaChan; //Random Dialog channel to prevent other clothing items from listening..
integer listenNum; //Used to start a listen, and remove it.
list buttons = ["Tear", "Look", "Flick", "Tug"];//Buttons to click on of course.
integer touchable = TRUE;
integer removeable;
int()//The actual starting menu and calculating random channel to listen on.
{
touchable = FALSE;
diaChan = llCeil(llFrand(-9999999));
if(diaChan >= 0) //Just in case it returns 0, we want a negative listen :)
{
diaChan += llRound(llFrand(-9999999)); //Recalculate
}
listenNum = llListen(diaChan, "", "", "");//Listen handler to remove listen when done.
llDialog(user, "What would you like to do?", buttons, diaChan); //Menu with the buttons o.o
llSetTimerEvent(15); //Menu time out, in case someone doesn't pick an option :)
}
default
{
on_rez(integer r)
{
owner = llGetOwner(); //Of course it gets the owner O.o
}
state_entry()
{
owner = llGetOwner(); //Again just in case it didn't get the point.
}
touch_start(integer total_number)
{
if(touchable) //If it hasn't been touched, let it be touched
{
user = llDetectedKey(0); //Makes the person touching, the owner.
int(); //When touched, get the random channel.
}
}
attach(key av)
{
if(av)
{
removeable = TRUE; //If actually on an av, allow clothing to request permissions for detach.
}
else
{
removeable = FALSE; //Oposite if no av :)
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_ATTACH)
{
llWhisper(0, llKey2Name(user) + " rips " + llKey2Name(owner) +"'s clothing right off!");
llDetachFromAvatar( ); //Detach from av of course.
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="tug") //We use llToLower(msg) so that it's not case sensitive. :)
{
llWhisper(0, llKey2Name(user) + " tugs on " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="flick")
{
llWhisper(0, llKey2Name(user) + " flicks " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="look")
{
llWhisper(0, llKey2Name(user) + " looks at " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="tear")
{
if(removeable)
{
llRequestPermissions(owner, PERMISSION_ATTACH);
}
else
{
llWhisper(0, "Can not remove clothing that is not worn.");
}
}
touchable = TRUE;
llListenRemove(listenNum); //Stop listening to prevent lag :)
}
timer()
{
touchable = TRUE;
llSetTimerEvent(0.0); //Stops the timer
llWhisper(0, "Menu time out...");
}
}
</lsl>
----
===Stop all animations: basic===
<lsl>
//Stop all animations by Mr Lovenkraft
//Useful learning codes from the large inventory of Mr Lovenkraft ;)
list anims;
key av;
default
{
touch_start(integer total_number)
{
llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);//Dur, requests permissions.
av = llDetectedKey(0); //Person to stop animations for.
}
run_time_permissions(integer perm)//Runs if we get permissions.
{
anims = []; //Clears the list of any past animations.
anims = llGetAnimationList(av); //Gets the current users animations playing.
integer index = llGetListLength(anims); //The amount of animations for stopping.
integer i; //Starting place for our loop.
for(i=0; i<index; i++)//Runs through for each animation in the list.
{
llStopAnimation(llList2String(anims, i)); //Stops the animation in the list at point i.
}
}
}
</lsl>
----
===Single pose: pose ball===
Single animation poseball that uses the animation in the inventory
<lsl>
//Basic Poseball script
default
{
state_entry()
{
llSitTarget(<0.0, 0.0, -0.5>, ZERO_ROTATION);//Sets a sit target to actually work
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
key av = llAvatarOnSitTarget();
if (av)//If there is an av on it
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Ask permissions
}
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation("sit");//Stops the default sit
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));//Start the animation inside the prim
}
}
}
</lsl>
----
===Cycle pose ball: touch cycle===
<lsl>
//Multi poseball/pole by Mr lovenkraft
//Open sourced ;)
list anims;
key av;
integer pos;
integer listSize;
integer sat_on;
int()
{
if(sat_on)
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Request permissions to get the next animation
}
else
{
llWhisper(0, "No one sitting on this object.");
}
}
default
{
state_entry()
{
pos = 0;
anims = [];
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);//Sets the sit pose for the target
}
changed(integer change)//something has changed with this object
{
if(change & CHANGED_INVENTORY)//if only the inventory is changed of course ;)
{
pos = 0;//start the post over
anims = []; //clear the list
integer i;
integer totA = llGetInventoryNumber(INVENTORY_ANIMATION);//gets the total animations
for(i=0; i<totA; i++)
{
anims += [llGetInventoryName(INVENTORY_ANIMATION, i)];//adds each animation name to list
}
llOwnerSay("Animaions inside: " + llList2CSV(anims));//Tell the owner how many animations inside
}
if(change & CHANGED_LINK)
{
av = llAvatarOnSitTarget();
if(av) //if there is really someone sitting on it
{
sat_on = TRUE; //If someone is sitting make it true
int();//Start animation
}
else
{
sat_on = FALSE;
}
}
}
run_time_permissions(integer perm)//got permissions from user
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Stop last animation
pos += 1;//go to next in list
if(pos >= listSize)//if at the end of the list
{
pos = 0;
}
llStopAnimation("sit");
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Start the next animation
}
}
touch_start(integer total_number)
{
listSize = llGetListLength(anims);
int(); //start the new animation
}
}
</lsl>
----
===Basic notecard access list===
This is an example notecard, goes in the room prim of lockable object
Mr Lovenkraft
Fname2 Lastname2
Fname3 Lastname3
This also goes in your object you wish to lock/unlock etc
<lsl>
list allowed = [];
string allow_list = "Allow";
key owner;
key note_card;
integer line;
integer list_pos;
integer i;
integer locked;
int(integer on)
{
if(on==0)
{
llWhisper(0, "Locked, only allowed may use.");
locked = TRUE;
}
if(on==1)
{
llWhisper(0, "Unlocked, anyone may use.");
locked = FALSE;
}
if(on==3)
{
allowed = [];
note_card = llGetNotecardLine(allow_list, line);
}
}
default
{
on_rez(integer r)
{
list_pos = 0;
line = 0;
int(3);
owner = llGetOwner();
}
state_entry()
{
int(3);
list_pos = 0;
line = 0;
llListen(0, "", owner, "");
note_card = llGetNotecardLine(allow_list, line);
llOwnerSay((string)llGetFreeMemory());
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
int(3);
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="lock")
{
int(0);
}
if(llToLower(msg)=="unlock")
{
int(1);
}
}
touch_start(integer t)
{
if(locked)
{
string Ntest = llDetectedName(0);
integer index = llListFindList(allowed, [Ntest]);
if(index != -1)
{
llWhisper(0,"Opened for: "+llList2String(allowed, index)+".");
}
else
{
llWhisper(0, "You are not on the access list.");
}
}
else
{
llWhisper(0, "Opened.");
}
}
dataserver(key Qid, string data)
{
if (Qid == note_card)
{
if (data != EOF)
{
allowed += data;
line += 1;
note_card = llGetNotecardLine(allow_list, line);
}
else
{
line = 0;
llOwnerSay("Done.");
llOwnerSay(llList2CSV(allowed));
llOwnerSay("Memory left: "+(string)llGetFreeMemory());
}
}
}
}

</lsl>
----
===Greeter: landmark/notecard giver===
This uses two scripts, one for detect and give,
and one for handling the list and seeing if that
person has been given a notecard/landmark.

Greeter
<lsl>
//Greeter by Mr Lovenkraft
key owner;
integer counter; //Total amount of people greeted
key user; //Person to greet
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
counter = 0;
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY); //Clears the greeted list
owner = llGetOwner(); //Gets the new owner
}
collision_start(integer c)
{
user = llDetectedKey(0); //Person colliding with the object is the user
if(counter >= 70)//If our counter goes to 70 or higher (this prevents the list from getting to big)
{
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY);//Clear the list again
counter = 0;//Reset the counter
}
llMessageLinked(LINK_THIS, 10, llDetectedName(0), NULL_KEY);//Sends the name to be greeted
}
link_message(integer sender, integer num, string str, key id)
{
if(str=="give")
{
llGiveInventory(user, llGetInventoryName(INVENTORY_NOTECARD, 0));//Give notecard
llGiveInventory(user, llGetInventoryName(INVENTORY_LANDMARK, 0));//Give landmark
counter += 1;//Add one to our counter
}
}
}
</lsl>

User handler: List to keep track of people, so that it prevents multiple
copies to the same user
<lsl>
list names;//Names of people greeted since last reset
string test;//Name to test with the list
integer index;
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [];//Clear the names on rez
}
link_message(integer sender, integer num, string str, key id)
{
if(str == "clear")
{
names = [];//Resets the list
}
if(num == 10)
{
test = str;//Makes the name sent by the greeter the test
index = llListFindList(names, [test]); //Checks to see if it is in the list
if(index == -1)//If not found in the list
{
names += str;//Add the name to the list if not found
llMessageLinked(LINK_THIS, 0, "give", NULL_KEY);//Greet the new user
}
}
}
}
</lsl>
----
===Texture Organizer===
This is just a simple texture organizer for those with to many textures for their own good
hehe, I didn't comment this one but it works fine :)
<lsl>
//Texture organizer by Mr Lovenkraft
key owner;
key texture_key;
string texture_name;
integer inventory_pos;
integer diaChan;
integer listen_handler;
integer invTotal;
list button_options = ["Prev", "Next", "Give"];
dia()
{
diaChan = llRound(llFrand(-9999999));
if(diaChan >= 0)
{
diaChan += llRound(llFrand(-9999999));
}
listen_handler = llListen(diaChan, "", "", "");
llDialog(owner, "Pick your option below", button_options, diaChan);
llSetTimerEvent(30);
}
change(string choice)
{
if(choice == "next")
{
inventory_pos += 1;
if(inventory_pos >= invTotal)
{
inventory_pos = 0;
}
}
if(choice == "prev")
{
inventory_pos -= 1;
if(inventory_pos <= -1)
{
inventory_pos = invTotal;
}
}
llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos), ALL_SIDES);
llSetText("Texture Name: "+llGetInventoryName(INVENTORY_TEXTURE, inventory_pos)
+"\nTexture Key: "+(string)llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos))
, <1,1,1>, 1.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
inventory_pos = 0;
texture_name = "";
texture_key = "";
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
}
touch_start(integer t)
{
if(llDetectedKey(0)==owner)
{
dia();
}
else
{
llWhisper(0, "Owner only.");
}
}
listen(integer chan, string name, key id, string msg)
{
llSetTimerEvent(30);
if(llToLower(msg)=="next")
{
change("next");
}
if(llToLower(msg)=="prev")
{
change("prev");
}
if(llToLower(msg)=="give")
{
llGiveInventory(owner, llGetInventoryName(INVENTORY_TEXTURE, inventory_pos));
}
dia();
}
timer()
{
if(listen_handler)
{
llWhisper(0, "Option not chose, menu timed out.");
llListenRemove(listen_handler);
llSetTimerEvent(0);
}
}
}
</lsl>
----
===Tip Jar with option to keep a percentage===
This tip jar is very simple to use, just edit the settings notecard
and type in "TRUE" or "FALSE" as to keep or not, then type in your
percent to keep. Notecard example provided below.
====The Notecard====
# TipJar by Mr Lovenkraft
# Lines with " # " are comments, do not modify this card without knowledge of the scripting structure
# Below are the settings for the TipJar
# The lines with "" are just quoted, the quotes are not needed.
#
#Do you want to keep a %? (Use " TRUE " or " FALSE " below)
TRUE
#Kept TRUE or FALSE above
#
#Amount to keep in % below.
20

====The Script====
<lsl>
//TipJar by Mr Lovenkraft
//=======================

//Global variables==============
//Do not modify if you have
//No idea what each line does :)
//==============================
//Start globals
key owner;
key user;
key notecard;
list settings;
integer line;
integer percent_kept;
integer inuse;
integer keeping;
string note = "*Settings";
divide(integer amount)
{
integer kept;
kept = ((amount * percent_kept) / 100);
integer paid = (amount - kept);
pay(user, paid);
debug((string)kept + " kept. Amount paid: "+(string)paid);
}
pay(key av, integer amount)
{
llGiveMoney(av, amount);
}
debug(string DEBUG)
{
//llOwnerSay(DEBUG);//Remove commented lines "//" when you want to debug, else add them to turn off debugging
}
//End globals
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
line = 0;
keeping = FALSE;
inuse = FALSE;
settings = [];
user = NULL_KEY;
llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
if (llGetInventoryNumber(INVENTORY_NOTECARD) <= 0)
{
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) == 1)
{
notecard = llGetNotecardLine(note, line);
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) >= 2)
{
integer num = llGetInventoryNumber(INVENTORY_NOTECARD);
integer i;
for(i = 0; i < num; i++)
{
llRemoveInventory(llGetInventoryName(INVENTORY_NOTECARD, i));
}
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
}
touch_start(integer total_number)
{
if (inuse == FALSE)
{
user = llDetectedKey(0);
inuse = TRUE;
debug("Not in use, adding: "+llDetectedName(0));
}
else if (inuse == TRUE)
{
if (llDetectedKey(0) == user)
{
debug("In use, logging out: "+llDetectedName(0));
inuse = FALSE;
user = NULL_KEY;
}
else
{
llInstantMessage(llDetectedKey(0), "This tipjar is in use, please try another.");
}
}
}
money(key id, integer amount)
{
if (user != NULL_KEY)
{
if (keeping == TRUE)
{
debug("keeping a percent");
divide(amount);
}
else if (keeping == FALSE)
{
debug("not keeping a percent");
if (inuse == TRUE)
{
pay(user, amount);
}
else if (inuse == FALSE)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
}
else if (user == NULL_KEY)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
run_time_permissions(integer perm)
{
if (perm & PERMISSION_DEBIT)
{
debug("Got permissions");
llSetPayPrice(20, [25, 50, 75, 100]);
}
}
dataserver(key Qid, string data)
{
if (Qid == notecard)
{
if (data != EOF)
{
if (llGetSubString(data, 0, 0) != "#")
{
settings += [data];
line += 1;
notecard = llGetNotecardLine(note, line);
}
else if (llGetSubString(data, 0, 0) == "#");
{
line += 1;
notecard = llGetNotecardLine(note, line);
}
}
else
{
llRequestPermissions(owner, PERMISSION_DEBIT);
llOwnerSay("Settings loaded.");
if ((integer)llList2String(settings, 0) == 0)
{
keeping = TRUE;
}
else if ((integer)llList2String(settings, 0) == 1)
{
keeping = FALSE;
}
percent_kept = (integer)llList2String(settings, 1);
line = 0;
debug("Keeping? " + (string)keeping + " What percent if kept: "+(string)percent_kept);
}
}
}
}
</lsl>

==Useful snippets==
Codes here are not supported by me, they are for learning purposes only
use at your own risk :)
----
===Max list length===
This will only allow a list to hold a max #, after that number is met
it will update the oldest
<lsl>
list words;
integer index;
string test;
integer listlength;
integer i;
default
{
state_entry()
{
i = 0;
llListen(0, "", "", "");
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(llGetSubString(msg, 0, 3)) == "add ")
{
listlength = llGetListLength(words);
test = llGetSubString(msg, 4, -1);
index = llListFindList(words, [test]);
list max = [test];
if(listlength <= 2)
{
if(index == -1)
{
words += [test];
llWhisper(0, test + " was stored. "+ "Total words: "+(string)(listlength + 1));
return;
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
return;
}
if(listlength >= 3)
{
if(index == -1)
{
if(i <= listlength)
{
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
i += 1;
return;
}
if(i >= listlength)
{
i = 0;
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
return;
}
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
}
}
if(llToLower(msg)=="list")
{
llWhisper(0, llDumpList2String(words, ".\n")+".");
}
}
}
</lsl>

User:Mr Lovenkraft

2008-02-29T11:49:13Z

Mr Lovenkraft: /* Open source codes from Mr Lovenkraft */

==Open source codes from Mr Lovenkraft==
----
I've just starting this page in the hopes of having quite a few codes open sourced
for those of you who either can't find what you are looking for, or just want an easy
place to look for codes :)
----
===Removable prim clothing script===
This script is written to be placed in the root prim of an object.
<lsl>
//Removable clothing by Mr Lovenkraft, free to use by anyone.
//Fully open source, but credit going to Mr Lovenkraft for his effort :)
key user; //Person touching the clothing.
key owner; //The owner of course O.o
integer diaChan; //Random Dialog channel to prevent other clothing items from listening..
integer listenNum; //Used to start a listen, and remove it.
list buttons = ["Tear", "Look", "Flick", "Tug"];//Buttons to click on of course.
integer touchable = TRUE;
integer removeable;
int()//The actual starting menu and calculating random channel to listen on.
{
touchable = FALSE;
diaChan = llCeil(llFrand(-9999999));
if(diaChan >= 0) //Just in case it returns 0, we want a negative listen :)
{
diaChan += llRound(llFrand(-9999999)); //Recalculate
}
listenNum = llListen(diaChan, "", "", "");//Listen handler to remove listen when done.
llDialog(user, "What would you like to do?", buttons, diaChan); //Menu with the buttons o.o
llSetTimerEvent(15); //Menu time out, in case someone doesn't pick an option :)
}
default
{
on_rez(integer r)
{
owner = llGetOwner(); //Of course it gets the owner O.o
}
state_entry()
{
owner = llGetOwner(); //Again just in case it didn't get the point.
}
touch_start(integer total_number)
{
if(touchable) //If it hasn't been touched, let it be touched
{
user = llDetectedKey(0); //Makes the person touching, the owner.
int(); //When touched, get the random channel.
}
}
attach(key av)
{
if(av)
{
removeable = TRUE; //If actually on an av, allow clothing to request permissions for detach.
}
else
{
removeable = FALSE; //Oposite if no av :)
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_ATTACH)
{
llWhisper(0, llKey2Name(user) + " rips " + llKey2Name(owner) +"'s clothing right off!");
llDetachFromAvatar( ); //Detach from av of course.
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="tug") //We use llToLower(msg) so that it's not case sensitive. :)
{
llWhisper(0, llKey2Name(user) + " tugs on " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="flick")
{
llWhisper(0, llKey2Name(user) + " flicks " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="look")
{
llWhisper(0, llKey2Name(user) + " looks at " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="tear")
{
if(removeable)
{
llRequestPermissions(owner, PERMISSION_ATTACH);
}
else
{
llWhisper(0, "Can not remove clothing that is not worn.");
}
}
touchable = TRUE;
llListenRemove(listenNum); //Stop listening to prevent lag :)
}
timer()
{
touchable = TRUE;
llSetTimerEvent(0.0); //Stops the timer
llWhisper(0, "Menu time out...");
}
}
</lsl>
----
===Stop all animations: basic===
<lsl>
//Stop all animations by Mr Lovenkraft
//Useful learning codes from the large inventory of Mr Lovenkraft ;)
list anims;
key av;
default
{
touch_start(integer total_number)
{
llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);//Dur, requests permissions.
av = llDetectedKey(0); //Person to stop animations for.
}
run_time_permissions(integer perm)//Runs if we get permissions.
{
anims = []; //Clears the list of any past animations.
anims = llGetAnimationList(av); //Gets the current users animations playing.
integer index = llGetListLength(anims); //The amount of animations for stopping.
integer i; //Starting place for our loop.
for(i=0; i<index; i++)//Runs through for each animation in the list.
{
llStopAnimation(llList2String(anims, i)); //Stops the animation in the list at point i.
}
}
}
</lsl>
----
===Single pose: pose ball===
Single animation poseball that uses the animation in the inventory
<lsl>
//Basic Poseball script
default
{
state_entry()
{
llSitTarget(<0.0, 0.0, -0.5>, ZERO_ROTATION);//Sets a sit target to actually work
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
key av = llAvatarOnSitTarget();
if (av)//If there is an av on it
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Ask permissions
}
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation("sit");//Stops the default sit
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));//Start the animation inside the prim
}
}
}
</lsl>
----
===Cycle pose ball: touch cycle===
<lsl>
//Multi poseball/pole by Mr lovenkraft
//Open sourced ;)
list anims;
key av;
integer pos;
integer listSize;
integer sat_on;
int()
{
if(sat_on)
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Request permissions to get the next animation
}
else
{
llWhisper(0, "No one sitting on this object.");
}
}
default
{
state_entry()
{
pos = 0;
anims = [];
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);//Sets the sit pose for the target
}
changed(integer change)//something has changed with this object
{
if(change & CHANGED_INVENTORY)//if only the inventory is changed of course ;)
{
pos = 0;//start the post over
anims = []; //clear the list
integer i;
integer totA = llGetInventoryNumber(INVENTORY_ANIMATION);//gets the total animations
for(i=0; i<totA; i++)
{
anims += [llGetInventoryName(INVENTORY_ANIMATION, i)];//adds each animation name to list
}
llOwnerSay("Animaions inside: " + llList2CSV(anims));//Tell the owner how many animations inside
}
if(change & CHANGED_LINK)
{
av = llAvatarOnSitTarget();
if(av) //if there is really someone sitting on it
{
sat_on = TRUE; //If someone is sitting make it true
int();//Start animation
}
else
{
sat_on = FALSE;
}
}
}
run_time_permissions(integer perm)//got permissions from user
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Stop last animation
pos += 1;//go to next in list
if(pos >= listSize)//if at the end of the list
{
pos = 0;
}
llStopAnimation("sit");
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Start the next animation
}
}
touch_start(integer total_number)
{
listSize = llGetListLength(anims);
int(); //start the new animation
}
}
</lsl>
----
===Basic notecard access list===
This is an example notecard, goes in the room prim of lockable object
Mr Lovenkraft
Fname2 Lastname2
Fname3 Lastname3
This also goes in your object you wish to lock/unlock etc
<lsl>
list allowed = [];
string allow_list = "Allow";
key owner;
key note_card;
integer line;
integer list_pos;
integer i;
integer locked;
int(integer on)
{
if(on==0)
{
llWhisper(0, "Locked, only allowed may use.");
locked = TRUE;
}
if(on==1)
{
llWhisper(0, "Unlocked, anyone may use.");
locked = FALSE;
}
if(on==3)
{
allowed = [];
note_card = llGetNotecardLine(allow_list, line);
}
}
default
{
on_rez(integer r)
{
list_pos = 0;
line = 0;
int(3);
owner = llGetOwner();
}
state_entry()
{
int(3);
list_pos = 0;
line = 0;
llListen(0, "", owner, "");
note_card = llGetNotecardLine(allow_list, line);
llOwnerSay((string)llGetFreeMemory());
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
int(3);
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="lock")
{
int(0);
}
if(llToLower(msg)=="unlock")
{
int(1);
}
}
touch_start(integer t)
{
if(locked)
{
string Ntest = llDetectedName(0);
integer index = llListFindList(allowed, [Ntest]);
if(index != -1)
{
llWhisper(0,"Opened for: "+llList2String(allowed, index)+".");
}
else
{
llWhisper(0, "You are not on the access list.");
}
}
else
{
llWhisper(0, "Opened.");
}
}
dataserver(key Qid, string data)
{
if (Qid == note_card)
{
if (data != EOF)
{
allowed += data;
line += 1;
note_card = llGetNotecardLine(allow_list, line);
}
else
{
line = 0;
llOwnerSay("Done.");
llOwnerSay(llList2CSV(allowed));
llOwnerSay("Memory left: "+(string)llGetFreeMemory());
}
}
}
}

</lsl>
----
===Greeter: landmark/notecard giver===
This uses two scripts, one for detect and give,
and one for handling the list and seeing if that
person has been given a notecard/landmark.

Greeter
<lsl>
//Greeter by Mr Lovenkraft
key owner;
integer counter; //Total amount of people greeted
key user; //Person to greet
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
counter = 0;
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY); //Clears the greeted list
owner = llGetOwner(); //Gets the new owner
}
collision_start(integer c)
{
user = llDetectedKey(0); //Person colliding with the object is the user
if(counter >= 70)//If our counter goes to 70 or higher (this prevents the list from getting to big)
{
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY);//Clear the list again
counter = 0;//Reset the counter
}
llMessageLinked(LINK_THIS, 10, llDetectedName(0), NULL_KEY);//Sends the name to be greeted
}
link_message(integer sender, integer num, string str, key id)
{
if(str=="give")
{
llGiveInventory(user, llGetInventoryName(INVENTORY_NOTECARD, 0));//Give notecard
llGiveInventory(user, llGetInventoryName(INVENTORY_LANDMARK, 0));//Give landmark
counter += 1;//Add one to our counter
}
}
}
</lsl>

User handler: List to keep track of people, so that it prevents multiple
copies to the same user
<lsl>
list names;//Names of people greeted since last reset
string test;//Name to test with the list
integer index;
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [];//Clear the names on rez
}
link_message(integer sender, integer num, string str, key id)
{
if(str == "clear")
{
names = [];//Resets the list
}
if(num == 10)
{
test = str;//Makes the name sent by the greeter the test
index = llListFindList(names, [test]); //Checks to see if it is in the list
if(index == -1)//If not found in the list
{
names += str;//Add the name to the list if not found
llMessageLinked(LINK_THIS, 0, "give", NULL_KEY);//Greet the new user
}
}
}
}
</lsl>
----
===Texture Organizer===
This is just a simple texture organizer for those with to many textures for their own good
hehe, I didn't comment this one but it works fine :)
<lsl>
//Texture organizer by Mr Lovenkraft
key owner;
key texture_key;
string texture_name;
integer inventory_pos;
integer diaChan;
integer listen_handler;
integer invTotal;
list button_options = ["Prev", "Next", "Give"];
dia()
{
diaChan = llRound(llFrand(-9999999));
if(diaChan >= 0)
{
diaChan += llRound(llFrand(-9999999));
}
listen_handler = llListen(diaChan, "", "", "");
llDialog(owner, "Pick your option below", button_options, diaChan);
llSetTimerEvent(30);
}
change(string choice)
{
if(choice == "next")
{
inventory_pos += 1;
if(inventory_pos >= invTotal)
{
inventory_pos = 0;
}
}
if(choice == "prev")
{
inventory_pos -= 1;
if(inventory_pos <= -1)
{
inventory_pos = invTotal;
}
}
llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos), ALL_SIDES);
llSetText("Texture Name: "+llGetInventoryName(INVENTORY_TEXTURE, inventory_pos)
+"\nTexture Key: "+(string)llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos))
, <1,1,1>, 1.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
inventory_pos = 0;
texture_name = "";
texture_key = "";
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
}
touch_start(integer t)
{
if(llDetectedKey(0)==owner)
{
dia();
}
else
{
llWhisper(0, "Owner only.");
}
}
listen(integer chan, string name, key id, string msg)
{
llSetTimerEvent(30);
if(llToLower(msg)=="next")
{
change("next");
}
if(llToLower(msg)=="prev")
{
change("prev");
}
if(llToLower(msg)=="give")
{
llGiveInventory(owner, llGetInventoryName(INVENTORY_TEXTURE, inventory_pos));
}
dia();
}
timer()
{
if(listen_handler)
{
llWhisper(0, "Option not chose, menu timed out.");
llListenRemove(listen_handler);
llSetTimerEvent(0);
}
}
}
</lsl>
----
===Tip Jar with option to keep a percentage===
This tip jar is very simple to use, just edit the settings notecard
and type in "TRUE" or "FALSE" as to keep or not, then type in your
percent to keep. Notecard example provided below.
====The Notecard====
# TipJar by Mr Lovenkraft
# Lines with " # " are comments, do not modify this card without knowledge of the scripting structure
# Below are the settings for the TipJar
# The lines with "" are just quoted, the quotes are not needed.
#
#Do you want to keep a %? (Use " TRUE " or " FALSE " below)
TRUE
#Percent kept above
#
#Amount to keep in % below.
20
====The Script====
<lsl>
//TipJar by Mr Lovenkraft
//=======================

//Global variables==============
//Do not modify if you have
//No idea what each line does :)
//==============================
//Start globals
key owner;
key user;
key notecard;
list settings;
integer line;
integer percent_kept;
integer inuse;
integer keeping;
string note = "*Settings";
divide(integer amount)
{
integer kept;
kept = ((amount * percent_kept) / 100);
integer paid = (amount - kept);
pay(user, paid);
debug((string)kept + " kept. Amount paid: "+(string)paid);
}
pay(key av, integer amount)
{
llGiveMoney(av, amount);
}
debug(string DEBUG)
{
//llOwnerSay(DEBUG);//Remove commented lines "//" when you want to debug, else add them to turn off debugging
}
//End globals
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
line = 0;
keeping = FALSE;
inuse = FALSE;
settings = [];
user = NULL_KEY;
llSetPayPrice(PAY_HIDE, [PAY_HIDE, PAY_HIDE, PAY_HIDE, PAY_HIDE]);
if (llGetInventoryNumber(INVENTORY_NOTECARD) <= 0)
{
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) == 1)
{
notecard = llGetNotecardLine(note, line);
}
else if (llGetInventoryNumber(INVENTORY_NOTECARD) >= 2)
{
integer num = llGetInventoryNumber(INVENTORY_NOTECARD);
integer i;
for(i = 0; i < num; i++)
{
llRemoveInventory(llGetInventoryName(INVENTORY_NOTECARD, i));
}
llOwnerSay(note +" not found, please put this notecard in and re-rez.");
}
}
touch_start(integer total_number)
{
if (inuse == FALSE)
{
user = llDetectedKey(0);
inuse = TRUE;
debug("Not in use, adding: "+llDetectedName(0));
}
else if (inuse == TRUE)
{
if (llDetectedKey(0) == user)
{
debug("In use, logging out: "+llDetectedName(0));
inuse = FALSE;
user = NULL_KEY;
}
else
{
llInstantMessage(llDetectedKey(0), "This tipjar is in use, please try another.");
}
}
}
money(key id, integer amount)
{
if (user != NULL_KEY)
{
if (keeping == TRUE)
{
debug("keeping a percent");
divide(amount);
}
else if (keeping == FALSE)
{
debug("not keeping a percent");
if (inuse == TRUE)
{
pay(user, amount);
}
else if (inuse == FALSE)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
}
else if (user == NULL_KEY)
{
pay(id, amount);
llInstantMessage(id, "This tipjar is not in use, money refuned.");
}
}
run_time_permissions(integer perm)
{
if (perm & PERMISSION_DEBIT)
{
debug("Got permissions");
llSetPayPrice(20, [25, 50, 75, 100]);
}
}
dataserver(key Qid, string data)
{
if (Qid == notecard)
{
if (data != EOF)
{
if (llGetSubString(data, 0, 0) != "#")
{
settings += [data];
line += 1;
notecard = llGetNotecardLine(note, line);
}
else if (llGetSubString(data, 0, 0) == "#");
{
line += 1;
notecard = llGetNotecardLine(note, line);
}
}
else
{
llRequestPermissions(owner, PERMISSION_DEBIT);
llOwnerSay("Settings loaded.");
if ((integer)llList2String(settings, 0) == 0)
{
keeping = TRUE;
}
else if ((integer)llList2String(settings, 0) == 1)
{
keeping = FALSE;
}
percent_kept = (integer)llList2String(settings, 1);
line = 0;
debug("Keeping? " + (string)keeping + " What percent if kept: "+(string)percent_kept);
}
}
}
}
</lsl>

==Useful snippets==
Codes here are not supported by me, they are for learning purposes only
use at your own risk :)
----
===Max list length===
This will only allow a list to hold a max #, after that number is met
it will update the oldest
<lsl>
list words;
integer index;
string test;
integer listlength;
integer i;
default
{
state_entry()
{
i = 0;
llListen(0, "", "", "");
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(llGetSubString(msg, 0, 3)) == "add ")
{
listlength = llGetListLength(words);
test = llGetSubString(msg, 4, -1);
index = llListFindList(words, [test]);
list max = [test];
if(listlength <= 2)
{
if(index == -1)
{
words += [test];
llWhisper(0, test + " was stored. "+ "Total words: "+(string)(listlength + 1));
return;
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
return;
}
if(listlength >= 3)
{
if(index == -1)
{
if(i <= listlength)
{
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
i += 1;
return;
}
if(i >= listlength)
{
i = 0;
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
return;
}
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
}
}
if(llToLower(msg)=="list")
{
llWhisper(0, llDumpList2String(words, ".\n")+".");
}
}
}
</lsl>

User:Mr Lovenkraft

2008-02-10T10:40:06Z

Mr Lovenkraft: /* Useful snippets */

==Open source codes from Mr Lovenkraft==
----
I've just starting this page in the hopes of having quite a few codes open sourced
for those of you who either can't find what you are looking for, or just want an easy
place to look for codes :)
----
===Removable prim clothing script===
This script is written to be placed in the root prim of an object.
<lsl>
//Removable clothing by Mr Lovenkraft, free to use by anyone.
//Fully open source, but credit going to Mr Lovenkraft for his effort :)
key user; //Person touching the clothing.
key owner; //The owner of course O.o
integer diaChan; //Random Dialog channel to prevent other clothing items from listening..
integer listenNum; //Used to start a listen, and remove it.
list buttons = ["Tear", "Look", "Flick", "Tug"];//Buttons to click on of course.
integer touchable = TRUE;
integer removeable;
int()//The actual starting menu and calculating random channel to listen on.
{
touchable = FALSE;
diaChan = llCeil(llFrand(-9999999));
if(diaChan >= 0) //Just in case it returns 0, we want a negative listen :)
{
diaChan += llRound(llFrand(-9999999)); //Recalculate
}
listenNum = llListen(diaChan, "", "", "");//Listen handler to remove listen when done.
llDialog(user, "What would you like to do?", buttons, diaChan); //Menu with the buttons o.o
llSetTimerEvent(15); //Menu time out, in case someone doesn't pick an option :)
}
default
{
on_rez(integer r)
{
owner = llGetOwner(); //Of course it gets the owner O.o
}
state_entry()
{
owner = llGetOwner(); //Again just in case it didn't get the point.
}
touch_start(integer total_number)
{
if(touchable) //If it hasn't been touched, let it be touched
{
user = llDetectedKey(0); //Makes the person touching, the owner.
int(); //When touched, get the random channel.
}
}
attach(key av)
{
if(av)
{
removeable = TRUE; //If actually on an av, allow clothing to request permissions for detach.
}
else
{
removeable = FALSE; //Oposite if no av :)
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_ATTACH)
{
llWhisper(0, llKey2Name(user) + " rips " + llKey2Name(owner) +"'s clothing right off!");
llDetachFromAvatar( ); //Detach from av of course.
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="tug") //We use llToLower(msg) so that it's not case sensitive. :)
{
llWhisper(0, llKey2Name(user) + " tugs on " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="flick")
{
llWhisper(0, llKey2Name(user) + " flicks " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="look")
{
llWhisper(0, llKey2Name(user) + " looks at " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="tear")
{
if(removeable)
{
llRequestPermissions(owner, PERMISSION_ATTACH);
}
else
{
llWhisper(0, "Can not remove clothing that is not worn.");
}
}
touchable = TRUE;
llListenRemove(listenNum); //Stop listening to prevent lag :)
}
timer()
{
touchable = TRUE;
llSetTimerEvent(0.0); //Stops the timer
llWhisper(0, "Menu time out...");
}
}
</lsl>
----
===Stop all animations: basic===
<lsl>
//Stop all animations by Mr Lovenkraft
//Useful learning codes from the large inventory of Mr Lovenkraft ;)
list anims;
key av;
default
{
touch_start(integer total_number)
{
llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);//Dur, requests permissions.
av = llDetectedKey(0); //Person to stop animations for.
}
run_time_permissions(integer perm)//Runs if we get permissions.
{
anims = []; //Clears the list of any past animations.
anims = llGetAnimationList(av); //Gets the current users animations playing.
integer index = llGetListLength(anims); //The amount of animations for stopping.
integer i; //Starting place for our loop.
for(i=0; i<index; i++)//Runs through for each animation in the list.
{
llStopAnimation(llList2String(anims, i)); //Stops the animation in the list at point i.
}
}
}
</lsl>
----
===Single pose: pose ball===
Single animation poseball that uses the animation in the inventory
<lsl>
//Basic Poseball script
default
{
state_entry()
{
llSitTarget(<0.0, 0.0, -0.5>, ZERO_ROTATION);//Sets a sit target to actually work
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
key av = llAvatarOnSitTarget();
if (av)//If there is an av on it
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Ask permissions
}
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation("sit");//Stops the default sit
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));//Start the animation inside the prim
}
}
}
</lsl>
----
===Cycle pose ball: touch cycle===
<lsl>
//Multi poseball/pole by Mr lovenkraft
//Open sourced ;)
list anims;
key av;
integer pos;
integer listSize;
integer sat_on;
int()
{
if(sat_on)
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Request permissions to get the next animation
}
else
{
llWhisper(0, "No one sitting on this object.");
}
}
default
{
state_entry()
{
pos = 0;
anims = [];
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);//Sets the sit pose for the target
}
changed(integer change)//something has changed with this object
{
if(change & CHANGED_INVENTORY)//if only the inventory is changed of course ;)
{
pos = 0;//start the post over
anims = []; //clear the list
integer i;
integer totA = llGetInventoryNumber(INVENTORY_ANIMATION);//gets the total animations
for(i=0; i<totA; i++)
{
anims += [llGetInventoryName(INVENTORY_ANIMATION, i)];//adds each animation name to list
}
llOwnerSay("Animaions inside: " + llList2CSV(anims));//Tell the owner how many animations inside
}
if(change & CHANGED_LINK)
{
av = llAvatarOnSitTarget();
if(av) //if there is really someone sitting on it
{
sat_on = TRUE; //If someone is sitting make it true
int();//Start animation
}
else
{
sat_on = FALSE;
}
}
}
run_time_permissions(integer perm)//got permissions from user
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Stop last animation
pos += 1;//go to next in list
if(pos >= listSize)//if at the end of the list
{
pos = 0;
}
llStopAnimation("sit");
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Start the next animation
}
}
touch_start(integer total_number)
{
listSize = llGetListLength(anims);
int(); //start the new animation
}
}
</lsl>
----
===Basic notecard access list===
This is an example notecard, goes in the room prim of lockable object
Mr Lovenkraft
Fname2 Lastname2
Fname3 Lastname3
This also goes in your object you wish to lock/unlock etc
<lsl>
list allowed = [];
string allow_list = "Allow";
key owner;
key note_card;
integer line;
integer list_pos;
integer i;
integer locked;
int(integer on)
{
if(on==0)
{
llWhisper(0, "Locked, only allowed may use.");
locked = TRUE;
}
if(on==1)
{
llWhisper(0, "Unlocked, anyone may use.");
locked = FALSE;
}
if(on==3)
{
allowed = [];
note_card = llGetNotecardLine(allow_list, line);
}
}
default
{
on_rez(integer r)
{
list_pos = 0;
line = 0;
int(3);
owner = llGetOwner();
}
state_entry()
{
int(3);
list_pos = 0;
line = 0;
llListen(0, "", owner, "");
note_card = llGetNotecardLine(allow_list, line);
llOwnerSay((string)llGetFreeMemory());
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
int(3);
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="lock")
{
int(0);
}
if(llToLower(msg)=="unlock")
{
int(1);
}
}
touch_start(integer t)
{
if(locked)
{
string Ntest = llDetectedName(0);
integer index = llListFindList(allowed, [Ntest]);
if(index != -1)
{
llWhisper(0,"Opened for: "+llList2String(allowed, index)+".");
}
else
{
llWhisper(0, "You are not on the access list.");
}
}
else
{
llWhisper(0, "Opened.");
}
}
dataserver(key Qid, string data)
{
if (Qid == note_card)
{
if (data != EOF)
{
allowed += data;
line += 1;
note_card = llGetNotecardLine(allow_list, line);
}
else
{
line = 0;
llOwnerSay("Done.");
llOwnerSay(llList2CSV(allowed));
llOwnerSay("Memory left: "+(string)llGetFreeMemory());
}
}
}
}

</lsl>
----
===Greeter: landmark/notecard giver===
This uses two scripts, one for detect and give,
and one for handling the list and seeing if that
person has been given a notecard/landmark.

Greeter
<lsl>
//Greeter by Mr Lovenkraft
key owner;
integer counter; //Total amount of people greeted
key user; //Person to greet
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
counter = 0;
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY); //Clears the greeted list
owner = llGetOwner(); //Gets the new owner
}
collision_start(integer c)
{
user = llDetectedKey(0); //Person colliding with the object is the user
if(counter >= 70)//If our counter goes to 70 or higher (this prevents the list from getting to big)
{
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY);//Clear the list again
counter = 0;//Reset the counter
}
llMessageLinked(LINK_THIS, 10, llDetectedName(0), NULL_KEY);//Sends the name to be greeted
}
link_message(integer sender, integer num, string str, key id)
{
if(str=="give")
{
llGiveInventory(user, llGetInventoryName(INVENTORY_NOTECARD, 0));//Give notecard
llGiveInventory(user, llGetInventoryName(INVENTORY_LANDMARK, 0));//Give landmark
counter += 1;//Add one to our counter
}
}
}
</lsl>

User handler: List to keep track of people, so that it prevents multiple
copies to the same user
<lsl>
list names;//Names of people greeted since last reset
string test;//Name to test with the list
integer index;
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [];//Clear the names on rez
}
link_message(integer sender, integer num, string str, key id)
{
if(str == "clear")
{
names = [];//Resets the list
}
if(num == 10)
{
test = str;//Makes the name sent by the greeter the test
index = llListFindList(names, [test]); //Checks to see if it is in the list
if(index == -1)//If not found in the list
{
names += str;//Add the name to the list if not found
llMessageLinked(LINK_THIS, 0, "give", NULL_KEY);//Greet the new user
}
}
}
}
</lsl>
----
===Texture Organizer===
This is just a simple texture organizer for those with to many textures for their own good
hehe, I didn't comment this one but it works fine :)
<lsl>
//Texture organizer by Mr Lovenkraft
key owner;
key texture_key;
string texture_name;
integer inventory_pos;
integer diaChan;
integer listen_handler;
integer invTotal;
list button_options = ["Prev", "Next", "Give"];
dia()
{
diaChan = llRound(llFrand(-9999999));
if(diaChan >= 0)
{
diaChan += llRound(llFrand(-9999999));
}
listen_handler = llListen(diaChan, "", "", "");
llDialog(owner, "Pick your option below", button_options, diaChan);
llSetTimerEvent(30);
}
change(string choice)
{
if(choice == "next")
{
inventory_pos += 1;
if(inventory_pos >= invTotal)
{
inventory_pos = 0;
}
}
if(choice == "prev")
{
inventory_pos -= 1;
if(inventory_pos <= -1)
{
inventory_pos = invTotal;
}
}
llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos), ALL_SIDES);
llSetText("Texture Name: "+llGetInventoryName(INVENTORY_TEXTURE, inventory_pos)
+"\nTexture Key: "+(string)llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos))
, <1,1,1>, 1.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
inventory_pos = 0;
texture_name = "";
texture_key = "";
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
}
touch_start(integer t)
{
if(llDetectedKey(0)==owner)
{
dia();
}
else
{
llWhisper(0, "Owner only.");
}
}
listen(integer chan, string name, key id, string msg)
{
llSetTimerEvent(30);
if(llToLower(msg)=="next")
{
change("next");
}
if(llToLower(msg)=="prev")
{
change("prev");
}
if(llToLower(msg)=="give")
{
llGiveInventory(owner, llGetInventoryName(INVENTORY_TEXTURE, inventory_pos));
}
dia();
}
timer()
{
if(listen_handler)
{
llWhisper(0, "Option not chose, menu timed out.");
llListenRemove(listen_handler);
llSetTimerEvent(0);
}
}
}
</lsl>
==Useful snippets==
Codes here are not supported by me, they are for learning purposes only
use at your own risk :)
----
===Max list length===
This will only allow a list to hold a max #, after that number is met
it will update the oldest
<lsl>
list words;
integer index;
string test;
integer listlength;
integer i;
default
{
state_entry()
{
i = 0;
llListen(0, "", "", "");
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(llGetSubString(msg, 0, 3)) == "add ")
{
listlength = llGetListLength(words);
test = llGetSubString(msg, 4, -1);
index = llListFindList(words, [test]);
list max = [test];
if(listlength <= 2)
{
if(index == -1)
{
words += [test];
llWhisper(0, test + " was stored. "+ "Total words: "+(string)(listlength + 1));
return;
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
return;
}
if(listlength >= 3)
{
if(index == -1)
{
if(i <= listlength)
{
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
i += 1;
return;
}
if(i >= listlength)
{
i = 0;
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
return;
}
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
}
}
if(llToLower(msg)=="list")
{
llWhisper(0, llDumpList2String(words, ".\n")+".");
}
}
}
</lsl>

User:Mr Lovenkraft

2008-02-10T10:39:01Z

Mr Lovenkraft: /* Useful snippets */

==Open source codes from Mr Lovenkraft==
----
I've just starting this page in the hopes of having quite a few codes open sourced
for those of you who either can't find what you are looking for, or just want an easy
place to look for codes :)
----
===Removable prim clothing script===
This script is written to be placed in the root prim of an object.
<lsl>
//Removable clothing by Mr Lovenkraft, free to use by anyone.
//Fully open source, but credit going to Mr Lovenkraft for his effort :)
key user; //Person touching the clothing.
key owner; //The owner of course O.o
integer diaChan; //Random Dialog channel to prevent other clothing items from listening..
integer listenNum; //Used to start a listen, and remove it.
list buttons = ["Tear", "Look", "Flick", "Tug"];//Buttons to click on of course.
integer touchable = TRUE;
integer removeable;
int()//The actual starting menu and calculating random channel to listen on.
{
touchable = FALSE;
diaChan = llCeil(llFrand(-9999999));
if(diaChan >= 0) //Just in case it returns 0, we want a negative listen :)
{
diaChan += llRound(llFrand(-9999999)); //Recalculate
}
listenNum = llListen(diaChan, "", "", "");//Listen handler to remove listen when done.
llDialog(user, "What would you like to do?", buttons, diaChan); //Menu with the buttons o.o
llSetTimerEvent(15); //Menu time out, in case someone doesn't pick an option :)
}
default
{
on_rez(integer r)
{
owner = llGetOwner(); //Of course it gets the owner O.o
}
state_entry()
{
owner = llGetOwner(); //Again just in case it didn't get the point.
}
touch_start(integer total_number)
{
if(touchable) //If it hasn't been touched, let it be touched
{
user = llDetectedKey(0); //Makes the person touching, the owner.
int(); //When touched, get the random channel.
}
}
attach(key av)
{
if(av)
{
removeable = TRUE; //If actually on an av, allow clothing to request permissions for detach.
}
else
{
removeable = FALSE; //Oposite if no av :)
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_ATTACH)
{
llWhisper(0, llKey2Name(user) + " rips " + llKey2Name(owner) +"'s clothing right off!");
llDetachFromAvatar( ); //Detach from av of course.
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="tug") //We use llToLower(msg) so that it's not case sensitive. :)
{
llWhisper(0, llKey2Name(user) + " tugs on " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="flick")
{
llWhisper(0, llKey2Name(user) + " flicks " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="look")
{
llWhisper(0, llKey2Name(user) + " looks at " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="tear")
{
if(removeable)
{
llRequestPermissions(owner, PERMISSION_ATTACH);
}
else
{
llWhisper(0, "Can not remove clothing that is not worn.");
}
}
touchable = TRUE;
llListenRemove(listenNum); //Stop listening to prevent lag :)
}
timer()
{
touchable = TRUE;
llSetTimerEvent(0.0); //Stops the timer
llWhisper(0, "Menu time out...");
}
}
</lsl>
----
===Stop all animations: basic===
<lsl>
//Stop all animations by Mr Lovenkraft
//Useful learning codes from the large inventory of Mr Lovenkraft ;)
list anims;
key av;
default
{
touch_start(integer total_number)
{
llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);//Dur, requests permissions.
av = llDetectedKey(0); //Person to stop animations for.
}
run_time_permissions(integer perm)//Runs if we get permissions.
{
anims = []; //Clears the list of any past animations.
anims = llGetAnimationList(av); //Gets the current users animations playing.
integer index = llGetListLength(anims); //The amount of animations for stopping.
integer i; //Starting place for our loop.
for(i=0; i<index; i++)//Runs through for each animation in the list.
{
llStopAnimation(llList2String(anims, i)); //Stops the animation in the list at point i.
}
}
}
</lsl>
----
===Single pose: pose ball===
Single animation poseball that uses the animation in the inventory
<lsl>
//Basic Poseball script
default
{
state_entry()
{
llSitTarget(<0.0, 0.0, -0.5>, ZERO_ROTATION);//Sets a sit target to actually work
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
key av = llAvatarOnSitTarget();
if (av)//If there is an av on it
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Ask permissions
}
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation("sit");//Stops the default sit
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));//Start the animation inside the prim
}
}
}
</lsl>
----
===Cycle pose ball: touch cycle===
<lsl>
//Multi poseball/pole by Mr lovenkraft
//Open sourced ;)
list anims;
key av;
integer pos;
integer listSize;
integer sat_on;
int()
{
if(sat_on)
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Request permissions to get the next animation
}
else
{
llWhisper(0, "No one sitting on this object.");
}
}
default
{
state_entry()
{
pos = 0;
anims = [];
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);//Sets the sit pose for the target
}
changed(integer change)//something has changed with this object
{
if(change & CHANGED_INVENTORY)//if only the inventory is changed of course ;)
{
pos = 0;//start the post over
anims = []; //clear the list
integer i;
integer totA = llGetInventoryNumber(INVENTORY_ANIMATION);//gets the total animations
for(i=0; i<totA; i++)
{
anims += [llGetInventoryName(INVENTORY_ANIMATION, i)];//adds each animation name to list
}
llOwnerSay("Animaions inside: " + llList2CSV(anims));//Tell the owner how many animations inside
}
if(change & CHANGED_LINK)
{
av = llAvatarOnSitTarget();
if(av) //if there is really someone sitting on it
{
sat_on = TRUE; //If someone is sitting make it true
int();//Start animation
}
else
{
sat_on = FALSE;
}
}
}
run_time_permissions(integer perm)//got permissions from user
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Stop last animation
pos += 1;//go to next in list
if(pos >= listSize)//if at the end of the list
{
pos = 0;
}
llStopAnimation("sit");
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Start the next animation
}
}
touch_start(integer total_number)
{
listSize = llGetListLength(anims);
int(); //start the new animation
}
}
</lsl>
----
===Basic notecard access list===
This is an example notecard, goes in the room prim of lockable object
Mr Lovenkraft
Fname2 Lastname2
Fname3 Lastname3
This also goes in your object you wish to lock/unlock etc
<lsl>
list allowed = [];
string allow_list = "Allow";
key owner;
key note_card;
integer line;
integer list_pos;
integer i;
integer locked;
int(integer on)
{
if(on==0)
{
llWhisper(0, "Locked, only allowed may use.");
locked = TRUE;
}
if(on==1)
{
llWhisper(0, "Unlocked, anyone may use.");
locked = FALSE;
}
if(on==3)
{
allowed = [];
note_card = llGetNotecardLine(allow_list, line);
}
}
default
{
on_rez(integer r)
{
list_pos = 0;
line = 0;
int(3);
owner = llGetOwner();
}
state_entry()
{
int(3);
list_pos = 0;
line = 0;
llListen(0, "", owner, "");
note_card = llGetNotecardLine(allow_list, line);
llOwnerSay((string)llGetFreeMemory());
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
int(3);
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="lock")
{
int(0);
}
if(llToLower(msg)=="unlock")
{
int(1);
}
}
touch_start(integer t)
{
if(locked)
{
string Ntest = llDetectedName(0);
integer index = llListFindList(allowed, [Ntest]);
if(index != -1)
{
llWhisper(0,"Opened for: "+llList2String(allowed, index)+".");
}
else
{
llWhisper(0, "You are not on the access list.");
}
}
else
{
llWhisper(0, "Opened.");
}
}
dataserver(key Qid, string data)
{
if (Qid == note_card)
{
if (data != EOF)
{
allowed += data;
line += 1;
note_card = llGetNotecardLine(allow_list, line);
}
else
{
line = 0;
llOwnerSay("Done.");
llOwnerSay(llList2CSV(allowed));
llOwnerSay("Memory left: "+(string)llGetFreeMemory());
}
}
}
}

</lsl>
----
===Greeter: landmark/notecard giver===
This uses two scripts, one for detect and give,
and one for handling the list and seeing if that
person has been given a notecard/landmark.

Greeter
<lsl>
//Greeter by Mr Lovenkraft
key owner;
integer counter; //Total amount of people greeted
key user; //Person to greet
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
counter = 0;
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY); //Clears the greeted list
owner = llGetOwner(); //Gets the new owner
}
collision_start(integer c)
{
user = llDetectedKey(0); //Person colliding with the object is the user
if(counter >= 70)//If our counter goes to 70 or higher (this prevents the list from getting to big)
{
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY);//Clear the list again
counter = 0;//Reset the counter
}
llMessageLinked(LINK_THIS, 10, llDetectedName(0), NULL_KEY);//Sends the name to be greeted
}
link_message(integer sender, integer num, string str, key id)
{
if(str=="give")
{
llGiveInventory(user, llGetInventoryName(INVENTORY_NOTECARD, 0));//Give notecard
llGiveInventory(user, llGetInventoryName(INVENTORY_LANDMARK, 0));//Give landmark
counter += 1;//Add one to our counter
}
}
}
</lsl>

User handler: List to keep track of people, so that it prevents multiple
copies to the same user
<lsl>
list names;//Names of people greeted since last reset
string test;//Name to test with the list
integer index;
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [];//Clear the names on rez
}
link_message(integer sender, integer num, string str, key id)
{
if(str == "clear")
{
names = [];//Resets the list
}
if(num == 10)
{
test = str;//Makes the name sent by the greeter the test
index = llListFindList(names, [test]); //Checks to see if it is in the list
if(index == -1)//If not found in the list
{
names += str;//Add the name to the list if not found
llMessageLinked(LINK_THIS, 0, "give", NULL_KEY);//Greet the new user
}
}
}
}
</lsl>
----
===Texture Organizer===
This is just a simple texture organizer for those with to many textures for their own good
hehe, I didn't comment this one but it works fine :)
<lsl>
//Texture organizer by Mr Lovenkraft
key owner;
key texture_key;
string texture_name;
integer inventory_pos;
integer diaChan;
integer listen_handler;
integer invTotal;
list button_options = ["Prev", "Next", "Give"];
dia()
{
diaChan = llRound(llFrand(-9999999));
if(diaChan >= 0)
{
diaChan += llRound(llFrand(-9999999));
}
listen_handler = llListen(diaChan, "", "", "");
llDialog(owner, "Pick your option below", button_options, diaChan);
llSetTimerEvent(30);
}
change(string choice)
{
if(choice == "next")
{
inventory_pos += 1;
if(inventory_pos >= invTotal)
{
inventory_pos = 0;
}
}
if(choice == "prev")
{
inventory_pos -= 1;
if(inventory_pos <= -1)
{
inventory_pos = invTotal;
}
}
llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos), ALL_SIDES);
llSetText("Texture Name: "+llGetInventoryName(INVENTORY_TEXTURE, inventory_pos)
+"\nTexture Key: "+(string)llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos))
, <1,1,1>, 1.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
inventory_pos = 0;
texture_name = "";
texture_key = "";
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
}
touch_start(integer t)
{
if(llDetectedKey(0)==owner)
{
dia();
}
else
{
llWhisper(0, "Owner only.");
}
}
listen(integer chan, string name, key id, string msg)
{
llSetTimerEvent(30);
if(llToLower(msg)=="next")
{
change("next");
}
if(llToLower(msg)=="prev")
{
change("prev");
}
if(llToLower(msg)=="give")
{
llGiveInventory(owner, llGetInventoryName(INVENTORY_TEXTURE, inventory_pos));
}
dia();
}
timer()
{
if(listen_handler)
{
llWhisper(0, "Option not chose, menu timed out.");
llListenRemove(listen_handler);
llSetTimerEvent(0);
}
}
}
</lsl>
==Useful snippets==
Codes here are not supported by me, they are for learning purposes only
===Max list length===
This will only allow a list to hold a max #, after that number is met
it will update the oldest
<lsl>
list words;
integer index;
string test;
integer listlength;
integer i;
default
{
state_entry()
{
i = 0;
llListen(0, "", "", "");
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(llGetSubString(msg, 0, 3)) == "add ")
{
listlength = llGetListLength(words);
test = llGetSubString(msg, 4, -1);
index = llListFindList(words, [test]);
list max = [test];
if(listlength <= 2)
{
if(index == -1)
{
words += [test];
llWhisper(0, test + " was stored. "+ "Total words: "+(string)(listlength + 1));
return;
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
return;
}
if(listlength >= 3)
{
if(index == -1)
{
if(i <= listlength)
{
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
i += 1;
return;
}
if(i >= listlength)
{
i = 0;
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
return;
}
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
}
}
if(llToLower(msg)=="list")
{
llWhisper(0, llDumpList2String(words, ".\n")+".");
}
}
}
</lsl>

User:Mr Lovenkraft

2008-02-10T10:38:19Z

Mr Lovenkraft:

==Open source codes from Mr Lovenkraft==
----
I've just starting this page in the hopes of having quite a few codes open sourced
for those of you who either can't find what you are looking for, or just want an easy
place to look for codes :)
----
===Removable prim clothing script===
This script is written to be placed in the root prim of an object.
<lsl>
//Removable clothing by Mr Lovenkraft, free to use by anyone.
//Fully open source, but credit going to Mr Lovenkraft for his effort :)
key user; //Person touching the clothing.
key owner; //The owner of course O.o
integer diaChan; //Random Dialog channel to prevent other clothing items from listening..
integer listenNum; //Used to start a listen, and remove it.
list buttons = ["Tear", "Look", "Flick", "Tug"];//Buttons to click on of course.
integer touchable = TRUE;
integer removeable;
int()//The actual starting menu and calculating random channel to listen on.
{
touchable = FALSE;
diaChan = llCeil(llFrand(-9999999));
if(diaChan >= 0) //Just in case it returns 0, we want a negative listen :)
{
diaChan += llRound(llFrand(-9999999)); //Recalculate
}
listenNum = llListen(diaChan, "", "", "");//Listen handler to remove listen when done.
llDialog(user, "What would you like to do?", buttons, diaChan); //Menu with the buttons o.o
llSetTimerEvent(15); //Menu time out, in case someone doesn't pick an option :)
}
default
{
on_rez(integer r)
{
owner = llGetOwner(); //Of course it gets the owner O.o
}
state_entry()
{
owner = llGetOwner(); //Again just in case it didn't get the point.
}
touch_start(integer total_number)
{
if(touchable) //If it hasn't been touched, let it be touched
{
user = llDetectedKey(0); //Makes the person touching, the owner.
int(); //When touched, get the random channel.
}
}
attach(key av)
{
if(av)
{
removeable = TRUE; //If actually on an av, allow clothing to request permissions for detach.
}
else
{
removeable = FALSE; //Oposite if no av :)
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_ATTACH)
{
llWhisper(0, llKey2Name(user) + " rips " + llKey2Name(owner) +"'s clothing right off!");
llDetachFromAvatar( ); //Detach from av of course.
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="tug") //We use llToLower(msg) so that it's not case sensitive. :)
{
llWhisper(0, llKey2Name(user) + " tugs on " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="flick")
{
llWhisper(0, llKey2Name(user) + " flicks " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="look")
{
llWhisper(0, llKey2Name(user) + " looks at " + llKey2Name(owner) +"'s clothing.");
}
if(llToLower(msg)=="tear")
{
if(removeable)
{
llRequestPermissions(owner, PERMISSION_ATTACH);
}
else
{
llWhisper(0, "Can not remove clothing that is not worn.");
}
}
touchable = TRUE;
llListenRemove(listenNum); //Stop listening to prevent lag :)
}
timer()
{
touchable = TRUE;
llSetTimerEvent(0.0); //Stops the timer
llWhisper(0, "Menu time out...");
}
}
</lsl>
----
===Stop all animations: basic===
<lsl>
//Stop all animations by Mr Lovenkraft
//Useful learning codes from the large inventory of Mr Lovenkraft ;)
list anims;
key av;
default
{
touch_start(integer total_number)
{
llRequestPermissions(llDetectedKey(0), PERMISSION_TRIGGER_ANIMATION);//Dur, requests permissions.
av = llDetectedKey(0); //Person to stop animations for.
}
run_time_permissions(integer perm)//Runs if we get permissions.
{
anims = []; //Clears the list of any past animations.
anims = llGetAnimationList(av); //Gets the current users animations playing.
integer index = llGetListLength(anims); //The amount of animations for stopping.
integer i; //Starting place for our loop.
for(i=0; i<index; i++)//Runs through for each animation in the list.
{
llStopAnimation(llList2String(anims, i)); //Stops the animation in the list at point i.
}
}
}
</lsl>
----
===Single pose: pose ball===
Single animation poseball that uses the animation in the inventory
<lsl>
//Basic Poseball script
default
{
state_entry()
{
llSitTarget(<0.0, 0.0, -0.5>, ZERO_ROTATION);//Sets a sit target to actually work
}
changed(integer change)
{
if (change & CHANGED_LINK)
{
key av = llAvatarOnSitTarget();
if (av)//If there is an av on it
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Ask permissions
}
}
}
run_time_permissions(integer perm)
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation("sit");//Stops the default sit
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION,0));//Start the animation inside the prim
}
}
}
</lsl>
----
===Cycle pose ball: touch cycle===
<lsl>
//Multi poseball/pole by Mr lovenkraft
//Open sourced ;)
list anims;
key av;
integer pos;
integer listSize;
integer sat_on;
int()
{
if(sat_on)
{
llRequestPermissions(av, PERMISSION_TRIGGER_ANIMATION);//Request permissions to get the next animation
}
else
{
llWhisper(0, "No one sitting on this object.");
}
}
default
{
state_entry()
{
pos = 0;
anims = [];
llSitTarget(<0.0, 0.0, 0.1>, ZERO_ROTATION);//Sets the sit pose for the target
}
changed(integer change)//something has changed with this object
{
if(change & CHANGED_INVENTORY)//if only the inventory is changed of course ;)
{
pos = 0;//start the post over
anims = []; //clear the list
integer i;
integer totA = llGetInventoryNumber(INVENTORY_ANIMATION);//gets the total animations
for(i=0; i<totA; i++)
{
anims += [llGetInventoryName(INVENTORY_ANIMATION, i)];//adds each animation name to list
}
llOwnerSay("Animaions inside: " + llList2CSV(anims));//Tell the owner how many animations inside
}
if(change & CHANGED_LINK)
{
av = llAvatarOnSitTarget();
if(av) //if there is really someone sitting on it
{
sat_on = TRUE; //If someone is sitting make it true
int();//Start animation
}
else
{
sat_on = FALSE;
}
}
}
run_time_permissions(integer perm)//got permissions from user
{
if(perm & PERMISSION_TRIGGER_ANIMATION)
{
llStopAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Stop last animation
pos += 1;//go to next in list
if(pos >= listSize)//if at the end of the list
{
pos = 0;
}
llStopAnimation("sit");
llStartAnimation(llGetInventoryName(INVENTORY_ANIMATION, pos));//Start the next animation
}
}
touch_start(integer total_number)
{
listSize = llGetListLength(anims);
int(); //start the new animation
}
}
</lsl>
----
===Basic notecard access list===
This is an example notecard, goes in the room prim of lockable object
Mr Lovenkraft
Fname2 Lastname2
Fname3 Lastname3
This also goes in your object you wish to lock/unlock etc
<lsl>
list allowed = [];
string allow_list = "Allow";
key owner;
key note_card;
integer line;
integer list_pos;
integer i;
integer locked;
int(integer on)
{
if(on==0)
{
llWhisper(0, "Locked, only allowed may use.");
locked = TRUE;
}
if(on==1)
{
llWhisper(0, "Unlocked, anyone may use.");
locked = FALSE;
}
if(on==3)
{
allowed = [];
note_card = llGetNotecardLine(allow_list, line);
}
}
default
{
on_rez(integer r)
{
list_pos = 0;
line = 0;
int(3);
owner = llGetOwner();
}
state_entry()
{
int(3);
list_pos = 0;
line = 0;
llListen(0, "", owner, "");
note_card = llGetNotecardLine(allow_list, line);
llOwnerSay((string)llGetFreeMemory());
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
int(3);
}
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(msg)=="lock")
{
int(0);
}
if(llToLower(msg)=="unlock")
{
int(1);
}
}
touch_start(integer t)
{
if(locked)
{
string Ntest = llDetectedName(0);
integer index = llListFindList(allowed, [Ntest]);
if(index != -1)
{
llWhisper(0,"Opened for: "+llList2String(allowed, index)+".");
}
else
{
llWhisper(0, "You are not on the access list.");
}
}
else
{
llWhisper(0, "Opened.");
}
}
dataserver(key Qid, string data)
{
if (Qid == note_card)
{
if (data != EOF)
{
allowed += data;
line += 1;
note_card = llGetNotecardLine(allow_list, line);
}
else
{
line = 0;
llOwnerSay("Done.");
llOwnerSay(llList2CSV(allowed));
llOwnerSay("Memory left: "+(string)llGetFreeMemory());
}
}
}
}

</lsl>
----
===Greeter: landmark/notecard giver===
This uses two scripts, one for detect and give,
and one for handling the list and seeing if that
person has been given a notecard/landmark.

Greeter
<lsl>
//Greeter by Mr Lovenkraft
key owner;
integer counter; //Total amount of people greeted
key user; //Person to greet
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
counter = 0;
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY); //Clears the greeted list
owner = llGetOwner(); //Gets the new owner
}
collision_start(integer c)
{
user = llDetectedKey(0); //Person colliding with the object is the user
if(counter >= 70)//If our counter goes to 70 or higher (this prevents the list from getting to big)
{
llMessageLinked(LINK_THIS, 0, "clear", NULL_KEY);//Clear the list again
counter = 0;//Reset the counter
}
llMessageLinked(LINK_THIS, 10, llDetectedName(0), NULL_KEY);//Sends the name to be greeted
}
link_message(integer sender, integer num, string str, key id)
{
if(str=="give")
{
llGiveInventory(user, llGetInventoryName(INVENTORY_NOTECARD, 0));//Give notecard
llGiveInventory(user, llGetInventoryName(INVENTORY_LANDMARK, 0));//Give landmark
counter += 1;//Add one to our counter
}
}
}
</lsl>

User handler: List to keep track of people, so that it prevents multiple
copies to the same user
<lsl>
list names;//Names of people greeted since last reset
string test;//Name to test with the list
integer index;
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
names = [];//Clear the names on rez
}
link_message(integer sender, integer num, string str, key id)
{
if(str == "clear")
{
names = [];//Resets the list
}
if(num == 10)
{
test = str;//Makes the name sent by the greeter the test
index = llListFindList(names, [test]); //Checks to see if it is in the list
if(index == -1)//If not found in the list
{
names += str;//Add the name to the list if not found
llMessageLinked(LINK_THIS, 0, "give", NULL_KEY);//Greet the new user
}
}
}
}
</lsl>
----
===Texture Organizer===
This is just a simple texture organizer for those with to many textures for their own good
hehe, I didn't comment this one but it works fine :)
<lsl>
//Texture organizer by Mr Lovenkraft
key owner;
key texture_key;
string texture_name;
integer inventory_pos;
integer diaChan;
integer listen_handler;
integer invTotal;
list button_options = ["Prev", "Next", "Give"];
dia()
{
diaChan = llRound(llFrand(-9999999));
if(diaChan >= 0)
{
diaChan += llRound(llFrand(-9999999));
}
listen_handler = llListen(diaChan, "", "", "");
llDialog(owner, "Pick your option below", button_options, diaChan);
llSetTimerEvent(30);
}
change(string choice)
{
if(choice == "next")
{
inventory_pos += 1;
if(inventory_pos >= invTotal)
{
inventory_pos = 0;
}
}
if(choice == "prev")
{
inventory_pos -= 1;
if(inventory_pos <= -1)
{
inventory_pos = invTotal;
}
}
llSetTexture(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos), ALL_SIDES);
llSetText("Texture Name: "+llGetInventoryName(INVENTORY_TEXTURE, inventory_pos)
+"\nTexture Key: "+(string)llGetInventoryKey(llGetInventoryName(INVENTORY_TEXTURE, inventory_pos))
, <1,1,1>, 1.0);
}
default
{
on_rez(integer r)
{
llResetScript();
}
state_entry()
{
owner = llGetOwner();
inventory_pos = 0;
texture_name = "";
texture_key = "";
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
changed(integer change)
{
if(change & CHANGED_INVENTORY)
{
invTotal = llGetInventoryNumber(INVENTORY_TEXTURE);
}
}
touch_start(integer t)
{
if(llDetectedKey(0)==owner)
{
dia();
}
else
{
llWhisper(0, "Owner only.");
}
}
listen(integer chan, string name, key id, string msg)
{
llSetTimerEvent(30);
if(llToLower(msg)=="next")
{
change("next");
}
if(llToLower(msg)=="prev")
{
change("prev");
}
if(llToLower(msg)=="give")
{
llGiveInventory(owner, llGetInventoryName(INVENTORY_TEXTURE, inventory_pos));
}
dia();
}
timer()
{
if(listen_handler)
{
llWhisper(0, "Option not chose, menu timed out.");
llListenRemove(listen_handler);
llSetTimerEvent(0);
}
}
}
</lsl>
==Useful snippets==
----
Codes here are not supported by me, they are for learning purposes only
===Max list length===
This will only allow a list to hold a max #, after that number is met
it will update the oldest
<lsl>
list words;
integer index;
string test;
integer listlength;
integer i;
default
{
state_entry()
{
i = 0;
llListen(0, "", "", "");
}
listen(integer chan, string name, key id, string msg)
{
if(llToLower(llGetSubString(msg, 0, 3)) == "add ")
{
listlength = llGetListLength(words);
test = llGetSubString(msg, 4, -1);
index = llListFindList(words, [test]);
list max = [test];
if(listlength <= 2)
{
if(index == -1)
{
words += [test];
llWhisper(0, test + " was stored. "+ "Total words: "+(string)(listlength + 1));
return;
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
return;
}
if(listlength >= 3)
{
if(index == -1)
{
if(i <= listlength)
{
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
i += 1;
return;
}
if(i >= listlength)
{
i = 0;
llOwnerSay("Max words added, removing oldest.");
words = llListReplaceList(words, max, i, i);
return;
}
}
if(index != -1)
{
llWhisper(0, "Word is already in list.");
}
}
}
if(llToLower(msg)=="list")
{
llWhisper(0, llDumpList2String(words, ".\n")+".");
}
}
}
</lsl>

User:Mr Lovenkraft

2008-02-05T22:08:28Z

Mr Lovenkraft: /* Texture Organizer */

User:Mr Lovenkraft

2008-02-05T21:58:09Z

Mr Lovenkraft:

User:Mr Lovenkraft

2008-02-04T00:57:02Z

Mr Lovenkraft:

User:Mr Lovenkraft

2008-02-04T00:34:58Z

Mr Lovenkraft:

User:Mr Lovenkraft

2008-02-04T00:27:35Z

Mr Lovenkraft:

User:Mr Lovenkraft

2008-02-04T00:26:24Z

Mr Lovenkraft:

User:Mr Lovenkraft

2008-02-04T00:24:38Z

Mr Lovenkraft:

User:Mr Lovenkraft

2008-02-04T00:16:46Z

Mr Lovenkraft:

User:Mr Lovenkraft

2008-02-04T00:14:25Z

Mr Lovenkraft:

User:Mr Lovenkraft

2008-02-04T00:12:02Z

Mr Lovenkraft: New page: ==Open source codes from Mr Lovenkraft== ---- I've just starting this page in the hopes of having quite a few codes open sourced for those of you who either can't find what you are looking...

LlGetAgentSize

2007-11-12T13:49:24Z

Mr Lovenkraft: Edited a few scripting errors

{{LSL_Function
|func_id=218|func_sleep=0.0|func_energy=10.0
|func=llGetAgentSize|return_type=vector|p1_type=key|p1_name=id
|func_footnote=The agent '''id''' must be in the same region as the requesting object, {{LSL Const|ZERO_VECTOR|vector|{{LSL VR|0.0|0.0|0.0}}}} is returned if not.
|func_desc
|return_text=that is the size of the requested avatar by '''id'''.
|spec
|caveats
|constants
|examples=
<pre>
//A simple script that makes a box hover above the owner's head.
default {
on_rez(integer i) {
llSensor("", llGetOwner(), AGENT, PI, 96);
}
sensor(integer num) {
vector where = llDetectedPos(0);
vector agent = llGetAgentSize(llGetOwner())/2;
size += agent.z + <0,0,.5>;
llSetPos(where);
}
touch_start(integer num)
{
llResetScript();
}
}
</pre>

Corrected Code, Comments welcomed.
--[[User:Mr Lovenkraft|Mr Lovenkraft]] 05:49, 12 November 2007 (PST)
<pre>
//This code was edited by Mr Lovenkraft for errors, comments are below.
vector size;
default
{
on_rez(integer i)
{
llSensor("", llGetOwner(), AGENT, 96, PI); //I reversed the "96" and the "PI" because-
} //PI defines the Arc. and 96 Defines the meters.
sensor(integer num) //Not the other way around.
{
vector where = llDetectedPos(0);
vector agent = llGetAgentSize(llGetOwner())/2;
size += agent + <0,0,.5>; //"size" Has to be defined in some way, I made it a Global
llSetPos(where + size); //In order for "size" to effect this code it must be added in
} //some way, which is why it says "llSetPos(where + size);"
touch_start(integer num)
{
llResetScript();
}
}
</pre>
|helpers
|also_functions=
{{LSL DefineRow||[[llGetBoundingBox]]|}}
{{LSL DefineRow||[[llGetAgentInfo]]|}}
{{LSL DefineRow||[[llRequestAgentData]]|}}
|also_events
|also_tests
|also_articles
|notes=This is a good way to test if an av is in the same region.
|permission
|negative_index
|cat1
|cat2=Avatar
|cat3
|cat4
}}