Theme customization
Platform: mIRC
Published Sep 10, 2007
Updated Sep 12, 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 <prefix>,<color1>,<color2>,<bracket1>,<bracket2>,<action prefix> in the body of the alias. Replace these tokens with new ones of your choice.
; What each is:
<prefix> - As the name states, a design that will go before the display of most events you see in the snippet.
<color1> - This is your secondary color. This will be used for small things such as brackets or bits of text.
<color2> - This is your main color. It will take over most of the text in an event.
<bracket1> - This is your left bracket for an object. For example, if I chose ( as my left bracket, it would return (<text>
<bracket2> - The bracket to the right of an object. It is pretty much the opposite of what is stated above and completes the pair.
<action prefix> - 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. ;)
; 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 <prefix>,<color1>,<color2>,<bracket1>,<bracket2>,<action prefix>
}
;EOF