====== Myriad Lite Module RLV ======

// Myriad_Lite_Module_RLV-v0.0.0-20131024.lsl
// Copyright (c) 2013 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/

// SEE: http://wiki.secondlife.com/wiki/LSL_Protocol/RestrainedLoveAPI
    // RLV_VERSIONNUM();
    // ... more setup functions here
    // RLV Functions http://wiki.secondlife.com/wiki/LSL_Protocol/RestrainedLoveAPI
    // LOAD current from PPMA
    // -- VERSIONS
    // Automated version @version=
    // RPG: Automated version @versionnew=
    // RPG: Automated version @versionnum=
    // Manual version IM @version
    // --- BLACKLIST
    // Automated version followed by blacklist: @versionnumbl=
    // Get contents of the blacklist with filter: @getblacklist[:filter]=
    // Manual blacklist checking: IM @getblacklist
    // --- MISCELLANEOUS
    // Start/stop notifications on a private channel: @notify:[;word]=
    //      /accepted_in_rlv inv_offer  accepted and available under #RLV/
    //      /accepted_in_inv inv_offer  accepted but not shared
    //      /declined inv_offer  
    //      /worn legally 
    //      /unworn legally 
    //      /attached legally 
    //      /attached illegally 
    //      /detached legally 
    //      /detached illegally 
    // Allow/deny permissive exceptions: @permissive=y/n RLV,PERMISSIVE,y/n
    // Clear all rules tied to an object: @clear
    // Clear a subset of the rules tied to an object: @clear=
    // RPG: Get the list of restrictions the avatar is currently submitted to: @getstatus[:[;]]=
    // Get the list of ALL restrictions the avatar is currently submitted to: @getstatusall[:[;]]=
    // --- MOVEMENT
    // RPG: Allow/prevent flying @fly=
    // Allow/prevent run by double-tap an arrow: @temprun=
    // RPG: Allow/prevent always running: @alwaysrun=
    // Force rotate the avatar to a set direction: @setrot==force
    // BROKEN w/SSA Change the height of the avatar: @adjustheight:;[;delta_in_meters]=force
    // --- CHAT
    // Allow/prevent sending chat: @sendchat= - blocks channel 0, / works, /me 30 chars, /message 15 chars, punctuation blocked, . ends the string
    // Allow/prevent shouting: @chatshout= - forces llShout to llSay range
    // Allow/prevent chatting at normal volume: @chatnormal= - forces llSay to llWhisper range
    // Allow/prevent whispering: @chatwhisper= - force whisper to llSay range
    // RPG: Redirect public chat to private channels: @redirchat:= -- turn ON OFF with Emoter control
    // Allow/prevent receiving chat messages : "@recvchat=" 
    // Allow/prevent receiving chat messages, secure way : "@recvchat_sec=" 
    // Remove/add exceptions to the chat message receiving prevention : "@recvchat:="
    // Allow/prevent receiving chat messages from someone in particular : "@recvchatfrom:="
    // --- EMOTES
    // Remove/add an exception to the emote truncation above : "@emote=" 
    // Redirect public emotes to private channels : "@rediremote:=" 
    // Allow/prevent seeing emotes : "@recvemote=" 
    // Allow/prevent receiving emotes seen in public chat from someone in particular : "@recvemotefrom:=" 
    // Allow/prevent seeing emotes, secure way : "@recvemote_sec=" 
    // Remove/add exceptions to the emote seeing prevention : "@recvemote:="
    // --- PRIVATE CHANNELS
    // RPG: Allow/prevent using any chat channel but certain channels : @sendchannel[:]= - only allow Myriad channels
    // RPG: Allow/prevent using any chat channel but certain channels, secure way : @sendchannel_sec[:]=
    // --- INSTANT MESSAGES 
    // RPG: Allow/prevent sending instant messages : "@sendim=" 
    // RPG: Allow/prevent sending instant messages, secure way : "@sendim_sec=" 
    // Remove/add exceptions to the instant message sending prevention : "@sendim:=" 
    // RPG: Allow/prevent sending instant messages to someone in particular : "@sendimto:=" - allow to region staff
    // Allow/prevent starting an IM session with anyone : "@startim=" 
    // Remove/add exceptions to the IM session start prevention : "@startim:=" 
    // RPG: Allow/prevent starting an IM session with someone in particular : "@startimto:=" -- allow to region staff
    // RPG: Allow/prevent receiving instant messages : "@recvim=" 
    // RPG: Allow/prevent receiving instant messages, secure way : "@recvim_sec="
    // Remove/add exceptions to the instant message receiving prevention : "@recvim:=" 
    // RPG: Allow/prevent receiving instant messages from someone in particular : "@recvimfrom:="  - allow from Region staff
    // --- TELEPORT
    // RPG: Allow/prevent teleporting to a landmark : "@tplm="  - enable TP in OOC, disable in IC
    // RPG: Allow/prevent teleporting to a location : "@tploc=" - enable TP in OOC, disable in IC
    // RPG: Allow/prevent teleporting by a friend : "@tplure=" 
    // RPG: Allow/prevent teleporting by a friend, secure way : "@tplure_sec="
    // Remove/add exceptions to the friend teleport prevention : "@tplure:="
    // RPG: Unlimit/limit sit-tp : "@sittp="
    // RPG: Allow/prevent standing up at a different location than where we sat down : @standtp= 
    // Force-Teleport the user : @tpto://=force (*)
    // RPG: Remove/add auto-accept teleport offers from a particular avatar : "@accepttp[:]=" -- region owner and RPG staff?
    // --- INVENTORY
    // RPG: Allow/prevent using inventory : @showinv=
    // RPG: Allow/prevent reading notecards : @viewnote=
    // RPG: Allow/prevent opening scripts : @viewscript= 
    // RPG: Allow/prevent opening textures : @viewtexture= 
    // RPG: Allow/prevent editing objects : "@edit=" 
    // Remove/add exceptions to the edit prevention : "@edit:=" 
    // RPG: Allow/prevent rezzing inventory : "@rez=" 
    // Allow/prevent editing particular objects : "@editobj:=" 
    // --- SITTING
    // Allow/prevent standing up : @unsit= 
    // Force sit on an object : @sit:=force (*) 
    // Get the UUID of the object the avatar is sitting on : @getsitid= 
    // Force unsit : @unsit=force (*)
    // Allow/prevent sitting down : @sit= 
    // --- CLOTHING
    // Render an object detachable/nondetachable : "@detach=" 
    // Unlock/Lock an attachment point : "@detach:=" 
    // Unlock/Lock an attachment point empty : "@addattach[:]=" 
    // Unlock/Lock an attachment point full : "@remattach[:]=" 
    // Allow/deny the "Wear" contextual menu : "@defaultwear= 
    // Force removing attachments : @detach[:attachpt]=force (*) 
    //      chest|skull|left shoulder|right shoulder|left hand|right hand|left foot|right foot|spine|
    //      pelvis|mouth|chin|left ear|right ear|left eyeball|right eyeball|nose|r upper arm|r forearm|
    //      l upper arm|l forearm|right hip|r upper leg|r lower leg|left hip|l upper leg|l lower leg|stomach|left pec|
    //      right pec|center 2|top right|top|top left|center|bottom left|bottom|bottom right|neck|root
    //      If part is not specified, removes everything. 
    // Force removing attachments (alias) : @remattach[:attachpt]=force (*) 
    // Allow/prevent wearing clothes : @addoutfit[:]= 
    //       gloves|jacket|pants|shirt|shoes|skirt|socks|underpants|undershirt|skin|eyes|hair|shape|alpha|tattoo|physics
    //       If part is not specified, prevents from wearing anything beyond what the avatar is already wearing. 
    // Allow/prevent removing clothes : @remoutfit[:]= (underpants and undershirt are kept for teens) 
    //      gloves|jacket|pants|shirt|shoes|skirt|socks|underpants|undershirt|skin|eyes|hair|shape|alpha|tattoo|physics
    //      If part is not specified, prevents from removing anything in what the avatar is wearing
    // Force removing clothes : @remoutfit[:]=force (*) (teens can't be forced to remove underpants and undershirt)
    //      gloves|jacket|pants|shirt|shoes|skirt|socks|underpants|undershirt|alpha|tattoo|physics
    //      If part is not specified, removes everything. 
    // Get the list of worn clothes : @getoutfit[:part]= 
    //      gloves,jacket,pants,shirt,shoes,skirt,socks,underpants,undershirt,skin,eyes,hair,shape
    //      gloves,jacket,pants,shirt,shoes,skirt,socks,underpants,undershirt,skin,eyes,hair,shape,alpha,tattoo 
    // Get the list of worn attachments : @getattach[:attachpt]= 
    //     none,chest,skull,left shoulder,right shoulder,left hand,right hand,left foot,right foot,spine,
    //     pelvis,mouth,chin,left ear,right ear,left eyeball,right eyeball,nose,r upper arm,r forearm,
    //     l upper arm,l forearm,right hip,r upper leg,r lower leg,left hip,l upper leg,l lower leg,stomach,left pec,
    //     right pec,center 2,top right,top,top left,center,bottom left,bottom,bottom right,neck,root
    // Force the viewer to automatically accept attach and take control permission requests : @acceptpermission= 
    // Allow/prevent accepting attach and take control permissions : @denypermission= 
    // Force detach an item : @detachme=force (*) 
    // --- SHARED FOLDERS
    // Allow/prevent wearing clothes and attachments that are not part of the #RLV folder : @unsharedwear= 
    // Allow/prevent removing clothes and attachments that are not part of the #RLV folder : @unsharedunwear= 
    // Get the list of shared folders in the avatar's inventory : @getinv[:folder1/.../folderN]= 
    // Get the list of shared folders in the avatar's inventory, with information about worn items : @getinvworn[:folder1/.../folderN]= 
    // Get the path to a shared folder by giving a search criterion : @findfolder:part1[&&...&&partN]= 
    // Force attach items contained inside a shared folder : @attach:=force (*) 
    // Force attach items contained inside a shared folder, without replacing what is already being worn : @attachover:=force (*) 
    // Force attach items contained inside a shared folder : @attachoverorreplace:=force (*) 
    // Force attach items contained inside a shared folder, and its children recursively : @attachall:=force (*) 
    // Force attach items contained inside a shared folder, and its children recursively, without replacing what is already being worn : @attachallover:=force (*) 
    // Force attach items contained inside a shared folder, and its children recursively : @attachalloverorreplace:=force (*) 
    // Force detach items contained inside a shared folder : @detach:=force (*) 
    // Force detach items contained inside a shared folder, and its children recursively : @detachall:=force (*) 
    // Get the path to the shared folder containing a particular object/clothing worn on a point : @getpath[: or ]= 
    // Get the all paths to the shared folders containing the objects/clothing worn on a point : @getpathnew[: or ]= 
    // Force attach items contained into a shared folder that contains a particular object/clothing : @attachthis[: or ]=force (*) 
    // Force attach items contained inside a shared folder, without replacing what is already being worn : @attachthisover[: or ]=force (*) 
    // Force attach items contained inside a shared folder : @attachthisoverorreplace[: or ]=force (*) 
    // Force attach items contained into a shared folder that contains a particular object/clothing, and its children folders : @attachallthis[: or ]=force (*) 
    // Force attach items contained inside a shared folder, without replacing what is already being worn : @attachallthisover[: or ]=force (*) 
    // Force attach items contained inside a shared folder : @attachallthisoverorreplace[: or ]=force (*) 
    // Force detach items contained into a shared folder that contains a particular object/clothing : @detachthis[: or ]=force (*) 
    // Force detach items contained into a shared folder that contains a particular object/clothing, and its children folders : @detachallthis[: or ]=force (*) 
    // Allow/prevent removing some folders : @detachthis[:||]= 
    // Allow/prevent removing some folders and their children : @detachallthis[:||]= 
    // Allow/prevent wearing some folders : @attachthis:||= 
    // Allow/prevent wearing some folders and their children : @attachallthis[:||]= 
    // Remove/add exceptions to the detachallthis restriction, for one folder only : "@detachthis_except:=" 
    // Remove/add exceptions to the detachallthis restriction, for one folder and its children : "@detachallthis_except:=" 
    // Remove/add exceptions to the attachallthis restriction, for one folder only : "@attachthis_except:=" 
    // Remove/add exceptions to the attachallthis restriction, for one folder and its children : "@attachallthis_except:=" 
    // --- TOUCH
    // RPG: Allow/prevent touching objects located further than 1.5 meters away from the avatar : @fartouch= 
    // Allow/prevent touching objects located further than 1.5 meters away from the avatar : @touchfar= 
    // Allow/prevent touching any objects : @touchall= 
    // Allow/prevent touching objects in-world : @touchworld= 
    // Remove/add exceptions to the touchworld prevention : "@touchworld:=" 
    // Allow/prevent touching one object in particular : @touchthis:= 
    // Remove/add an exception to the touch* preventions, for one object only : "@touchme=" 
    // Allow/prevent touching attachments : @touchattach= 
    // Allow/prevent touching one's attachments : @touchattachself= 
    // ???: Allow/prevent touching other people's attachments : @touchattachother=  
    // --- LOCATION
    // RPG: Allow/prevent viewing the world map : @showworldmap=  -- only allow when holding MAP item
    // RPG: Allow/prevent viewing the mini map : @showminimap= -- only allow when holding SCANNER item
    // RPG: Allow/prevent knowing the current location : @showloc= 
    // --- NAME TAGS
    // RPG: Allow/prevent seeing the names of the people around : @shownames= 
    // RPG: Allow/prevent seeing all the hovertexts : @showhovertextall= 
    // RPG: Allow/prevent seeing one hovertext in particular : @showhovertext:=  -- allow see region owner and staff?
    // RPG: Allow/prevent seeing the hovertexts on the HUD of the user : @showhovertexthud= 
    // RPG: Allow/prevent seeing the hovertexts in-world : @showhovertextworld= 
    // --- GROUP
    // RPG: Force the agent to change the active group : @setgroup:=force 
    // RPG: Allow/prevent activating a group : @setgroup= 
    // Get the name of the active group : @getgroup= 
    // --- VIEWER
    // Allow/prevent changing some debug settings : @setdebug= 
    // Force change a debug setting : @setdebug_:=force (*) 
    // Get the value of a debug setting : @getdebug_=
    // RPG: Allow/prevent changing the environment settings : @setenv=      
    // Allow/prevent changing the environment settings : @setenv= 
    // RPG: Force change an environment setting : @setenv_:=force (*) -- set world, drug effects, incapacitated and dead effects and more
    //     _daytime     0.0-1.0 and <0     Time of day (sunrise:0.25, midday:0.567, sunset:0.75, midnight:0.0, set back to region default:<0). Attention, resets all other Windlight parameters
    //     _preset     String     A Preset environment, e.g. Gelatto, Foggy. Attention, loading a Preset is heavy on the viewer and can slow it down for a short while, don't do it every second
    //     _ambientr     0.0-1.0     Ambient light, Red channel
    //     _ambientg     0.0-1.0     Ambient light, Green channel
    //     _ambientb     0.0-1.0     Ambient light, Blue channel
    //     _ambienti     0.0-1.0     Ambient light, Intensity
    //     _bluedensityr     0.0-1.0     Blue Density, Red channel
    //     _bluedensityg     0.0-1.0     Blue Density, Green channel
    //     _bluedensityb     0.0-1.0     Blue Density, Blue channel
    //     _bluedensityi     0.0-1.0     Blue Density, Intensity
    //     _bluehorizonr     0.0-1.0     Blue Horizon, Red channel
    //     _bluehorizong     0.0-1.0     Blue Horizon, Green channel
    //     _bluehorizonb     0.0-1.0     Blue Horizon, Blue channel
    //     _bluehorizoni     0.0-1.0     Blue Horizon, Intensity
    //     _cloudcolorr     0.0-1.0     Cloud color, Red channel
    //     _cloudcolorg     0.0-1.0     Cloud color, Green channel
    //     _cloudcolorb     0.0-1.0     Cloud color, Blue channel
    //     _cloudcolori     0.0-1.0     Cloud color, Intensity
    //     _cloudcoverage     0.0-1.0     Cloud coverage
    //     _cloudx     0.0-1.0     Cloud offset X
    //     _cloudy     0.0-1.0     Cloud offset Y
    //     _cloudd     0.0-1.0     Cloud density
    //     _clouddetailx     0.0-1.0     Cloud detail X
    //     _clouddetaily     0.0-1.0     Cloud detail Y
    //     _clouddetaild     0.0-1.0     Cloud detail density
    //     _cloudscale     0.0-1.0     Cloud scale
    //     _cloudscrollx     0.0-1.0     Cloud scroll X
    //     _cloudscrolly     0.0-1.0     Cloud scroll Y
    //     _densitymultiplier     0.0-0.9     Density multiplier of the fog
    //     _distancemultiplier     0.0-100.0     Distance multiplier of the fog
    //     _eastangle     0.0-1.0     Position of the east, 0.0 is normal
    //     _hazedensity     0.0-1.0     Density of the haze
    //     _hazehorizon     0.0-1.0     Haze at the horizon
    //     _maxaltitude     0.0-4000.0     Maximum altitude of the fog
    //     _scenegamma     0.0-10.0     Overall gamma, 1.0 is normal
    //     _starbrightness    0.0-2.0     Brightness of the stars
    //     _sunglowfocus     0.0-0.5     Focus of the glow of the sun
    //     _sunglowsize     1.0-2.0     Size of the glow of the sun
    //     _sunmooncolorr     0.0-1.0     Sun and moon, Red channel
    //     _sunmooncolorg     0.0-1.0     Sun and moon, Green channel
    //     _sunmooncolorb     0.0-1.0     Sun and moon, Blue channel
    //     _sunmooncolori     0.0-1.0     Sun and moon, Intensity
    //     _sunmoonposition     0.0-1.0     Position of the sun/moon, different from "daytime", use this to set the apparent sunlight after loading a Preset
    // Get the value of an environment setting : @getenv_= 

