User:Allen Kerensky/Myriad Lite Dev/Myriad Lite Module Armor-v0.0.2-20120317.lsl

= Myriad_Lite_Module_Armor-v0.0.2-20120317.lsl = // Myriad_Lite_Module_Armor-v0.0.2-20120317.lsl // Copyright (c) 2012 By Allen Kerensky (OSG/SL) // The Myriad RPG System was designed, written, and illustrated by Ashok Desai // Myriad RPG licensed under the Creative Commons Attribution 2.0 UK: England and Wales // http://creativecommons.org/licenses/by/2.0/uk/ // Myriad Lite software Copyright (c) 2011-2012 by Allen Kerensky (OSG/SL) // Baroun's Adventure Machine Copyright (c) 2008-2011 by Baroun Tardis (SL) // Myriad Lite and Baroun's Adventure Machine licensed under the // Creative Commons Attribution-Share Alike-Non-Commercial 3.0 Unported // http://creativecommons.org/licenses/by-nc-sa/3.0/ // You must agree to the terms of this license before making any use of this software. // If you do not agree to this license, simply delete these materials. // There is no warranty, express or implied, for your use of these materials.

string VERSION = "0.0.2"; string VERDATE = "20120317";

integer FLAG_DEBUG; // configure in setup

key PLAYERID = NULL_KEY; // cached player UUID

integer MINATTACH = 1; // min valid attach point integer MAXWEAR = 30; // max valid in-world wearable attach point integer MINARMOR = 1; // min armor defense value integer MAXARMOR = 5; // max armor defense value integer CURARMOR = 0; // highest armor value worn out of all armor worn, not a total

list ARMOR = []; list ARMORPOWER = []; integer POWERARMOR; integer BATTERY; integer MAXBATTERY; integer MAXEFFECTTIME = 3; // maximum time to show armor hit/blocked effects integer EFFECTTIME; // how much time is left to show armor effects integer ARMOR_ON; // is armor "on" and protecting?

// string names for each attach point - waste of memory? list ATTACHPOINTS = ["INVALID","chest","head","left shoulder","right shoulder","left hand","right hand","left foot","right foot","back","pelvis","mouth","chin","left ear","right ear","left eye","right eye","nose","right upper arm","right lower arm","left upper arm","left lower arm","right hip","right upper leg","right lower leg","left hip","left upper leg","left lower leg","stomach","left pectoral","right pectoral","HUD Center 2","HUD Top Right","HUD Top","HUD Top Left","HUD Center","HUD Bottom Left","HUD Bottom","HUD Bottom Right" ];

// 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 LM_SENDTOATTACHMENT = 0x80000000; string DIV = "|"; // message divider

//============================================================================ // SETUP - begin //============================================================================ SETUP { FLAG_DEBUG= FALSE; // do we want debug messages ARMOR_ON = FALSE; // is armor "on" and protecting? off by default to save battery BATTERY = 3600; // start with charged battery FIXME how to save state from wear to wear MAXBATTERY = 3600; // total battery capacity when fully charged - in seconds PLAYERID = llGetOwner; // remember the owner's UUID integer attachpoints = MAXWEAR; // counting from 0 to 30 while ( attachpoints-- ) { ARMOR = ARMOR + [0]; // create 30 empty armor slots - avoids SL stack depth error and LSLINT warning ARMORPOWER = ARMORPOWER + [FALSE]; // create 30 empty power armor flags - avoid SL stack depth and LSLINT warning }   llSetTimerEvent(0.0); // stop any running timer }

//============================================================================ // RESET - shut down running animations then reset the script to reload character sheet //============================================================================ RESET { llResetScript; // now reset }

//============================================================================ // DEBUG - show errors on debug channel with wearer name for sorting //============================================================================ DEBUG(string dmessage) { if ( FLAG_DEBUG == TRUE ) llSay(DEBUG_CHANNEL,"("+llKey2Name(PLAYERID)+") MOD ARMOR: "+dmessage); }

//============================================================================ // ERROR - show errors on debug channel with wearer name for sorting //============================================================================ ERROR(string emessage) { llSay(DEBUG_CHANNEL,"ERROR ("+llKey2Name(PLAYERID)+"): "+emessage); }

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

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

