-
-// huffware script: jaunt rezolator, by fred huffhines.
-//
-// this script supports the jaunt wik rez script by dealing with the rezzed objects.
-//
-// this script is licensed by the GPL v3 which is documented at: http://www.gnu.org/licenses/gpl.html
-// do not use it in objects without fully realizing you are implicitly accepting that license.
-//
-
-// global constants that can be changed to good effect.
-
-integer DEBUGGING = FALSE; // set this to true for noisier run times.
-
-// important constants used internally... these should not be changed willy nilly.
-
-// begin jaunt base API:
-
-// the following constants define how the script should behave (i.e., its conveyance mode).
-// TWO_WAY_TRIP: the script jaunts using the current target vectors to get somewhere
-// and then takes the same pathway back, but in reverse order.
-// AUTOREZ_JAUNTER: the script rezzes the first regular object in its inventory next to
-// the root telehub. that object is loaded with the destination notecard and this script.
-// the rezzed object can then be used for the next few minutes to jaunt to the selected
-// destination. the temporary object will use the ONE_WAY_TRIP mode.
-// ONE_WAY_TRIP: the object containing this script will take the user to a particular
-// destination, but the object does not survive the trip. it self-destructs after
-// reaching the destination. this mode is used in conjunction with the AUTOREZ_JAUNTER
-// mode and should generally never be used on its own.
-// RECONNAISSANCE_TRIP: a survey run to test out a particular path to get to a
-// destination.
-integer TWO_WAY_TRIP = 1;
-integer AUTOREZ_JAUNTER = 2;
-integer ONE_WAY_TRIP = 3;
-integer RECONNAISSANCE_TRIP = 4;
-
-// indicates a reconnaissance command when found as a prefix on chat text
-// on our official recon channel.
-string CHILD_CHAT_TEXT = "#rcn";
-string READY_TEXT = "-y"; // lets us know that a jaunter is ready to be filled.
-string RETURN_WORD = "-b"; // used to signal a returning recong jaunter.
-
-// values used to represent different stages of verification.
-integer VERIFY_UNTESTED = -3; // don't know destinations tate yet.
-integer VERIFY_SAFE = -4; // the destination last tested safe.
-integer VERIFY_UNSAFE_SO_FAR = -5; // this cannot be done with simple jaunt.
-integer VERIFY_UNSAFE_DECIDED = -6; // this means the destination seems intractable.
-
-integer ONE_WAY_TRICKY_PARM = -100000;
- // used to signal to the one way jaunter that it's taking a single pathway.
-integer RECONNAISSANCE_TRICKY_PARM = -200000;
- // on_rez parm indicates that this will be a recon trip to check out a path.
-integer MAXIMUM_PRIV_CHAN = 90000;
- // the largest amount we will ever subtract from the tricky parms in order to
- // tell the sub-jaunter which channel to listen on.
-
-string VECTOR_SEPARATOR = "|";
- // how we separate components of vectors from each other.
-string DB_SEPARATOR = "``"; // separating items in lists.
-
-// end of jaunt base API.
-
-integer REZ_KID_FIELDS_NEEDED = 6; // the rez kid API method needs this many parms.
-
-integer MAXIMUM_RECON_ATTEMPTS = 7;
- // maximum tries to find a path for the hard cases (after first simple jaunt fails).
-
-float TIMER_PERIOD = 1.0; // we run a pretty slow timer to check on destinations.
-
-integer MAXIMUM_SNOOZES = 20; // how long we let a pending action go before declaring it failed.
-
-string OUR_COW_TAG = "l_jrzltr_dc";
- // a hopefully unique id for this script to talk to the data cow with.
-
-// the actions that can be held in the action queue.
-integer AQ_ONEWAY_JAUNTER_VOYAGE = 40; // information will be used for one-way jaunter.
-integer AQ_PREP_RECON_JAUNTER = 41; // info for the reconnaissance jaunter to go check out.
-integer AQ_CHECK_HARD_CASE = 42; // working on hard cases to get to destination somehow.
-integer AQ_ACQUIRE_BASE_PATH = 43; // we are grabbing a random path that we think is healthy.
-
-string QUADRANT_TAG_NAME = "q:"; // a piece of text we put in front of generated destinations.
-
-integer MAXIMUM_SAFE_LOCATIONS = 28; // we'll track this many extra locations.
-float MINIMUM_DISTANCE_FOR_EXTRAS = 10.0; // how far a new locale must be to add.
-
-integer MAX_CHAT_REPEAT = 3; // give instructions N times in case things are slow.
-float SLEEPY_TIME = 0.02; // how long to snooze between chats.
-
-//////////////
-
-// global variables.
-
-list global_verifications; // we gradually acquire knowledge of the health of the destinations.
-string global_object_name; // the object to rez from inventory.
-string global_destination_name; // the name of the place where the jaunter should go.
-vector global_rez_place; // starting location for the rezzed jaunter.
-integer conveyance_mode; // how the rezzed jaunter should process its destination.
-
-integer private_id_from_listen; // set when we listen to our private channel.
-integer private_chat_channel; // where sub-jaunters communicate with root.
-
-integer serving_root; // if this is true, it means we are serving a root jaunter.
-
-integer destinations_total; // how many destinations are known in total? we compute this.
-integer destinations_real; // how many are user-configured destinations?
-
-integer snooze_counter; // how many times have we slept during a process?
-
-integer heard_from_root; // true if the root jaunter has told us (a child jaunter) where to go.
-
-// recon variables...
-integer is_recon_pending; // are we awaiting a reconnaissance?
-integer trying_hard_cases; // are we already working on the tough ones?
-integer current_recon_index; // where is the recon jaunter testing.
-integer recon_reattempts; // how many tries did we take?
-integer done_reconnoiter; // is recon process finished?
-integer succeeded_recon; // set to true if close enough.
-integer good_destinations_counted; // a tally of how many destinations looked healthy.
-integer ungenerated_good_destinations_counted; // counts only user selected good dests.
-vector final_destination; // where the recon process is really headed.
-integer partial_path_count; // the counter for partial path replies.
-list safe_locales_seen; // locations that we have a safe route to, as reported by recons.
-
-// jaunt trip variables...
-list full_journey; // the full pathway we expect to jaunt on.
-integer last_verification; // the last state we heard.
-
-// root jaunter variables...
-integer child_needs_setup;
- // true when a child has been rezzed and still needs to be filled with the script.
-
-// the API for this library script to be used in other scripts.
-//////////////
-// do not redefine these constants.
-integer JAUNT_REZOLATOR_HUFFWARE_ID = 10025;
- // the unique id within the huffware system for this script's commands.
- // it's used in llMessageLinked as the num parameter.
-string HUFFWARE_PARM_SEPARATOR = "{~~~}";
- // this pattern is an uncommon thing to see in text, so we use it to separate
- // our commands in link messages.
-string HUFFWARE_ITEM_SEPARATOR = "{|||}";
- // used to separate lists of items from each other when stored inside a parameter.
- // this allows lists to be passed as single string parameters if needed.
-integer REPLY_DISTANCE = 100008; // offset added to service's huffware id in reply IDs.
-//////////////
-// commands available from the library:
-string RESET_REZOLATOR = "#reset";
- // tells the script to stop any previous efforts to rez children.
-string REZ_CHILD_NOW = "#rezkd#";
- // requests this script to create a new child object. this requires several
- // parameters to succeed: 1) object to rez, 2) conveyance mode for the rezzed object
- // to implement, 3) the chat channel to listen for and speak to new child on,
- // 4) the destination name for where the child should go, 5) a count of the full
- // set of known destinations, 6) the target where the jaunt should arrive at.
-string REPORT_CHILD_REZZED = "#reziam";
- // requests that this class report to the root jaunter that a child has rezzed and
- // is ready for service. there are no required parameters.
-//hmmm: combine the above with the below!
-string REZOLATOR_CHILD_SUPPORT = "#rzsup";
- // used by child jaunters to request that the rezolator handle things for them.
- // the first parameter is the startup parameter handed to the control script.
-string REZOLATOR_CHILD_RETURNED = "#rezdon";
- // used by the child jaunter to tell the rezolator that it has jumped to wherever it
- // was supposed to and is ready to report to the parent, if needed. the first parameter
- // required for the rezolator is whether the jump was successful (1) or not (0), and
- // the second parameter should be the last safe position that the jaunter was at when
- // it was possibly closest to the target.
-//////////////
-// events generated by the library:
-string REZOLATOR_EVENT_REZZED_CHILD = "#donekd";
- // an event generated for a previous rez child request. this lets the caller know that
- // the child has been created and told what to do. the single parameter is where the
- // jaunter has been rezzed.
-string REZOLATOR_EVENT_GOT_INSTRUCTIONS = "#rzsta";
- // the root jaunter has given a child instructions on where to go. this info includes
- // the name of the destination, the pathway to get there, and the conveyance mode.
-string REZOLATOR_EVENT_RECON_FINISHED = "#rzcnfn";
- // an event generated when the recon process has concluded. this includes parms:
- // number of good destinations.
-//
-//////////////
-
-// requires click action API...
-//////////////
-integer CHANGE_CLICK_ACTION_HUFFWARE_ID = 10024;
- // a unique ID within the huffware system for this script.
-// the API only supports the service number; there are no commands to pass in the "msg"
-// parameter. the id does accept a parameter, which is the type of click action to begin
-// using for this prim.
-//////////////
-
-// requires data cow library...
-//////////////
-// do not redefine these constants.
-integer DATA_COW_HUFFWARE_ID = 10017;
- // the unique id within the huffware system for the jaunt script to
- // accept commands on. this is used in llMessageLinked as the num parameter.
-//////////////
-//string RESET_LIST_COMMAND = "reset_L"; // flushes out the currently held list.
-string ADD_ITEM_COMMAND = "add_I";
- // adds items to the list. this is a list of pairs of name/value, where the name is
- // how the item will be looked up from the list, and the value is the contents to be stored.
-//string REMOVE_ITEM_COMMAND = "rm_I";
- // accepts a list of names for items. all the mentioned ones will be removed from the list.
-//string GET_ITEM_COMMAND = "get_I";
- // retrieves the item's contents for a given name. first parm is the name. if there
- // are other parameters, then they are taken as other items to return also.
- // the return data will be pairs of <name, entry> for each of the names in the request.
-string TAGGED_GET_ITEM_COMMAND = "get_T";
- // like get item, except the first parameter is an identifier that the caller wants to
- // use to tag this request. the other parameters are still taken as names. the response
- // will contain the tag as the first item, then the <name, entry> pairs that were found.
-//////////////
-
-// sets up the initial state, if this script has just started, or it
-// cleans up the state, if the script was already running.
-initialize_rezolator()
-{
- if (DEBUGGING) log_it("start mem=" + (string)llGetFreeMemory());
- global_rez_place = llGetPos();
- heard_from_root = FALSE; // we don't know root from adam yet.
-}
-
-// sets up the rezolator to be a child jaunter and report to a root jaunter.
-provide_child_support(integer startup_parm)
-{
- serving_root = FALSE;
- // we are serving as a special purpose jaunter object.
- // set our method of jaunting based on the secret signal.
- if (-(startup_parm - ONE_WAY_TRICKY_PARM) < MAXIMUM_PRIV_CHAN) {
- conveyance_mode = ONE_WAY_TRIP;
- private_chat_channel = startup_parm - ONE_WAY_TRICKY_PARM;
- if (DEBUGGING) log_it("one way child: private chat on " + private_chat_channel);
- } else if (-(startup_parm - RECONNAISSANCE_TRICKY_PARM) < MAXIMUM_PRIV_CHAN) {
- conveyance_mode = RECONNAISSANCE_TRIP;
- private_chat_channel = startup_parm - RECONNAISSANCE_TRICKY_PARM;
- if (DEBUGGING) log_it("recon child: private chat on " + private_chat_channel);
- }
-
- if (private_id_from_listen) {
- // toss old listening since we're working on a new deal now.
- llListenRemove(private_id_from_listen);
- }
- // listen to chats on our special channel.
- private_id_from_listen = llListen(private_chat_channel, "", NULL_KEY, "");
- if (DEBUGGING) log_it("listening for cmds on chan " + (string)private_chat_channel);
-}
-
-// this handles the case where we need to send out another seeker drone.
-// true is returned if this function thinks things are doing well.
-integer advance_reconnaissance_position()
-{
- if (!trying_hard_cases) {
- list added_parms = [];
- if (current_recon_index < 0) {
- // this is a signalled condition. we have just started chowing through
- // the destinations to look at them.
- current_recon_index = 0;
- } else {
- // a normal move to the next slot now.
- current_recon_index++;
- }
- if (DEBUGGING)
- log_it("total dests are " + destinations_total
- + " and we're at indy " + current_recon_index);
- if (current_recon_index <= destinations_total - 1) {
- // try jumping to the next place.
- if (DEBUGGING) log_it("next normal test, index " + (string)current_recon_index);
- push_action_record(AQ_PREP_RECON_JAUNTER, added_parms);
- } else {
- // we've gone off the edge of our list in normal mode.
- // now check those that are marked as failures.
- trying_hard_cases = TRUE;
- if (DEBUGGING) log_it("started trying hard cases, back to index 0");
- // start over in processing the list.
- current_recon_index = 0;
- is_recon_pending = FALSE;
- good_destinations_counted = 0;
- ungenerated_good_destinations_counted = 0;
- push_action_record(AQ_CHECK_HARD_CASE, added_parms);
- }
- llMessageLinked(LINK_THIS, DATA_COW_HUFFWARE_ID, TAGGED_GET_ITEM_COMMAND,
- wrap_parameters([OUR_COW_TAG, "#" + (string)current_recon_index]));
- return TRUE;
- }
- if ((current_recon_index < destinations_total) && trying_hard_cases) {
- // if the conditions are very right or very wrong, move to next place.
- if ( (last_verification == VERIFY_SAFE) || (last_verification == VERIFY_UNSAFE_DECIDED)
- || (current_recon_index < 0) ) {
- current_recon_index++;
- }
- if (DEBUGGING) log_it("next hard test at index " + (string)current_recon_index);
- // make sure we're still in range.
- if (current_recon_index < destinations_total) {
- // we're running the hard cases now, so go to the next one of those.
- list added_parms = [];
- push_action_record(AQ_CHECK_HARD_CASE, added_parms);
- llMessageLinked(LINK_THIS, DATA_COW_HUFFWARE_ID, TAGGED_GET_ITEM_COMMAND,
- wrap_parameters([OUR_COW_TAG, "#" + (string)current_recon_index]));
- return TRUE;
- }
- }
-
- if (!done_reconnoiter) {
- if (DEBUGGING) log_it("decided we're done with recon.");
- // all have been checked.
- done_reconnoiter = TRUE;
- // let the root know how many were tasty healthy places.
- llMessageLinked(LINK_THIS, JAUNT_REZOLATOR_HUFFWARE_ID + REPLY_DISTANCE,
- REZOLATOR_EVENT_RECON_FINISHED,
- (string)ungenerated_good_destinations_counted);
- }
- if (DEBUGGING) log_it("doing nothing else in advance.");
- return FALSE; // not good.
-}
-
-// considers the current state of affairs and schedules the next reasonable thing
-// that needs to be done to move the rezzing process along.
-take_the_next_appropriate_action()
-{
- // see if the child setup process is still running.
- if (child_needs_setup || is_recon_pending || (llGetListLength(action_queue) > 0) ) {
- // we're still waiting on something. make sure it hasn't timed out.
- if (!check_for_child_timeout()) return; // we still have time.
- // saying this one failed, so we set it such that we are not waiting for kids
- // or recons or the data cow right now.
- snooze_counter = 0;
- if (child_needs_setup) {
- if (DEBUGGING) log_it("TNAP: child needs setup...");
- child_needs_setup = FALSE;
- if (conveyance_mode == ONE_WAY_TRIP) {
-//log_it("TNAP: telling root one way kid is hosed.");
- // the startup of a child jaunter has failed. let the root think we're
- // doing okay so it can get on with its life.
- llMessageLinked(LINK_THIS, JAUNT_REZOLATOR_HUFFWARE_ID + REPLY_DISTANCE,
- REZOLATOR_EVENT_REZZED_CHILD, (string)global_rez_place);
- return;
- } else {
-//log_it("TNAP: recon fail for kid needs setup, fall through.");
- }
- } else if (is_recon_pending) {
- // the current reconnaissance drone has crashed apparently. deal with it.
- if (DEBUGGING) log_it("TNAP: setting recon pend to false");
- is_recon_pending = FALSE;
- return;
- } else if (llGetListLength(action_queue) > 0) {
- // action_queue must be non-empty, or we wouldn't be here.
- list action_rec = pop_action_record(); // what else can we do?
- if (DEBUGGING) log_it("TNAP: time-out on action: " + (string)action_rec);
- return;
- }
- // proceed to the next steps which are probably remedial.
- }
-
- if (DEBUGGING) log_it("TNAP: nothing pending, move things along...");
-
- // nothing is pending right now.
- if (conveyance_mode == ONE_WAY_TRIP) {
- // this means we are done, since the only thing we do is start the kid up.
- llSetTimerEvent(0.0);
- return;
- }
-
- // if the recon advancement returns true, then we are all set for the next place.
- if (advance_reconnaissance_position()) return;
-
- // if we got to here, then we need to do something about being past end of list...
-
- if (done_reconnoiter) {
- // all done with that, so we don't need the timer anymore.
- llSetTimerEvent(0.0); // stop coming here.
- return; // don't need to do any more.
- }
-
- if (trying_hard_cases) {
- try_the_hard_cases();
- }
-
- if (DEBUGGING) log_it("fell completely through TNAP()");
-}
-
-// tries to crack the hard cases using added random jaunt destinations.
-try_the_hard_cases()
-{
- if (DEBUGGING) log_it("hardcase performing recon re-attempt, name=" + global_destination_name);
- if (is_prefix(global_destination_name, QUADRANT_TAG_NAME)) {
-//log_it("seeing that " + global_destination_name + " is a generated dest, ignoring.");
- splice_destination_info(current_recon_index, "#" + (string)current_recon_index,
- vector_chop(final_destination), VERIFY_UNSAFE_DECIDED);
- advance_reconnaissance_position();
- return;
- }
- // count that as a failure, since we're not still on our first run through the list.
- recon_reattempts++;
- if (recon_reattempts > MAXIMUM_RECON_ATTEMPTS) {
- // we have totally failed to find a workable pathway. we'll store the
- // most simple form of the path back as the one to use.
- log_it("total failure reaching " + (string)final_destination);
- splice_destination_info(current_recon_index, "#" + (string)current_recon_index,
- vector_chop(final_destination), VERIFY_UNSAFE_DECIDED);
- recon_reattempts = 0;
- advance_reconnaissance_position();
- return;
- }
-
- // start the process of finding a good random path.
- if (!load_random_safe_path()) {
- // can't get there from anywhere else, so try from here.
- log_it("could not find a good random path!");
- scramble_to_find_a_way([]);
- }
-}
-
-// called to start a jaunter in the appropriate mode.
-rez_requested_child(string object_name, integer conv_mode,
- integer chat_channel, string destination_name, integer all_dests_count,
- string target_location)
-{
- if (DEBUGGING)
- log_it("rez req: " + object_name + " convey=" + (string)conveyance_mode + " chat=" + (string)chat_channel + " dest=" + destination_name + " fullcount=" + (string)all_dests_count + " targ=" + target_location);
-
- if (private_id_from_listen) {
- // toss old listening since we're working on a new deal now.
- llListenRemove(private_id_from_listen);
- }
- // listen to chats on our special channel.
- private_id_from_listen = llListen(chat_channel, "", NULL_KEY, "");
-
- // remember the info so we can tell our new child.
- conveyance_mode = conv_mode;
- global_destination_name = destination_name;
- global_object_name = object_name; // the object to rez from inventory.
- private_chat_channel = chat_channel;
- full_journey = llParseString2List(target_location, [VECTOR_SEPARATOR], []);
- destinations_total = all_dests_count;
- global_verifications = []; // clear any old verifications.
- integer indy;
- for (indy = 0; indy < destinations_total; indy++)
- global_verifications += [ VERIFY_UNTESTED ];
-
- if (conveyance_mode == RECONNAISSANCE_TRIP) {
- // we need to start reconnaissance mode.
- current_recon_index = -1; // a signal that we haven't started.
- snooze_counter = 0;
- is_recon_pending = FALSE;
- done_reconnoiter = FALSE;
-
-//turned off currently. doesn't seem to help much.
-if (FALSE) {
- // experimental: add the quadrants of the sim as destinations. if some of these
- // are reachable, then they should help us out.
- destinations_real = destinations_total;
- integer x;
- integer y;
- for (x = 32; x <= 255; x += 64) {
- for (y = 32; y <= 255; y += 64) {
- vector calculated = <x, y, 0.0>;
- float height = llGround(calculated - llGetPos());
- calculated.z = height + 64;
- add_destination(QUADRANT_TAG_NAME + (string)x + "," + (string)y,
- (string)adjust_to_ground(<x, y, 0>, 64), VERIFY_UNTESTED);
- }
- }
-}
-
- take_the_next_appropriate_action();
- } else {
- // create the jaunter object for a one way trip.
- rez_a_jaunter(object_name, ONE_WAY_TRICKY_PARM + chat_channel, conveyance_mode);
- }
- llSetTimerEvent(TIMER_PERIOD);
-}
-
-// handles responses about our list coming back from the data cow.
-answer_to_the_cow(string msg, string id, list parms)
-{
- string tag = llList2String(parms, 0);
- if (tag != OUR_COW_TAG) return; // was not for us.
- parms = llDeleteSubList(parms, 0, 0); // trim out the tag.
- list action_record = pop_action_record();
- integer actyo = extract_action_code(action_record);
- // get the name out of the set first.
- list split = llParseString2List(llList2String(parms, 1), [HUFFWARE_ITEM_SEPARATOR], []);
-
- if (actyo != AQ_ACQUIRE_BASE_PATH) {
- // it's very important that when we're acquiring other targets' path components,
- // we do not mistake that for our own state for the path we're trying to reach.
- // thus we only record the answer for actions that are about our real target.
- global_destination_name = llList2String(parms, 0);
- last_verification = llList2Integer(split, 1);
- full_journey = prechewed_destinations(llList2String(split, 0));
- if (DEBUGGING)
- log_it("just heard verif=" + (string)last_verification + " for " + global_destination_name);
- }
-
- if (actyo == AQ_ONEWAY_JAUNTER_VOYAGE) {
-//log_it("one way, saying on chan " + (string)private_chat_channel + " -- " + global_destination_name + " fullj=" + (string)full_journey);
-
- child_needs_setup = FALSE; // count off the one we just set up.
-
- integer indy; // i told you N times.
- for (indy = 0; indy < MAX_CHAT_REPEAT; indy++) {
- llSay(private_chat_channel, CHILD_CHAT_TEXT
- + global_destination_name
- + DB_SEPARATOR
- + llDumpList2String(full_journey, VECTOR_SEPARATOR));
- // pausing to let our words sink in.
- llSleep(SLEEPY_TIME);
- }
-
- // tell the root jaunter that this kid has been issued.
- llMessageLinked(LINK_THIS, JAUNT_REZOLATOR_HUFFWARE_ID + REPLY_DISTANCE,
- REZOLATOR_EVENT_REZZED_CHILD, (string)global_rez_place );
- } else if (actyo == AQ_PREP_RECON_JAUNTER) {
- // we got info about a place to try. record the last verif state locally.
- if (DEBUGGING) log_it("info re destination: verif = " + last_verification);
- splice_just_verification(current_recon_index, last_verification);
- if ( (last_verification == VERIFY_UNTESTED)
- || (trying_hard_cases && (last_verification == VERIFY_UNSAFE_SO_FAR) ) ) {
- // this one is not tested yet or had problems. try it now.
-//log_it("testing unchecked locale.");
- is_recon_pending = TRUE;
- // if the destination is claiming it's untested, we fix that now untrue statement.
- if (last_verification == VERIFY_UNTESTED) {
- splice_destination_info(current_recon_index, "#" + (string)current_recon_index,
- llDumpList2String(full_journey, VECTOR_SEPARATOR), VERIFY_UNSAFE_SO_FAR);
- }
- if (DEBUGGING)
- log_it("rezzing jaunter for: name " + global_destination_name + " journ" + (string)full_journey);
- rez_a_jaunter(global_object_name,
- RECONNAISSANCE_TRICKY_PARM + private_chat_channel, RECONNAISSANCE_TRIP);
- } else {
- // this one doesn't need a recon.
- is_recon_pending = FALSE;
-//log_it("skipping recon for verif " + (string)last_verification);
- advance_reconnaissance_position();
- }
- } else if (actyo == AQ_CHECK_HARD_CASE) {
- // we got an answer to our request for a new hard locale to try.
- // remember the verification state locally.
- splice_just_verification(current_recon_index, last_verification);
-
- if ( (last_verification == VERIFY_UNTESTED) || (last_verification == VERIFY_UNSAFE_SO_FAR) ) {
- // this one is not tested yet or had problems. try it now.
- if (DEBUGGING)
- log_it("testing hard case locale at " + (string)current_recon_index
- + " name=" + global_destination_name);
- final_destination = (vector)llList2String(full_journey, -1);
- try_the_hard_cases();
- } else {
-//log_it("check hard case--already safe or decidedly unsafe, skipping.");
- if (last_verification == VERIFY_SAFE) {
- good_destinations_counted++;
- if (!is_prefix(global_destination_name, QUADRANT_TAG_NAME)) {
- ungenerated_good_destinations_counted++;
- }
- }
- advance_reconnaissance_position();
- }
- take_the_next_appropriate_action();
- } else if (actyo == AQ_ACQUIRE_BASE_PATH) {
- // a response with a hopefully good destination arrived; base a path on that.
- scramble_to_find_a_way(prechewed_destinations(llList2String(split, 0)));
- }
-}
-
-// looks at the location "look_here" and finds the ground height as the z component
-// of the returned vector (where x and y are copied from "look_here"). if the
-// "height_add_in" is non-zero, it is added to the z component to adjust the ground
-// height by an offset.
-vector adjust_to_ground(vector look_here, float height_add_in)
-{
- float height = llGround(look_here - llGetPos());
- look_here.z = height + height_add_in;
- return look_here;
-}
-
-// tries to come up with a random path that can reach a difficult place.
-scramble_to_find_a_way(list possible_helpful_path)
-{
- // we were told this was a good pathway, so let's try it.
- if (randomize_within_range(0.0, 1.0, FALSE) > 0.5) {
- // if we feel like it, add some huge random vectors in.
- integer indy;
- integer how_many = (integer)randomize_within_range(1, 5, FALSE);
-//magic constant above.
- vector rando = llGetPos(); // start with current place.
- for (indy = 0; indy < how_many; indy++) {
- // try to add a random completely other place in the sim.
- vector other_rando = adjust_to_ground(random_vector(0.0, 256.0, FALSE), 64);
- rando.z = other_rando.z;
- // by only changing one axis at a time for x and y, we kind of slide around.
- // this is considered more beneficial than just jumping randomly.
- if (randomize_within_range(0.0, 1.0, FALSE) > 0.5) {
- // this 50% modulates the x.
- rando.x = other_rando.x;
- } else {
- // this other 50% modulates the y.
- rando.y = other_rando.y;
- }
-//log_it("scramble: wacky rando: " + vector_chop(rando));
- possible_helpful_path += [ vector_chop(rando) ];
- }
- }
- if (randomize_within_range(0.0, 1.0, FALSE) > 0.2) {
- // maybe we also feel like adding a small amount to the final destination,
- // trying for a hook shot, most of the time.
-//log_it("scramble: addition relative to final destination.");
- vector rando = adjust_to_ground(final_destination + random_vector(0.0, 8.0, TRUE), 64);
-//magic constant above.
- possible_helpful_path += [ vector_chop(rando) ];
- }
- if ( (final_destination.z < 1000.0) && (randomize_within_range(0.0, 1.0, FALSE) > 0.05) ) {
-//hmmm: is this redundant now?
- // we very often add a vertical component so as to swoop down on the destination
- // and hopefully avoid ground fault conditions.
- possible_helpful_path += [ vector_chop(<final_destination.x, final_destination.y,
- final_destination.z + 64>) ];
-//magic constant above.
- }
- // now finally we add in the real place where we're going.
- possible_helpful_path += [ vector_chop(final_destination) ];
- // prepare our state for the new attempt.
- is_recon_pending = TRUE;
- snooze_counter = 0;
- full_journey = possible_helpful_path;
-//log_it("scramble: final guess=" + (string)full_journey);
- // rez for this nutty test path.
- rez_a_jaunter(global_object_name,
- RECONNAISSANCE_TRICKY_PARM + private_chat_channel, RECONNAISSANCE_TRIP);
-}
-
-// this function returns TRUE if we are close enough to the "destination".
-integer close_enough(vector destination)
-{
- float PROXIMITY_REQUIRED = 0.1;
- // how close we must be to the target location to call it done.
- // matches current jaunting library proximity.
- return (llVecDist(llGetPos(), destination) <= PROXIMITY_REQUIRED);
-}
-
-// records a verification state locally so we can make decisions during testing.
-splice_just_verification(integer index, integer verif_state)
-{
- if ( (index < 0) || (index >= destinations_total) ) return; // can't do it.
- global_verifications = chop_list(global_verifications, 0, index - 1)
- + [ verif_state ]
- + chop_list(global_verifications, index + 1, destinations_total - 1);
-}
-
-// replaces an existing entry at the "index" if known (otherwise this should be negative)
-// for the location named "dest_name" if known (otherwise should be a restatement of the
-// numerical index with '#' in front).
-splice_destination_info(integer index, string dest_name, string pathway, integer verif)
-{
-//log_it("splicedest: " + (string)index + " name=" + dest_name + " verif=" + (string)verif + " path=" + pathway);
- splice_just_verification(index, verif);
- string new_entry = wrap_item_list([pathway, verif]);
- llMessageLinked(LINK_THIS, DATA_COW_HUFFWARE_ID, ADD_ITEM_COMMAND,
- wrap_parameters([dest_name, new_entry]));
-}
-
-string verification_name(integer enumtype)
-{
- if (enumtype == VERIFY_SAFE) return "ok";
- else if (enumtype == VERIFY_UNSAFE_SO_FAR) return "uhh";
- else if (enumtype == VERIFY_UNSAFE_DECIDED) return "far";
- // catch-all, including untested.
- return "?";
-}
-
-// returns true if the slackness counter awaiting things has elapsed.
-integer check_for_child_timeout()
-{
- if (snooze_counter++ > MAXIMUM_SNOOZES) {
- // go back to the main state. we took too long.
-// log_it("timed out!");
- llUnSit(llAvatarOnSitTarget()); // don't hang onto the avatar for this error.
- return TRUE;
- }
- return FALSE;
-}
-
-//////////////
-
-// action queue for postponed activities. the first field held in a list item here
-// is an integer action code. the format of the remaining parameters is up to the
-// caller, and they can be used as the final parameters for when the queued action
-// gets handled.
-list action_queue;
-
-// looks at the action code at the head of the queue without removing the action.
-integer peek_action_code()
-{
- list fields = llParseString2List(llList2String(action_queue, 0), [HUFFWARE_PARM_SEPARATOR], []);
- return extract_action_code(fields);
-}
-
-// extracts the action code from a retrieved list.
-integer extract_action_code(list to_parse) { return llList2Integer(to_parse, 0); }
-
-// removes the current head of the action queue and returns it.
-list pop_action_record()
-{
- list top_action = llParseString2List(llList2String(action_queue, 0), [HUFFWARE_PARM_SEPARATOR], []);
- action_queue = llDeleteSubList(action_queue, 0, 0);
- return top_action;
-}
-
-// adds a new action to the end of the action queue.
-push_action_record(integer action, list added_parms)
-{
- snooze_counter = 0; // reset back for new action.
- action_queue += [ wrap_parameters([action] + added_parms) ];
-}
-
-//////////////
-
-// processes link messages received from support libraries.
-handle_link_message(integer which, integer num, string msg, string id)
-{
- // maybe it's a piece of data from the data cow.
- if (num == DATA_COW_HUFFWARE_ID + REPLY_DISTANCE) {
- // unpack the parameters we were given.
- list parms_x = llParseString2List(id, [HUFFWARE_PARM_SEPARATOR], []);
- answer_to_the_cow(msg, id, parms_x);
- return;
- }
-
- if (num != JAUNT_REZOLATOR_HUFFWARE_ID) return; // not interesting.
- if (DEBUGGING) log_it("linkmsg: msg " + msg + " id " + id);
- list parms = llParseString2List(id, [HUFFWARE_PARM_SEPARATOR], []);
- if (msg == REZ_CHILD_NOW) {
- serving_root = TRUE;
- snooze_counter = 0; // reset counter.
- if (llGetListLength(parms) < REZ_KID_FIELDS_NEEDED) {
-// log_it("insufficient parameters for rezzing child.");
- return;
- }
- rez_requested_child(llList2String(parms, 0), llList2Integer(parms, 1),
- llList2Integer(parms, 2), llList2String(parms, 3),
- llList2Integer(parms, 4), llList2String(parms, 5));
- } else if (msg == REPORT_CHILD_REZZED) {
- report_to_root();
- } else if (msg == RESET_REZOLATOR) {
- llResetScript();
- } else if (msg == REZOLATOR_CHILD_SUPPORT) {
- provide_child_support(llList2Integer(parms, 0));
- } else if (msg == REZOLATOR_CHILD_RETURNED) {
- if (conveyance_mode == RECONNAISSANCE_TRIP) {
- // unpack the success value from jaunter's check.
- integer succeeded_recon = llList2Integer(parms, 0);
- // report on our success.
- list report_loc = full_journey;
- if (!succeeded_recon) {
- // we did at least get to somewhere, even if not to target.
- report_loc = llParseString2List(llList2String(parms, 1),
- [VECTOR_SEPARATOR], []);
- }
- llWhisper(private_chat_channel, CHILD_CHAT_TEXT + RETURN_WORD
- + (string)succeeded_recon + DB_SEPARATOR
- + global_destination_name
- + DB_SEPARATOR
- + llDumpList2String(report_loc, VECTOR_SEPARATOR));
-//log_it("child reporting success=" + (string)succeeded_recon + " for " + global_destination_name + " via " + llDumpList2String(report_loc, VECTOR_SEPARATOR) );
- // shuffle off...
-//log_it("now dying at posn " + (string)llGetPos());
- llDie(); // oh crud, we're toast.
- } else {
- // one way trip??
- if (!succeeded_recon) log_it("too far away; path okay?");
- }
- }
-}
-
-// makes our click action change to the type requested, and sends the request
-// out to all our sub-prims also.
-set_click_action(integer action)
-{
- llSetClickAction(action);
- // secret message to other prims to change click action.
- llMessageLinked(LINK_SET, CHANGE_CLICK_ACTION_HUFFWARE_ID, "", (string)action);
-}
-
-// tries to find a known safe locale that's close to the target. if there are any
-// that are close, then we will not add this location. otherwise, we do add it,
-// if the list is not already too large.
-add_if_no_close_match(string pathway)
-{
- // make sure there's enough room to bother checking.
- if (llGetListLength(safe_locales_seen) >= MAXIMUM_SAFE_LOCATIONS) return;
- list dests = llParseString2List(pathway, [VECTOR_SEPARATOR], []);
- vector final_locn = (vector)llList2String(dests, -1);
- // set the z component to zero for this comparison, which is only about x,y position.
- // since we then add this trimmed vector, we don't need to worry about the z component
- // for the items already in the list.
- final_locn.z = 0;
- integer i;
- for (i = 0; i < llGetListLength(safe_locales_seen); i++) {
- vector curr = (vector)llList2String(safe_locales_seen, i);
- if (llVecDist(curr, final_locn) < MINIMUM_DISTANCE_FOR_EXTRAS) {
-//log_it("dest too close: dist = " + (string)llVecDist(curr, final_locn));
- return;
- }
- }
- if (DEBUGGING) log_it("dest far enough to add: " + pathway);
- // no known locale is close, so we'll add this one.
- safe_locales_seen += [ final_locn ];
- good_destinations_counted++;
- add_destination(QUADRANT_TAG_NAME + "pt#" + (string)(partial_path_count++),
- pathway, VERIFY_SAFE);
-}
-
-// process what we hear in open chat and on our special channels.
-// this function should always return FALSE unless it's been given enough info
-// to enter a new state, in which case it should return true.
-listen_to_voices(integer channel, string name, key id, string message)
-{
- // check to see if the text is right.
- if (DEBUGGING)
- log_it("heard: " + message + " from " + name);
- if (!is_prefix(message, CHILD_CHAT_TEXT)) return; // not right.
- message = llDeleteSubString(message, 0, llStringLength(CHILD_CHAT_TEXT) - 1);
- // maybe this is a startup request.
- if (is_prefix(message, READY_TEXT) && serving_root) {
- // yes, this is a request for a destination. we are going to fill the rezzed object
- // now, so figure out what type of jaunter needs info. formerly fill_rezzed_object.
- integer is_recon = (integer)llGetSubString(message, -1, -1);
- if (done_reconnoiter && is_recon) return; // we already did all that.
- if (is_recon) {
- // a recon jaunter needs its instructions.
- if (DEBUGGING)
- log_it("telling recon kid: name " + global_destination_name + " journ=" + (string)full_journey);
- is_recon_pending = TRUE;
- integer indy; // i told you N times.
- for (indy = 0; indy < MAX_CHAT_REPEAT; indy++) {
- llSay(private_chat_channel, CHILD_CHAT_TEXT
- + global_destination_name
- + DB_SEPARATOR
- + llDumpList2String(full_journey, VECTOR_SEPARATOR));
- // snooze to make sure we pause a little between mouthings.
- llSleep(SLEEPY_TIME);
- }
-
- snooze_counter = 0; // starting over.
- child_needs_setup = FALSE; // count off the one we just set up.
- } else {
- if (DEBUGGING)
- log_it("into code for one way jaunter");
- // simple one way jaunter needs fillin'.
- list added_parms = [];
- push_action_record(AQ_ONEWAY_JAUNTER_VOYAGE, added_parms);
- llMessageLinked(LINK_THIS, DATA_COW_HUFFWARE_ID, TAGGED_GET_ITEM_COMMAND,
- wrap_parameters([OUR_COW_TAG, global_destination_name]));
- }
- return;
- }
-
- if (DEBUGGING) log_it("into kid side of rezolator...");
-
- if (!serving_root) {
- if ( (conveyance_mode == RECONNAISSANCE_TRIP) || (conveyance_mode == ONE_WAY_TRIP) ) {
- if (heard_from_root) return; // we already did this bit.
- // this jaunter is destined for short-lived work, but now at least has a goal.
- // we just pass along the parameters that were told to us from the root jaunter.
- list parms = llParseString2List(message, [DB_SEPARATOR], []);
- global_destination_name = llList2String(parms, 0);
- full_journey = llParseString2List(llList2String(parms, 1), [VECTOR_SEPARATOR], []);
- final_destination = (vector)llList2String(full_journey, -1);
- parms += [ conveyance_mode ];
-
- if (conveyance_mode == ONE_WAY_TRIP) {
- // set the click action properly.
- if (outside_of_sim(final_destination)) set_click_action(CLICK_ACTION_TOUCH);
- else set_click_action(CLICK_ACTION_SIT);
- }
-
- if (DEBUGGING) log_it("kid heard go to: " + global_destination_name + " via " + (string)full_journey);
- llMessageLinked(LINK_THIS, JAUNT_REZOLATOR_HUFFWARE_ID + REPLY_DISTANCE,
- REZOLATOR_EVENT_GOT_INSTRUCTIONS, wrap_parameters(parms));
- // make sure we cancel the listening so we don't hear directions that aren't for us.
- llListenRemove(private_id_from_listen);
- heard_from_root = TRUE;
- return; // only leave for recon.
- }
- } else {
- // this jaunter's role should be a root jaunter, and we have a reply about a recon mission.
- is_recon_pending = FALSE; // we got an acceptable answer.
- list parms = llParseString2List(llDeleteSubString
- (message, 0, llStringLength(RETURN_WORD) - 1), [DB_SEPARATOR], []);
- integer success = llList2Integer(parms, 0);
- string dest_name = llList2String(parms, 1);
- string pathway = llList2String(parms, 2);
-//log_it("|||| recon reply: " + dest_name + " good=" + (string)success + " path=" + pathway);
- if (success) {
- // record this as a safe pathway.
- last_verification = VERIFY_SAFE;
- good_destinations_counted++;
- } else {
- // a failure is being reported. record this as a bad pathway.
- last_verification = VERIFY_UNSAFE_SO_FAR;
- // however, the jaunter should have told us where it did get to. record that whole
- // thing if it seems like a good distance from our other known good places.
- if (DEBUGGING) log_it("failed path did get to: " + pathway);
- add_if_no_close_match(pathway);
-
- }
- // only save this info if we're not working on recons.
- if (!trying_hard_cases || success) {
- // fix name for tough destination's real one.
- if (trying_hard_cases) {
- dest_name = "#" + (string)current_recon_index;
- }
- splice_destination_info(current_recon_index, dest_name,
- llDumpList2String(full_journey,
- ///llList2List(full_journey, 1, -1),
- VECTOR_SEPARATOR),
- last_verification);
- }
- take_the_next_appropriate_action();
- }
-}
-
-// processes a destination set to handle special cases, like for offset jaunting.
-list prechewed_destinations(string dests)
-{
-
-//hmmm: document this! as in, we support the offset format.
-
- // look for our special start character for offsets.
- if (is_prefix(dests, "o"))
- // if this is an offset version, then chop whatever word they used starting with 'o'
- // and compute the destination based on current position.
- return [ (vector)llDeleteSubString(dests, 0, find_substring(dests, "<") - 1) + llGetPos() ];
- else
- // normal jaunt to absolute coordinates.
- return llParseString2List(dests, [VECTOR_SEPARATOR], []);
-}
-
-// creates a jaunter object given which inventory item and the startup parm.
-rez_a_jaunter(string object_name, integer rez_parm, integer conveyance_mode)
-{
- // the minimum and maximum distances for placing the auto-rezzed jaunter object.
- integer MIN_REZ_DISTANCE = 1;
- integer MAX_REZ_DISTANCE = 3;
- vector RECON_ROTATION = <270.0, 0.0, 0.0>;
- // what angle we use when planting the recon jaunter.
- // this is tightly coupled to our particular object.
- vector point_at_jaunter;
- if (conveyance_mode == RECONNAISSANCE_TRIP) {
- // we just use our specified rotation.
- point_at_jaunter = RECON_ROTATION * DEG_TO_RAD;
- // start at where the jaunter will be when it tries the same path.
- global_rez_place = llGetPos();
- } else {
- // we randomize the location to avoid people having the objects
- // in a big pile on top of each other.
- global_rez_place = llGetPos()
- + <randomize_within_range(MIN_REZ_DISTANCE, MAX_REZ_DISTANCE, TRUE),
- randomize_within_range(MIN_REZ_DISTANCE, MAX_REZ_DISTANCE, TRUE),
- 0.4>; // pop it up a bit.
- // aim the temporary ride at the root jaunter.
- vector aim_back = llGetPos() - global_rez_place;
- float z_rot = llAtan2(aim_back.y, aim_back.x);
- // calculate the vector for rotation given the z rotation.
- point_at_jaunter = <0.0, 0.0, z_rot>;
- }
- llRezObject(object_name, global_rez_place,
- ZERO_VECTOR, llEuler2Rot(point_at_jaunter), rez_parm);
- if (conveyance_mode != RECONNAISSANCE_TRIP) {
- // this model only jaunts to where it gave out the object. that
- // should hopefully always work. but at least if it can't get back,
- // it's really close by.
- full_journey = [ vector_chop(llGetPos()), vector_chop(global_rez_place) ];
- }
- child_needs_setup = TRUE; // we aren't ready to go even if jaunt is done.
- snooze_counter = 0; // amnesty on the timer.
-}
-
-// finds a pathway that's already in our list and that we think is safe.
-integer load_random_safe_path()
-{
- integer indy;
- integer goodunz = good_destinations_counted;
-
- // now that we know how many are safe, we can pick a good destination.
- integer randola = llRound(randomize_within_range(0, goodunz - 1, FALSE));
- integer safe_indy = -1; // tracks which safe item we're at.
- for (indy = 0; indy < llGetListLength(global_verifications); indy++) {
- // scoot across the list to find the Nth safe one.
- if (llList2Integer(global_verifications, indy) == VERIFY_SAFE) {
- if (safe_indy == randola) {
-//log_it("like path at " + (string)safe_indy);
- // we're at the Nth safe item, so this is our random choice.
- list added_parms = [];
- push_action_record(AQ_ACQUIRE_BASE_PATH, added_parms);
- llMessageLinked(LINK_THIS, DATA_COW_HUFFWARE_ID, TAGGED_GET_ITEM_COMMAND,
- wrap_parameters([OUR_COW_TAG, "#" + (string)safe_indy]));
- return TRUE;
- }
- // increment to the next position, since we've seen this one.
- safe_indy++;
- }
- }
-//log_it("found no good path to use");
- return FALSE;
-}
-
-// processes the timer events during an ongoing rezzing process.
-handle_timer()
-{
- // this is the root's timer process, which is implemented in great detail
- // in the function below.
- if (serving_root) take_the_next_appropriate_action();
-}
-
-// file a report with the root jaunter that the child has been created and is
-// ready for service.
-report_to_root()
-{
- // tell the root jaunter know that we're ready to be packed for our trip.
- llSay(private_chat_channel, CHILD_CHAT_TEXT + READY_TEXT
- + (string)(conveyance_mode == RECONNAISSANCE_TRIP));
-}
-
-// plops a new destination on the end of the lists.
-add_destination(string name, string path, integer verif)
-{
-//log_it("adding " + name + " with path " + path + " and verif=" + (string)verif);
- global_verifications += [ verif ];
- // send our new information to the data cow. we store the information encoded as
- // two separated items, where the first element is the destination and the second
- // is the verification state.
- string new_entry = wrap_item_list([path, verif]);
- llMessageLinked(LINK_THIS, DATA_COW_HUFFWARE_ID, ADD_ITEM_COMMAND,
- wrap_parameters([name, new_entry]));
- destinations_total++; // we just added another destination.
-}
-
-//////////////
-// from hufflets...
-
-integer debug_num = 0;
-
-// a debugging output method. can be disabled entirely in one place.
-log_it(string to_say)
-{
- debug_num++;
- // tell this to the owner.
- llOwnerSay(llGetScriptName() + "[" + (string)debug_num + "] " + to_say);
- // say this on open chat, but use an unusual channel.
-// llSay(108, (string)debug_num + "- " + to_say);
-}
-
-// returns TRUE if the value in "to_check" specifies a legal x or y value in a sim.
-integer valid_sim_value(float to_check)
-{
- if (to_check < 0.0) return FALSE;
- if (to_check >= 257.0) return FALSE;
- return TRUE;
-}
-
-// returns TRUE if the "to_check" vector is a location outside of the current sim.
-integer outside_of_sim(vector to_check)
-{
- return !valid_sim_value(to_check.x) || !valid_sim_value(to_check.y);
-}
-
-// returns text for a floating point number, but includes only
-// two digits after the decimal point.
-string float_chop(float to_show)
-{
- integer mant = llAbs(llRound(to_show * 100.0) / 100);
- string neg_sign;
- if (to_show < 0.0) neg_sign = "-";
- string dec_s = (string)((llRound(to_show * 100.0) - mant * 100) / 100.0);
- dec_s = llGetSubString(llGetSubString(dec_s, find_substring(dec_s, ".") + 1, -1), 0, 2);
- // strip off all trailing zeros.
- while (llGetSubString(dec_s, -1, -1) == "0")
- dec_s = llDeleteSubString(dec_s, -1, -1);
- string to_return = neg_sign + (string)mant;
- if (llStringLength(dec_s)) to_return += "." + dec_s;
- return to_return;
-}
-
-// returns a prettier form for vector text, with chopped floats.
-string vector_chop(vector to_show)
-{
- return "<" + float_chop(to_show.x) + ","
- + float_chop(to_show.y) + ","
- + float_chop(to_show.z) + ">";
-}
-
-// joins a list of parameters using the parameter sentinel for the library.
-string wrap_parameters(list to_flatten)
-{ return llDumpList2String(to_flatten, HUFFWARE_PARM_SEPARATOR); }
-//
-// joins a list of sub-items using the item sentinel for the library.
-string wrap_item_list(list to_wrap)
-{ return llDumpList2String(to_wrap, HUFFWARE_ITEM_SEPARATOR); }
-
-// returns a number at most "maximum" and at least "minimum".
-// if "allow_negative" is TRUE, then the return may be positive or negative.
-float randomize_within_range(float minimum, float maximum, integer allow_negative)
-{
- if (minimum > maximum) {
- // flip the two if they are reversed.
- float temp = minimum; minimum = maximum; maximum = temp;
- }
- float to_return = minimum + llFrand(maximum - minimum);
- if (allow_negative) {
- if (llFrand(1.0) < 0.5) to_return *= -1.0;
- }
- return to_return;
-}
-
-// returns a random vector where x,y,z will be between "minimums" and "maximums"
-// x,y,z components. if "allow_negative" is true, then any component will
-// randomly be negative or positive.
-vector random_bound_vector(vector minimums, vector maximums, integer allow_negative)
-{
- return <randomize_within_range(minimums.x, maximums.x, allow_negative),
- randomize_within_range(minimums.y, maximums.y, allow_negative),
- randomize_within_range(minimums.z, maximums.z, allow_negative)>;
-}
-
-// returns a vector whose components are between minimum and maximum.
-// if allow_negative is true, then they can be either positive or negative.
-vector random_vector(float minimum, float maximum, integer allow_negative)
-{
- return random_bound_vector(<minimum, minimum, minimum>,
- <maximum, maximum, maximum>, allow_negative);
-}
-
-// returns the portion of the list between start and end, but only if they are
-// valid compared with the list length. an attempt to use negative start or
-// end values also returns a blank list.
-list chop_list(list to_chop, integer start, integer end)
-{
- integer last_len = llGetListLength(to_chop) - 1;
- if ( (start < 0) || (end < 0) || (start > last_len) || (end > last_len) ) return [];
- return llList2List(to_chop, start, end);
-}
-
-// returns the index of the first occurrence of "pattern" inside
-// the "full_string". if it is not found, then a negative number is returned.
-integer find_substring(string full_string, string pattern)
-{
- string full_lower = llToLower(full_string);
- return llSubStringIndex(full_lower, pattern);
-}
-
-// returns TRUE if the "prefix" string is the first part of "compare_with".
-integer is_prefix(string compare_with, string prefix)
-{ return find_substring(compare_with, prefix) == 0; }
-
-//////////////
-// huffware script: auto-retire, by fred huffhines, version 2.8.
-// distributed under BSD-like license.
-// !! keep in mind that this code must be *copied* into another
-// !! script that you wish to add auto-retirement capability to.
-// when a script has auto_retire in it, it can be dropped into an
-// object and the most recent version of the script will destroy
-// all older versions.
-//
-// the version numbers are embedded into the script names themselves.
-// the notation for versions uses a letter 'v', followed by two numbers
-// in the form "major.minor".
-// major and minor versions are implicitly considered as a floating point
-// number that increases with each newer version of the script. thus,
-// "hazmap v0.1" might be the first script in the "hazmap" script continuum,
-// and "hazmap v3.2" is a more recent version.
-//
-// example usage of the auto-retirement script:
-// default {
-// state_entry() {
-// auto_retire(); // make sure newest addition is only version of script.
-// }
-// }
-// this script is partly based on the self-upgrading scripts from markov brodsky
-// and jippen faddoul.
-//////////////
-auto_retire() {
- string self = llGetScriptName(); // the name of this script.
- list split = compute_basename_and_version(self);
- if (llGetListLength(split) != 2) return; // nothing to do for this script.
- string basename = llList2String(split, 0); // script name with no version attached.
- string version_string = llList2String(split, 1); // the version found.
- integer posn;
- // find any scripts that match the basename. they are variants of this script.
- for (posn = llGetInventoryNumber(INVENTORY_SCRIPT) - 1; posn >= 0; posn--) {
- string curr_script = llGetInventoryName(INVENTORY_SCRIPT, posn);
- if ( (curr_script != self) && (llSubStringIndex(curr_script, basename) == 0) ) {
- // found a basic match at least.
- list inv_split = compute_basename_and_version(curr_script);
- if (llGetListLength(inv_split) == 2) {
- // see if this script is more ancient.
- string inv_version_string = llList2String(inv_split, 1); // the version found.
- // must make sure that the retiring script is completely the identical basename;
- // just matching in the front doesn't make it a relative.
- if ( (llList2String(inv_split, 0) == basename)
- && ((float)inv_version_string < (float)version_string) ) {
- // remove script with same name from inventory that has inferior version.
- llRemoveInventory(curr_script);
- }
- }
- }
- }
-}
-//
-// separates the base script name and version number. used by auto_retire.
-list compute_basename_and_version(string to_chop_up)
-{
- // minimum script name is 2 characters plus a version.
- integer space_v_posn;
- // find the last useful space and 'v' combo.
- for (space_v_posn = llStringLength(to_chop_up) - 3;
- (space_v_posn >= 2) && (llGetSubString(to_chop_up, space_v_posn, space_v_posn + 1) != " v");
- space_v_posn--) {
- // look for space and v but do nothing else.
- }
- if (space_v_posn < 2) return []; // no space found.
- // now we zoom through the stuff after our beloved v character and find any evil
- // space characters, which are most likely from SL having found a duplicate item
- // name and not so helpfully renamed it for us.
- integer indy;
- for (indy = llStringLength(to_chop_up) - 1; indy > space_v_posn; indy--) {
- if (llGetSubString(to_chop_up, indy, indy) == " ") {
- // found one; zap it. since we're going backwards we don't need to
- // adjust the loop at all.
- to_chop_up = llDeleteSubString(to_chop_up, indy, indy);
- }
- }
- string full_suffix = llGetSubString(to_chop_up, space_v_posn, -1);
- // ditch the space character for our numerical check.
- string chop_suffix = llGetSubString(full_suffix, 1, llStringLength(full_suffix) - 1);
- // strip out a 'v' if there is one.
- if (llGetSubString(chop_suffix, 0, 0) == "v")
- chop_suffix = llGetSubString(chop_suffix, 1, llStringLength(chop_suffix) - 1);
- // if valid floating point number and greater than zero, that works for our version.
- string basename = to_chop_up; // script name with no version attached.
- if ((float)chop_suffix > 0.0) {
- // this is a big success right here.
- basename = llGetSubString(to_chop_up, 0, -llStringLength(full_suffix) - 1);
- return [ basename, chop_suffix ];
- }
- // seems like we found nothing useful.
- return [];
-}
-//
-//////////////
-
-// end hufflets.
-//////////////
-
-default
-{
- state_entry() { if (llSubStringIndex(llGetObjectName(), "huffotronic") < 0) state real_default; }
- on_rez(integer parm) { state rerun; }
-}
-state rerun { state_entry() { state default; } }
-
-state real_default
-{
- state_entry() { auto_retire(); initialize_rezolator(); }
-
- on_rez(integer startup) { llResetScript(); }
-
- state_exit() { llSetTimerEvent(0.0); }
-
- link_message(integer which, integer num, string msg, key id)
- { handle_link_message(which, num, msg, id); }
-
- listen(integer channel, string name, key id, string message)
- { listen_to_voices(channel, name, id, message); }
-
- timer() { handle_timer(); }
-}
-