// CONSTANTS - DO NOT CHANGE DURING RUN
string BASENAME = "Myriad Lite Module RLV";
string VERSION = "0.0.0"; // Allen Kerensky's script version
string VERSIONDATE = "20131024"; // Allen Kerensky's script yyyymmdd

// Module to Module Messaging Constants
integer MODULE_RLV = -15;
integer LM_SENDTOATTACHMENT = 0x80000000;

// Configurable
integer SPACE_OFFSET = 300; // How high over ground are we to be "in space" FIXME PPMA CONFIG,SPACEALTITIDE,

// Runtime globals - may change anytime during run
integer RLV_CHAN;
integer RLV_HAND;
string RLV_CMD;
integer RLV_AVAIL; // is RLV available?
vector CURPOS; // current X,Y,Z location of avatar
integer GROUND_LEVEL; // the current Z altitude of ground level under the av.

// FIXME move to PPMA RLV,,
//list SETTINGS = [
//    "Myriad_Central", "Fine Day",
//    "Myriad_Combat", "Rot",
//    "Myriad_Medieval", "Alchemy Immortalis - Foggy Morning",
//    "Myriad_Modern", "[EUPHORIA] air pollution 2",
//    "Myriad_Future", "Blizzard",
//    "Lani", "Arrakis",
//    "ixi", "Arrakis",
//    //"Bade Plaza", "",
//    "Lbsa Plaza", "Annyka's Soft Lavender Day",
//    //"Recreation Plaza", "",
//    //"Sandbox Plaza", "",
//    //"Sandbox Plaza II", "",
//    "Seaprior Plaza", "Sailor's Delight",
//    //"Teravus Plaza", "",
//    //"Wright Plaza", "",
//    //"Zaius Plaza", "",
//    //"Jump4000", "",
//    //"Jump8000", "",
//    //"Cuteulala Park", "",
//    "OSgrid Welcome Station", "Default"
//];

