on *:text:*:#:{ if ($me isin $1- && $chan != $active) { noop $tip(highlight,Highlight,$nick highlighted you in $chan) } }
on *:LOAD:{ echo $timestamp2 %in $+ Performing one-time initialization for script $+ %out $1- }
alias ctcp { noop $tip(ctcp,CTCP - $network, CTCP $1- ) | .ctcp $1- | halt }
ctcp *:*:*:{
  if ($1 == VERSION) { haltdef | .ctcpreply $nick VERSION %lockoutver | noop $tip(ctcp,CTCP - $network, $nick CTCP VERSION - Replying with mIRC $version and %lockoutver ) } 
  elseif  ($1 != DCC) && ($1 != VERSION) && ($1 != PAGE) { haltdef | noop $tip(ctcp,CTCP - $network, $nick attempted to CTCP $1- you: Ignoring this request.) }
elseif ($1 == PAGE) { noop $tip(pager,Page - $network, $nick paged you) } }
on *:ctcpreply:*:{ haltdef | noop $tip(ctcp,CTCP - $network,$1 reply from $nick $+ : $2-) }
on *:CONNECT:{ echo -s $timestamp2 Connect %in $+ Connected to $server $+ : $+ $port with nickname %in2 $+ $nick $+ %out2 and realhost %in2 $+ $ip $+ %out2 $+ %out | .write recentservers.txt $server | .timerlag }
on *:DISCONNECT:{ echo -s $timestamp2 Disconnected %in $+ Connection to $server $+ : $+ $port lost $+ %out }
on *:CONNECTFAIL:{ haltdef | noop $tip(disconnection,Connection Lost,$1-) }
on *:NOTIFY:{ noop $tip(notify,Notify - $network, $nick is online) | haltdef }
on *:UNNOTIFY:{ noop $tip(notify,Notify - $network, $nick is ofline) | haltdef }
alias dns { set %dns $1 | .dns $1- }
on *:DNS:{ haltdef | var %n = $dns(0) | var %y $dns(0) | echo -a $timestamp2 %in $+ DNS attempting to resolve %dns $+ ... $+ %out 
  if (%n == 0) { echo -a $timestamp2 %in $+ DNS unable to resolve any addresses $+ %out | halt } 
  while (%n > 1) { echo -a $timestamp2 %in $+ $dns(%n).ip 4= $dns(%n).addr  $+ %out | dec %n }
  if (%n <= 1) { echo -a $timestamp2 %in $+ $dns(%n).ip 4= $dns(%n).addr $+ %out | dec %n }
echo -a $timestamp2 %in $+ DNS resolved %y addresses for $dns(%y) $+ %out | echo -a $timestamp2 %in $+ End of /DNS $+ %out }
on ^*:TEXT:*:?:{ haltdef | echo $nick $timestamp3 %in $+ $nick $+ %out $1- }
on ^*:CHAT:*:{ haltdef | echo $nick $timestamp3 %in $+ $nick $+ %out $1- }
on ^*:ACTION:*:?:{ haltdef | echo $nick $timestamp3 %in $+ 4*1 $+ $nick $+ %out $1- | halt }
on ^*:text:*:#: { var %Access = $remove($nick(#,$nick).pnick,$nick) | echo $chan $timestamp3 %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$nick).color,$left($v1,1),$chr(3))) $+  $+ $nick $+ %out $1- | halt }
on ^*:ACTION:*:#:{ haltdef | var %Access = $remove($nick(#,$nick).pnick,$nick) | echo $chan $timestamp3 4*1 $iif(%Access != $null, $+($chr(3),$nick(#,$nick).color,$left($v1,1),$chr(3))) $+  $+  $nick $1- | halt }
on ^*:JOIN:#:{ 
  if ($nick == $me) { who $chan  | echo $chan $timestamp2 Join %in $+ %in2 $+  $nick $+ 4! $+ $ial($nick).user $+ 4@ $+ $ial($nick).host $+ %out2 has joined $chan $+ %out | halt }
