Theme customization

By dataprofile on Sep 10, 2007

A simple theme customization system. You can edit the designs and colors of different events by editing one simple alias that enables you to change design, brackets, prefixes, and colors.

Usage:

Go to the remotes section the snippet is in and go to the _evan_form_conf alias. You will see ,,,,, in the body of the alias. Replace these tokens with new ones of your choice.

; What each is:

- As the name states, a design that will go before the display of most events you see in the snippet. - This is your secondary color. This will be used for small things such as brackets or bits of text. - This is your main color. It will take over most of the text in an event. - This is your left bracket for an object. For example, if I chose ( as my left bracket, it would return ( - The bracket to the right of an object. It is pretty much the opposite of what is stated above and completes the pair. - As you can probably tell by the name, it is the prefix char before the action text. Notes: When forming your colors be sure to include ctrl k before the actual color. Otherwise you will end up with a bunch of numbers in your text. ;) ```mirc ; Theme customization ; By data on ^&*:kick:#:{ var %u = $gettok($_eval_form_conf,2,44), %t = $gettok($_eval_form_conf,3,44) echo -ti2 $chan $+(%t,$gettok($_eval_form_conf,1,44),$chr(32),%u,Kick:,$chr(32),%t,$nick,has kicked:,$chr(32),%u,$knick,%t,$chr(32),$gettok($eval_form_conf,4,44),%u,$1-,%t,$gettok($_eval_form_conf,5,44)) if ($knick iswm $me) { echo -ati2 $+(%t,$gettok($_eval_form_conf,1,44),$chr(32),%u,Kick:,$chr(32),%t,You,were kicked by:,$chr(32),%u,$nick,%t,$chr(32),$gettok($eval_form_conf,4,44),%u,$1-,%t,$gettok($_eval_form_conf,5,44)) } haltdef } on ^&*:notify:{ var %u = $gettok($_eval_form_conf,1,44) echo -ati2 $+($gettok($_eval_form_conf,2,44),%u,$chr(32),Notify:) $+($gettok($_eval_form_conf,3,44),%x) $+($gettok($_eval_form_conf,3,44),is now offline!,$chr(3)) haltdef } on ^&*:unotify:{ var %u = $gettok($_eval_form_conf,1,44) echo -ati2 $+($gettok($_eval_form_conf,2,44),%u,$chr(32),Unotify:) $+($gettok($_eval_form_conf,3,44),%x) $+($gettok($_eval_form_conf,3,44),is now offline!,$chr(3)) haltdef } on ^&*:nick:{ var %i = 1 while (%i <= $comchan($newnick, 0)) { echo -ti2 $comchan($newnick, %i) $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,1,44),$chr(32),$gettok($_eval_form_conf,2,44),$nick) $+($gettok($_eval_form_conf,3,44),is now known as,$chr(32),$gettok($_eval_form_conf,2,44),$newnick) inc %i } if ($newnick = $me) { echo -ati2 $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,1,44),$chr(32),$gettok($_eval_form_conf,2,44),You) $+($gettok($_eval_form_conf,3,44),are now known as,$chr(32),$gettok($_eval_form_conf,2,44),$newnick) } haltdef } on ^*:action:*:#:{ echo -ti2 $chan $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,6,44),$chr(32),$gettok($_eval_form_conf,3,44),$nick,$chr(3),$chr(32),$1-) haltdef } on ^*:action:*:?:{ echo -ti2 $nick $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,6,44),$chr(32),$gettok($_eval_form_conf,3,44),$nick,$chr(3),$chr(32),$1-) haltdef } on ^&*:notice:*:*:{ echo -ati2 $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,1,44),$chr(32),$gettok($_eval_form_conf,3,44),Notice from,$chr(32),$gettok($_eval_form_conf,2,44),$nick,:,$chr(3),$chr(32),$1-) haltdef } on ^&*:text:*:#: { echo -ti2 $chan $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,4,44),$gettok($_eval_form_conf,3,44),$nick,$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,5,44),$chr(3),$chr(32),$1-) haltdef } on ^&*:text:*:?: { echo -ti2 $nick $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,4,44),$gettok($_eval_form_conf,3,44),$nick,$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,5,44),$chr(3),$chr(32),$1-) haltdef } on ^&*:join:#: { echo -ti2 $chan $+($gettok($_eval_form_conf,1,44),$chr(32),$gettok($_eval_form_conf,2,44),Join:,$chr(3),$chr(32),$gettok($_eval_form_conf,3,44),$nick,$chr(32),$gettok($_eval_form_conf,4,44),$chr(3),$gettok($_eval_form_conf,2,44),$address,$gettok($_eval_form_conf,3,44),$gettok($_eval_form_conf,5,44),$chr(3)) haltdef } on ^&*:part:#: { echo -ti2 $chan $+($gettok($_eval_form_conf,1,44),$chr(32),$gettok($_eval_form_conf,2,44),Part:,$chr(3),$chr(32),$gettok($_eval_form_conf,3,44),$nick,$chr(32),$gettok($_eval_form_conf,4,44),$chr(3),$gettok($_eval_form_conf,2,44),$address,$gettok($_eval_form_conf,3,44),$gettok($_eval_form_conf,5,44),$chr(3)),$gettok($_eval_form_conf,4,44),$chr(3),$gettok($_eval_form_conf,2,44),$1-,$gettok($_eval_form_conf,3,44)) haltdef } on ^&*:quit: { var %1 = 1 while (%1 <= $comchan($nick, 0)) { %2 = $comchan($nick, %1) echo -ti2 %2 $+($gettok($_eval_form_conf,1,44),$chr(32),$gettok($_eval_form_conf,2,44),Quit:,$chr(3),$chr(32),$gettok($_eval_form_conf,3,44),$nick,$chr(3),$chr(32),$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,4,44),$chr(3),$gettok($_eval_form_conf,3,44),$address,$chr(3),$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,5,44),$chr(3),,$chr(32),$gettok($_eval_form_conf,2,44),$1-,$chr(3)) inc %1 } haltdef } on ^&*:rawmode:#: { echo -ti2 $chan $+($gettok($_eval_form_conf,1,44),$chr(32),$gettok($_eval_form_conf,2,44),$chr(32),Mode:,$chr(32),$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,4,44),$gettok($_eval_form_conf,3,44),$nick,$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,5,44),$chr(32),$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,4,44),$gettok($_eval_form_conf,3,44),$1-,$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,5,44),$chr(3)) haltdef } on &*:input:#: { if ($left($1, 1) == /) && ($ctrlenter == $false) return echo -ati2 $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,4,44),$gettok($_eval_form_conf,3,44),$me,$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,5,44),$chr(3),$chr(32),$1-) .msg $active $1- halt } on &*:input:?: { if ($left($1, 1) == /) && ($ctrlenter == $false) return echo -ati2 $+($gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,4,44),$gettok($_eval_form_conf,3,44),$me,$gettok($_eval_form_conf,2,44),$gettok($_eval_form_conf,5,44),$chr(3),$chr(32),$1-) .msg $active $1- halt } alias _eval_form_conf { return ,,,,, } ;EOF ```

Comments

Sign in to comment.
SnoooP   -  Jan 21, 2010
  • Kick: Corinthianhas kicked: Bertrum Corinthian)...

Corinthian has <-- is what it should be ;x

 Respond  
Zsadist   -  Sep 24, 2007

Hm not bad. But mine is smaller, and more effective :)

 Respond  
dataprofile   -  Sep 11, 2007

Edited.

 Respond  
Spartacus   -  Sep 11, 2007
($ctrlenter == $false)

could be simply :

(!$ctrlenter)
 Respond  
dataprofile   -  Sep 11, 2007

*updated:

added events and a way to configure everything easily.

 Respond  
dataprofile   -  Sep 10, 2007

Comments, suggestions, criticism?

 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.