User:Zand Gundersen/Scripts
Block Buddy
Code
<lsl>// Block Buddy // by Zand Gundersen // Causes Object to look at nearest Avatar. // // THIS SCRIPT IS PUBLIC DOMAIN! Do not delete the credits at the top of this script! // Feel free to copy, modify, and use this script.
default {
state_entry()
{
llSensorRepeat("",NULL_KEY,AGENT,20,PI,.2);
}
sensor(integer total_number)
{
if (total_number!=0)
llLookAt( llDetectedPos(0)+<0,0,1>, 3, 1 );
}
}</lsl>
Zand's Keyboard Script
This is my keyboard script. It makes object only appear while typing.
Code
<lsl>// Zand's Keyboard Script // by Zand Gundersen // Makes Object only appear while typing. // // THIS SCRIPT IS PUBLIC DOMAIN! Do not delete the credits at the top of this script! // Feel free to copy, modify, and use this script.
list anims; key ANIM_TYPE="c541c47f-e0c0-058b-ad1a-d6ae3a4584d9";
default {
state_entry()
{
llSetTimerEvent(.2);
}
timer()
{
anims = llGetAnimationList(llGetOwner());
if(~llListFindList(anims,[ANIM_TYPE]))
{
llSetLinkAlpha(LINK_SET,1.0,ALL_SIDES);
}
else
{
llSetLinkAlpha(LINK_SET,0.0,ALL_SIDES);
}
}
}</lsl>
Zand's Mail Box Script
This is my mail box script i have been working on. I will try to keep it updated.
Version 1.0 Code
<lsl>// Zand Gundersen's Mail Box Script Version 1.0 // This script turns an ordenary prim into a Mail Box. // // -=Credits=- // Jan 8, 2008 - created by Zand Gundersen // // THIS SCRIPT IS PUBLIC DOMAIN! Do not delete the credits at the top of this script! // Feel free to copy, modify, and use this script. // // Always give credit to Zand Gundersen and all people who modify it in a readme or in the object description.
default {
state_entry()
{
llAllowInventoryDrop(TRUE);
llSetClickAction(CLICK_ACTION_OPEN);
llSetText(llKey2Name(llGetOwner()) + "'s Mail Box:\nClick to Open then Drag and Drop\n Item into Box",<1,1,.5>,.75 );
}
}</lsl>
Version 1.1a Code
<lsl>// Zand Gundersen's Mail Box Script Version 1.1a // // This script turns an ordenary prim into a Mail Box. // It now has a Dialog Menu and the option to IM you about new mail. string credits="
-=Credits=- Apr 7, 2008 - created by Zand Gundersen
This script is public domain and should be copyable! "; // THIS SCRIPT IS PUBLIC DOMAIN! Do not delete the credits at the top of this script! // Feel free to copy, modify, and use this script. // // Always give credit to Zand Gundersen and all people who modify it in a readme or in the object description.
//Config
integer chan=11; //Dialog Chat Channel
integer sendim = TRUE; //Im You if theres New Mail integer updatetime = 5; //How often in seconds to update info
integer face = 6; // What face To change the color of vector newcolor=<1,0,1>;// What color to set the face on New Mail vector oldcolor=<0,1,0>;// What color to set the face on Reset //End of Config
// Variables that make the script work // Don't edit unless you know what your doing string version="1.1a"; // Version Number string endcmd="Close"; // End Dialog list usercmd=["About","Status","Admin"]; // User Menu string usertext="User"; // User Menu Text list admincmd=["Back","Reset","Test"]; // Admin Menu string admintext="Admin"; // Admin Menu Text string owner; // Owner Key string im=""; integer online=TRUE;
SetNew(integer new) {
vector pos=llGetPos();
if (new) // Yay New Mail
{
// Run Code for New Mail
im="You Got Mail (http://slurl.com/secondlife/"+llGetRegionName()+"/"+(string)pos.x+"/"+(string)pos.y+"/"+(string)pos.z+")";
llSetColor(newcolor, face);
}
else
{
// Run Code for No New Mail
llSetColor(oldcolor, face);
}
}
default {
state_entry()
{
//Init
llListen(chan, "", "", "");
llSetTimerEvent(updatetime);
SetNew(FALSE);
//Set up the Prims Settings
llSetTouchText("Menu");
llSetClickAction(CLICK_ACTION_OPEN);
llAllowInventoryDrop(TRUE);
owner=llGetOwner();
llSetText( llKey2Name(owner) + "'s Mail Box:\nClick to Open then Drag and Drop\n Item into Box. Right Click for Menu.\n---\nNote: This is still in the testing phase",<1,1,.5>,.75 );
}
touch(integer num)
{
key id=llDetectedKey(0);
llDialog(id, usertext, endcmd+usercmd, chan); //Show user menu
}
timer()
{
if (im!="")
{
llInstantMessage(owner, im);
im="";
}
llRequestAgentData(owner, DATA_ONLINE);
}
dataserver(key request, string data)
{
if (data == "1")
online = TRUE;
else
online = FALSE;
}
changed(integer change)
{
if (change & CHANGED_ALLOWED_DROP) //Did we get a new item?
{
SetNew(TRUE);
}
}
listen( integer channel, string name, key id, string msg )
{
msg=llToLower(msg);
if (msg==llToLower(endcmd)) //End
{
//Do Nothing
}
else if (msg=="back") //Back
{
llDialog(id, usertext, endcmd+usercmd, chan); //Show user menu
}
else if (msg=="status") //Status
{
if (online) //Check Online
{
llDialog(id, llKey2Name(owner)+" is Online",endcmd+["Back"],chan);
}
else
{
llDialog(id, llKey2Name(owner)+" is Offline",endcmd+["Back"],chan);
}
}
else if (msg=="about") //About
{
llDialog(id, "Zand Gundersen's Mail Box Script Version "+version+credits,endcmd+["Back"],chan);
}
else if (msg=="admin") //Admin
{
if (id==owner)
{
llDialog(id, admintext, endcmd+admincmd,chan); //Show admin menu
}
else
{
llDialog(id, "Only Owner Can Do That", endcmd+["Back"],chan);
}
}
else if (msg=="reset") //Reset
{
if (id==owner)
{
llDialog(id, "Rested",endcmd+["Back"],chan);
llResetScript();
}
else
{
llDialog(id, "Only Owner Can Do That",endcmd+["Back"],chan);
}
}
else if (msg=="test") //Test
{
if (id==owner)
{
llDialog(id, "Test Send",endcmd+["Back"],chan);
SetNew(TRUE);
}
else
{
llDialog(id, "Only Owner Can Do That",endcmd+["Back"],chan);
}
}
}
}</lsl>