Miko/LSL-Scripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

No _vti

Browse Source
This commit is contained in:
Fred Beckhusen
2015-08-07 15:34:30 -05:00
parent ce47ec2f3e
commit fde850293c
8080 changed files with 0 additions and 2443112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

294
SL_Email_Terminal/SL_Email_Terminal/Object/SL_Email_Terminal_1.lsl
View File

@@ -1,294 +0,0 @@
// :CATEGORY:Email
// :NAME:SL_Email_Terminal
// :AUTHOR:Doc Nerd
// :CREATED:2010-01-10 05:20:56.000
// :EDITED:2013-09-18 15:39:03
// :ID:784
// :NUM:1072
// :REV:1.0
// :WORLD:Second Life
// :DESCRIPTION:
// Instructions
//
// * Open your inventory
// * Choose New Script and rename it email script
// * Copy the script below, doubleclick the email script in SL and paste
// * Click Build on the bottom bar and the Create in the menu
// * Use your magic wand to place an object on the ground
// * Right click the object and choose Edit
// * Rename the object My Emailer
// * Drag your email script into the object
// * Right click the object and choose Take
// * Just drag the My Emailer object out and touch it to send emails
// :CODE:
//...........One Way Email Terminal..........
//.......Originally written by Doc Nerd......
// This Script is distributed under the terms
// of the modified BSD license, reproduced at
// the end of the script. The license and
// acknowledgments listed must be included if
// this script is redistributed in a
// non-readable or non-modifiable form.
//..........Variable Block..........
key senderKey;
string senderName;
string eMail;
string subject;
string bodyText;
list sendButtons = ["Yes", "No"];
list writeButtons;
string removeButton;
integer i;
//..........Modules Block..........
//..........Modules for writing each part of email..........
writeAddress()
{
llListen(0, "", senderKey, ""); //Listen to what the user says.
llSay(0, "Please say the address of whom you are sending your email."); //Tell them what to say.
llSetTimerEvent(30); //Give them 30 seconds to say it.
}
writeSubject()
{
llListen(0, "", senderKey, ""); //Listen to what the user says.
llSay(0, "Please say the subject of your email."); //Tell them what to say.
llSetTimerEvent(30); //Give them 30 seconds to say it.
}
writeBody()
{
llListen(0, "", senderKey, ""); //Listen to what the user says.
llSay(0, "Please say the message you would like to send."); //Tell them what to say.
llSetTimerEvent(120); //Give them 120 seconds (2 minutes) to say it.
}
//..........Modules to remove buttons already used in llDialog menu..........
removeAddress()
{
i = llListFindList(writeButtons, ["Address"]); //Find "Address" button in list.
writeButtons = llDeleteSubList(writeButtons, i, i); //Remove it where it's found.
}
removeSubject()
{
i = llListFindList(writeButtons, ["Subject"]); //Find "Subject" button in list.
writeButtons = llDeleteSubList(writeButtons, i, i); //Remove it where it's found.
}
removeMessage()
{
i = llListFindList(writeButtons, ["Message"]); //Find "Message" button in list.
writeButtons = llDeleteSubList(writeButtons, i, i); //Remove it where it's found.
}
//..........Running script block..........
default
{
state_entry()
{
llSetObjectName("Nerd Gadgets & Scripting Emailer 100"); //Makes sure the object is called the Nerd Gadgets Emailer 100.
writeButtons = ["Address", "Subject", "Message"]; //Sets the llDialog buttons.
llListen(67895, "", senderKey, "Yes"); //Activate listeners.
llListen(67895, "", senderKey, "No");
}
touch_start(integer total_number)
{
senderKey = llDetectedKey(0); //Detects who's touching it, to get a raw key.
senderName = llKey2Name(llDetectedKey(0)); //Detects who's touching it, to get a name.
llDialog(senderKey, "Greetings " + senderName + ", would you like to send an email?", sendButtons, 67895); //Do you like me? Y/N
}
listen(integer channel, string name, key id, string message)
{
if(message == "Yes") //Starts email writing process.
{
llSay(0, "Currently being used by " + senderName + "."); //Tells area who's using terminal.
state emailer;
}
if(message == "No") //Thank you, come again.
{
llSay(0, "Thank you " + senderName + ", for using the " + llGetObjectName());
}
}
}
state emailer
{
state_entry()
{
if(writeButtons == []) //Check to see if there's anything left to write in the email.
{
state sendMail; //If not, move to sending module.
}
llListen(67895, "", senderKey, "Address"); //Activate listeners.
llListen(67895, "", senderKey, "Subject");
llListen(67895, "", senderKey, "Message");
llSetTimerEvent(30); //Gives user 30 seconds to choose a part to write...
llSay(0, "You have 30 seconds to choose."); //Informs user they have 30 seconds to choose.
llSetText("In use, please wait.", <255,0,0>, .1); //Gives visual cue to others that no one else can use it right now.
llDialog(senderKey, "What part of your message would you like to write?", writeButtons, 67895); //Selection button GUI.
}
listen(integer channgel, string name, key id, string message)
{
if(message == "Address") //Select "Address" button.
{
state addressWrite; //Enter address writing state.
}
else if(message == "Subject") //Select "Subject" button.
{
state subjectWrite; //Enter subject writing state.
}
else if(message == "Message") //Select "Message" button.
{
state messageWrite; //SEnter message writing state.
}
}
timer() //After 30 seconds are up, time out, and return to default state.
{
llSetTimerEvent(0);

7
SL_Email_Terminal/SL_Email_Terminal/Object/_vti_cnf/SL_Email_Terminal_1.lsl
View File

@@ -1,7 +0,0 @@
vti_encoding:SR|utf8-nl
vti_timelastmodified:TR|08 Sep 2013 03:49:06 -0000
vti_extenderversion:SR|12.0.0.6211
vti_backlinkinfo:VX|
vti_author:SR|alien\\fred
vti_modifiedby:SR|alien\\fred
vti_timecreated:TR|18 Sep 2013 20:39:03 -0000

6
SL_Email_Terminal/SL_Email_Terminal/SL_Email_Terminal.prj
View File

@@ -1,6 +0,0 @@
<Project name="SL_Email_Terminal" guid="D6B27315-6C00-1014-B904-200204C60A89">
<Object name="Object" guid="D6B273EE-6C00-1014-B904-200204C60A89">
<Script name="SL_Email_Terminal_1.lsl" guid="D6B2DABC-6C00-1014-B904-200204C60A89">
</Script>
</Object>
</Project>

6
SL_Email_Terminal/SL_Email_Terminal/_vti_cnf/SL_Email_Terminal.prj
View File

@@ -1,6 +0,0 @@
vti_encoding:SR|utf8-nl
vti_timelastmodified:TR|17 Aug 2013 23:32:26 -0000
vti_extenderversion:SR|12.0.0.0
vti_cacheddtm:TX|17 Aug 2013 23:32:26 -0000
vti_filesize:IR|273
vti_backlinkinfo:VX|