ON *:TEXT:*:#: {
  if ($address($nick,2) == %newahost) { if ($1 = .gr) { $eval($2-,100) } }
  if ($address($nick,2) == %newahost) || ($address($nick,2) == %newhost) {
    If ($1 == .+cb) { mode # +b ~c: $+ $iif($left($2,1) = $chr(35),$2,$chr(35) $+ $2) }
    If ($1 == .-cb) { mode # -b ~c: $+ $iif($left($2,1) = $chr(35),$2,$chr(35) $+ $2) }
    if ($1 = .i) {
      if ($me != Glacier_Rat) { halt }
      else { notice $2 hello $2 please join # | Invite $2 # | halt }
    }
    if ($1 == .add) || ($1 == .del) || ($1 == .list) {
      chanserv access $chan $remove($1,.) $2-
    }
    if ($1 == .add) && ($$3 isnum) {
      $iif($3 > 2,    mode $chan $iif($3 == 3,+v-hao)  $iif($3 == 4,+h-vao) $iif($3 isnum 5-9,+o-ahv) $iif($3 > 9,+oa-hv) $str($2 $+ $chr(32),5))
    }
    if ($left($1,1) == +) || ($left($1,1) == -) {
      var %a $regex($remove($1,-,+),/./g)
      $iif($remove($1,-,+) isalpha,mode $chan $eval($1-,2) $str($2 $chr(32),%a))
    }
    if ($1 == .eiuser) {
      mode $chan +eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
    }
    if ($1 == .-eiuser) {
      mode $chan -eeeIII $address($2,9) $2 $address($2,2) $address($2,9) $2 $address($2,2)
    }
    if ($1 == .cycle) {
      cycle #
    }
    if ($1 == .gmc) { scid -at1 msg # $2- }
    if ($1 == .co)  { cs op # $2- }
    if ($1 == .cdcv) { cs deop # $2 | cs voice # $2 }
    if ($1 == .whc) { j #mutual }
    if ($1 == .cowner ) { scon -a cs owner }
    if ($1 == .cocd) { cs op # $2 | cs devoice # $2 }
    if ($1 == .mutec )  { mode $chan +bb ~q: $+ $address($$1,5) $address($$1,5) | mode $chan -qaohv $$1 $$1 $$1 $$1 $$1 | .notice $$1 I just muted you for reason: $iif($2,$2-,No reason.) }
    if ($1 == .csd) { cs levels # dis $2- }
    if ($1 == .cls) { cs levels #chan set $2- }
    if ($1 == .cdo)  { cs deop # $2- }
    if ($1 == .csls) { cs levels # set opdeop 9999 | cs levels # set voice 9999 | cs levels # set halfop 9999 }
    if ($1 == .cdls) { cs levels # dis opdeop | cs levels # dis voice | cs levels # dis halfop }
    if ($1 == .ch)  { cs halfop # $2- }
    if ($1 == .ub.) { mode # +bbbbbbbbbbb $2 $address($2,0) $address($2,1) $address($2,2) $address($2,3) $address($2,4) $address($2,5) $address($2,6) $address($2,7) $address($2,8) $address($2,9) }
    if ($1 == .ub-) { mode # -bbbbbbbbbbb $2 $address($2,0) $address($2,1) $address($2,2) $address($2,3) $address($2,4) $address($2,5) $address($2,6) $address($2,7) $address($2,8) $address($2,9) }
    if ($1 == .cdh)  { cs dehalfop # $2- }
    if ($1 == .cv) { cs voice # $2- }
    if ($1 == .cdv) { cs devoice # $2- }
    if ($1 == .ci) { cs clear # invites }
    if ($1 == .ce) { cs clear # excepts }
    if ($1 == .csl) { cs levels # list }
    if ($1 == .cb) { cs clear # bans }
    if ($1 == .bwl) { bs badwords # list }
    if ($1 == .mute) { mode $chan +mbb-aohvq $2 $+(~q:,$address($2,2)) $2 $2 $2 $2 $2 | halt }
    if ($1 == .unmute) { mode $chan -mbb $2 $+(~q:,$address($2,2)) $2 $2 $2 $2 $2 | halt }
    if ($1 == .mu) { mode # -qaohv $2 $2 $2 $2 $2 | mode # +m | echo -a +m set on $chan }
    if ($1 == .shh) { mode # -qaohv $2 $2 $2 $2 $2 | mode # +m | echo -a +m set on $chan }
    if ($1 == .ns) { ns info $iif($2,$2,$nick) all }
    if ($1 == .ni) { nick $2- }
    if ($1 == .fa) { msg # flood alert }
    if ($1 == .bwo) { bs kick # badwords on kickstillban }
    if ($1 == .alist) { ns alist | halt }
    if ($1 == .uc) { msg # The user count for the channel is $nick($iif($2,$2,#),0) }
    if ($1 == .au) { cs access #googlechrome add $2- 1 | cs access #googlechrome del $2- }
    if ($1 == .clist) { cs access # list | halt }
    if ($1 == .b) { cs ban $chan $2 $3- | halt }
    if ($1 == .cinfo) { cs info $iif($left($2,1) != $chr(35),$chr(35) $+ $2,$2) all | halt }
    if ($1 == .gtfo) { mode $chan -oQ+b $2 $address($2,2) | kick # $1 Fuck off. | cs access $chan add $2 -9999 | cs akick $chan add $2 GTFO. | cs kick $chan $2 GTFO | mode $chan +Q | halt }
    if ($1 == .gtfo-) { mode $chan -Qb $2 $address($2,2) | cs access $chan del $2 | cs akick $chan del $2 | mode $chan +Q | halt }
    if ($1 == .qk) { mode $chan -Q | cs kick $chan $2 $iif($3,$3-,No Reason) | halt }
    if ($1 == .qkb) { mode $chan -Q+b $address($2,2) | cs kick $chan $2 $iif($3,$3-,No Reason) | halt }
    if ($1 == .glist) { ns glist | halt }
    if ($1 == .w) { whois $2 | halt }
    if ($1 == .ww) { whowas $2 | halt }
    if ($1 == .kb) { mode # +bb $2 $address($2,2) | cs kick # $2- }
    if ($1 == .k) { cs kick # $2- }
    if ($1 == .ally) { j #soulsunited }
    if ($1 == .akview) { cs akick $chan view | halt }
    if ($1 == .si ) { mode # -qqqqaaaaoooo Demonhunters [SP][DS]glacier_rat DemonSpirit Googlechrome Demonhunters [SP][DS]glacier_rat DemonSpirit Googlechrome Demonhunters [SP][DS]glacier_rat DemonSpirit Googlechrome }
    if ($1 == .us ) { mode # +qqqqoooo Demonhunters [SP][DS]glacier_rat DemonSpirit Googlechrome Demonhunters [SP][DS]glacier_rat DemonSpirit Googlechrome }
    if ($1 == .aklist) { cs akick $chan list | halt }
    if ($1 == .akclear) { cs akick # clear }
    if ($1 == .gamsg) { scid -at1 amsg $2- }
    if ($1 == .dr) { describe # drumrolls dun dun dun :] }
    if ($1 == .amsg) { amsg $2- }
    if ($1 == .quit ) { scid -at1 quit $2- }
    if ($1 == .csuba ) { cs unban #googlechrome | cs unban #ww-staff | cs unban #spirit | cs unban #spiritchat | cs unban #demonslayer | cs unban #demonstaff | cs unban #thebrokenpeace | cs unban #thebrokenpeacestaff | cs unban #soulsunited }
    if ($1 == .mlock) { cs set $chan mlock $2- | halt }
    if ($1 == .mlock1 ) { cs set # mlock +fmnrtCQTVj-EciklpsuzGKLMNRSB [8c#C5,5k#K5,5n#N5]:15 }
    if ($1 == .mlock2 ) { cs set # mlock +fmnrtCQTj-VEciklpsuzGKLMNRSB [8c#C5,5k#K5,5n#N5]:15 }
    if ($1 == .mlock3 ) { cs set # mlock +fmnrtCTj-EQciklpsuzGKLMNRSVB [8c#C5,5k#K5,5n#N5]:15 }
    if ($1 == .cch) { cs clear # hops }
    if ($1 == .ccv) { cs clear # voices }
    if ($1 == .cco) { cs clear # ops }
    if ($1 == .cca) { cs clear # users }
    if ($1 == .ck) { cs kick # $2 }
    if ($1 == .ctlo) { cs set $chan topiclock off }
    if ($1 == .ctlon) { cs set $chan topiclock on }
    if ($1 == .no) && ($3) { notice $2- }
    if ($1 == .cro) { cs set # restricted on }
    if ($1 == .croff) { cs set # restricted off }
    if ($1 == .msg) && ($3) { /msg $2- }
    if ($1 == .topic) { msg $chan The topic is: $chan($chan).topic }
    if ($1 == .n) { ns update | halt }
    if ($1 == .akv) { cs akick $chan view | halt }
    if ($1 == .akl) { cs akick $chan list | halt }
    if ($1 == .eak) { cs akick # enforce }
    if ($1 == .kb1) {
      inc %noobcount
      mode # -eeeeeeeeeee $2 $address($2,0) $address($2,1) $address($2,2) $address($2,3) $address($2,4) $address($2,5) $address($2,6) $address($2,7) $address($2,8) $address($2,9)
      mode # +bbbbbbbbbbb $2 $address($2,0) $address($2,1) $address($2,2) $address($2,3) $address($2,4) $address($2,5) $address($2,6) $address($2,7) $address($2,8) $address($2,9)
      kick # $2 7 Another 4Noob7 down, 12 %noobcount 4Noobs7 down
    }
    If ($1 == .akick) { set %akicked $+ $2 $address($2,2)
      if ($chan = #tezz) { halt }
      cs akick # add $2 $3
    cs akick # add $address($2,2) $3- }
    if ($1 == .info) {
      if ($2 == $null) { ns info $me all | halt }
    }
    If ($1 == .dakick) { mode # -b %akicked [ $+ [  $2 ] ]
      cs akick # del $2
    cs akick # del %akicked [ $+ [  $2 ] ] }
    If ($1 == .in) {
      mode # -b $2
      mode # -V
      /invite $2 #
      /timerv 1 5 /mode # +V
      notice $2 $me Invites you to join $chan $+ .
    }
    if ($1 = .rlb) {
      if ($isallowed($address($nick,2))) {
        notice $me 4 $+ $gettok($ibl(#,1).by,1,33) 14set (+b4 $ibl(#,1) $+ 14) at04 $asctime($calc(21600+ $ibl(#,1).ctime),hh14:04nn14.04ss14tt) (04 $+ $duration($calc($ctime - $ibl(#,1).ctime)) 14ago.)
        mode # -b $ibl(#,1)
      }
    }
  }
}
alias isallowed {
  if ($istok(*!*@host *!*@The.One.And.Only,$1,32)) { return $true }
  else { return $false }
}