mirc theme with alignment

By cofvempire on Jul 21, 2011

Screenshots

it's my first theme, i know its not perfect but i'm trying to make it work perfectly :)
its based on a nnscripttheme and works best with font lucida console size 9
and a dark background
i used a highlighting script from some else (don't remember who but credits go to him)
i used it on mirc 6.34 and the highlighting, flashing, beeping stopped working with this theme so i included that it will flash and beep when someone says u nick with a recognition to see where :)

the nicknames have a -,+,%,@ depending on there status in the channel with a different color also

on ^*:TEXT:*:?: {
  haltdef
  if ($query($nick)) {
    /beep 2
    /flash
    echo $nick $time(14HH4:14nn) -15 $+ $nick $+ $thspace $thop 14 •15 $1-
  }
}

on ^*:TEXT:*:#: {
  haltdef
  if ($me isin $1-) {
  var %qtip $tip(highlight,Highlight in $chan,» $nick said $chan $chr(40) $+ $time $+ $chr(41)) | /beep 3 | echo $chan $time(14HH4:14nn) 4-> $+ 14 $+ $nick $+ $thspace $thop 14•4 $1- }
  elseif ($nick isop $chan) { echo $chan $time(14HH4:14nn) 4 $+ @ $+ $nick $+ $thspace $thop 14 •15 $1- }
  elseif ($nick ishop $chan) { echo $chan $time(14HH4:14nn) 4 $+ % $+  $+ $nick $+ $thspace $thop 14 •15 $1- }
  elseif ($nick isvoice $chan) { echo $chan $time(14HH4:14nn) +15 $+ $nick $+ $thspace $thop 14 •15 $1- }
  else { echo $chan $time(14HH4:14nn) -14 $+ $nick $+ $thspace $thop 14 •15 $1-
  }
}
on *:INPUT:*: {
  if (/ !isin $left($1,1)) { 
    haltdef
    .tsay $1-
  }
}
alias thspme return $str($chr(160),$calc(16 - $len($me)))
alias thspace return $str($chr(160),$calc(15 - $len($nick)))
alias thjoin return $str($chr(160),$calc(16 - $len($nick)))
alias thnotice return $str($chr(160),$calc(11 - $len($nick)))
alias thnotices return $str($chr(160),$calc(5 - $len($nick)))
alias thtopic return $str($chr(160),$calc(22 - $len($nick)))
alias thme return $str($chr(160),$calc(10 - $len($nick)))
alias tsay {
  if ($me isop $chan) { echo $chan $time(14HH4:14nn) 4 $+ @ $+  $+ $me $+ $thspme $thop 14•15 $1- }
  elseif ($me ishop $chan) { echo $chan $time(14HH4:14nn) 4 $+ % $+  $+ $me $+ $thspme $thop 14•15 $1- }
  elseif ($me isvoice $chan) { echo $chan $time(14HH4:14nn) +15 $+  $+ $me $+ $thspme $thop 14•15 $1- }
  else { echo $chan $time(14HH4:14nn) - $+ 0 $+ $me $+ $thspme $thop 14•15 $1- }
  .msg $active $1-
}
alias me {
  haltdef
  if ($me isop $chan) { echo $chan $time(14HH4:14nn) 4 $+ @ $+  $+ $me $+ $thme $thop 14 >15 $1- }
  elseif ($me ishop $chan) { echo $chan $time(14HH4:14nn) 4 $+ % $+  $+ $me $+ $thme $thop 14 >15 $1- }
  elseif ($me isvoice $chan) { echo $chan $time(14HH4:14nn) +15 $+  $+ $me $+ $thme $thop 14 >15 $1- }
  else { echo $chan $time(14HH4:14nn) - $+ 0 $+ $me $+ $thme $thop 14 >15 $1- }
  .me $1-
}
alias notice {
  if (!$isid) {
    .!notice $1-
    if (!$show) { return }
  echo -a $time(14HH4:14nn) 4to15 $$1 $thnotices $thop 15 - $2- }
}
alias msg {
  if (!$isid) {
    .!msg $1-
    if (!$show) { return }
  echo $chan $time(14HH4:14nn) message to 4-> 15 $+ $$1 14 •15 $2- }
}
alias join {
  join #$1 $1
}
on ^*:ACTION:*:#: {
  haltdef
  if ($nick isop $chan) { echo $chan $time(14HH4:14nn) 4 $+ @ $+  $+ $nick $+ $thspace $thop 14 >15 $1- }
  elseif ($nick ishop $chan) { echo $chan $time(14HH4:14nn) 4 $+ % $+  $+ $nick $+ $thspace $thop 14 >15 $1- }
  elseif ($nick isvoice $chan) { echo $chan $time(14HH4:14nn) +15 $+  $+ $nick $+ $thspace $thop 14 >15 $1- }
  else { echo $chan $time(14HH4:14nn) - $+ 14 $+ $nick $+ $thspace $thop 14 >15 $1-
  }
}
on ^*:ACTION:*:?: {
  haltdef
  if ($nick isop $chan) { echo $chan $time(14HH4:14nn) 4 $+ @ $+  $+ $nick $+ $thspace $thop 14 >15 $1- }
  elseif ($nick ishop $chan) { echo $chan $time(14HH4:14nn) 4 $+ % $+  $+ $nick $+ $thspace $thop 14 >15 $1- }
  elseif ($nick isvoice $chan) { echo $chan $time(14HH4:14nn) +15 $+  $+ $nick $+ $thspace $thop 14 >15 $1- }
  else { echo $chan $time(14HH4:14nn) - $+ 14 $+ $nick $+ $thspace $thop 14 >15 $1-
  }
}
on ^*:TOPIC:#: {
  haltdef
  echo $chan $timstamp $time(14HH4:14nn)  $nick $thspace $thop 4 •14 changed topic to $1- 
}
on ^*:RAWMODE:#: {
  haltdef
  echo $chan $time(14HH4:14nn) $nick $thspace $thop 4 •14 sets mode $1- 
}
on ^*:JOIN:#: {
  haltdef
  var %nick = $mid($address($nick,5),1,$calc($pos($address($nick,5),!,$count($address($nick,5),!)) - 1))
  var %address = $remove($address($nick,5),$mid($address($nick,5),1,$pos($address($nick,5),!,$count($address($nick,5),!))))
