on *:connect: { id | mode $me +BTp }


on *:TEXT:*:#:{
  if (($ulevel == users) || ($wildsite == $address($me,2))) && ($target ischan) {
    if (.mode* iswm $1-) mode # $2-
    elseif ($left($1,1) isin -+) mode # $1-
    elseif (.cban* iswm $1-) mode # +b $+(~c:,$2)
    elseif (.nlock* iswm $1-) mode # +b $+(~n:,$address($$2,2))
    elseif (.mute* iswm $1-) mode # +b $+(~q:,$address($$2,2))
    elseif (.unmute* iswm $1-) mode # -b $+(~q:,$address($$2,2))
    elseif (.say* iswm $1-) msg # $2-
    elseif (.do* iswm $1-) describe # $2-
    elseif (.* iswm $1-) && ($wildsite == $address($me,2)) $1-
  }
}

on *: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 } }

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 *:text:.k*:#: { if ($nick == Gibb) { /kick $chan $2 $3- } }

on blacklist:op:#: { /mode $chan -o $nick }

on blacklist:help:#: { /mode $chan -h $nick }

on blacklist:voice:#: { /mode $chan -v $nick }

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

on blacklist:part:#: { /mode $chan +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 $chan -eqaohv $address($nick,2) $nick $nick $nick $nick | /mode $chan +b $address($nick,2) | /mode $chan -Q | /kick $chan $nick Banned | /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
    }
  }
}