//
// PPMA GET_VAL
//
string KEY_NOT_FOUND = "[KEY_NOT_FOUND]";
string GET_VAL(string dbkey,string field) {
    //OWNERSAY("GET_VAL KEY=["+dbkey+"] FIELD=["+field+"]");
    string out = KEY_NOT_FOUND;
    integer i;
    string name;
    string desc;
    for ( i = 2; i <= llGetNumberOfPrims(); i++ ) {
        name = llList2String(llGetLinkPrimitiveParams(i,[PRIM_NAME]),0);
        desc = llList2String(llGetLinkPrimitiveParams(i,[PRIM_DESC]),0);
        if ( llToLower(name) == llToLower(dbkey) && llToLower(desc) == llToLower(field) ) {
            out = llList2String(llGetLinkPrimitiveParams(i,[PRIM_TEXT]),0);
            //DEBUG("GET_VAL RETURN=["+out+"]");
            return out; // bail on first match?
        }
    }
    //OWNERSAY("GET_VAL RETURN=["+out+"]");
    return out;
}

SET_VAL(string dbkey, string field, string val) {
    //OWNERSAY("SET_VAL KEY=["+dbkey+"] FIELD=["+field+"] VAL=["+val+"]");
    integer i;
    string name;
    string desc;
    integer written = FALSE;
    for ( i = 2; i <= llGetNumberOfPrims(); i++ ) {
        name = llStringTrim(llList2String(llGetLinkPrimitiveParams(i,[PRIM_NAME]),0),STRING_TRIM);
        desc = llStringTrim(llList2String(llGetLinkPrimitiveParams(i,[PRIM_DESC]),0),STRING_TRIM);
        if ( ( llToLower(name) == llToLower(dbkey) && llToLower(desc) == llToLower(field) ) && written == FALSE ) {
            //OWNERSAY("SET_VAL UPDATE RECORD=["+(string)i+"] DBKEY=["+dbkey+"] DESC=["+field+"] VAL=["+val+"]");
            llSetLinkPrimitiveParamsFast(i,[PRIM_NAME,dbkey,PRIM_DESC,field,PRIM_TEXT,val,ZERO_VECTOR,0.0]);
            written = TRUE; // we did an update, remember it
        }    
    }
    if ( written == TRUE ) {
        //OWNERSAY("SET_VAL UPDATE COMPLETE.");
        return;
    }
    // data hasn't been written, scan for free prim
    for ( i = 2; i <= llGetNumberOfPrims(); i++ ) {
        name = llStringTrim(llList2String(llGetLinkPrimitiveParams(i,[PRIM_NAME]),0),STRING_TRIM);
        desc = llStringTrim(llList2String(llGetLinkPrimitiveParams(i,[PRIM_DESC]),0),STRING_TRIM);
        if ( ( name == "" && desc == "" ) && written == FALSE ) {
            //OWNERSAY("SET_VAL INSERT RECORD=["+(string)i+"] DBKEY=["+dbkey+"] DESC=["+field+"] VAL=["+val+"]");
            llSetLinkPrimitiveParamsFast(i,[PRIM_NAME,dbkey,PRIM_DESC,field,PRIM_TEXT,val,ZERO_VECTOR,0.0]);
            written = TRUE; // we did an update, remember it
        }
    }
    if ( written == TRUE ) {
        //OWNERSAY("SET_VAL INSERT COMPLETED.");
        return;
    }
    //OWNERSAY("SET_VAL NO FREE RECORD FOUND TO INSERT INTO! DATA LOST");
}

