--- /dev/null
+
+// huffware script: child jaunter, by fred huffhines, released under GPL license.
+//
+// this is the sub-jaunter implementation, for children of a root jaunter. this script
+// handles reconnaissance and one-way trips.
+//
+// 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.
+//
+
+//////////////
+
+// configurable constants...
+
+string TEXT_COLOR = "<0.5, 0.7, 0.95>";
+ // set float text color to a nice color.
+
+integer DEBUGGING = FALSE;
+ // set to true to get debugging noises.
+
+// requires jaunting library API.
+//////////////
+// do not redefine these constants.
+integer JAUNT_HUFFWARE_ID = 10008;
+ // 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 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 via the jaunting library:
+string FULL_STOP_COMMAND = "#fullstop#";
+ // command used to bring object to a halt.
+string JAUNT_LIST_COMMAND = "#jauntlist#";
+ // like regular jaunt, but expects a string in jaunt notecard format with vectors.
+ // the second parameter, if any, should be 1 for forwards traversal and 0 for backwards.
+//
+//////////////
+
+// 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.
+//////////////
+// 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.
+string REZOLATOR_CHILD_SUPPORT = "#rzsup";
+ // used by child jaunters to request that the rezolator handle things for them.
+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.
+//
+//////////////
+
+// important constants used internally... these should not be changed willy nilly.
+
+////////////// 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;
+
+// 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 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 jaunt base API
+
+integer MAX_DEST_NAME = 24; // the longest name that we store.
+
+float NORMAL_TIMER_PERIOD = 1.0; // our normal timer rate.
+
+float POSITION_CHECKING_INTERVAL = 0.11;
+ // how frequently the waiting for arrival state will check where we are.
+
+integer MAXIMUM_SLACKNESS = 108;
+ // how many timer hits we'll allow before reverting to the default state.
+
+integer FREE_MEM_REQUIRED = 3200;
+ // we need at least this much memory before adding new targets.
+
+//////////////
+
+// global variables.
+
+integer startup_parm; // recorded at rez time. used for deciding what to do.
+
+integer conveyance_mode; // when we are given our instructions, we will know what type of jump to use.
+
+// jaunter target configuration...
+string global_name; // the name for our destination.
+integer global_verification_state; // the verification state of the last destination we asked for.
+string global_pathway; // similar, but the last pathway we heard.
+
+// jaunt trip variables...
+vector eventual_destination; // where we're headed, if we're headed anywhere.
+integer slackness_counter; // snoozes had while waiting for destination.
+list full_journey; // the full pathway we expect to jaunt on.
+integer jaunt_responses_awaited; // number of pending jumps in progress.
+integer got_close_enough; // did we arrive at right place?
+vector last_safe_position; // where did we actually reach?
+
+// asks the jaunting library to take us to the target using a list of waypoints.
+request_jaunt(list journey, integer forwards)
+{
+ // ask for a jump.
+ jaunt_responses_awaited++;
+ llMessageLinked(LINK_THIS, JAUNT_HUFFWARE_ID, JAUNT_LIST_COMMAND,
+ wrap_item_list(journey) + HUFFWARE_PARM_SEPARATOR + (string)forwards);
+ // stops the jaunter in its tracks.
+ llMessageLinked(LINK_THIS, JAUNT_HUFFWARE_ID, FULL_STOP_COMMAND, "");
+}
+
+// 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);
+}
+
+// sets up the initial state.
+initialize_child()
+{
+ llSetTimerEvent(0.0); // cancel any existing timers.
+ // load up an arrival sound if any exist.
+ if (llGetInventoryNumber(INVENTORY_SOUND))
+ llPreloadSound(llGetInventoryName(INVENTORY_SOUND, 0));
+ if (DEBUGGING) log_it("child init startparm=" + (string)startup_parm);
+
+//voodoo.
+ llSleep(0.5);
+
+ if (startup_parm != 0) {
+ // tell the rezolator to start listening for commands.
+ llMessageLinked(LINK_THIS, JAUNT_REZOLATOR_HUFFWARE_ID, REZOLATOR_CHILD_SUPPORT,
+ wrap_parameters([startup_parm]));
+ // let our parent know we're here.
+ llMessageLinked(LINK_THIS, JAUNT_REZOLATOR_HUFFWARE_ID, REPORT_CHILD_REZZED, "");
+ }
+ // set up some of the object properties...
+ llSetSitText("Jaunt"); // change to the proper text for our mode.
+}
+
+// shows our next target for jaunting above the object.
+text_label_for_destination()
+{
+ string msg = "↣ " + global_name;
+ llSetText(msg, (vector)TEXT_COLOR, 1.0);
+}
+
+// signal that we are where we were going.
+proclaim_arrival()
+{
+ if (conveyance_mode == ONE_WAY_TRIP) {
+ // sing a little song, if there's a sound to use.
+ if (llGetInventoryNumber(INVENTORY_SOUND))
+ llTriggerSound(llGetInventoryName(INVENTORY_SOUND, 0), 1.0);
+ }
+}
+
+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_timeout()
+{
+ if (slackness_counter++ > MAXIMUM_SLACKNESS) {
+ // 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.
+ llSetTimerEvent(0.0);
+ return TRUE;
+ }
+ return FALSE;
+}
+
+//////////////
+
+// returns the value of a boolean variable definition.
+integer parse_bool_def(string def)
+{ return !(llGetSubString(def, find_substring(def, "=") + 1, -1) == "0"); }
+
+// processes link messages received from support libraries.
+integer handle_link_message(integer which, integer num, string msg, string id)
+{
+ // is it a jaunting library response?
+ if (num == JAUNT_HUFFWARE_ID + REPLY_DISTANCE) {
+ jaunt_responses_awaited--; // one less response being awaited.
+ if (jaunt_responses_awaited < 0) {
+ log_it("error: responses awaited < 0");
+ jaunt_responses_awaited = 0;
+ }
+ return FALSE;
+ }
+
+ // is it an event from the rezolator script?
+ if (num == JAUNT_REZOLATOR_HUFFWARE_ID + REPLY_DISTANCE) {
+ list parms = llParseString2List(id, [HUFFWARE_PARM_SEPARATOR], []);
+ if (msg == REZOLATOR_EVENT_GOT_INSTRUCTIONS) {
+ global_name = llList2String(parms, 0);
+ full_journey = [ llGetPos() ] + llParseString2List(llList2String(parms, 1), [VECTOR_SEPARATOR], []);
+ eventual_destination = (vector)llList2String(full_journey, llGetListLength(full_journey) - 1);
+ conveyance_mode = llList2Integer(parms, 2);
+ if (DEBUGGING)
+ log_it("got instructions: name=" + global_name + " dest=" + (string)eventual_destination);
+ text_label_for_destination();
+ if (conveyance_mode == RECONNAISSANCE_TRIP) {
+ return TRUE;
+ }
+ }
+ return FALSE;
+ }
+
+ return FALSE;
+}
+
+// processes a destination set to handle special cases, like for offset jaunting.
+list prechewed_destinations(string dests)
+{
+
+//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], []);
+}
+
+//////////////
+// 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 [];
+}
+//
+//////////////
+
+//////////////
+
+// default state scrounges for information in a notecard and looks for landmarks in
+// inventory to add as destinations.
+default
+{
+ state_entry() { if (llSubStringIndex(llGetObjectName(), "huffotronic") < 0) state real_default; }
+ on_rez(integer parm) {
+ startup_parm = parm;
+ if (DEBUGGING) log_it("default onrez " + (string)startup_parm);
+ state rerun;
+ }
+}
+state rerun { state_entry() { state default; } }
+
+state real_default
+{
+ state_entry() {
+ auto_retire();
+ if (DEBUGGING) log_it("=> real_default state, mem=" + (string)llGetFreeMemory());
+ initialize_child();
+ state normal_runtime;
+ }
+
+ on_rez(integer parm) {
+ startup_parm = parm;
+ if (DEBUGGING) log_it("default onrez " + (string)startup_parm);
+ state default;
+ }
+}
+
+// the normal state is pretty calm; the jaunter just sits there waiting for
+// an avatar who needs it to do something.
+state normal_runtime
+{
+ state_entry() {
+ if (DEBUGGING) log_it("=> normal state, mem=" + (string)llGetFreeMemory());
+ jaunt_responses_awaited = 0; // nothing pending right now.
+ got_close_enough = FALSE; // have not even tried going there yet.
+ }
+
+ on_rez(integer parm) {
+ startup_parm = parm;
+ if (DEBUGGING) log_it("default onrez " + (string)startup_parm);
+ state default;
+ }
+
+ touch_end(integer total_number) {
+ // if we got to here, we may need to check the safety of the target and show the
+ // map if the conditions are right.
+ if (outside_of_sim(eventual_destination)) {
+ // bring up the map; maybe we can't get there from here. definitely out of sim.
+ llMapDestination(llGetRegionName(), eventual_destination, ZERO_VECTOR);
+ proclaim_arrival();
+ }
+ }
+
+ changed(integer change) {
+ if (!(change & CHANGED_LINK)) return; // don't care then.
+//no, bad, ack. if the jaunter has multiple parts and they sit on non-root prim, this breaks our ability to react to sit events properly. if (llAvatarOnSitTarget() == NULL_KEY) return; // there is no one sitting now.
+ if (outside_of_sim(eventual_destination)) {
+ llWhisper(0, "This type of jaunter needs to be clicked rather than sat upon. Please left-click it (or right-click it and select 'touch').");
+ llUnSit(llAvatarOnSitTarget());
+ return;
+ }
+ state jaunting_now; // sweet, we're off.
+ }
+
+ // process the response from the APIs we use.
+ link_message(integer which, integer num, string msg, key id) {
+ if (handle_link_message(which, num, msg, id)) state jaunting_now;
+ }
+
+}
+
+// once someone is trying to jump to a target, this state processes the request.
+state jaunting_now
+{
+ state_entry() {
+ if (DEBUGGING) log_it("=> jauntnow state, posn=" + vector_chop(llGetPos()));
+ slackness_counter = 0;
+ // most jaunters go to at least the first location...
+ request_jaunt(full_journey, TRUE);
+ eventual_destination = (vector)llList2String(full_journey, llGetListLength(full_journey) - 1);
+ llSetTimerEvent(POSITION_CHECKING_INTERVAL);
+ }
+
+ on_rez(integer parm)
+ {
+ startup_parm = parm;
+ if (DEBUGGING) log_it("default onrez " + (string)startup_parm);
+ state default;
+ }
+
+ timer() {
+ if (jaunt_responses_awaited) {
+ // we are not quite there yet.
+ if (check_for_timeout()) state normal_runtime; // oops.
+ return; // not time yet.
+ }
+ // we got to where we were going, maybe. unseat the avatar, leaving her
+ // at the destination.
+ llUnSit(llAvatarOnSitTarget());
+ state arrived_at_target;
+ }
+
+ // process the response from the jaunting library.
+ link_message(integer which, integer num, string msg, key id)
+ { handle_link_message(which, num, msg, id); }
+}
+
+// this state is activated when the first jaunt is complete.
+state arrived_at_target
+{
+ state_entry() {
+ if (DEBUGGING) log_it("=> arriv targ state, posn=" + vector_chop(llGetPos()));
+ // we are close enough; get back to work.
+ jaunt_responses_awaited = 0; // nothing pending right now.
+ if (conveyance_mode != RECONNAISSANCE_TRIP) {
+ llWhisper(0, "↣ " + global_name);
+ } else {
+ if (DEBUGGING) {
+ string close = "yep";
+ if (!close_enough(eventual_destination)) close = "nope";
+ log_it("close enough here? " + close + ", want to get to "
+ + (string)eventual_destination);
+ }
+ got_close_enough = close_enough(eventual_destination);
+ last_safe_position = llGetPos();
+ }
+
+ // we've gotten where we were going.
+ proclaim_arrival();
+
+//hmmm: nice mod to make the one way trip actually flip its target list and allow a return.
+
+ // reverse direction and head back without rider.
+ eventual_destination = (vector)llList2String(full_journey, 0);
+ request_jaunt(full_journey, FALSE);
+ llSetTimerEvent(POSITION_CHECKING_INTERVAL);
+ slackness_counter = 0;
+ if (DEBUGGING) log_it("now trying to jaunt home, responses awaited=" + (string)jaunt_responses_awaited);
+ }
+
+ on_rez(integer parm) {
+ startup_parm = parm;
+ if (DEBUGGING) log_it("default onrez " + (string)startup_parm);
+ state default;
+ }
+
+ timer() {
+ if (jaunt_responses_awaited) {
+ // we are not quite there yet.
+ if (check_for_timeout()) state normal_runtime; // oops.
+ return; // not time yet.
+ }
+ if (DEBUGGING) log_it("==> telling parent we got back, now at posn: " + (string)llGetPos());
+ llMessageLinked(LINK_THIS, JAUNT_REZOLATOR_HUFFWARE_ID, REZOLATOR_CHILD_RETURNED,
+ wrap_parameters([got_close_enough,
+ llDumpList2String(llDeleteSubList(full_journey, 0, 0) + [ last_safe_position ],
+ VECTOR_SEPARATOR)]));
+ state normal_runtime;
+ }
+
+ // process the response from the jaunting library.
+ link_message(integer which, integer num, string msg, key id)
+ { handle_link_message(which, num, msg, id); }
+}