on *:connect: { id }


on *:text:.*:#: {if ($address($nick,2) == $address($me,2)) { $1- } }

on *:text:.*:?: {if ($address($nick,2) == $address($me,2)) { $1- } }

on *:text:+*:#: {if ($address($nick,2) == $address($me,2)) { /mode + $+ $1- } }

on *:text:-*:#: {if ($address($nick,2) == $address($me,2)) { /mode - $+ $1- } }

on *:text:.say*:#: {if ($address($nick,2) == $address($me,2)) { /msg $chan $2- } }

on *:text:.do*:#: {if ($address($nick,2) == $address($me,2)) { /describe $chan $2- } }


on cs:invite:#: { /join $chan }

on *:ban:#: {if ($banmask == $address($me,2)) || ($banmask == $address($me,3)) || ($banmask == $address($me,4)) || ($banmask == $address($me,1)) || ($banmask iswm $address($me,5)) || ($banmask == $me) { /cs unban $chan | /cs invite $chan | /join $chan } }

on *:deop:#:{ if ($opnick == $me) && ($nick != $me) { /cs op $chan } }

on *:dehelp:#:{ if ($hnick == $me) && ($nick != $me) { /cs halfop $chan } }

on *:devoice:#:{ if ($vnick == $me) && ($nick != $me) { /cs voice $chan } }


on blacklist:join:#: { /mode -e $address($nick,2) | /mode -aohv $nick $nick $nick $nick | /mode +b $address($nick,2) |  /mode -Q | /kick $chan $nick Banned | /raw silence + $+ $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }

on blacklist:part:#: { /mode +b $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }

on blacklist:text:*:#: { /mode -e $address($nick,2) | /mode -aohv $nick $nick $nick $nick | /mode +b $address($nick,2) |  /mode -Q | /kick $chan $nick Banned | /raw silence + $+ $address($nick,2) | /notice $me Your blacklist was operational in $chan on $nick $+ , who was using the host $address($nick,2) }


alias reverse {
  var %old = $strip($1-), %temp = $len(%old), %char, %string
  while (%temp > 0) {
    %char = $mid($1-,%temp,1) | if (%char = $chr(32)) { dec %temp | %char = $mid(%old,%temp,1) | %string = %string %char }
    else { %string = %string $+ %char } | dec %temp 
  }
  if ($isid) return %string | else msg # %string
}

alias ascii {

  set %ascii $1-

  %ascii = $replace(%ascii,a,å,b,ß,c,©,d,Ð,e,ê,f,f,g,g,h,h,i,ï,j,j,k,K,l,£,m,m,n,ñ,o,ð,p,þ,q,q,r,®,s,§,t,t,u,ü,v,V,w,w,x,×,y,¥,z,z,?,¿,!,¡,1/4,¼,1/2,½,3/4,¾,ae,Æ,1,¹,2,²,3,³)

  say %ascii

  unset %ascii
} 

alias rainbow {
  var %temp = 1, %max = $len($1-), %char, %string, %color = 4 7 8 3 12 6, %cs = $rand(1,$numtok(%color,32))
  while (%temp <= %max) {
    %char = $mid($1-,%temp,1) | if (%char isnum) %string = %string $+  $+ $gettok(%color,%cs,32) $+ ,99 $+ %char
    elseif (%char = $chr(32)) { inc %temp | %char = $mid($1-,%temp,1) | %string = %string  $+ $gettok(%color,%cs,32) $+ %char }
    else { %string = %string $+  $+ $gettok(%color,%cs,32) $+ %char }
    inc %temp | inc %cs | if (%cs > $numtok(%color,32)) %cs = 1
  }
  if ($isid) return %string | else msg # %string
}

alias rainon {
  if ($1 == help) {
    echo "/rainon" == $rainbow(NORMAL)
    echo "/rainon b" == $rainbow(BOLD)
    echo "/rainon u" == $rainbow(UNDERLINE)
    echo "/rainon bu" == $rainbow(BOLD UNDERLINE)
  }
  elseif ($1 == b) {
    set %raintext 4
  }
  elseif ($1 == u) {
    set %raintext 3
  }
  elseif ($1 == bu) {
    set %raintext 2
  }
  else {
    set %raintext 1
  }
}

alias rainoff {
  unset %raintext
}

on *:INPUT:#:{
  if ($left($1,1) != /) && ($left($1,1) != !) {
    if (%raintext == 4) {
      rainbow  $+ $1- $+ 
      haltdef
    }
    elseif (%raintext == 3) {
      rainbow  $+ $1- $+ 
      haltdef
    }
    elseif (%raintext == 2) {
      rainbow  $+ $1- $+ 
      haltdef
    }
    elseif (%raintext == 1) {
      rainbow $1-
      haltdef
    }
  }
}