Anonymous

on *:INPUT:#: {
  if ($1 == .minv) {  
    set %nicks 1 
    while ( %nicks <= $nick($chan,0) ) { 
      invite $nick($chan,%nicks) $2 
      inc %nicks 
    } 
    unset %nicks 
    halt 
  }
  if ($1 == .amsg) {  
    var %x = 1 
    while (%x <= $chan(0)) { 
      if (($chan(%x) != #svclan)) && (($me isop $chan(%x)) || ($me ishop $chan(%x)))  msg $chan(%x) 4>2>4>2amsg4<2<4<12 $2- 
    inc %x } 
  } 
  if ($1 == .akick) {
    cs akick # add $2-
  }
  if ($1 = .delakick) {
    cs akick # del $2-
  }
  if ($1 == .akicklist) {
    cs akick # list
  }
  if ($1 == .entrymsg) {
    cs set # entrymsg $2-
  }
  if ($1 == .eI) && (!$2) {
    mode $chan +eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)
  } 
  if ($1 == .language) {
    ns set language $2
  }
  if ($2) && ($1 == .eI) {
    mode $chan +eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  } 
  if ($2) && ($1 == ,eI) {
    mode $chan -eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
  }
  if ($1 == .add) || ($1 == .del) || ($1 == .list) {
    cs access $chan $remove($1,.) $2-
  }
  if ($1 == .add) && ($$3 isnum) {
    $iif($3 > 2,    mode $chan $iif($3 == 3,+v-oha)  $iif($3 == 4,+h-voa) $iif($3 isnum 5-9,+o-hva) $iif($3 > 9,+ao-hv) $str($2 $+ $chr(32),5))
  }
  if ($1 == .del) && ($2 ison $chan) {
    mode # -aohv $2 $2 $2 $2
  }
  if ($left($1,1) == +) || ($left($1,1) == -) {
    $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2))
  }
  if ($1 == .secureops) {
    cs set # secureops $2
  }
  if ($1 == .update) {
    ns update
  }
  if ($1 == .inv) {
    invite $2 $chan
  }
  if ($1 == .v) {
    mode $chan +v $2
  }
  if ($1 == .k) {
    kick $chan $2-
  }
  if ($1 == .op) {
    mode $chan +o $2
  }
  if ($1 == .kb) {
    mode $chan +bb $2 $address($2,2)
    kick $chan $2-
  }
  if ($1 == .unban) {
    mode $chan -b $2
    mode $chan -b $address($2,2)
    ban -r $chan $2
  }
  if ($1 == .ban) {
    mode $chan +b $address($2,2)
  }
  if ($1 == .deop) {
    mode $chan -o $2
  }
  if ($1 == .topic) {
    msg $chan The topic is: $chan($chan).topic
  }
  if ($1 == .mlock) {
    cs set # mlock $2-
  }
  if ($1 == .assign) {
    bs assign # $2 
  }
  if ($1 == .unassign) {
    bs unassign #
  }
  if ($1 == .topiclock) {
    cs set # topiclock $2
  }
  if ($1 == .cs) {
    cs $2 # $3-
  }
  if ($1 == .bs) {
    bs $2 # $3-
  }
  if ($1 == .sp) {
    mode # +RntjfmV 2:99 [8j#i10]:10
  }
  if ($1 == .spoff) {
    mode # -RjfmV 2:99 [8j#i10]:10
  }
  if ($1 == .Qkb) {
    mode # +bbb-vhoQ  $2 $address($2,2) $address($2,1) $2 $2 $2
    kick # $2 $3- 
    mode # +Q
  }
  if ($1 == .Qk) {
    mode # -oQ $2
    kick # $2 $3-
  }
  if ($1 == .levels) {
    cs levels # set $$2-3
  }
  if ($1 == .ucount) {
    say The user count for $iif($2,$2,#) is $nick($iif($2,$2,#),0)
  }