@verb #3657:"bus_name" this none this rxdo #8219
@program #3657:"bus_name" this none this
if (!this.location:isa(#880) || !this.in_service)
  return "a bus (not in service)"
endif
xy = this.location:xy()
ex = this:extreme_x()
ey = this:extreme_y()
bus_number_offset = 0
if (args[1] == "street")
  "Headed north-south"
  bus_name = #1177:x_name(xy[1])
  bus_number_offset = xy[1] - ex[1] + 1
else
  bus_name = #1177:y_name(xy[2])
  "In keeping with tradition - at least, tradition in Vancouver - buses running"
  "along avenues will have higher numbers than buses riding along streets (case"
  "in point - 3 Main or 8 Fraser vs. 25 UBC or 100 Airport Station)"
  bus_number_offset = 10 * (xy[2] - ey[1] + 1)
endif
bus_number = bus_number_offset
bus_name = $string_utils:explode(bus_name, " ")[1]
return tostr(bus_number) + " " + bus_name
"Last modified by Avenger (#8219) on Sun Sep 29 14:32:27 2002 MDT."
.