37f
@verb #1921:"traincode" this none none rdo #8940
@program #1921:"traincode" this none none
while (#9108.docked == "false")
  curloc = #9108.location
  stops = #9108.stops
  count = length($string_utils:words($string_utils:english_list(#9108.stops)))
  x = 1
  rt_start = stops[2]
  player:tell(rt_start)
  while (curloc != stops[x])
    player:tell(stops[x], "/", curloc)
    x = x + 1
  endwhile
  player:tell("<font color=yellow>", stops[x], "/", curloc, "</font>")
  y = x + 1
  if (curloc == stops[count - 2])
    y = 1
  endif
  #9108:go_go(stops[y])
  this.location:announce_all("All aboard! " + this.name + " will be leaving in 1minute!")
  suspend(60)
  if (curloc != stops[1])
    player:tell("On route.")
  elseif (curloc == stops[1])
    #9108.docked = "true"
    player:tell("Train is at ", stops[2].name, " and is currently docked.")
  endif
endwhile
.

0