/*
Events
*/
on ^*:text:*:*: {
  if (($highlight($1-)) && (!$botcheck($nick))) { var %output -lti $+ $calc($len($timestampfmt) +1) }
  else { var %output -mti $+ $calc($len($timestampfmt) +1) }
  haltdef
  echo %output $iif($chan,$v1,$nick) $+(<,$iif($nick($chan,$nick).pnick,$v1,$nick,>) $1-
}

on ^*:action:*:*: {
  if (($highlight($1-)) && (!$botcheck($nick))) { var %output -lti $+ $calc($len($timestampfmt) +1) }
  else { var %output -mti $+ $calc($len($timestampfmt) +1) }
  haltdef
  echo %output $iif($chan,$v1,$nick) * $nick $1-
}

on ^*:notice:*:*: {
  haltdef
  echo -amti $+ $calc($len($timestampfmt) +1) $+(-,$nick,$iif($chan,$+(:,$v1),),-) $1-
}

on ^*:input:*: {
  if (($left($1,1) != /) || (($left($1,1) == /) && ($ctrlenter))) {
    !.msg $active $1-
    echo -ati $+ $calc($len($timestampfmt) +1) $+(<,$iif($nick($chan,$me).pnick,$v1,$me),>) $1-
  }
}

on ^*:rawmode:#: {
  haltdef
  echo -ti $+ $calc($len($timestampfmt) +1) $chan $nick sets mode: $1-
}

on ^*:join:#: {
  if ($nick == $me) {
    echo -ti $+ $calc($len($timestampfmt) +1) $chan * Joined $chan
  }
  haltdef
  echo -ti $+ $calc($len($timestampfmt) +1) $chan * $nick ( $+ $replace($address,@,@,.,.,-,-) $+ ) has joined $chan
}

on ^*:part:#: {
  if ($nick != $me) {
    haltdef
    echo -ti $+ $calc($len($timestampfmt) +1) $chan * $nick ( $+ $replace($address,@,@,.,.,-,-) $+ ) has left $chan $iif($1-,$+($chr(40),$v1,$chr(41)),)
  }
}

on ^*:kick:#: {
  haltdef
  echo -ti $+ $calc($len($timestampfmt) +1) $chan $nick kicked $knick ( $+ $1- $+ )
}

on ^*:quit: {
  haltdef
  var %a = $comchan($nick,0), %b = 1
  while (%b <= %a) {
    echo -ti $+ $calc($len($timestampfmt) +1) $comchan($nick,%b) * $nick ( $+ $replace($address,@,@,.,.,-,-) $+ ) quits ( $+ $1- $+ )
    inc %b
  }
}

on *:topic:#: {
  haltdef
  echo -ti $+ $calc($len($timestampfmt) +1) $chan * $nick changes the topic to: $1-
}

/*
Aliases
*/
alias amsg {
  !.amsg $1-
  var %chans = 1, %msg = $1-
  while (%chans <= $chan(0)) {
    tokenize 32 $chan(%chans) %msg
    echo -ti $+ $calc($len($timestampfmt) +1) $1 $+(<,$nick($1,$me).pnick,>) $2-
    inc %chans
  }
}

alias msg {
  !.msg $1-
  if ($me ison $1) || ($query($1)) {
    echo -ti $+ $calc($len($timestampfmt) +1) $iif($chan,$v1,$nick) $+(<,$iif($nick($chan,$me).pnick,$v1,$me),>) $2-
  }
  else {
    echo -ati $+ $calc($len($timestampfmt) +1) $2- sent to: $1
  }
}

8
alias say {
  !.msg $active $1-
  echo -ati $+ $calc($len($timestampfmt) +1) $+(<,$iif($nick($chan,$me).pnick,$v1,$me),>) $1-
}

alias ame {
  !.ame $1-
  var %chans = 1, %desc = $1-
  while (%chans <= $chan(0)) {
    tokenize 32 $chan(%chans) %desc
    echo -ti $+ $calc($len($timestampfmt) +1) $1 * $me $2-
    inc %chans
  }
}

alias describe {
  !.describe $1-
  if ($me ison $1) || ($query($1)) {
    echo -ti $+ $calc($len($timestampfmt) +1) $iif($chan,$v1,$nick) * $me $2-
  }
  else {
    echo -ati $+ $calc($len($timestampfmt) +1) * $me $2- sent to: $1
  }
}

alias me {
  !.describe $active $1-
  echo -ti $+ $calc($len($timestampfmt) +1) $iif($chan,$v1,$nick) * $me $1-
}

alias notice {
  !.notice $1-
  echo -ati $+ $calc($len($timestampfmt) +1) $+(-,$1,->) $2-
}

alias botcheck {
  ;if (...) { return 1 }
  ;else { return 0 }
}