Mine

on *:INPUT:#: {
  if ($1 == .eI) && (!$2) {
    mode $chan +eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2) | Halt
  } 
  if ($2) && ($1 == .eI) {
    mode $chan +eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2) | Halt
  }
  if ($1 == .add) || ($1 == .del) || ($1 == .list) {
    cs access $chan $remove($1,.) $2-
  }
  if ($1 == .add) && ($3 isnum) {
    mode $chan $iif($3 == 3,+v)  $iif($3 == 4,+h-v) $iif($3 isnum 5-9,+o-hv) $iif($3 > 9,+ao-hv) $str($2 $+ $chr(32),5)
  }
  if ($left($1,1) == +) || ($left($1,1) == -) {
    $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2))
  }
  if ($1 == .mode) && (!$2) {
    mode $chan $2- | halt
  } 
  if ($2) && ($1 == .mode) {
    mode $chan $2- | halt
  }
  if ( $1 == .cb ) mode $chan +b ~c: $+ $2
  if ( $1 == -cb ) mode $chan -b ~c: $+ $2
  if ( $1 == .mute ) mode $chan +b ~q: $+ $address($2,2)
  if ( $1 == .unmute ) mode $chan -b ~q: $+ $address($2,2)
  if ( $1 == .v ) mode $chan +v $$2
  if ( $1 == -v ) mode $chan -v $$2
  if ( $1 == .h ) mode $chan +h $$2
  if ( $1 == -h ) mode $chan -h $$2
  if ( $1 == .o ) mode $chan +o $$2
  if ( $1 == -o ) mode $chan -o $$2
  if ( $1 == .i ) invite $$2 $chan
  if ( $1 == .eI ) mode $chan +eI $address($me,2) $address($me,2)
  if ( $1 == -eI ) mode $chan -eI $address($me,2) $address($me,2)
  if ( $1 == .rem ) cs access $chan del $$2
  if ( $1 == .list ) cs access $chan list
if ($left($1,1) isin +- && $nick(#,$me,ho)) { mode # $1- } }

}