2fe
@verb #2000:"bigbang" this none this rxdo #7951
@program #2000:"bigbang" this none this
data = {1000, 400, 250, 500, 30, 200, 1000}
"{sectors, starports, planets, twoway, oneway, players, ships};"
done = 0
table = {"a", "b", "c", "d", "e", "f", "g"}
while (!done)
  for x in (this.bigbang)
    player:tell($su:left(x, 33) + tostr(data[x in this.bigbang]))
  endfor
  player:tell({"", "(Z) Begin Universe Creation", ""})
  sel = $cmd_utils:read()
  if (sel == "z")
    this:explode(data)
    done = 1
  elseif (!(sel in table))
    player:tell("That's not an option.")
  else
    player:tell("Set it to what?")
    data[sel in table] = toint($cmd_utils:read())
  endif
endwhile
"Last modified by Dax (#789) on Tue May  3 14:09:33 2005 MDT."
.

0