alias -l nohtml return $regsubex($1,/<[^>]+(?:>|$)|^[^<>]+>/g,)
alias GetMovesForMani {
  set %extras 0
  sockopen Moves bulbapedia.bulbagarden.net 80
}
on *:SOCKOPEN:Moves:{
  sockwrite -nt Moves GET /wiki/List_of_Moves HTTP/1.0
  sockwrite -nt Moves Host: bulbapedia.bulbagarden.net
  sockwrite -nt Moves $crlf
}
on *:SOCKREAD:Moves:{
  var %text
  sockread %text
  $iif(%text,echo 1 %text,)
  if ( *<a href="/wiki/*_(move)" title="* (move)">*</a>* iswm %text ) {
    set %move $nohtml(%text)
  }
  elseif ( *<a href="/wiki/*_(type)" title="* (type)"><span style="*">*</span></a>* iswm %text ) {
    set %move %move $nohtml(%text)
  }
  elseif ( *<a href="/wiki/*_move" title="* move"><span style="*">*</span></a>* iswm %text ) {
    set %move %move $nohtml(%text)
  }
  elseif ( </td><td> * iswm %text ) {
    set %move %move $remove($nohtml(%text),$chr(37))
    inc %extras 1
    if ( %extras == 3 ) {
      set %extras 0
      write C:\Users\Stephen\Desktop\Moves.txt %move
      unset %move
    }
  }
}
on *:SOCKCLOSE:Moves:{
  unset %extras
  unset %move
}