uses . commands such as .k and .kb to do things such as kick, kickban, add access, invite, put on except, gag, and more. very simple

on *:KICK:#: if ( $nick == $me ) inc %kicks 1
}  
on *:INPUT:#: { if ( $1 == .k ) kick $chan $2 $3-  Kick count:  $+ %kicks  $+ 
  if ( $1 == .cb ) mode $chan +b ~c: $+ $2
  if ( $1 == .-cb ) mode $chan -b ~c: $+ $2
  { if ( $1 == .kb ) mode $chan +b $address($2,2)
    if ( $1 == .kb ) kick $chan $2 $3- Kick count: $+ %kicks $+ 
    if ( $1 == .gag ) mode $chan +b ~q: $+ $address($2,2)
    if ( $1 == .gag ) mode $chan -v $$2
    if ( $1 = .ungag ) mode $chan -b ~q: $+ $address($2,2)
    if ( $1 = .ungag ) mode $chan +v $$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 = .j ) join $$2
    if ( $1 = .av ) cs access $chan add $2 3
    if ( $1 = .kill ) cs access $chan add $2 -100
    if ( $1 = .ah ) cs access $chan add $2 4
    if ( $1 = .ao ) cs access $chan add $2 5
    if ( $1 = .aao ) cs access $chan add $2 10
    if ( $1 = .alist ) cs access $chan list
    if ( $1 = .e ) mode $chan +e $address($2,2)
  if ( $1 = .-e ) mode $chan -e $address($2,2)  }