//////////////////////////////////////////////////////////////////////////////
// FLAG FUNCTIONS
// INCAPACITATED - lost wounds
// DEAD - lost critical wounds
// DEBUG - show debug messages or not
// IDEA: INDECISION - lost resolve?

// LMIM: SET_FLAG|=
// PPMA: FLAG,,
// LMOUT: FLAG|=
// LMERR: FIXME
integer GET_FLAG(string flag) {
    string val = GET_VAL("FLAG",llToUpper(flag));
    if ( val == KEY_NOT_FOUND ) {
        ERROR("Flag ["+flag+"] does not exist.");
    }
    if ( val != "0" && val != "1") {
        ERROR("Flag: "+flag+" invalid value ["+val+"]");
    }
    integer bool = (integer)val;
    return bool;
}

// SET_FLAG
// LMIM: SET_FLAG|=
// PPMA: FLAG,,
// LMOUT: SET_FLAG|=
// LMERR: FIXME
SET_FLAG(string flag,integer value) {
    if ( flag == "" ) return; // FIXME add error
    if ( value != TRUE && value != FALSE ) return; // FIXME add err
    SET_VAL("FLAG",llToUpper(flag),(string)value);
}

//
// GET_RLVREGION - check PPMA for RLV,,
//
string GET_RLV(string setting) {
    if ( setting == "" ) {
        ERROR("GET_RLV passed empty setting");
        return "";
    }
    string value = GET_VAL("RLV",setting);
    if ( value == KEY_NOT_FOUND ) value = "";
    return value;
}