else { echo $chan $timestamp2 Join %in $+ %in2 $+  $nick $+ 4! $+ $ial($nick).user $+ 4@ $+ $ial($nick).host $+ %out2 has joined $chan $+ %out | halt } }
on ^*:PART:#:{
  if ($1 == $null) { var %Access = $remove($nick(#,$nick).pnick,$nick) |  echo $chan $timestamp2 Part %in $+ %in2 $+ $iif(%Access != $null, $+($chr(3),$nick(#,$nick).color,$left($v1,1),$chr(3))) $+ $nick $+ 4! $+ $ial($nick).user $+ 4@ $+ $ial($nick).host $+ %out2 has left $chan $+ %out | halt }
else { var %Access = $remove($nick(#,$nick).pnick,$nick)  |  echo $chan $timestamp2 Part %in $+ %in2 $+ $iif(%Access != $null, $+($chr(3),$nick(#,$nick).color,$left($v1,1),$chr(3))) $+ $nick $+ 4! $+ $ial($nick).user $+ 4@ $+ $ial($nick).host $+ %out2 has left $chan %in2 $+ $1- $+ %out2 $+ %out | halt } }
on ^*:KICK:#:{ var %Access = $remove($nick(#,$nick).pnick,$nick) | echo $chan $timestamp2 Kick %in $+  $iif(%Access != $null, $+($chr(3),$nick(#,$nick).color,$left($v1,1),$chr(3))) $+  $+ $nick has kicked $knick from the channel %in2 $+ $1- $+ %out2 $+ %out | halt }
on ^*:SERVEROP:#:{   var %Access = $remove($nick(#,$nick).pnick,$nick) | echo $chan $timestamp2 ServerOP %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$nick).color,$left($v1,1),$chr(3))) $+  $+ $nick has given $opnick operator status $+ %out | halt }
on ^*:TOPIC:#:{   var %Access = $remove($nick(#,$nick).pnick,$nick) | echo $chan $timestamp2 Topic %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$nick).color,$left($v1,1),$chr(3))) $+  $+ $nick  has set the topic to %in2 $+ $1- $+ %out2 $+ %out | halt }
on ^*:WALLOPS:#:{ echo -s $timestamp2 Wallops %in $+ %in2 $+ $fulladdress $+ %out2 wallops $1- $+ %out | halt }
on ^*:INVITE:#:{  noop $tip(invite,Channel Invitation on $network, You have been invited to $chan by $nick) | echo -s $timestamp2 Invite %in $+ You have been invited to %in2 $+ $chan $+ %out2 by %in2 $+ $nick $+ %out2$+ %out | halt }
on ^*:USERMODE:{ echo -s $timestamp2 Umode %in $+ $nick sets usermode $+ %in2 $+ s $+ %out2 %in2 $+ $1- $+ %out2 $+ %out | haltdef }
on ^*:RAWMODE:#:{ var %Access = $remove($nick(#,$nick).pnick,$nick) | echo $chan $timestamp2 Mode %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$nick).color,$left($v1,1),$chr(3))) $+  $+  $nick sets mode $+ %in2 $+ s $+ %out2 %in2 $+ $1- $+ %out2 $+ %out | halt }
on ^*:NOTICE:*:*:{
  haltdef
  if ($nick == ChanServ) { noop $tip(notice,Services Notice - $network, $nick $+ : $1-) | echo -s $timestamp2 Notice %in $+ $nick $+ %out $1- }
  elseif ($nick == HostServ) { noop $tip(notice,Services Notice - $network, $nick $+ : $1-) | echo -s $timestamp2 Notice %in $+ $nick $+ %out $1- }
  elseif ($nick == NickServ) { noop $tip(notify,Services Notice - $network, $nick $+ : $1-) | echo -s $timestamp2 Notice %in $+ $nick $+ %out $1- }
  elseif ($nick == MemoServ) { noop $tip(notice,Services Notice - $network, $nick $+ : $1-) | echo -s $timestamp2 Notice %in $+ $nick $+ %out $1- }
  elseif ($nick == OperServ) { noop $tip(notice,Services Notice - $network, $nick $+ : $1-) | echo -s $timestamp2 Notice %in $+ $nick $+ %out $1- }
else { noop $tip(notice,Notice - $network, $nick $+ : $1-) | echo -s $timestamp2 Notice %in $+ $nick $+ %out $1- } }
on ^*:SNOTICE:*:{ noop $tip(notice,Server Notice - $network, $nick $+ : $1-) | echo -s $timestamp2 SNotice %in $+ $nick $+ %out $1- | halt }
on ^!*:quit:{ 
  var %x = 1
  while ($comchan($nick,%x)) { 
    var %Access = $remove($nick($comchan($nick,%x),$nick).pnick,$nick)
    echo $v1 $timestamp2 Quit %in $+ %in2 $+ $iif(%Access != $null, $+($chr(3),$nick($comchan($nick,%x),$nick).color,$left($v1,1),$chr(3))) $+ $replace($address($nick,5),!,4!,@,4@) $+ %out2  has quit IRC %in2 $+ $1- $+ %out2 $+ %out
    inc %x 
  }
  halt 
}
on ^*:NICK:{
  haltdef
  var %x 1
  while $comchan($newnick,%x) {
    var %chan $v1,%Access = $left($remove($nick(%chan,$newnick).pnick,$newnick),1), $&
      %oldnick = $iif(%access,$+($chr(3),$nick(%chan,$newnick).color,$v1,$chr(3))) $+ $nick, $&
      %newnick = $iif(%Access,$+($chr(3),$nick(%chan,$newnick).color,$v1,$chr(3))) $+ $newnick
    echo %chan $timestamp2 Nick Change %in $+ %in2 $+ %oldnick $+ %out2 has changed their nick to %in2 $+ %newnick $+ %out2 $+ %out
    inc %x 
  }
}
on ^*:ERROR:*:{ haltdef | echo -s $timestamp2 Error %in $+ $2- $+ %out }
on ^*:EXIT:*:{ haltdef | echo -a $timestamp2 Shutting Down mIRC Lockout %lockoutver ... | echo -a $timestamp2 mIRC was running for $uptime(mirc,1) ...  | echo -a $timestamp2 %in $+ Now Closing mIRC Lockout $+ %out }
on *:INPUT:?:{ if ($left($1-,1) != /) || ($ctrlenter) { echo -a $timestamp3 %in $+ 10 $+ $me $+ %out $1- | .msg $active $1- | haltdef } }
on *:INPUT:=:{ if ($left($1-,1) != /) || ($ctrlenter) { echo -a $timestamp3 %in $+ 10 $+ $me $+  $+ %out $1- | .msg $active $1- | haltdef } }
on *:INPUT:#:{ if ($left($1-,1) != /) || ($ctrlenter) { haltdef | .msg $active $1- | //var %Access = $remove($nick(#,$me).pnick,$me) | echo $timestamp3 %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$me).color,$left($v1,1),$chr(3))) $+ 10 $+ $me $+ %out $1-  } }
alias say { .msg $active $1- | //var %Access = $remove($nick(#,$me).pnick,$me) | echo $chan $timestamp3 %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$me).color,$left($v1,1),$chr(3))) $+ 10 $+ $me $+ %out $1- }
alias notice { .notice $1 $2- | echo -a $timestamp2 %in $+ Notice $+ %out %in $+ -› $network $+ : $+ $1 $+ %out $2- } 
alias me { .describe $active $1- | //var %Access = $remove($nick(#,$me).pnick,$me) | echo $chan $timestamp3 10* $iif(%Access != $null, $+($chr(3),$nick(#,$me).color,$left($v1,1),$chr(3))) $+ 10 $+  $me $1- }
on *:FILESENT:*:/echo -a $timestamp2 %in $+ Successfully sent $filename to $nick $+ %out
on *:SENDFAIL:*:/echo -a $timestamp2 %in $+ Failed to send $filename to $nick $+ %out
on *:GETFAIL:*:/echo -a $timestamp2 %in $+ Failed to receive $filename from $nick $+ %out