Allen Kerensky: Myriad_Lite_Module_WELL-v0.0.3-20120826.lsl

2012-08-26T22:31:28Z

Myriad_Lite_Module_WELL-v0.0.3-20120826.lsl

New page

= Myriad_Lite_Module_WELL-v0.0.3-20120826.lsl =
<source lang="lsl">
// Myriad_Lite_Module_WELL-v0.0.3-20120826.lsl
// Copyright (c) 2012 by Allen Kerensky (OSG/SL) All Rights Reserved.
// This work is dual-licensed under
// Creative Commons Attribution (CC BY) 3.0 Unported
// http://creativecommons.org/licenses/by/3.0/
// - or -
// Modified BSD License (3-clause)
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
// * Redistributions of source code must retain the above copyright notice,
// this list of conditions and the following disclaimer.
// * Redistributions in binary form must reproduce the above copyright notice,
// this list of conditions and the following disclaimer in the documentation
// and/or other materials provided with the distribution.
// * Neither the name of Myriad Lite nor the names of its contributors may be
// used to endorse or promote products derived from this software without
// specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE DEVELOPERS ``AS IS'' AND ANY EXPRESS OR
// IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
// OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN
// NO EVENT SHALL THE CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
// NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
// THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
//
// The Myriad RPG System was designed, written, and illustrated by Ashok Desai
// Myriad RPG System licensed under:
// Creative Commons Attribution (CC BY) 2.0 UK: England and Wales
// http://creativecommons.org/licenses/by/2.0/uk/

// CONSTANTS - DO NOT CHANGE DURING RUN
string VERSION = "0.0.3"; // Allen Kerensky's script version
string VERDATE = "20120826"; // Allen Kerensky's script yyyymmdd
string DIV = "|"; // Myriad message divider
// Module to Module Messaging Constants
// integer MODULE_HUD = -1;
// integer MODULE_CHARSHEET = -2;
// integer MODULE_ARMOR = -3;
// integer MODULE_BAM = -4;
// integer MODULE_RUMORS = -5;
// integer MODULE_CLOSE = -6;
// integer MODULE_RANGED = -7;
// integer MODULE_RESILIENCE = -8;
// integer MODULE_PROGRESS = -9;
integer MODULE_WELL = -10;
// integer MODULE_METER = -11;
integer LM_SENDTOATTACHMENT = 0x80000000;

integer FLAG_DEBUG; // TRUE = output debug messages, FALSE = hide them, set in STATE_ENTRY for lslint

// Particle system presets
// name, length of list for name, list of rules data ready to pass to llParticleSystem
list PRESETS = [
"Ruth2", 39,
PSYS_PART_FLAGS, 0, // color interp true, glow true, size interp true, followsrc true, followtarget true
PSYS_SRC_PATTERN, PSYS_SRC_PATTERN_ANGLE_CONE,
PSYS_SRC_INNERANGLE, PI,
PSYS_SRC_OUTERANGLE, 0.0,
PSYS_PART_START_SCALE, <.8,1,1>,
PSYS_PART_END_SCALE, <0.02, 0.02, 0.02>,
PSYS_PART_START_ALPHA, 1.0,
PSYS_PART_END_ALPHA, 0.0,
PSYS_PART_START_COLOR, <1,1,1>,
PSYS_PART_END_COLOR, <1,1,1>,
PSYS_PART_MAX_AGE, 3.0,
PSYS_SRC_MAX_AGE, 0.0,
PSYS_SRC_BURST_RATE, 0.020,
PSYS_SRC_BURST_PART_COUNT, 1,
PSYS_SRC_BURST_RADIUS, 1.0,
PSYS_SRC_BURST_SPEED_MAX, 1,
PSYS_SRC_BURST_SPEED_MIN, .1,
PSYS_SRC_TEXTURE, "e50ed3cf-6fab-4afe-ac37-187a7d7ab0b8", // ruth cloud particle
PSYS_SRC_OMEGA, <0,0,0>,
PSYS_SRC_ACCEL, <0,0,0>
];

//============================================================================
// DEBUG
//============================================================================
DEBUG(string debugmsg) {
if ( FLAG_DEBUG == TRUE ) llSay(DEBUG_CHANNEL,"("+llKey2Name(llGetOwner())+") MOD WELL: "+debugmsg);
}

//============================================================================
// ERROR
//============================================================================
ERROR(string errmsg) {
llSay(DEBUG_CHANNEL,"("+llKey2Name(llGetOwner())+") MOD WELL ERROR: "+errmsg);
}