//============================================================================ // WEARARMOR - Wearing a piece of armor //============================================================================ WEARARMOR(integer waattachpoint,integer waamount,integer wapower,string waname) { DEBUG("ATTACH Attachpoint=["+(string)waattachpoint+"] Amount=["+(string)waamount+"] Power=["+(string)wapower+"] Name=["+waname+"]"); if ( waattachpoint < MINATTACH || waattachpoint > MAXWEAR ) { // valid attach point? ERROR("Invalid armor attachment point "+llList2String(ATTACHPOINTS,waattachpoint)); return; }   if ( waamount < MINARMOR || waamount > MAXARMOR ) { // is armor rating valid or legal? ERROR("Invalid armor amount "+(string)waamount+" out of range "+(string)MINARMOR+"-"+(string)MAXARMOR); return; }   if ( wapower != TRUE && wapower != FALSE ) { ERROR("Cannot determine if worn armor is power armor."); return; }   // FIXME move ARMOR and POWERARMOR into single list? ARMORPOWER = llListReplaceList(ARMORPOWER,[wapower],waattachpoint,waattachpoint); // insert armor value into armor list // FIXME move ARMOR to 3-element strided list? [attachpoint,value,name?] ARMOR = llListReplaceList(ARMOR,[waamount],waattachpoint,waattachpoint); // insert armor value into armor list llOwnerSay("Armor "+waname+" ("+(string)waamount+") attached to "+llList2String(ATTACHPOINTS,waattachpoint)); RECALCULATE_ARMOR; // find new highest armor value }

//============================================================================ // REMOVEARMOR - Removing a piece of armor //============================================================================ REMOVEARMOR(integer raattachpoint,integer raamount,integer rapower,string raname) { DEBUG("DETACH Attachpoint=["+(string)raattachpoint+"] Amount=["+(string)raamount+"] Power=["+(string)rapower+"] Name=["+raname+"]"); if ( raattachpoint < MINATTACH || raattachpoint > MAXWEAR ) { // valid attach point? ERROR("Invalid armor detachment point "+llList2String(ATTACHPOINTS,raattachpoint)); return; }   if ( raamount < MINARMOR || raamount > MAXARMOR ) { // is armor rating valid or legal? ERROR("Invalid armor amount "+(string)raamount+" out of range "+(string)MINARMOR+"-"+(string)MAXARMOR); return; }       if ( rapower != TRUE && rapower != FALSE ) { ERROR("Cannot determine if detached armor is power armor."); return; }   // FIXME move ARMOR and POWERARMOR into single list? ARMORPOWER = llListReplaceList(ARMORPOWER,[FALSE],raattachpoint,raattachpoint); // insert armor value into armor list // FIXME move ARMOR to 3-element strided list? [attachpoint,value,name?] ARMOR = llListReplaceList(ARMOR,[0],raattachpoint,raattachpoint); // zero out the armor value in armor list llOwnerSay("Armor "+raname+" ("+(string)raamount+") detached from "+llList2String(ATTACHPOINTS,raattachpoint)); RECALCULATE_ARMOR; // find new highest armor value }

//============================================================================ // RECALCULATE_ARMOR - sets CURARMOR to highest armor value worn after attach or detach //============================================================================ RECALCULATE_ARMOR { CURARMOR = 0; // start with zero armor POWERARMOR = FALSE; integer racount = llGetListLength(ARMOR); // how long is armor list? while (racount--) { // look at each list item from last to first integer rapoints = llList2Integer(ARMOR,racount); // what is armor value at this point in list? integer pa = llList2Integer(ARMORPOWER,racount); if ( pa == FALSE ) { // not power armor in this slot, so do check regardless of power state if ( rapoints > CURARMOR ) { // is this armor value higher than current max? CURARMOR = rapoints; // yes, save new highest amount }       } else { // this is power armor in this slot. POWERARMOR = TRUE; if ( ARMOR_ON == TRUE && BATTERY > 0 && rapoints > CURARMOR ) { CURARMOR = rapoints; // yes armor is on, has power, and current value is higher, save new highest amount }       }    }    if ( POWERARMOR == TRUE ) { llOwnerSay("Power Armor Rating is "+(string)CURARMOR); } else { llOwnerSay("Non-Power Armor Rating is "+(string)CURARMOR); }   SENDTOHUD("ARMORCURRENT|"+(string)CURARMOR); // FIXME tell world too? }

