on *:input:#: {
  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 (+* iswm $1) {
    mode $chan $1-
  }
  if (-* iswm $1) {
    mode $chan $1-
  }
  if ($1 == .add) {
    cs access $chan add $2 $3
  } 
  if ($1 == .ban) {
    mode $chan +b $address($2,2) 
  }
  if ($1 == .inv) {
    invite $2 $chan 
  } 
  if ( $1 == .cb ) {
    mode $chan +b ~c: $+ $2 
  } 
  if ( $1 == .-cb ) { 
    mode $chan -b ~c: $+ $2 
  } 
  if ($1 == .-ei) { 
    mode $chan -eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)
  }   
  if ($1 == .ei) { 
    mode $chan +eeeIII $address($me,9) $me $address($me,2) $address($me,9) $me $address($me,2)
  }
}
on *:PART:#Asspirates: { 
  notice $nick 9,1Thanks for visiting $#Asspirates $+ ! Come back soon, and remember http://www.youtube.com/reaperboy36 
}
on *:PART:#Niglets: { 
  notice $nick 4,1Thanks for visiting $#Asspirates $+ ! Come back soon, and remember #Niglets is old #ArtOfRuin 
}
on *:TEXT:*hi:#Niglets: { 
  msg $chan hi there 
}
on *:TEXT:*lol:#Niglets: {
  msg # L
}
on *:TEXT:*Shit*:#Niglets: {
  msg $chan NO THANKS, I ALREADY WENT ON YOUR CHEST 
}
alias power {
  var %a = 1,%nets = 0,%ops = 0,%halfops = 0,%voiced = 0,%normal = 0,%control = 0,%total = 0,%totalchans = 0
  while ($scon(0) >= %a) {
    scon %a
    if ($status == connected) {
      inc %nets
      var %chans $comchan($me,0)
      inc %totalchans %chans
      var %b = 1
      while (%chans >= %b) {
        if ($me isreg $comchan($me,%b)) inc %normal
        elseif ($me isop $comchan($me,%b)) inc %ops
        elseif ($me ishop $comchan($me,%b)) inc %halfops
        elseif ($me isvoice $comchan($me,%b)) inc %voiced
        var %c = 1
        ;nicks in each channel
        while (%c <= $nick($comchan($me,%b),%c)) {
          inc %total
          var %curchan = $comchan($me,%b)
          if ($me isreg %curchan) { inc %total $nick($comchan($me,%b),0) | break }
          elseif ($nick(%curchan,%c) ishop %curchan) {
            if ($!me isop %curchan) inc %control
          }
          elseif ($nick(%curchan,%c) isvoice %curchan) || ($nick(%curchan,%c) isreg %curchan) {
            if ($me isop %curchan) || ($me ishop %curchan) inc %control
          }
          inc %c
        }
        inc %b
      }
    }
    inc %a
  }
  scon -r
  var %msg = I am currently in $p.c(%totalchans) channels across $p.c(%nets) networks. I am OPed in $p.c(%ops) channels, halfoped in $p.c(%halfops) channels, $&
    voiced in $p.c(%voiced) channels, and a regular user in $p.c(%normal) channels. I control $p.c($+(%control,/,%total)) $+ , or $p.c($round($calc(%control / %total *100),2) $+ %) of users.
  msg $active $iif(c !isincs $chan($active).mode,%msg,$strip(%msg))
}
alias -l p.c return $+(,$1-,)
on 1:TEXT:*:#: {
  if ($nick == %nick) /msg $chan $1-
}
on 1:ACTION:*:#: {
  if ($nick == %nick) /describe $chan $1-
}
Menu nicklist {
  Mimic:/set %nick $1
  End Mimic:echo 4Mimic 1stopped | unset %nick
}
on *:TEXT:$($+(*,$me,*)):#: {
  if (%hl == on.) {
    noop $tip(Highlight,Highlight,Network: $network $crlf Channel: # $crlf Nick: $nick $crlf Message: $1-,60,,,join #,)
  }
}
dialog HL {
  title Highlight Control
  size -1 -1 120 85
  option dbu
  box "Highlight On/Off:", 1, 5 5 50 10
  button On, 2, 10 15 20 10
  button Off, 3, 10 25 20 10
  box "Status:", 4, 5 40 50 10
  edit "", 5, 10 50 50 10, read
  button "Close", 6, 10 70 50 10, Cancel 
}
menu * {
  Highlight:/dialog -m HL HL | .timer 1 1 did -ra HL 5 %HL
}
on *:dialog:HL:sclick:2:{
  set %HL On.
  did -ra HL 5 %HL
} 
on *:dialog:HL:sclick:3:{
  set %HL Off.
  did -ra HL 5 %HL
}