echo $chan $time(14HH4:14nn) $nick $thjoin $thop 4/14 ( $+ %address $+ ) joined $chan }
on ^*:PART:#: {
  haltdef
  var %nick = $mid($address($nick,5),1,$calc($pos($address($nick,5),!,$count($address($nick,5),!)) - 1))
  var %address = $remove($address($nick,5),$mid($address($nick,5),1,$pos($address($nick,5),!,$count($address($nick,5),!))))
  echo $chan $time(14HH4:14nn) $nick $thjoin $thop 4/14 ( $+ %address $+ ) left $chan
}
on ^*:QUIT: {
  haltdef
  var %nick = $mid($address($nick,5),1,$calc($pos($address($nick,5),!,$count($address($nick,5),!)) - 1))
  var %address = $remove($address($nick,5),$mid($address($nick,5),1,$pos($address($nick,5),!,$count($address($nick,5),!))))
  var %chc = 1
  var %chb = $comchan($nick,0)
  while (%chc <= %chb) {
    echo $comchan($nick,%chc) $time(14HH4:14nn) $nick $thjoin $thop 4/14 ( $+ %address $+ ) left $server $+ . ( $+ $serverip $+ ) with reason: $iif($1-,$1-,N/A))
    inc %chc
  }
}
on ^*:KICK:#: {
  haltdef
  echo $chan $time(14HH4:14nn) $nick $thspace $thop 4 • $+  has $knick kicked out in $chan $+ . with reason: $iif($1-,$1-,N/A))
}
on ^*:BAN:#: {
  haltdef
  echo $chan $time(14HH4:14nn) $nick $thspace $thop 4 • $+  has $banmask done in $chan $+ 
}
on ^*:UNBAN:#: {
  haltdef
  echo $chan $$time(14HH4:14nn) $nick $thspace $thop 4 • $+  sets -b in $chan op $2-
}
on ^*:NOTICE:*:*: {
  haltdef
  if ($activecid == $cid) {
  echo -a $time(14HH4:14nn) 4from15 $nick $thnotice $thop 15 - $1- }
}
elseif ($activecid != $cid) {
echo -a $time(14HH4:14nn) $nick ( $+ $server $+ )) $+ 0: $1- }
}
}
}

Comments

Sign in to comment.
Virusless   -  Sep 08, 2011

That'll do for now. Thanks :)

 Respond  
BigSteve   -  Sep 07, 2011

change your MIRC's default back ground lol so much easier to read on black

 Respond  
Virusless   -  Sep 07, 2011

My only problem with the theme is standard text colour. I have a white background and the nearly-white text is very hard to read. what variable would Ineed to change to put a new colour there?

 Respond  
Savage_CL   -  Aug 01, 2011

Nyamuk, This script works only with monotype fonts. What monotype means is that no matter what character is entered, it takes up the same horizontal space as any other character. Because of this. One is able to know for certain that 16 characters will take up the same amount of space horizontally, no matter which 16 characters they are.

Times New Roman is not this type of font. It takes up less space for "i" than it does for "o" and so on. This type of script would be impossible to do well for a font like Times New Roman.

If you don't like the font he suggests, you can go online and look for a monotype font that you do like. There are a lot of free font websites.

Cheers :)

 Respond  
Nyamuk   -  Jul 24, 2011

hello Cofvempire! can u make this script for times new roman font? i like this theme.. :)

 Respond  
cofvempire   -  Jul 23, 2011

thats a personal choice :) but tnx for saying :)

 Respond  
Savage_CL   -  Jul 22, 2011

You should right align the Nicks along the axis. it should be an easy fix. It will look better.

 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.