color1

on ^*:TEXT:*:#:{ 
  HALTDEF
  if ($nick isop $chan) { var %nick. [ $+ [ $nick ] ] $cop($+($nick,$chr(32),$chr(187))) }
  elseif ($nick ishop $chan) { var %nick. [ $+ [ $nick ] ] $chop($+($nick,$chr(32),$chr(187))) }
  elseif ($nick isvoice $chan) { var %nick. [ $+ [ $nick ] ] $cv($+($nick,$chr(32),$chr(187))) }
  elseif ($nick isreg $chan) { var %nick. [ $+ [ $nick ] ] $cr($+($nick,$chr(32),$chr(187))) }
  echo $chan $enclose($mytime) %nick. [ $+ [ $nick ] ] $1-
}
#cinput off
on *:INPUT:#:{ 
  HALTDEF
  if ($left($1,1) == /) { $iif($left($1,2) == //,$($1-,2),$1-) | halt }
  else {
    if ($me isop $chan) { var %me $cop($+($me,$chr(32),$chr(187))) }
    elseif ($me ishop $chan) { var %me $chop($+($me,$chr(32),$chr(187))) }
    elseif ($me isvoice $chan) { var %me $cv($+($me,$chr(32),$chr(187))) }
    elseif ($me isreg $chan) { var %me $cr($+($me,$chr(32),$chr(187))) }
    .msg $chan $1- | echo $chan $enclose($mytime) %me $1-
  }
}
#cinput end
on ^*:JOIN:#:{ 
  HALTDEF
  .timer 1 2 cbox $chan
  echo 9 $chan * JOIN: $nick has joined $chan $enclose($mytime)
}
on ^*:RAWMODE:#:{
  HALTDEF
  cbox $chan
  if ($nick isop $chan) { var %mode. [ $+ [ $nick ] ] $cop($nick) }
  elseif ($nick ishop $chan) { var %mode. [ $+ [ $nick ] ] $chop($nick) }
  elseif ($nick isvoice $chan) { var %mode. [ $+ [ $nick ] ] $cv($nick) }
  elseif ($nick isreg $chan) { var %mode. [ $+ [ $nick ] ] $cr($nick) }
  else { var %mode. [ $+ [ $nick ] ] $celse($nick) }
  echo 9 $chan * MODE: %mode. [ $+ [ $nick ] ] sets mode: $1- $enclose($mytime,$chr(124),$chan)
}
on ^*:KICK:#:{ 
  HALTDEF
  if ((!kicker. [ $+ [ $nick ] ]) && ($nick isop $chan)) { var %kicker. [ $+ [ $nick ] ] $cop($nick) }
  if ((!kicker. [ $+ [ $nick ] ]) && ($nick ishop $chan)) { var %kicker. [ $+ [ $nick ] ] $chop($nick) }
  if ((!kicker. [ $+ [ $nick ] ]) && ($nick isvoice $chan)) { var %kicker. [ $+ [ $nick ] ] $cv($nick) }
  if ((!kicker. [ $+ [ $nick ] ]) && ($nick isreg $chan)) { var %kicker. [ $+ [ $nick ] ] $cr($nick) }
  else { var %kicker. [ $+ [ $nick ] ] $celse($nick) } 
  echo 9 $chan * KICK: $chop($knick) was kicked by  %kicker. [ $+ [ $nick ] ] $+([,$1-,]) $enclose($mytime,$chr(124),$chan)
}
on ^*:PART:#:{
  HALTDEF
  if ($nick isop $chan) { var %part. [ $+ [ $nick ] ] $cop($nick) }
  elseif ($nick ishop $chan) { var %part. [ $+ [ $nick ] ] $chop($nick) }
  elseif ($nick isvoice $chan) { var %part. [ $+ [ $nick ] ] $cv($nick) }
  elseif ($nick isreg $chan) { var %part. [ $+ [ $nick ] ] $cr($nick) }
  echo 9 $chan * PART: %part. [ $+ [ $nick ] ] has left $chan $+([,$address($nick,2),]) $enclose($mytime)
}
on ^*:QUIT:{
  HALTDEF
  if ($nick == $me) { 
    var %j 0
    while (%j < $window) {
      inc %j 1
      echo $window(*,%j) Disconnected from $network
    }
  }
  var %f. [ $+ [ $nick ] ] 0
  while (%f. [ $+ [ $nick ] ] < $comchan($nick,0)) {
    inc %f. [ $+ [ $nick ] ] 1
    echo 9 $comchan($nick,%f. [ $+ [ $nick ] ]) * QUIT: $nick has quit IRC $+([,$address($nick,0),]) $enclose($1-)
  }
}
alias cop { return $+($chr(3),00,@,$1-,$chr(3)) }
alias chop { return $+($chr(3),12,$chr(37),$1-,$chr(3)) }
alias cv { return $+($chr(3),07,+,$1-,$chr(3)) }
alias cr { return $+($chr(3),06,$1-,$chr(3)) }
alias celse { return $+($chr(3),06,$1-,$chr(3)) }
alias mytime { return $asctime(hh:nn:sstt) }
alias enclose { return $+($chr(40),$1-,$chr(41)) }
alias cbox {
  var %x 0
  while (%x < $nick($1,0)) {
    inc %x 1
    if ($nick($1,%x) isop $1) { cline 0 $1 %x }
    elseif ($nick($1,%x) ishop $1) { cline 12 $1 %x }
    elseif ($nick($1,%x) isvoice $1) { cline 7 $1 %x }
    elseif ($nick($1,%x) isreg $1) { cline 6 $1 %x }
  }
}