//============================================================================
// GETVERSION
//============================================================================
GETVERSION() {
SENDTOHUD("VERSION="+VERSION+DIV+"VERSIONDATE="+VERDATE+DIV+llGetObjectName());
}

//============================================================================
// RESET
//============================================================================
RESET() {
// do any final work here
// then reset
llResetScript();
}

//============================================================================
// SENDTOHUD - send reponses to HUD as Link Messages
//============================================================================
SENDTOHUD(string str) {
DEBUG("SENDTOHUD("+str+")");
llMessageLinked(LINK_THIS,LM_SENDTOATTACHMENT,str,llGetOwner());
}

//============================================================================
// SETUP
//============================================================================
SETUP() {
FLAG_DEBUG=FALSE;
llRequestPermissions(llGetOwner(),PERMISSION_TRIGGER_ANIMATION);
}

//============================================================================
// DEFAULT STATE
//============================================================================
default {

//------------------------------------------------------------------------
// CHANGED EVENT
//------------------------------------------------------------------------
changed(integer change) {
if ( change & CHANGED_REGION || change & CHANGED_TELEPORT ) {
DEBUG("Region Change or Teleport detected. Re-requesting permissions again.");
SETUP();
}
}

//------------------------------------------------------------------------
// LINK_MESSAGE EVENT
//------------------------------------------------------------------------
link_message(integer sender_num,integer num,string str,key id) {
if ( num == MODULE_WELL || num == LM_SENDTOATTACHMENT ) return; // ignore our own link messages
DEBUG("link_message("+(string)sender_num+","+(string)num+","+str+","+(string)id+")");

// Break down incoming command
list tokens = llParseString2List(str,[DIV],[]);
integer fields = llGetListLength(tokens);
string cmd = llToLower(llStringTrim(llList2String(tokens,0),STRING_TRIM));
// DEBUGOFF
if ( cmd == "debugoff" ) {
DEBUG("Turning off DEBUG messages.");
FLAG_DEBUG = FALSE;
return;
}
// DEBUGON
if ( cmd == "debugon" ) {
FLAG_DEBUG = TRUE;
DEBUG("Turning on DEBUG messages.");
return;
}
// DEBUG|debugmessage...
if ( cmd == "debug" ) {
DEBUG(llList2String(tokens,1));
return;
}
// ERROR|errormessage...
if ( cmd == "error" ) {
ERROR(llList2String(tokens,1));
return;
}
// RESET
if ( cmd == "reset" ) {
RESET();
return;
}
// VERSION
if ( cmd == "version" ) {
GETVERSION();
return;
}
// OWNERSAY|errormessage...
if ( cmd == "ownersay" ) {
llOwnerSay(llList2String(tokens,1));
return;
}
// WHISPER|CHANNEL=###|MESSAGE=...
if ( cmd == "whisper" ) {
integer channel = DEBUG_CHANNEL;
string message = "";
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "channel" ) channel = llList2Integer(llParseString2List(llList2String(tokens,fields),["="],[]),1);
if ( attrib == "message" ) message = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( channel != DEBUG_CHANNEL && message != "" ) {
llWhisper(channel,message);
} else {
ERROR("Invalid WHISPER Command Received");
}
return;
}
// SAY|CHANNEL=###|MESSAGE=...
if ( cmd == "say" ) {
integer channel = DEBUG_CHANNEL;
string message = "";
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "channel" ) channel = llList2Integer(llParseString2List(llList2String(tokens,fields),["="],[]),1);
if ( attrib == "message" ) message = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( channel != DEBUG_CHANNEL && message != "" ) {
llSay(channel,message);
} else {
ERROR("Invalid SAY Command Received");
}
return;
}
// SHOUT|CHANNEL=###|MESSAGE=...
if ( cmd == "shout" ) {
integer channel = DEBUG_CHANNEL;
string message = "";
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "channel" ) channel = llList2Integer(llParseString2List(llList2String(tokens,fields),["="],[]),1);
if ( attrib == "message" ) message = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( channel != DEBUG_CHANNEL && message != "" ) {
llShout(channel,message);
} else {
ERROR("Invalid SHOUT Command Received");
}
return;
}
// REGIONSAY|CHANNEL=###|MESSAGE=...
if ( cmd == "regionsay" ) {
integer channel = DEBUG_CHANNEL;
string message = "";
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "channel" ) channel = llList2Integer(llParseString2List(llList2String(tokens,fields),["="],[]),1);
if ( attrib == "message" ) message = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( channel != DEBUG_CHANNEL && message != "" ) {
llRegionSay(channel,message);
} else {
ERROR("Invalid REGIONSAY Command Received");
}
return;
}
// INSTANTMESSAGE|USER=uuid|MESSAGE=...
if ( cmd == "instantmessage" ) {
key user = NULL_KEY;
string message = "";
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "user" ) user = llList2Key(llParseString2List(llList2String(tokens,fields),["="],[]),1);
if ( attrib == "message" ) message = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( user != NULL_KEY && message != "" ) {
llInstantMessage(user,message);
} else {
ERROR("Invalid INSTANTMESSAGE Command Received");
}
return;
}
// STARTANIMATION|ANIMATION=uuid or name...
if ( cmd == "startanimation" && fields == 2 ) {
string animation = "";
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "animation" ) animation = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( animation != "" ) {
llStartAnimation(animation); // FIXME Permissions? Track list of running?
} else {
ERROR("Invalid STARTANIMATION Command Received");
}
return;
}
// STOPANIMATION|ANIMATION=uuid or name in inventory or all
if ( cmd == "stopanimation" && fields == 2 ) {
string animation = "";
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "animation" ) animation = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( llToLower(animation) == "all" ) {
list animsrunning = llGetAnimationList(llGetOwner());
integer count = llGetListLength(animsrunning);
while ( count--) {
llStopAnimation(llList2String(animsrunning,count));
}
return;
} else if ( animation != "" ) {
llStopAnimation(animation); // FIXME Permissions? Track list of running?
} else {
ERROR("Invalid STOPANIMATION Command Received");
}
return;
}
// PLAYSOUND|SOUND=...|VOLUME=#.# - attached - does not play inworld from HUD
if ( cmd == "playsound" && fields == 3 ) {
string sound = "";
float volume = 0.0;
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "sound" ) sound = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
if ( attrib == "volume" ) volume = llList2Float(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( sound != "" && volume != 0.0 ) {
llPlaySound(sound,volume);
} else {
ERROR("Invalid PLAYSOUND Command Received");
}
return;
}
// TRIGGERSOUND|SOUND=...|VOLUME=#.# - unattached, can play inworld from HUD
if ( cmd == "triggersound" && fields == 3 ) {
string sound = "";
float volume = 0.0;
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "sound" ) sound = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
if ( attrib == "volume" ) volume = llList2Float(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( sound != "" && volume != 0.0 ) {
llTriggerSound(sound,volume);
} else {
ERROR("Invalid TRIGGERSOUND Command Received");
}
return;
}
// LOOPSOUND|SOUND=...|VOLUME=#.# - does not play inworld from HUD
if ( cmd == "loopsound" && fields == 3 ) {
string sound = "";
float volume = 0.0;
while ( fields-- ) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "sound" ) sound = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
if ( attrib == "volume" ) volume = llList2Float(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( sound != "" && volume != 0.0 ) {
llLoopSound(sound,volume);
} else {
ERROR("Invalid LOOPSOUND Command Received");
}
return;
}
// STOPSOUND
if ( cmd == "stopsound" ) {
llStopSound();
return;
}
// PARTICLEPRESET|NAME=presetname...
if ( cmd == "particlepreset" && fields == 2 ) {
string name = "";
while (fields--) {
string attrib = llToLower(llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),0));
if ( attrib == "name" ) name = llList2String(llParseString2List(llList2String(tokens,fields),["="],[]),1);
}
if ( name != "" ) { // found preset
integer start = llListFindList(PRESETS,[name]) + 2;
integer end = start + llList2Integer(PRESETS,start - 1);
llParticleSystem(llList2List(PRESETS,start,end));
} else {
ERROR("Invalid PARTICLEPRESET Command Received.");
}
return;
}
// PARTICLES|whoanelly
// PARTICLESOFF
if ( cmd == "particlesoff" ) {
llParticleSystem([]);
return;
}
}

//------------------------------------------------------------------------
// RUN_TIME_PERMISSIONS EVENT
//------------------------------------------------------------------------
run_time_permissions(integer perm) {
if ( perm & PERMISSION_TRIGGER_ANIMATION) {
DEBUG("PERMISSION_TRIGGER_ANIMATION granted.");
}
}

//------------------------------------------------------------------------
// STATE_ENTRY EVENT
//------------------------------------------------------------------------
state_entry() {
SETUP();
}
}
// END
</source>

User:Allen Kerensky/Myriad Lite/Myriad Lite Module WELL-v0.0.3-20120826.lsl - Revision history

Allen Kerensky: Myriad_Lite_Module_WELL-v0.0.3-20120826.lsl