My mIRC Theme

[chain]

This is the way I like to see mIRC. Changed everything from whois to Events.

on ^1:JOIN:#:{
if ($nick != $me) {
echo -th $chan 9[ 4ø 9] 11Join : 04 $nick $+ 14( 07 $+ $remove($address($nick,1),*!*) $+ 14) 00has joined 04 $chan $+ 00.
}
else {
echo -th $chan %pre 00Now talking in 04 $chan $+ 00.
}
haltdef
}
on ^1:PART:#:{
if ($nick == $me) { halt }
else {
set %nick $nick($chan,$nick).pnick
if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
elseif (% isin %nick) { set %nick $remove(%nick,+) }
echo -th $chan 9[ 4ø 9] 11Part : 04 %nick $+ 14( 07 $+ $remove($address($nick,1),*!*) $+ 14) 00has left 04 $chan $+ 00.
haltdef
unset %nick
}
}
on ^1:RAWMODE:#:{
set %nick $nick($chan,$nick).pnick
if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
elseif (% isin %nick) { set %nick $remove(%nick,+) }
echo -th $chan 9[ 4ø 9] 11Mode : 04 $iif(%nick,%nick,$nick) $+ 14( 07 $+ $remove($address($nick,1),*!*) $+ 14) 00sets mode: 04 $1-
haltdef
unset %nick
}
on ^1:ACTION:*:{
set %nick $nick($chan,$nick).pnick
if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
elseif (% isin %nick) { set %nick $remove(%nick,+) }
if ($chan) {
echo -th $chan 06 $+ %pre %nick $1-
}
else {
echo -th $nick 06 $+ %pre %nick $1-
}
haltdef
unset %nick
}
on ^1:TEXT:*:*:{
if ($chan) {
set %nickcolor $nick($chan,$nick).color
set %nick $nick($chan,$nick).pnick
if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
elseif (% isin %nick) { set %nick $remove(%nick,+) }
echo -th $chan 14( $+ %nickcolor $+ %nick $+ 14 ) 00: $1-
}
else {
echo -th $nick 14( 00 $+ $nick $+ 14) 00: $1-
}
haltdef
unset %nick
unset %nickcolor
unset %nicks
}
on *:INPUT:*:{
if ($1 == /notice) { echo -at 9[ 4ø 9] --> 11Notice : 04- $+ $2 $+ - 00 $3- | .notice $2 $3- | halt }
else {
set %nick $nick($chan,$me).pnick
if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
elseif (% isin %nick) { set %nick $remove(%nick,+) }
if ($1 == :/) || ($1 == \o) { echo -th $active 14( 11 $+ %nick $+ 14 ) 00 $1- | .msg $chan $1- | halt }
if (/ isin $1) {
if (http isin $1) { echo -th $chan 14( 11 $+ $iif(%nick,%nick,$nick) $+ 14 ) 00 $1- | .msg $active $1- | halt }
else { $1- | halt }
}
if ($chan) {
.msg $chan $1-
echo -th $chan 14( 11 $+ %nick $+ 14 ) 00 $1-
}
else {
.msg $active $1-
echo -th $active 14( 11 $+ $me $+ 14) 00 $1-
}
}
haltdef
unset %nick
}
on ^1:NICK:{
var %x 1
if ($nick == $me) {
while ($chan(%x)) {
echo -th $chan(%x) 9[ 4ø 9] 11Nick : 04 $nick 00is now known as 04 $newnick $+ .
inc %x
}
echo -ths 9[ 4ø 9] 11Nick : $nick is now known as $newnick $+ .
}
else {
while ($comchan($nick,%x)) {
echo -th $comchan($nick,%x) 9[ 4ø 9] 11Nick : $nick is now known as $newnick $+ .
inc %x
}
}
haltdef
unset %nick
unset %newnick
}
on ^1:QUIT:{
var %x 1
while ($comchan($nick,%x)) {
set %nick $nick($chan,$nick).pnick
if (~ isin %nick) { set %nick $remove(%nick,&,@,%,+) }
elseif (& isin %nick) { set %nick $remove(%nick,@,%,+) }
elseif (@ isin %nick) { set %nick $remove(%nick,%,+) }
elseif (% isin %nick) { set %nick $remove(%nick,+) }
echo -th $comchan($nick,%x) 9[ 4ø 9] 11Quit : 04 $iif(%nick,%nick,$nick) $+ 14( 07 $+ $remove($address($nick,1),*!*) $+ 14) has quit 04 $network $+ 14( 07 $+ $1- $+ 14)
inc %x
}
haltdef
unset %nick
}
on ^1:NOTICE:*:*:{
echo -at 9[ 4ø 9] <-- 11Notice : 04- $+ $nick $+ - 00 $1-
haltdef
}
raw 301:*:{ echo -a 9[ 4ø 9] 11A way : 00 $remove($2-,$1) | halt }
raw 311:*:{ echo -a -------- $+ $2 Start of /whois-------- | echo -a 9[ 4ø 9] 11I dent : 00 $3 | echo -a 9[ 4ø 9] 11A ddress : 00 $4 | echo -a 9[ 4ø 9] 11R eal N ame : 00 $remove($5-,$chr(42)) | halt }
raw 312:*:{ echo -a 9[ 4ø 9] 11S erver : 00 $3 $+ ( $+ $network $+ ) - $4- | halt }
raw 313:*:{ echo -a 9[ 4ø 9] 11S tatus : 00 $5- | halt }
raw 317:*:{ echo -a 9[ 4ø 9] 11I dle : 00 $duration($3) | halt }
raw 319:*:{ echo -a 9[ 4ø 9] 11C hannels : 00 $3- | halt }
raw 318:*:{ echo -a -------- $+ $1 End of /whois-------- | halt }
raw 338:*:{ echo -a 9[ 4ø 9] 11I P : 00 $remove($6,[,]) | halt }
raw 307:*:{ echo -a 9[ 4ø 9] 11I dentified : 00 Identified | halt }
raw 310:*:{ echo -a 9[ 4ø 9] 11M odes : 00 $6 | halt }
raw 671:*:{ echo -a 9[ 4ø 9] 11C onnection : 00 $6- | halt }
raw 672:*:{ echo -a 9[ 4ø 9] 11C lient : 00 $5- | halt }
raw 332:*:{ echo -t $2 9[ 4ø 9] 11Topic : 00 $iif($3-,$3-,No Topic Set) | halt }
raw 306:*:{ echo -at 9[ 4ø 9] 11A way : 00 $2- | halt }
raw 305:*:{ echo -at 9[ 4ø 9] 11A way : 00 $2- | halt }
raw 378:*:{ echo -a 9[ 4ø 9] 11C onnected F rom : 00 $7- | halt }