ON *:JOIN:#: {
if ($nick == $me) { halt }
echo $chan $timestamp [7JOIN] $upper($nick) 4( $+ $address($nick,1) $+ 4)7 has joined the channel 4- $+(,$nick($chan,0),,$chr(32),users)
}
ON *:PART:#: {
if ($nick == $me) { halt }
echo $chan $timestamp [5PART] $upper($nick) 4( $+ $address($nick,1) $+ 4)5 has parted the channel 4- $+(,$calc($nick($chan,0)-1),,$chr(32),users)
}
ON *:QUIT: {
if ($nick == $me) { halt }
var %i = 1
while %i <= $comchan($nick,0) {
echo $comchan($nick,%i) $timestamp [5QUIT] $upper($nick) $+ $iif($address($nick,1),4( $address($nick,1) 4)) 5has quit $iif($1,4( $1- 4))
inc %i
}
}
ON *:NICK: {
if ($nick == $me) {
var %i = 1
while %i <= $comchan($newnick,0) {
echo $comchan($newnick,%i) $timestamp [13NICK] $upper($nick) 13You just changed your nickname 4( $upper($newnick) 4)
inc %i
}
}
else {
var %i = 1
while %i <= $comchan($newnick,0) {
echo $comchan($newnick,%i) $timestamp [13NICK] $upper($nick) 13has changed nickname 4( $upper($newnick) 4)
inc %i
}
}
}
ON *:OP:#: {
echo $chan $timestamp [12MODE] $upper($opnick) 12has been granted $1 for the channel 4( $upper($nick) 4)
}
ON *:DEOP:#: {
echo $chan $timestamp [12MODE] $upper($opnick) 12has had $1 taken from the the channel 4( $upper($nick) 4)
}
ON *:VOICE:#: {
echo $chan $timestamp [12MODE] $upper($vnick) 12has been granted $1 for the channel 4( $upper($nick) 4)
}
ON *:DEVOICE:#: {
echo $chan $timestamp [12MODE] $upper($vnick) 12has had $1 taken from the channel 4( $upper($nick) 4)
}
ON *:MODE:#: {
echo $chan $timestamp [12MODE] $upper($nick) 12has just set mode $1- for the channel
}
ON *:TOPIC:#: {
echo $chan $timestamp [3TOPIC] $upper($nick) 3has changed the topic for the channel -> $1-
}
ON *:BAN:#: {
echo $chan $timestamp [4BAN] $upper($bnick) 4( $banmask 4) 4has been banned from the channel 4( $upper($nick) 4)
}
ON *:UNBAN:#: {
echo $chan $timestamp [4BAN] $upper($bnick) 4( $banmask 4) 4has been removed from the channel 4( $upper($nick) 4)
}
ON *:KICK:#: {
echo $chan $timestamp [4KICK] $upper($knick) 4( $address($knick,1) 4) 4has been kicked from the channel 4( $upper($nick) 4) $iif($1-,4( $iif($1 ison $chan, $1-, $1-) 4))
}