//============================================================================ // ARMOR ON //============================================================================ ARMORON { //llWhisper(CHANATTACH,"ARMORON"); // tell attachment to do some inworld special effect if needed if ( BATTERY <= 0 && POWERARMOR == TRUE ) { llOwnerSay("Power armor out of power. Recharge."); return; }   if ( POWERARMOR == TRUE ) { llOwnerSay("Power armor activating."); ARMOR_ON = TRUE; SENDTOHUD("ARMORON"); llSetTimerEvent(1.0); // run a battery drain timer, battery already checked > 0 }   RECALCULATE_ARMOR; }

//============================================================================ // ARMOROFF //============================================================================ ARMOROFF { //llWhisper(CHANATTACH,"ARMOROFF"); // tell attachments to do some inworld special effects if needed if ( POWERARMOR == TRUE ) { llOwnerSay("Power armor deactivated."); ARMOR_ON = FALSE; SENDTOHUD("ARMOROFF"); llSetTimerEvent(0.0); // stop battery drain timer - FIXME does this kill effect timers? return; }   RECALCULATE_ARMOR; }

//============================================================================ // CHECKBATTERY //============================================================================ CHECKBATTERY { //llWhisper(CHANATTACH,"ARMORBATTERY"); if ( POWERARMOR != TRUE ) { llOwnerSay("Cannot check battery level for non-powered armor."); return; }   llOwnerSay("Armor battery level: "+(string)BATTERY+" of "+(string)MAXBATTERY+" total."); SENDTOHUD("ARMORBATTERY"); }

//============================================================================ // RECHARGE //============================================================================ RECHARGE { //llWhisper(CHANATTACH,"ARMORRECHARGE"); if ( POWERARMOR != TRUE ) { llOwnerSay("Cannot recharge non-powered armor."); return; }   // TODO Partial Recharges? BATTERY = MAXBATTERY; llOwnerSay("Armor recharged."); SENDTOHUD("ARMORRECHARGE"); }

//============================================================================ // EFFECTHIT - SHOW SPECIAL ARMOR EFFECTS WHEN ARMOR HIT BUT FAILS TO BLOCK //============================================================================ EFFECTHIT { //llWhisper(CHANATTACH,"ARMOREFFECTHIT"); SENDTOHUD("ARMOREFFECTHIT"); EFFECTTIME = MAXEFFECTTIME; // load the countdown llSetTimerEvent(1.0); // start the effect timer }

//============================================================================ // EFFECTBLOCKED - CHANGE ARMOR EFFECT WHEN ARMOR HIT AND BLOCKS DAMAGE //============================================================================ EFFECTBLOCKED { // your commands go here for armor special effect when armor BLOCKS a hit // llWhisper(CHANATTACH,"ARMOREFFECTBLOCKED"); SENDTOHUD("ARMOREFFECTBLOCKED"); EFFECTTIME = MAXEFFECTTIME; // load the countdown llSetTimerEvent(1.0); // start the effect timer }

//============================================================================ // EFFECTOFF - RESET ARMOR TO NORMAL VIEW //============================================================================ EFFECTOFF { //llWhisper(CHANATTACH,"ARMOREFFECTOFF"); SENDTOHUD("ARMOREFFECTOFF"); }

//============================================================================ // COMMAND processor //============================================================================ COMMAND(string message) { list fields = llParseString2List(message,[DIV],[]); // break into list of fields based on DIVider string command = llToLower(llStringTrim(llList2String(fields,0),STRING_TRIM)); // assume the first field is a Myriad Lite command

