Forums Scripts & Popups posting more than one link

on *:TEXT:*[mid]*[/mid]*:#: { 
  var %string = $remove($1-, $chr(32))
  var %codeStart = $pos(%string, [mid]) + 5
  var %codeLen = $pos(%string, [/mid]) - %codeStart
  var %code = $mid(%string, %codeStart, %codeLen)
  if ((%code isnum) && (%codeLen > 0)) {
    msg $chan https://www.pokemonlegends.com/monster?mid= $+ %code
  }
}

; Triggers if one or more occurrences of [mid]_number_[/mid] occur in the input
; and stores the 'captured' number of each occurrence in $regml()
on $*:TEXT:/\[mid\](\d+)\s*\[\/mid\]\s*/giS:#:{
  var %idx = 0
  var %end = $regml(0)
  var %links

  ; loop over each captured number
  while (%idx < %end) {
    inc %idx

    ; Append the link of the captured number to the list of links
    %links = %links https://www.pokemonlegends.com/monster?mid= $+ $regml(%idx)
  }

  ; Msg the channel with the list of links
  msg # %links
}