@verb #850:"parse_map_file" this none this rxdo #55
@program #850:"parse_map_file" this none this
"Takes a the data section of a Diplomacy map file and sets the .loc property to a crossreferenced 'map' accordingly. The data file is read using $cmd_utils:ReaD_lines."
this:check_write_perms(caller_perms())
data = $cmd_utils:read_lines("data")
for x in (data)
  z = {"", 0, {}}
  q = $su:explode(x, " ")
  z[1] = $su:uppercase(q[1])
  z[2] = q[2][1] == "L" ? 0 | (q[2][1] == "W" ? 1 | 2)
  "This is where is gets interesting.."
  for y in (q[3..$])
    if (index($su.ascii, y[1], 1) < 65)
      z[3] = listappend(z[3], y)
    endif
  endfor
  this.loc = listappend(this.loc, z)
  $cmd_utils:suspend_if_needed()
endfor
"Last modified by Dax (#789) on Sat May 16 14:19:36 1998 EDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:06 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:06 2002 MDT."
.