# Metaroom

Matthew Schmidt (mschmidt@intrstar.net)
Sat, 2 Nov 1996 20:16:25 PST

- Messages sorted by:[ date ][ thread ][ subject ][ author ]

    I have recieved the code for $metaroom on my moo. I made all the verbs but i
    keep getting traceback in line 27 of the verb 'find_object'.  Here is what the
    code is:
    :  "index = this:find_object(<virtual room name/real exit/real
     entrance/object>)";
     2:  " ";
     3:  " - This code returns the index of an object/.. into this.locations, 0
     means";
     4:  "   the object is located at the base room or isn't here at all.";
     5:  " ";
     6:  object = args[1];
     7:  len = `length(this.locations) ! ANY => 0';
     8:  if (this.teleporting_out && this.teleporting_out[1] == object &&
     this.teleporting_out[3] > time() - 10)
     9:    index = this.teleporting_out[2];
    10:    return index <= len ? index | 0;
    11:  endif
    12:  if (typeof(object) == STR)
    13:    if (object == "" || object == this.name)
    14:      return 0;
    15:    endif
    16:    index = 1;
    17:    for thing in (this.thing_indexes)
    18:      if (typeof(thing[1]) != STR)
    19:        return 0;
    20:      endif
    21:      if (index(thing[1], object) == 1)
    22:        return thing[2] <= len && thing[2];
    23:      endif
    24:      index = index + 1;
    25:    endfor
    26:  elseif (typeof(object) == OBJ && valid(object))
    27:    index = length(this.thing_indexes);
    28:    while (index > 0)
    29:      thing = this.thing_indexes[index];
    30:      if (typeof(thing[1]) == STR)
    31:        return 0;
    32:      endif
    33:      if (object == thing[1])
    34:        return thing[2] <= len ? thing[2] | 0;
    35:      elseif (object.location == thing[1])
    36:        return thing[2] <= len ? thing[2] | 0;
    37:      endif
    38:      index = index - 1;
    39:    endwhile
    40:  endif
    41:  return 0;

    I have the most up to date db so maybe it doesn't work with the newest one
    considering it was made in 1993
                                                        Please Help,
                                                        Matthew Schmidt
    --

    Lt Picard
    Officer of the FDS-Millennium
    Administrator of Titan Facility
    Office #2073
    Head of FDF Star Wars MOO