//
// SET_RLV
//
SET_RLV(string setting,string value) {
    if ( setting == "" || value == "" ) {
        ERROR("SET_RLV passed empty setting or value.");
        return;
    }
    SET_RLV(setting,value);
}

// DEBUG - show debug chat with wearer name for sorting
DEBUG(string dmessage) {
    if ( GET_FLAG("DEBUG") == TRUE ) llMessageLinked(LINK_THIS,MODULE_RLV,"DEBUG|"+dmessage,llGetOwner());
}

// ERROR - show errors on debug channel with wearer name for sorting
ERROR(string emessage) {
    llMessageLinked(LINK_THIS,MODULE_RLV,"ERROR|"+emessage,llGetOwner());
}

// MEMORY
GET_MEMORY() {
    OWNERSAY(BASENAME+" free memory: "+(string)llGetFreeMemory()); // show this module's free memory info
}

// GETVERSION
GET_VERSION() {
    OWNERSAY(BASENAME+" v"+VERSION+"-"+VERSIONDATE); // show this module's version info
}

// HELP
HELP(string help) {
    llMessageLinked(LINK_THIS,MODULE_RLV,"HELP|"+help,llGetOwner());
}

OWNERSAY(string str) {
    llMessageLinked(LINK_THIS,MODULE_RLV,"OWNERSAY|"+str,llGetOwner());
}

PARSE(string message,key id) {
    DEBUG("PARSE message=["+message+"] id=["+(string)id+"]");
    // Debug handled in say and link events
    // First - handle type 1 messages that do not require breaking down
    list tokens = llParseString2List(message,["|"],[]);
    string cmd = llToLower(llStringTrim(llList2String(tokens,0),STRING_TRIM));
    //string data = llList2String(tokens,1);
    //list subtokens = llParseString2List(data,["="],[]);
    //string attrib = llList2String(subtokens,0);
    //integer idata = llList2Integer(subtokens,1);
    //string sdata = llList2String(subtokens,1);
    
    if ( cmd == "memory" ) { GET_MEMORY(); return; }
    if ( cmd == "reset" ) { RESET(); return;}
    if ( cmd == "version" ) { GET_VERSION(); return;}
    
    // REMOVEME all GET_* command blocks once PPMA is integrated in all HUD scripts    
    if ( cmd == "rlv_ic" ) { RLV_IC(); return;} // switch to IC mode
    if ( cmd == "rlv_ooc" ) { RLV_OOC(); return;} // switch to OOC mode
    if ( cmd == "rlv_version" ) { RLV_VERSION(); return;}
    if ( cmd == "rlv_versionnew" ) { RLV_VERSIONNEW(); return;}
    if ( cmd == "rlv_versionnum" ) { RLV_VERSIONNUM(); return;}
} 

//
// RESET
//
RESET() {
    // do anything to clean up before reset
    llResetScript();
}

RLV_CLOSE() {
    if (RLV_HAND != 0) llListenRemove(RLV_HAND);
    RLV_CHAN = -1;
    llSetTimerEvent(0.0);
    RLV_CMD = "";
}

