1fc
@verb #4457:"matchtheme" this none this rxdo #4457
@program #4457:"matchtheme" this none this
meh = {}
{theme} = args
for x in (this.gmodes)
  if (`x[1..length(theme)] == theme ! E_RANGE => 0')
    meh = {@meh, x}
  endif
endfor
if (length(meh) > 1)
  player:tell("More than one found: ", $su:english_list(meh))
  return #-1
elseif (length(meh) < 1)
  player:tell("None found.")
  return #-1
else
  return meh[1]
endif
"Last modified by Rubbie (#4457) on Tue Aug  8 15:18:07 2000 MDT."
.

0