alias htmltable {
dialog -md table table }
dialog table {
  title "table to html by firecape"
  size -1 -1 175 135
  option dbu
  edit "", 1, 15 10 150 100, multi
  text "Paste Here", 2, 61 1 50 9, center
  button "Done", 5, 24 113 125 12, ok
}
on *:dialog:table:sclick:5: {
  var %line 1
  write -c htmltable.txt
  while ($did(table,1,%line) != $null) {
    var %column 1
    write htmltable.txt <tr>
    while (%column < 7) {
      if (%column != 2) { write htmltable.txt <td> $+ $remove($gettok($did(table,1,%line),%column,47),$chr(32)) $+ </td> }
      else {
        var %pokemonamount $numtok($gettok($did(table,1,%line),2,47),32)
        var %currentpokemon 1
        var %a <td>
        while (%pokemonamount >= %currentpokemon) {
          var %a %a $+ $remove($remove(<a href="/bw/pokemon/ $+ $gettok($gettok($did(table,1,%line),2,47),%currentpokemon,32),$chr(42)) $+ ">,$chr(44)) $+ $remove($remove($gettok($gettok($did(table,1,%line),2,47),%currentpokemon,32),$chr(42)),$chr(44)) $+ </a>
        inc %currentpokemon }
        var %a $replace(%a,</a><a href,</a> $+ $chr(44) <a href)
        var %a %a $+ </td>
        write htmltable.txt %a
      }
    inc %column }
    write htmltable.txt </tr>
  inc %line }
  run htmltable.txt
}