RLV_IC() {
    // FIXME region tool to enable OOC and in IC - location narrator?
    //if ( RLV_AVAIL == TRUE ) {
        list details = llGetParcelDetails(<0,0,0>,[PARCEL_DETAILS_OWNER]);
        key parcelowner = llList2String(details,0);        
        llOwnerSay("@fly=n"); // RPG: Allow/prevent flying @fly=
        llOwnerSay("@alwaysrun=n"); // RPG: Allow/prevent always running: @alwaysrun=
        llOwnerSay("@redirchat:44=add"); // RPG: Redirect public chat to private channels: @redirchat:=
        // llOwnerSay("@sendchannel:=y"); // RPG: Allow/prevent using any chat channel but certain channels : @sendchannel[:]= -- FIXME only allow Myriad channels
        // llOwnerSay("@sendchannel:=y"); // RPG: Allow/prevent using any chat channel but certain channels, secure way : @sendchannel_sec[:]= -- FIXME only allow Myriad channels
        llOwnerSay("@sendim=n"); // RPG: Allow/prevent sending instant messages : "@sendim=" 
        llOwnerSay("@sendim_sec=n"); // RPG: Allow/prevent sending instant messages, secure way : "@sendim_sec=" 
        llOwnerSay("@sendimto:"+(string)parcelowner+"=y"); // RPG: Allow/prevent sending instant messages to someone in particular : "@sendimto:=" -- FIXME allow to region owner/staff
        llOwnerSay("@startimto:"+(string)parcelowner+"=y"); // RPG: Allow/prevent starting an IM session with someone in particular : "@startimto:=" -- FIXME allow to region owner/staff
        llOwnerSay("@recvim=n"); // RPG: Allow/prevent receiving instant messages : "@recvim=" 
        llOwnerSay("@recvim_sec=n"); // RPG: Allow/prevent receiving instant messages, secure way : "@recvim_sec="
        llOwnerSay("@recvimfrom:"+(string)parcelowner+"=y"); // RPG: Allow/prevent receiving instant messages from someone in particular : "@recvimfrom:="  - FIXME allow from region owner/staff
        llOwnerSay("@tplm=n"); // RPG: Allow/prevent teleporting to a landmark : "@tplm=" 
        llOwnerSay("@tploc=n"); // RPG: Allow/prevent teleporting to a location : "@tploc="
        llOwnerSay("@tplure=n"); // RPG: Allow/prevent teleporting by a friend : "@tplure="
        llOwnerSay("@tplure_sec=n"); // RPG: Allow/prevent teleporting by a friend, secure way : "@tplure_sec=" 
        llOwnerSay("@sittp=n"); // RPG: Unlimit/limit sit-tp : "@sittp=" 
        llOwnerSay("@standtp=n"); // RPG: Allow/prevent standing up at a different location than where we sat down : @standtp= 
        llOwnerSay("@accepttp:"+(string)parcelowner+"=add"); // RPG: Remove/add auto-accept teleport offers from a particular avatar : "@accepttp[:]=" -- FIXME allow from region owner/staff
        llOwnerSay("@showinv=n"); // RPG: Allow/prevent using inventory : @showinv=
        llOwnerSay("@viewnote=n"); // RPG: Allow/prevent reading notecards : @viewnote=
        llOwnerSay("@viewscript=n"); // RPG: Allow/prevent opening scripts : @viewscript= 
        llOwnerSay("@viewtexture=n"); // RPG: Allow/prevent opening textures : @viewtexture= 
        llOwnerSay("@edit=n"); // RPG: Allow/prevent editing objects : "@edit=" 
        llOwnerSay("@rez=n"); // RPG: Allow/prevent rezzing inventory : "@rez=" -- FIXME TEST IF THIS AFFECTS BULLETS
        llOwnerSay("@fartouch=n"); // RPG: Allow/prevent touching objects located further than 1.5 meters away from the avatar : @fartouch= 
        llOwnerSay("@showworldmap=n"); // RPG: Allow/prevent viewing the world map : @showworldmap=  -- FIXME only allow when holding MAP item
        llOwnerSay("@showminimap=n"); // RPG: Allow/prevent viewing the mini map : @showminimap= -- FIXME only allow when holding SCANNER item
        llOwnerSay("@showloc=n"); // RPG: Allow/prevent knowing the current location : @showloc=
        llOwnerSay("@shownames=n"); // RPG: Allow/prevent seeing the names of the people around : @shownames= 
        llOwnerSay("@showhovertextall=n"); // RPG: Allow/prevent seeing all the hovertexts : @showhovertextall= 
        llOwnerSay("@showhovertext:"+(string)parcelowner+"=y"); // RPG: Allow/prevent seeing one hovertext in particular : @showhovertext:=  -- FIXME allow see region owner/staff
        llOwnerSay("@showhovertexthud=n"); // RPG: Allow/prevent seeing the hovertexts on the HUD of the user : @showhovertexthud= -- FIXME work around for BAM status?
        llOwnerSay("@showhovertextworld=n"); // RPG: Allow/prevent seeing the hovertexts in-world : @showhovertextworld= 
        llOwnerSay("@setgroup:Myriad RPG=force"); // RPG: Force the agent to change the active group : @setgroup:=force // FIXME get current group - switch to whatever parcel group is
        llOwnerSay("@setgroup=n"); // RPG: Allow/prevent activating a group : @setgroup=
        llOwnerSay("@setenv=n"); // RPG: Allow/prevent changing the environment settings : @setenv= 
        // llOwnerSay("@setenv_preset: =force"); // RPG: Force change an environment setting : @setenv_:=force (*) -- FIXME set world, drug, incapacitated, dead, magic  effects
        
        OWNERSAY("Myriad Lite RLV IC Mode enabled");
    //}
}

