My mIRC theme

By Majin-Vegeta on 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
}
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.