why the redundancy in the on text regexs?

on $*:text:/^[!@`~](help register|help identify|help bank|help withdraw|help deposit|help slots)/Si:#: {

you could have done

on $*:text:/^[!@`~]help\s(register|identify|bank|withdraw|deposit|slots)\b/Si:#:{

then instead of using

if ($regml(1) == help register)

you can use

if ($regml(1) = register)