This is a easy inputs remotes, that will work with X on undernet, i just didn't put the login one
because its not 100% safe.

imagine if you typed /remote off and you type xlogin user pass

you would spam it in the channel.

and there is a regex for channel modes,
examples

+m
+i
+s
-m
-i
-s

Enjoy..!!

on 1:input:#:{
  if ($regex($1,/^[+-][bklimnpstrDLdRcOAQKVCuzNSMTG]$/)) { mode $chan $1- | HALT }
  if ($1 == xa) { msg x access $chan = $+ $2- | HALT }
  if ($1 == xvoice) { msg x voice $active $2- | HALT }
  if ($1 == xdevoice) { msg x devoice $active $2- | HALT }
  if ($1 == op) { mode $chan +o $2- | HALT }  
  if ($1 == deop) { mode $chan -o $2- | HALT }  
  if ($1 == voice) { mode $chan +v $2- | HALT }
  if ($1 == devoice) { mode $chan -v $2- | HALT }
  if ($1 == xop) { msg x op $active $2- | HALT }
  if ($1 == xdeop) { msg x deop $active $2- | HALT }
  if ($1 == xkick) { msg x kick $active $2- | HALT }
  if ($1 == xban) { msg x ban $active $2- | HALT }
  if ($1 == xunban) { msg x unban $active $2- | HALT }
  if ($1 == xadd) { msg x adduser # = $+ $2- | HALT }
  if ($1 == xrem) { msg x remuser # = $+ $2- | HALT } 
  if ($1 == xpart) { msg x part $active $2- | HALT }
  if ($1 == xstat) { msg x status $active | HALT }
  if ($1 == xjoin) { msg x join $active $2- | HALT }
  if ($1 == xreg) { msg x register $active $2 | HALT }  
  if ($1 == xn) { msg x set $active noop $2- | HALT }
  if ($1 == xs) { msg x set $active strictop $2- | HALT }
  if ($1 == xt) { msg x topic $active $2-40 | HALT }
  if ($1 == xm) { msg x modinfo $active access = $+ $2- | HALT }
  if ($1 == xmop) { msg x modinfo $active automode = $+ $2 op - | HALT }
  if ($1 == xmv) { msg x modinfo $active automode = $+ $2 voice - | HALT }
  if ($1 == xmn) { msg x modinfo $active automode = $+ $2 none - | HALT }
  if ($1 == xmod) { msg x access $chan = $+ $2 -modif -| HALT }
  if ($1 == xsus) { msg x suspend $active = $+ $2- | HALT }
  if ($1 == xusus) { msg x unsuspend $active = $+ $2 - | HALT }
  if ($1 == xinfo) { msg x info = $+ $2- | HALT }
  if ($1 == xjoin) { join # $2- | HALT }
  if ($1 == xverify) { msg x verify $2- | HALT }
  if ($1 == xpart) { part $active- | HALT }
  if ($1 == xbanlist) { msg x lbanlist # $2- | HALT }
}