My mIRC theme

Platform:  mIRC
Published  Jul 16, 2011
Updated  Jul 16, 2011

Screenshots

Well, this is my mIRC theme.
Comment on what you think about it, and ways you think I could make it look better.
And it also comes with a pretty epic highlight script. alias arrow { return $+($chr(151),$chr(155)) }
alias c2 { return $+($chr(3),11,$1-) }
alias c1 { return $+($chr(3),14,$1-) }
alias darktheme.start {
.timestamp -f $+($c2,8[» 6ddd mmm d 8|6 hh:nn:ss tt8 «] 1)
.font -dz 10 Verdana
.color background 1
.color normal text 14
.color listbox text 14
.color listbox 1
.color treebar 1
.color treebar text 14
.color whois text 14
.color editbox 1
.color editbox text 14
echo -ae $c1(You're using) $c2(DarkTheme) $c1(version) $tc2(1) $+ $tc1(.)
}
alias -l style { return $+($c2,[,$c2,$iif($left($nick($chan,$nick).pnick,1) isin @%+,$v1),$c1,$nick,$c2,]) }
on *:START: {
darktheme.start
}
on *:LOAD: {
darktheme.start
}
on ^*:TEXT:*:*:{
haltdef
echo -t $iif(#,#,$nick) $style $c1($1-)
}
on ^*:ACTION:*:*:{
haltdef
echo -t $iif(#,#,$nick) $c2($arrow) $c2($+($chr(40),$nick,$chr(41))) $c1($1-)
}
on ^*:NOTICE:*:*:{
haltdef
echo -ast $iif(#,#) $c2($arrow) $c2($iif(#,$+(#,/,$nick - $1-),$+(-,$nick,-) $1-))
}
on ^*:SNOTICE:*:{
haltdef
echo -st $c2($arrow) $c2($+(-,$nick,-) $1-)
}
on ^*:INVITE:*:{
haltdef
echo -astm $c2($arrow) $c2(INVITE) $c1(-) $c2($nick) $c1(has invited you to) $c2($chan)
}
on ^*:RAWMODE:*:{
haltdef
echo -t # $c2($arrow) $c2($nick) $c1(has set $iif($len($1) > 2,modes:,mode:)) $c2($1-)
}
on ^*:KICK:*:{
haltdef
echo $iif($knick == $me,-ast #,-t #) $c2($arrow) $c2($nick) $c1(has kicked) $c2($knick) $c1(from) $c2($chan) $+($c1,[,$c2,$1-,$c1,])
}
on ^*:PART:*:{
haltdef
echo -t # $c2($arrow) $c2($nick) $c1([) $+ $c2($address) $+ $c1(] has parted) $c2(#) $iif($1,$+($c1,[,$c2,$1-,$c1,]))
}
on ^*:JOIN:*:{
haltdef
echo -t # $c2($arrow) $c2($nick) $c1([) $+ $c2($address) $+ $c1(] has joined) $c2(#)
}
on *:INPUT:*:{
if ($left($1,1) == /) return
else {
haltdef
.msg $active $1-
echo -t $active $style $c1($1-)
}
}
on ^*:BAN:*:{
haltdef
var %z $nick(#,0)
while (%z) {
if ($banmask iswm $address($nick(#,%z),5)) {
var %b& = %b& $nick(#,%z)
}
dec %z
}
echo -t # $c2($arrow) $c2($nick) $+ $c1('s ban effects:) $c2(%b&)
}
Raw 332:*:{
haltdef
echo -tm $2 $c1(Topic is) $+(',$c2($3-),$c1('))
}
raw 311:*:{
haltdef
echo -at $c1([Whois/) $+ $c2($2) $+ $c1(])
echo -at $c1(Nickname:) $c2($2) $c1(Username:) $c2($3) $c1(Address:) $c2($4) $c1(Realname:) $c2($strip($6-))
}
Raw 319:*:{
haltdef
echo -at $c2($2) $strip($c1(is on) $replace($c2($3-),~,$+($chr(3),04,~,$chr(3)),&,$+($chr(3),04,&,$chr(3)),@,$+($chr(3),04,@,$chr(3)),%,$+($chr(3),03,%,$chr(3)),+,$+($chr(3),02,+,$chr(3)))))
}
raw 473:*:{
haltdef
echo -as $c1(ERROR - ) $c2($2) $c1(is invite only. You must either be invited $+ $chr(44) or have mode +I set on you in the channel to join.)
}
raw 474:*:{
haltdef
echo -as $c1(ERROR - ) $c2(BANNED) $c1(from the channel) $c2($2) $+ $c1($chr(44) what did you do?!)
}
raw 475:*:{
haltdef
echo -as $c1(ERROR - ) $c2($2) $c1(You needs a key to allow you to join.)
}
raw 477:*:{
haltdef
echo -as $c1(ERROR - ) $c2($2) $c1(is currently allowing registered users only to join. Please) $c2(identify) $c1(to your nickname before trying to join.)
}
raw 520:*:{
haltdef
echo -as $c1(ERROR - ) $c2($4) $c1(is currently allowing only IRC operators and above to join. Please) $c2(oper up) $c1(before trying to join again)
}
Raw 333:*:{
haltdef
echo -tm $2 $c1(Set by) $c2($3) $c1(on) $c2($asctime($4-))
}
raw 312:*:{
haltdef
echo -at $c2($2) $c1(is using server:) $c2($3) $c1(Server info:) $tc2($4-)
}
raw 307:*:{
haltdef
echo -at $c2($2) $c1(has identified for this nickname.)
}
raw 317:*:{
haltdef
echo -at $c2($2) $c1(has been idle for) $c2($duration($3)) tc1(- Signed on) $c2($asctime($4))
}
raw 318:*:{
haltdef
echo -at $c1([End Whois/) $+ $c2($2) $+ $c1(])
}
raw 536:*:{
haltdef
echo -at $c2($2) $c1(is filtering messages (UMODE +f))
}
raw 378:*:{
haltdef
echo -at $c2($2) $c1(is connecting from) $c2($6) $c1(Server IP address:) $c2($7)
}
raw 671:*:{
haltdef
echo -at $c2($2) $c1(is using an SSL connection.)
}
raw 313:*:{
haltdef
echo -at $c2($2) $c1(is a(n)) $c2($5-)
}
raw 320:*:{
haltdef
echo -at $c1(SWHOIS:) $c2($2) $c1($3-)
}
raw 301:*:{
haltdef
echo -at $c2($2) $c1(is away -) $c2($3-)
}
raw 310:*:{
haltdef
echo -at $c2($2) $c1(is a network Help Operator (UMODE +h))
}
on ^*:TOPIC:*:{
haltdef
echo -t # $c2($arrow) $c2($iif($nick == $me,You,$nick)) $c1($iif($nick == $me,have,has) changed the topic to) $c2(' $+ $1- $+ ')
}
alias amsg {
var %z 1
while (%z <= $comchan($me,0)) {
if (!$istok(#Idle #idlerpg #msl #mirc #rshelp,$chan(%z),32)) {
.msg $chan(%z) $1-
echo -t $chan(%z) $+($c1,[,$c2,$me,$c1,]) $c2($1-)
}
inc %z
}
}
on ^*:NICK:{
haltdef
var %z 1
while ($comchan($newnick,%z)) {
echo -t $comchan($newnick,%z) $c2($arrow) $c2($nick) $c1(is now known as) $c2($newnick)
inc %z
}
if ($nick == $me) { .cnick -r $me | .cnick $newnick 4 | .cnick on }
}

on ^*:QUIT:{
haltdef
var %z 1
while ($comchan($nick,%z)) {
echo -t $comchan($nick,%z) $c2($arrow) $c2($nick) $+($c1,[,$c2,$address,$c1,]) $c1(has quit IRC.) $iif($1,$+($c1,[,$c2,$1-,$c1,]))
inc %z
}
}
on *:TEXT:$($+(*,$me,*)):*:{
haltdef
dialog -md highlight highlight
did -i highlight 2 1 $iif(#,#,query with $nick) | did -i highlight 3 1 By $nick saying | did -i highlight 4 1 $1-
}
dialog highlight {
title "Highlighted"
size -1 -1 92 59
option dbu
text "You have been highlighted in", 1, 1 1 90 8, center
text "", 2, 1 10 90 8, center
text "", 3, 1 19 90 8, center
text "", 4, 1 28 90 30, center
}

Comments

Sign in to comment.
Anon_Lewy   -  Aug 30, 2012
This script was Pretty Nice :) I give it a 9/10 honestly all I would add to it would be the ability to Customize the colors
 Respond  
chachin   -  Nov 15, 2011
I like it a lot 8/10 but i took the "month/day/year" because its annoying D: like why would i wanna know that :P
 Respond  
Person   -  Aug 03, 2011
its ok.
 Respond  
Majin-Vegeta   -  Jul 21, 2011
Thanks :]
 Respond  
irchainscriptz   -  Jul 19, 2011
Nice job, well done.
 Respond  
Savage_CL   -  Jul 17, 2011
look into $tip for the highlight script.
 Respond  
PyThOn   -  Jul 16, 2011
Nice Job +like.
And advertising for this would be kinda cool.
And i think this is how u would do that.
alias advertise {
msg $iif(%chan,$v1,$active) 14{11~15~11 I'm using %logo script 11~15~14}
}
 Respond  
AmytiX   -  Jul 16, 2011
Very nice ;) like it
 Respond  
Majin-Vegeta   -  Jul 16, 2011
Thanks :]
 Respond  
Aha2Y   -  Jul 16, 2011
Lol nappa is famous, they even whois them for pics.

Ontopic: Very nice, Good work!
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.