Untitled

on *:INPUT:#:{
  if (/ == $left($1,1)) && (/say !== $1) { return }
  if ($me isop $chan) {
    var %nick = <4@ $+ $me $+ >
  }
  elseif ($me ishop $chan) {
    var %nick = <7% $+ $me $+ >
  }
  elseif ($me isvoice $chan) {
    var %nick = <2+ $+ $me $+ >
  }
  else {
    var %nick = <10 $+ $me $+ >
  }
  if ($gettok($readini(mirc.ini,options,n4),12,44) == 0) {
    echo $chan %nick $iif($1 == /say,$2-,$1-)
  }
  elseif ($gettok($readini(mirc.ini,options,n4),12,44) == 1) {
    echo $chan $timestamp %nick $iif($1 == /say,$2-,$1-)
  }
  .msg $chan $iif($1 == /say,$2-,$1-)
  halt
}

on *:input:#: {
  if (%nickcomp == on) {
    if ($1 != $me) {
      if ($left($1,1) != /) && ($1 ison $chan) {
        if ($1 isop $chan) {
          msg $chan 4~4,1[@ $+ $1 $+ ]4~ $2-
          haltdef
        }
        elseif ($1 ishop $chan) {
          msg $chan 7~7,1[% $+ $1 $+ ]7~ $2-
          haltdef
        }
        elseif ($1 isvoice $chan) {
          msg $chan 12~12,1[+ $+ $1 $+ ]12~ $2-
          haltdef
        }
        elseif ($1 isreg $chan) {
          msg $chan 10~10,1[ $+ $1 $+ ]10~ $2-
          haltdef
        }
      }
    }
  }
}

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 nickcomp {
  if (%nickcomp == on) {
    set %nickcomp off
    //echo 4 -a Your nick completer is now: off
  }
  else {
    if (%nickcomp == off) {
      set %nickcomp on
      //echo 4 -a Your nick completer is now: on
    }
  }
}