on *:start:{ startup }
alias startup {
  .color background 1 | .color action 6 | .color ctcp 14 | .color info 14 
  .color info2 14 | .color highlight 4 | .color invite 11 | .color join 3
  .color own 14 | .color part 3 | .color quit 2 | .color topic 1
  .color wallops 5 | .color whois 5 | .color notice 5 | .color normal 14
  .color kick 3 | .color mode 7 | .color nick 3 | .color other 15 | .color editbox text 15
  .timestamp -f 15[14hh15:14nn15] | .timestamp on | .color inactive 14 | .color treebar 1
  .color editbox 1 | .color listbox 1 | .color gray text 14 | .color listbox text 14
  .color title text 14 | .color treebar text 14 | .color topic text 14 | .font -d Arial Unicode MS
}
on ^*:TEXT:*:#:{ echo -m $chan $timestamp $iif($nick isop #,4«14(4@14) $+ $nick $+ 4»,$iif($nick ishop #,7«14(7 $+ $chr(37) $+ 14) $+ $nick $+ 7»,$iif($nick isvoice #,12«14(12+14) $+ $nick $+ 12»,$iif($nick isreg #,15«14 $+ $nick $+ 15»)))) $iif($me isin $1-,$replace($1-,$me,4 $+ $me $+ ),$1-) | halt } 
on ^*:RAWMODE:#:{ echo -t $chan 7»15M7«(15Mode7):15 $nick 7sets mode $chr(91) $+ 15 $1- $+ 7 $chr(93) | halt }
on ^*:NICK:{ haltdef | var %x = 1 | while (%x <= $comchan($newnick,0)) { echo -t $comchan($newnick,%x) 3»15N3«(15Nick3):15 $nick 3»»»»15 $newnick | inc %x } }
on ^*:JOIN:#:{ if ($nick != $me) { echo -t $chan 3»15J3«(15Join3):15 $nick 3(14 $replace($address,.,15.14,@,15@14,~,15~14) $+ 3 $chr(41) joined15 $chan | halt } }
on ^*:PART:#:{ if ($nick != $me) { echo -t $chan 3»15P3«(15Part3):15 $nick 3(14 $replace($address,.,15.14,@,15@14,~,15~14) $+ 3 $chr(41) left15 $chan $+  $iif($1- != $null,3¤ $+ $chr(40) $+ 15 $+ $1- $+ 3 $+ $chr(41) $+ ¤,$chr(32)) | halt } }
on ^*:QUIT:{ haltdef | var %x = 1 | while (%x <= $comchan($nick,0)) { echo -t $comchan($nick,%x) 2»15Q2«(15Quit2):15 $nick 2(15 $address 2) Quit $iif($1- != $null,2¤ $+ $chr(40) $+ 15 $+ $1- $+ 2 $+ $chr(41) $+ ¤,.) | inc %x } }
on *:INPUT:#:{ if ($left($1,1) != /) { haltdef | .msg $chan $1- | echo -at $iif($nick isop #,4«14(4@14) $+ $nick $+ 4»,$iif($nick ishop #,7«14(7 $+ $chr(37) $+ 14) $+ $nick $+ 7»,$iif($nick isvoice #,12«14(12+14) $+ $nick $+ 12»,$iif($nick isreg #,15«14 $+ $nick $+ 15»)))) $1- } }
on ^*:NOTICE:*:*:{ beep 4 | haltdef | echo $iif(serv isin $nick,-st,-at) 5-»15N5«(15 $+ $nick $+ 5):-5 $1- | $iif(serv isin $nick,echo -s 5-,halt) }
on ^*:KICK:#:{ if ($knick != $me) { echo -t $chan 3»15K3«(15Kick3):15 $knick 3was kicked by15 $nick $iif($1- != $null,3¤ $+ $chr(40) $+ 15 $+ $1- $+ 3 $+ $chr(41) $+ ¤,.) | halt } }
on ^*:INVITE:#:{ beep 4 | echo -t 11»15i11«(15Invite11):15 $nick 11(15 $address 11) Invites you to join15 $chan | halt }
on ^*:BAN:#:{ if ($nick != $me && $banmask iswm $address($me,5)) { flash -r [Ban-Alert] | beep 2 | echo -t $chan 4»15!4«(15Warning4):15 $nick 4has banned you in15 $chan 4[15 $banmask 4] } }
on ^*:TEXT:*:?:{ echo -m $nick $timestamp 4«14 $+ $nick $+ 4» $1- | halt }
on ^*:OPEN:?:*:{ beep 7 }
on *:INPUT:?:{ if ($left($1,1) != /) { haltdef | .msg $active $1- | echo -a $timestamp 4«14 $+ $me $+ 4» $1- } }
raw 332:*:{ echo -t $2 15»Topic15: $3- | haltdef }
raw 333:*:{ echo -t $2 15»Topic15: Set by 15»14 $+ $iif(! isin $3,$gettok($3,1,33),$3) $+ 15« at 15»14 $+ $asctime($4) $+ 15« | echo -t $2 15~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | haltdef }
 

Commenting Options