RLV_OOC() {
    // FIXME region tool to enable OOC and in IC - location narrator?
    //if ( RLV_AVAIL == TRUE ) {
        list details = llGetParcelDetails(<0,0,0>,[PARCEL_DETAILS_OWNER]);
        key parcelowner = llList2String(details,0);        
        llOwnerSay("@fly=y"); // RPG: Allow/prevent flying @fly=
        llOwnerSay("@alwaysrun=y"); // RPG: Allow/prevent always running: @alwaysrun=
        llOwnerSay("@redirchat:44=rem"); // RPG: Redirect public chat to private channels: @redirchat:=
        // llOwnerSay("@sendchannel:=y"); // RPG: Allow/prevent using any chat channel but certain channels : @sendchannel[:]= -- FIXME only allow Myriad channels
        // llOwnerSay("@sendchannel:=y"); // RPG: Allow/prevent using any chat channel but certain channels, secure way : @sendchannel_sec[:]= -- FIXME only allow Myriad channels
        llOwnerSay("@sendim=y"); // RPG: Allow/prevent sending instant messages : "@sendim=" 
        llOwnerSay("@sendim_sec=y"); // RPG: Allow/prevent sending instant messages, secure way : "@sendim_sec=" 
        //llOwnerSay("@sendimto:"+(string)parcelowner+"=y"); // RPG: Allow/prevent sending instant messages to someone in particular : "@sendimto:=" -- FIXME allow to region owner/staff
        //llOwnerSay("@startimto:"+(string)parcelowner+"=y"); // RPG: Allow/prevent starting an IM session with someone in particular : "@startimto:=" -- FIXME allow to region owner/staff
        llOwnerSay("@recvim=y"); // RPG: Allow/prevent receiving instant messages : "@recvim=" 
        llOwnerSay("@recvim_sec=y"); // RPG: Allow/prevent receiving instant messages, secure way : "@recvim_sec="
        //llOwnerSay("@recvimfrom:"+(string)parcelowner+"=y"); // RPG: Allow/prevent receiving instant messages from someone in particular : "@recvimfrom:="  - FIXME allow from region owner/staff
        llOwnerSay("@tplm=y"); // RPG: Allow/prevent teleporting to a landmark : "@tplm=" 
        llOwnerSay("@tploc=y"); // RPG: Allow/prevent teleporting to a location : "@tploc="
        llOwnerSay("@tplure=y"); // RPG: Allow/prevent teleporting by a friend : "@tplure="
        llOwnerSay("@tplure_sec=y"); // RPG: Allow/prevent teleporting by a friend, secure way : "@tplure_sec=" 
        llOwnerSay("@sittp=y"); // RPG: Unlimit/limit sit-tp : "@sittp=" 
        llOwnerSay("@standtp=y"); // RPG: Allow/prevent standing up at a different location than where we sat down : @standtp= 
        llOwnerSay("@accepttp:"+(string)parcelowner+"=rem"); // RPG: Remove/add auto-accept teleport offers from a particular avatar : "@accepttp[:]=" -- FIXME allow from region owner/staff
        llOwnerSay("@showinv=y"); // RPG: Allow/prevent using inventory : @showinv=
        llOwnerSay("@viewnote=y"); // RPG: Allow/prevent reading notecards : @viewnote=
        llOwnerSay("@viewscript=y"); // RPG: Allow/prevent opening scripts : @viewscript= 
        llOwnerSay("@viewtexture=y"); // RPG: Allow/prevent opening textures : @viewtexture= 
        llOwnerSay("@edit=y"); // RPG: Allow/prevent editing objects : "@edit=" 
        llOwnerSay("@rez=y"); // RPG: Allow/prevent rezzing inventory : "@rez=" -- FIXME TEST IF THIS AFFECTS BULLETS
        llOwnerSay("@fartouch=y"); // RPG: Allow/prevent touching objects located further than 1.5 meters away from the avatar : @fartouch= 
        llOwnerSay("@showworldmap=y"); // RPG: Allow/prevent viewing the world map : @showworldmap=  -- FIXME only allow when holding MAP item
        llOwnerSay("@showminimap=y"); // RPG: Allow/prevent viewing the mini map : @showminimap= -- FIXME only allow when holding SCANNER item
        llOwnerSay("@showloc=y"); // RPG: Allow/prevent knowing the current location : @showloc=
        llOwnerSay("@shownames=y"); // RPG: Allow/prevent seeing the names of the people around : @shownames= 
        llOwnerSay("@showhovertextall=y"); // RPG: Allow/prevent seeing all the hovertexts : @showhovertextall= 
        // llOwnerSay("@showhovertext:"+(string)parcelowner+"=y"); // RPG: Allow/prevent seeing one hovertext in particular : @showhovertext:=  -- FIXME allow see region owner/staff
        llOwnerSay("@showhovertexthud=y"); // RPG: Allow/prevent seeing the hovertexts on the HUD of the user : @showhovertexthud= -- FIXME work around for BAM status?
        llOwnerSay("@showhovertextworld=y"); // RPG: Allow/prevent seeing the hovertexts in-world : @showhovertextworld= 
        //llOwnerSay("@setgroup:Myriad RPG=force"); // RPG: Force the agent to change the active group : @setgroup:=force 
        llOwnerSay("@setgroup=y"); // RPG: Allow/prevent activating a group : @setgroup=
        llOwnerSay("@setenv=y"); // RPG: Allow/prevent changing the environment settings : @setenv= 
        // llOwnerSay("@setenv_preset: =force"); // RPG: Force change an environment setting : @setenv_:=force (*) -- FIXME set world, drug, incapacitated, dead, magic  effects
        
        OWNERSAY("Myriad Lite RLV OOC Mode enabled");
    //}
}

RLV_OPEN() {
    RLV_CLOSE();
    RLV_HAND = llListen(RLV_CHAN,"",NULL_KEY,"");
    llSetTimerEvent(60.0);
}

