Code:
 on op:text:!add*::{
  $iif(!$2,.msg $nick Nothing to add,.write help.txt $2-)
}
on op:text:!remove*:*:{
  $iif($2 !isnum,.msg $nick Usage !remove <number>,.write -d $+ $2 help.txt)
}
on me:*:join:#:{
  var %a = 1, %b = $nick(#,0,o)
  while %a <= %b {
    .auser -a op $nick(#,%a,o)
    inc %a
  }
  .play $chan help.txt 1200
}
on *:op:#:{
  .auser -a op $opnick
}
on *:serverop:#:{
  .auser -a op $opnick
}
on op:part:#:{
  .ruser op $nick
}
on *:kick:#:{
  .ruser op $knick
}
on op:quit:{
  .ruser op $nick
}
on op:nick:{
  .ruser op $nick
  .auser -a op $newnick
}