// General Myriad Module Commnads if ( command == "reset" ) { RESET; return;} // reset when told if ( command == "version" ) { GETVERSION; return;} // get version when needed if ( command == "debugon" ) { FLAG_DEBUG = TRUE; return;} // enable debugging if ( command == "debugoff" ) { FLAG_DEBUG = FALSE; return;} // disable debugging // Armor-Specific Module Commands if ( command == "armorattach" ) { // player attached armor somewhere integer armorrating = llList2Integer(fields,1); // get armor value integer armorpower = llList2Integer(fields,2); // get power armor or not integer attachpoint = llList2Integer(fields,3); // get armor location string armorname = llList2String(fields,4); // get armor's name WEARARMOR(attachpoint,armorrating,armorpower,armorname); // add armor to set of armor worn return; }   if ( command == "armordetach" ) { // player attached armor somewhere integer armorrating = llList2Integer(fields,1); // get armor value integer armorpower = llList2Integer(fields,2); // get power armor or not integer attachpoint = llList2Integer(fields,3); // get armor location string armorname = llList2String(fields,4); // get armor's name REMOVEARMOR(attachpoint,armorrating,armorpower,armorname); // detach armor from set of armor worn return; }   // armorcurrent skipped intentionally if ( command == "armorreset" ) { RESET; return;} // reset HUD if ( command == "armoron" ) { ARMORON; return;} // turn on power armor if ( command == "armoroff" ) { ARMOROFF; return;} // turn off power armor if ( command == "armorbattery") { CHECKBATTERY; return;} // check power armor battery if ( command == "armorrecharge" ) { RECHARGE; return;} // recharge power armor battery if ( command == "armorcheck" ) { RECALCULATE_ARMOR; return; } // check our current armor value if ( command == "armoreffecthit" ) { EFFECTHIT; return;} // show SFX on hit if ( command == "armoreffectblocked" ) { EFFECTBLOCKED; return;} // show SFX on hit if ( command == "armoreffectoff" ) { EFFECTOFF; return;} // show SFX on hit }

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

//       // STATE_ENTRY - the script starts here //           state_entry { SETUP; // setup defaults and go into event wait }   //        // ON REZ - RESET to force through state entry //           on_rez(integer params) { params = 0; // LSLINT RESET; }   //        // ON ATTACH - RESET to force through state entry //       attach(key id) { id = NULL_KEY; // LSLINT RESET; }

//   // CHANGED - triggered for many changes to the avatar // TODO reload sim-specific settings on region change //       changed(integer changes) { if ( changes & CHANGED_INVENTORY ) { // inventory changed somehow? RESET; }       if ( changes & CHANGED_REGION || changes & CHANGED_TELEPORT ) { RESET; }   }

//   // INCOMING LINK MESSSAGES //       link_message(integer sender_num,integer sending_module,string str,key id) { if ( sending_module == MODULE_ARMOR || sending_module == LM_SENDTOATTACHMENT ) return; // ignore our own messages DEBUG("link_message str=["+str+"]"); sender_num = 0; // LSLINT id = NULL_KEY; // LSLINT if ( llGetSubString(llStringTrim(llToLower(str),STRING_TRIM),0,4) == "armor" ) { // if armor command COMMAND(str); // jump to command processor return; // return here too in case we add later commands }   }    //    // TIMER CALLED TO TURN OFF THE SPECIAL EFFECTS AND DRAIN BATTERIES //   timer { if ( EFFECTTIME > 0 ) { EFFECTTIME--; if ( EFFECTTIME == 0 ) { EFFECTOFF; // turn off special effects } // timer expired, turn off effect }       if ( EFFECTTIME < 0 ) { // we should never have this happen, but just in case, catch and cleanup. EFFECTTIME = 0; EFFECTOFF; }       if ( POWERARMOR == TRUE && ARMOR_ON == TRUE && BATTERY > 0 ) { BATTERY--; // remove some battery if ( BATTERY == 0 ) { llOwnerSay("Armor battery drained. Shutting down."); ARMOROFF; // turn off armor }       }        if ( BATTERY < 0 ) { // we should never have this happen, but just in case, catch and cleanup BATTERY = 0; ARMOROFF; }       if ( EFFECTTIME <= 0 && ARMOR_ON == FALSE ) llSetTimerEvent(0.0); // all timers done, stop timer events } // end timer }