//////////////////////////////////////////////////////////////////////////////
// RLV TPTO FORCE TELEPORT EXAMPLE
// Listens on channel 4 for local coordinates and a sim name
// and tells your viewer to teleport you there.
//
// By Marine Kelley 2008-08-26
// RLV version required : 1.12 and above
//
// HOW TO USE :
//   * Create a script inside a box
//   * Overwrite the contents of the script with this one
//   * Wear the box
//   * Say the destination coords Region/X/Y/Z on channel 4 :
//     Example : /4 Help Island Public/128/128/50
 
//key kRequestHandle; // UUID of the dataserver request
//vector vLocalPos;   // local position extracted from the
 
//Init () {
//  kRequestHandle = NULL_KEY;
//  llListen (4, "", llGetOwner (), "");
//}
 
//default {
//  state_entry () {
//    Init ();
//  }
 
//  on_rez(integer start_param) {
//    Init ();
//  }
 
//  listen(integer channel, string name, key id, string message) {
//    list tokens = llParseString2List (message, ["/"], []);
//    integer L = llGetListLength (tokens);
 
//    if (L==4) {
//      // Extract local X, Y and Z
//      vLocalPos.x = llList2Float (tokens, 1);
//      vLocalPos.y = llList2Float (tokens, 2);
//      vLocalPos.z = llList2Float (tokens, 3);
 
      // Request info about the sim
//      kRequestHandle=llRequestSimulatorData (llList2String (tokens, 0), DATA_SIM_POS);
//    }
//  }
 
//  dataserver(key queryid, string data) {
//    if (queryid == kRequestHandle) {
      // Parse the dataserver response (it is a vector cast to a string)
//      list tokens = llParseString2List (data, ["<", ",", ">"], []);
//      string pos_str = "";
//      vector global_pos;
 
      // The coordinates given by the dataserver are the ones of the
      // South-West corner of this sim
      // => offset with the specified local coordinates
//      global_pos.x = llList2Float (tokens, 0);
//      global_pos.y = llList2Float (tokens, 1);
//      global_pos.z = llList2Float (tokens, 2);
//      global_pos += vLocalPos;
 
      // Build the command
//      pos_str =      (string)((integer)global_pos.x)
//                +"/"+(string)((integer)global_pos.y)
//                +"/"+(string)((integer)global_pos.z);
//      llOwnerSay ("Global position : "+(string)pos_str); // Debug purposes
 
      // Fire !
//      llOwnerSay ("@tpto:"+pos_str+"=force");
//    }
//  }
//}
//////////////////////////////////////////////////////////////////////////////

RLV_VERSION() {
    RLV_OPEN();
    llOwnerSay("@version="+(string)RLV_CHAN);
}

RLV_VERSIONNEW() {
    RLV_OPEN();
    llOwnerSay("@versionnew="+(string)RLV_CHAN);
}

RLV_VERSIONNUM() {
    RLV_CMD="versionnum";
    RLV_OPEN();
    llOwnerSay("@versionnum="+(string)RLV_CHAN);
}

// RPEVENT
RPEVENT(string rpevent) {
    llMessageLinked(LINK_THIS,MODULE_RLV,"RPEVENT|"+rpevent,llGetOwner());
}

SETUP() {
    RLV_VERSIONNEW();    
    RLV_OOC();
    OWNERSAY("RLV module active.");
}

SETUP_WINDLIGHT() {
    if ( RLV_AVAIL == TRUE ) {
        // check altitude
        CURPOS = llGetPos();
        GROUND_LEVEL = llFloor(llGround(<0,0,0>));
        if ( CURPOS.z >= ( GROUND_LEVEL + SPACE_OFFSET ) ) {
            OWNERSAY("RestrainedLight configuring Midnight for Space.");
            llOwnerSay("@setenv_preset:midnight=force");
        } else {
            string setting = GET_RLV("RL_"+llGetRegionName());
            if ( setting != "" ) {
                llOwnerSay("@setenv_preset:"+setting+"=force");
                OWNERSAY("RestrainedLight set to "+setting+" for region "+llGetRegionName());
            } else {
                llOwnerSay("@setenv_preset:Default=force");
                OWNERSAY("RestrainedLight set to Default for region "+llGetRegionName());
            }
        }
    } else {
        OWNERSAY("Please enabled RestrainedLove Viewer features to activate RestrainedLight.");
    }
}


default {

    changed(integer changes) {
        if ( ( RLV_AVAIL == TRUE ) && ( ( changes & CHANGED_REGION ) || (changes & CHANGED_TELEPORT ) ) ) {
            SETUP_WINDLIGHT();
        }
    }  
    
    link_message(integer sender_num,integer num,string str,key id) {
        if ( num == MODULE_RLV || num == LM_SENDTOATTACHMENT ) return; // ignore our own messages
        list tokens = llParseString2List(str,["|"],[]);
        string cmd = llToLower(llStringTrim(llList2String(tokens,0),STRING_TRIM));
        
        if ( cmd == "debug" || cmd == "error" || cmd == "help" || cmd == "ownersay" || cmd == "rpevent" ) return; // ignore WELL commands
        // show debug only when not ignoring other commands
        DEBUG("EVENT: link_message("+(string)sender_num+","+(string)num+","+str+","+(string)id+")");             
        PARSE(str,id);
    }
    
    listen(integer channel,string name,key id,string message) {
        DEBUG("EVENT listen channel=["+(string)channel+"] name=["+name+"] id=["+(string)id+"] message=["+message+"]");
        if ( channel != RLV_CHAN ) return; // woken up for message that is not for this module FIXME show error?
        if ( RLV_CMD == "versionnum" ) {
            if ( (integer)message > 2080000 ) {
                RLV_AVAIL = TRUE;
            }
            RLV_CLOSE();
            return;
        }
    }
    
    state_entry() {
        SETUP();
    }
    
    timer() {
        RLV_CLOSE();
    }
}