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
}
}