|
|
| Line 1: |
Line 1: |
| {{LSL Header}} | | {{LSL Header}} |
| | | Thinker | Trouble-shooter | Problem-Solver |
| | | {{visl |
| | | |name=DoteDote Edison |
| Not a Wiki pro, I'll try to not screw it up.
| | |Greeters= |
| | | |Helpers=* |
| ====Email-to-IM Script for the Script Library====
| | |Instructors= |
| <pre>
| | |Mentors=* |
| // Email-to-IM
| | |LSL=* |
| // DoteDote Edison
| | |Builder=* |
| | | |Scripter=* |
| ///////// constants /////////
| | |i18n= |
| // how often to check for new email when owner is online (seconds)
| | |l10n= |
| float FAST = 60.0;
| | |SL4B= |
| // how often to check owner online status when owner is offline (seconds)
| | |}} |
| float SLOW = 300.0;
| |
| // timezone offset from UTC
| |
| integer offset = -4;
| |
| | |
| ////////// globals //////////
| |
| key request;
| |
| key owner;
| |
| integer owner_online;
| |
| | |
| string GetStamp(string time) {
| |
| list weekdays = ["THU", "FRI", "SAT", "SUN", "MON", "TUE", "WED"];
| |
| integer a = (integer)time + (offset*3600);
| |
| integer hours = a/3600;
| |
| integer mins = a/60;
| |
| string day = llList2String(weekdays, (hours/24)%7);
| |
| return (string)(hours%24) + ":" + (string)(mins%60) + " " + day;
| |
| }
| |
| | |
| default {
| |
| state_entry() {
| |
| owner = llGetOwner();
| |
| string address = (string)llGetKey() + "@lsl.secondlife.com";
| |
| llSetText("Email Server\nOnline", <0.25, 1.0, 0.25>, 1.0);
| |
| llOwnerSay("Now online. The Email-to-IM address for " + llKey2Name(owner) + " is:\n" + address);
| |
| llSetTimerEvent(FAST);
| |
| }
| |
| on_rez(integer start_param) {
| |
| llResetScript();
| |
| }
| |
| touch_start(integer num_detect) {
| |
| if (llDetectedKey(0) == owner) state off;
| |
| }
| |
| email(string time, string sender, string subject, string body, integer num_remain) {
| |
| llInstantMessage(owner, "Email Received from: " + sender + " -- " + GetStamp(time));
| |
| llInstantMessage(owner, body);
| |
| if (num_remain > 0) llGetNextEmail("", "");
| |
| }
| |
| dataserver(key query, string data) {
| |
| if (query == request) {
| |
| request = "";
| |
| if (data == "1") {
| |
| owner_online = TRUE;
| |
| llSetTimerEvent(FAST);
| |
| }
| |
| else {
| |
| owner_online = FALSE;
| |
| llSetTimerEvent(SLOW);
| |
| }
| |
| }
| |
| }
| |
| timer() {
| |
| request = llRequestAgentData(owner, DATA_ONLINE);
| |
| if (owner_online) llGetNextEmail("", "");
| |
| }
| |
| state_exit() {
| |
| llSetTimerEvent(0.0);
| |
| llSetText("Email Server\nOffline", <1.0, 0.25, 0.25>, 1.0);
| |
| }
| |
| }
| |
| | |
| state off {
| |
| touch_start(integer num_detect) {
| |
| if (llDetectedKey(0) == owner) state default;
| |
| }
| |
| on_rez(integer start_param) {
| |
| llResetScript();
| |
| }
| |
| }
| |
| </pre>
| |
Thinker | Trouble-shooter | Problem-Solver