unReal IRC Theme Engine

Platform:  mIRC
Published  Dec 12, 2009
Updated  Nov 04, 2010

Screenshots

This is my pride and joy when it comes to mIRC Script. I've spent the most time on this script and I'm always looking for ways to improve it.

This Theme Engine isn't as customizable as MTS, however, it is much, much simpler. My Theme Engine gives your mIRC a unique look and allows you to load custom theme files to change colors and symbols. Of course, you may be questioning "Well I can change colors and symbols on my own!" but I guarantee if you use my script you'll love it.

Contact me for themes, I'm too lazy to create a new link w/ the Read Me and my created themes. I'll email you if you really want them.

I am open to any questiosn/suggestions.

I've finally added the UNR Theme Creator aspect of the script. You can now create your themes. Its pretty much self explanatory, open the Theme Loader dialog and click create new. You can add schemes, edit palettes, edit brackets, prefixes. Anything my theme engine has options for you can edit. Which isn't that much, but its enough to make you love this script.

As I've said above, its a very simplistic looking theme engine. However, for what it does, it in my opinion is really freaking cool. Lol.

Please rate, comment, leave suggestions, anything! All feedback is greatly appreciated!

Here are some of my premade themes:
http://www.mediafire.com/darkwarrior

NOTES:
-PLACE THE .MRC LAST IN YOUR ORDER OF SCRIPTS. OPEN YOUR REMOTES -> REMOTES TAB -> FILE -> ORDER.
-ONLY TESTED W/ VERSION 6.32+
-DO NOT RELOAD TEMP THEME.
-YOU CANNOT EDIT THEMES WITH THE THEME CREATOR, WORKING ON THAT.
-PLEASE WHEN THE DIALOG APPEARS ASKING YOU TO ALLOW SCRIPTS TO INITIALIZE ALLOW THEM TO INITIALIZE!! THE SCRIPT IS CREATING IMPORTANT FILES IT NEEDS!! DON'T COMPLAIN IF YOU DID NOT ALLOW IT TO INITIALIZE!!

Updates:

10/24/2010:
-Upon further inspection I realized I accidentally deleted and repeated a part of the script to edit the Amsg field. Fixed.

10/23/2010:
-Finally added the Theme Creator! Enjoy!
-Fixed minor errors.

9/7/2010
- Dark Theme should now load.
- Topic creation Time/Date fixed.
- Various tiny errors found.

12/12/09
- Fixed: * /hmake: table 'theme' exists

12/13/09
- Fixed issues with script not working with Windows XP users. However, theme file won't load.. Working on it! Testers would be appreciated!
- Changed the way the Temporary Theme loads. It should keep your currently using colors instead of loading a different color set.

Known Errors:

- 'Zero Error': When the text you are typing begins with '0' the text will not be messaged. (ie. /msg $chan 0 or /msg $chan 0 text)

Currently-In-Progress:
-Adding an Edit Theme feature to correct/fix themes.
-Going to one way or another formulate some sort of help topic, or ReadMe w/ complete instructions as to how the scripts work and etc.
- Any ideas? Leave them below. /*
unRealIRC
Theme Engine
Scripted By: DarkWarrior
Version 5.0
Theme Creator
Scripted by: DarkWarrior
Version 1.0
*/

dialog unrthemecreator {
title "Theme Creator"
size -1 -1 232 161
option dbu
list 1, 5 9 110 98, size hsbar vsbar
text "*** Double Click to edit field***", 2, 6 109 108 8, disable center
check "Enable Schemes", 3, 124 20 50 10
combo 4, 124 33 53 40, disable size edit vsbar
button "Add", 5, 180 34 37 10, disable
button "Delete", 6, 180 48 37 10, disable
box "Schemes", 7, 117 9 109 73
button "Reset Fields", 8, 132 91 78 10
button "Save Theme", 9, 132 131 78 10
edit "", 10, 132 116 78 10
text "Filename: (No Spaces)", 11, 133 107 69 8
check "Load into Theme Loader", 12, 132 146 75 11
edit "", 13, 5 120 110 31, read multi vsbar
}

alias createtheme { dialog $iif($dialog(unrthemecreator),-v unrthemecreator,-md unrthemecreator unrthemecreator) }

alias -l unrfieldinfo {
var %info
if ($1 == 1) { %info = #NAME $+ $crlf $+ This field's parameters are merely the name of the Theme itself. (ie. unReal) The parameters will not translate any of the UNR Theme Engine tags. }
elseif ($1 == 3) { %info = #PREFIX $+ $crlf $+ The parameter for this field will be used to prefix most events. }
elseif ($1 == 4) { %info = #RAWPREFIX $+ $crlf $+ The paremeter for this field will be used as a prefix to raw events and other misc. events or scripts to be distingushable from normal events. It is recommended the #PREFIX be different then #RAWPREFIX. }
elseif ($1 == 6) { %info = #LEFT $+ $crlf $+ The parameter of this field will be the left bracket used in the '$skin' feature of the UNR Theme Engine. }
elseif ($1 == 7) { %info = #RIGHT $+ $crlf $+ The parameter of this field will be the right bracket used in the '$skin' feature of the UNR Theme Engine. }
elseif ($1 == 9) { %info = #TIMESTAMP $+ $crlf $+ The parameter of this field determines the look and format of your timestamp. }
elseif ($1 == 11) { %info = #FONT $+ $crlf $+ The parameters of this field will determine the font style and size of the text displayed throughout mIRC's windows. }
elseif ($1 == 13) { %info = #AMSG $+ $crlf $+ This field's parameters determine who each of your amsg's (All channel messages) will be prefixed. }
elseif ($1 == 15) { %info = #NICKMSG $+ $crlf $+ This field's parameters will determine how the text is displayed in the chat when someone is speaking. }
elseif ($1 == 17) { %info = #PALETTE $+ $crlf $+ The parameters of this field will determine the 16 color codes available to mIRC in scripts and display. }
elseif ($1 > 18) {
if ($gettok($gettok($did(1).seltext,1,32),1,46) == #COLORS) { %info = #COLORS $+ $crlf $+ The parameters of this field determine the four main colors used in the '$skin' function, various scripts, and events. }
elseif ($gettok($gettok($did(1).seltext,1,32),1,46) == #MODECOLOR) { %info = #MODECOLOR $+ $crlf $+ The parameters of this field determine the colors of individual nicknames based on their status. }
elseif ($gettok($gettok($did(1).seltext,1,32),1,46) == #OWNCOLOR) { %info = #OWNCOLOR $+ $crlf $+ The parameters of this field determine the color your nickname will be displayed in the chat. }
elseif ($gettok($gettok($did(1).seltext,1,32),1,46) == #SCHEME) { %info = #SCHEME $+ $crlf $+ This field's parameters determine the color of each event displayed within the chat. }
elseif ($gettok($gettok($did(1).seltext,1,32),1,46) == #SCHEMES) { %info = #SCHEMES $+ $crlf $+ This field tells UNR Theme Engine that there are multiple schemes to be used within this theme and the name of each scheme. }
}
did -a $dname 13 %info
}

alias -l unrfieldedit {
if ($1 == 1) {
dialog -mao name unrcedit
}
if ($1 == 3) {
dialog -mao prefix unrcedit
}
if ($1 == 4) {
dialog -mao rprefix unrcedit
}
if ($1 == 6) {
dialog -mao leftbracket unrcedit
}
if ($1 == 7) {
dialog -mao rightbracket unrcedit
}
if ($1 == 9) {
dialog -mao timestamp unrcedit
}
if ($1 == 11) {
editfont
}
if ($1 == 13) {
dialog -mao amsg unrcedit
}
if ($1 == 15) {
dialog -mao nickmsg unrcedit
}
if ($1 == 17) {
dialog -mao editpal editpal
}
elseif ($1 > 18) {
set %did $1
set %field $gettok($did(unrthemecreator,1,$1),1,32)
set %entry $gettok($did(unrthemecreator,1,$1),2-,32)
if ($gettok(%field,1,46) == #COLORS) {
dialog -mao colors editcol
}
elseif ($gettok(%field,1,46) == #MODECOLOR) {
dialog -mao modecolors editcol
}
elseif ($gettok(%field,1,46) == #OWNCOLOR) {
dialog -mao owncolor editcol
}
elseif ($gettok(%field,1,46) == #SCHEME) {
dialog -mao editscheme editscheme
}
}
}

dialog -l schmpre {
title "Scheme Preview"
size -1 -1 254 116
option dbu
icon 1, 2 2 250 100, $scriptdirdpreview.bmp, 0
button "Close", 2, 87 104 80 10, ok cancel
}

on *:dialog:schmpre:init:*:scheme.preview

alias -l scheme.preview {
if (%unrc.dialog == editscheme) {
var %font = $qt($gettok($gettok($did(unrthemecreator,1,11),2-,32),2-,32)) $gettok($gettok($did(unrthemecreator,1,11),2-,32),1,32),%timestamp = $gettok($did(unrthemecreator,1,9),2-,32),%rawprefix = $pttok_($gettok($did(unrthemecreator,1,4),2-,32)),%prefix = $pttok_($gettok($did(unrthemecreator,1,3),2-,32))
window -hp +f @scheme.preview 0 0 500 200 | clear @scheme.preview
drawfill -r @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,1,44) + 1),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok(%entry,$gettok(%entry,1,44),44),44) 0 0
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,8,44) +1),44) %font 0 0 $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,02,ss,52,tt,pm,t,p,TT,PM,T,P)) %prefix (Join) Hirako : ~Vizard@XC-DW1337.socal.res.com
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,10,44) + 1),44) %font 0 $linespace_(13) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,02,ss,53,tt,pm,t,p,TT,PM,T,P)) %prefix (Mode Set) +o Hirako : set by ChanServ
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,12,44) + 1),44) %font 0 $linespace_(26) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,02,ss,55,tt,pm,t,p,TT,PM,T,P)) $pttok_(5,+,Pyro,How do I use this script?).n
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,10,44) + 1 ),44) %font 0 $linespace_(39) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,01,tt,pm,t,p,TT,PM,T,P)) %prefix (Mode Set) +b *!*@XC-568DH48.cable.cal.net : set by $me
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,9,44) + 1),44) %font 0 $linespace_(52) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,01,tt,pm,t,p,TT,PM,T,P)) %prefix (Kick) Pyro from #unReal : by $me » BOOM! Headshot! - unRealIRC - 89
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,16,44) + 1),44) %font 0 $linespace_(65) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,05,tt,pm,t,p,TT,PM,T,P)) $pttok_(@,$me,Noobs really annoy me...).m
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,12,44) + 1),44) %font 0 $linespace_(78) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,08,tt,pm,t,p,TT,PM,T,P)) $pttok_(3,@,Hirako,Lulz. Abuse much?).n
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,2,44) + 1),44) %font 0 $linespace_(91) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,14,tt,pm,t,p,TT,PM,T,P)) » @ $me slaps Hirako around with a "Ask me if I care?"
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,12,44) + 1),44) %font 0 $linespace_(104) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,21,tt,pm,t,p,TT,PM,T,P)) $pttok_(4,%,Hyrule,Hey $me can you help me for a sec?).n
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,16,44) + 1),44) %font 0 $linespace_(117) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,23,tt,pm,t,p,TT,PM,T,P)) $pttok_(@,$me,Sure Hyrule).m
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,6,44) + 1),44) %font 0 $linespace_(130) $chr(160) $pttok_($replacecs(%timestamp.e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,27,tt,pm,t,p,TT,PM,T,P)) %rawprefix [Incoming Private Message] Hyrule : ~Zelda@XC-5895J7.dslw.net
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,18,44) + 1),44) %font 0 $linespace_(143) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,49,tt,pm,t,p,TT,PM,T,P)) %prefix (Quit) Hyrule : ~Zelda@XC-5895J7.dsl.net « Quit: user exited
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,13,44) + 1),44) %font 0 $linespace_(156) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,53,tt,pm,t,p,TT,PM,T,P)) %prefix (Notice : #unReal) @ Hirako » Behave while I'm away!
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,11,44) + 1),44) %font 0 $linespace_(169) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,04,ss,01,tt,pm,t,p,TT,PM,T,P)) %prefix (Nick Change) Hirako is now Hir[a]ko
drawtext -pr @scheme.preview $gettok($gettok($did(unrthemecreator,1,17),2-,32),$calc($gettok(%entry,17,44) + 1),44) %font 0 $linespace_(182) $chr(160) $pttok_($replacecs(%timestamp,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,04,ss,09,tt,pm,t,p,TT,PM,T,P)) %prefix (Part) Dead : ~Death@XC-32LK4R.socal.cable.com
drawsave @scheme.preview schemepreview.bmp
window -c @scheme.preview
did -gv $dname 1 schemepreview.bmp
.remove schemepreview.bmp
}
}

alias linespace_ {
if ($left($gettok($gettok($did(unrthemecreator,1,11),2-,32),1,32),1) == -) {
var %fontsize = $remove($gettok($gettok($did(unrthemecreator,1,11),2-,32),1,32),-)
return $round($calc((%fontsize * $1) / 8),0)
}
else {
var %fontsize = $gettok($gettok($did(unrthemecreator,1,11),2-,32),1,32)
return $round($calc((%fontsize * $1) / 11),0)
}
}

alias pc_ { return $+($chr(3),$dd($gettok($gettok($did(unrthemecreator,1,$calc(%did - 3)),2-,32),$1,32))) }

alias pttok_ {
if ($prop == n) {
var %preturn2 = $replace($gettok($did(unrthemecreator,1,15),2-,32),<nick>,$2 $+($chr(3),$gettok($gettok($did(unrthemecreator,1,$calc(%did - 2)),2-,32),$1,32),$3,$chr(3)),<msg>,$4-,<o>,,<c>,$chr(3),<c1>,$pc_(1),<c2>,$pc_(2),<c3>,$pc_(3),<c4>,$pc_(4),<u>,,<r>,,<b>,)
return %preturn2
}
if ($prop == m) {
var %preturn4 = $replace($gettok($did(unrthemecreator,1,15),2-,32),<nick>,$1 $+($chr(3),$gettok($gettok($did(unrthemecreator,1,$calc(%did - 1)),2-,32),2-,32),$2,$chr(3)),<msg>,$3-,<o>,,<c>,$chr(3),<c1>,$pc_(1),<c2>,$pc_(2),<c3>,$pc_(3),<c4>,$pc_(4),<u>,,<r>,,<b>,)
return %preturn4
}
if (!$prop) {
var %preturn3 = $replace($1-,<o>,,<c>,,<c1>,$pc_(1),<c2>,$pc_(2),<c3>,$pc_(3),<c4>,$pc_(4),<u>,,<r>,,<b>,)
return %preturn3
}
}

dialog -l editscheme {
title "Edit Field - Scheme"
size -1 -1 100 66
option dbu
list 1, 5 5 54 35, size vsbar
combo 2, 65 5 27 60, size limit 2 drop
icon 3, 68 18 15 15
button "Save", 4, 32 53 37 10
button "Preview", 5, 32 42 37 10
}

on *:dialog:editscheme:init:*: {
set %unrc.dialog editscheme
did -a $dname 1 Background
did -a $dname 1 Action text
did -a $dname 1 Ctcp text
did -a $dname 1 Highlight text
did -a $dname 1 Info text
did -a $dname 1 Info2 text
did -a $dname 1 Invite text
did -a $dname 1 Join text
did -a $dname 1 Kick text
did -a $dname 1 Mode text
did -a $dname 1 Nick test
did -a $dname 1 Normal text
did -a $dname 1 Notice text
did -a $dname 1 Notify text
did -a $dname 1 Other text
did -a $dname 1 Own text
did -a $dname 1 Part text
did -a $dname 1 Quit text
did -a $dname 1 Topic text
did -a $dname 1 Wallops text
did -a $dname 1 Whois text
did -a $dname 1 Editbox
did -a $dname 1 Editbox text
did -a $dname 1 Listbox
did -a $dname 1 Listbox text
did -a $dname 1 Gray text
did -a $dname 1 Title text
did -a $dname 1 Inactive
did -a $dname 1 Treebar
did -a $dname 1 Treebar text
var %x = 0
while (%x <= 15) {
did -a $dname 2 $dd(%x)
inc %x
}
did -c $dname 1 1
did -c $dname 2 $findtok($didtok($dname,2,32),$gettok(%entry,1,44),32)
window -hp +f @editcol 0 0 60 60
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,1,44),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,1,44),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}

on *:dialog:editscheme:sclick:*: {
if ($did == 1) {
did -c $dname 2 $findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,44),32)
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,44),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,44),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}
if ($did == 2) {
set %entry $puttok(%entry,$did(2),$did(1).sel,44)
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,44),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,44),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}
if ($did == 4) {
set %unrc.dialog unrthemecreator
dialog -x editscheme
did -o unrthemecreator 1 %did %field %entry
unset %field
unset %entry
unset %did
window -c @editcol
.remove editcol.bmp
}
if ($did == 5) {
if ($dialog(schmpre)) {
dialog -x schmpre
dialog -mao schmpre schmpre
}
else {
dialog -mao schmpre schmpre
}
}
}


on *:dialog:editscheme:close:*: {
set %unrc.dialog unrthemecreator
unset %field
unset %did
unset %entry
window -c @editcol
.remove editcol.bmp
}


dialog -l editcol {
title "Edit Field"
size -1 -1 100 56
option dbu
list 1, 5 5 54 35, size vsbar
combo 2, 65 5 27 50, size limit 2 drop
icon 3, 68 18 15 15
button "Save", 4, 32 42 37 10
}

on *:dialog:owncolor:init:*: {
set %unrc.dialog owncolor
dialog -t owncolor Edit Field - Your Color
did -a $dname 1 Your Color
var %x = 0
while (%x <= 15) {
did -a $dname 2 $dd(%x)
inc %x
}
did -c $dname 1 1
did -c $dname 2 $findtok($didtok($dname,2,32),$gettok(%entry,1,32),32)
window -hp +f @editcol 0 0 60 60
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,1,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,1,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}

on *:dialog:owncolor:sclick:*: {
if ($did == 1) {
did -c $dname 2 $findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32)
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}
if ($did == 2) {
set %entry $puttok(%entry,$did(2),$did(1).sel,32)
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}
if ($did == 4) {
set %unrc.dialog unrthemecreator
dialog -x owncolor
did -o unrthemecreator 1 %did %field %entry
unset %field
unset %entry
unset %did
window -c @editcol
.remove editcol.bmp
}
}


on *:dialog:owncolor:close:*: {
set %unrc.dialog unrthemecreator
unset %field
unset %did
unset %entry
window -c @editcol
.remove editcol.bmp
}

on *:dialog:modecolors:init:*: {
set %unrc.dialog modecolors
dialog -t modecolors Edit Field - Mode Colors
did -a $dname 1 Owner(~)
did -a $dname 1 Protect(&)
did -a $dname 1 Operator(@)
did -a $dname 1 Half-Op(%)
did -a $dname 1 Voice(+)
var %x = 0
while (%x <= 15) {
did -a $dname 2 $dd(%x)
inc %x
}
did -c $dname 1 1
did -c $dname 2 $findtok($didtok($dname,2,32),$gettok(%entry,1,32),32)
window -hp +f @editcol 0 0 60 60
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,1,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,1,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}

on *:dialog:modecolors:sclick:*: {
if ($did == 1) {
did -c $dname 2 $findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32)
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}
if ($did == 2) {
set %entry $puttok(%entry,$did(2),$did(1).sel,32)
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}
if ($did == 4) {
set %unrc.dialog unrthemecreator
dialog -x modecolors
did -o unrthemecreator 1 %did %field %entry
unset %field
unset %entry
unset %did
window -c @editcol
.remove editcol.bmp
}
}


on *:dialog:modecolors:close:*: {
set %unrc.dialog unrthemecreator
unset %field
unset %did
unset %entry
window -c @editcol
.remove editcol.bmp
}

on *:dialog:colors:init:*: {
set %unrc.dialog colors
dialog -t colors Edit Field - Main Colors
var %x = 1
while (%x <= 4) {
did -a $dname 1 Color %x
inc %x
}
var %x = 0
while (%x <= 15) {
did -a $dname 2 $dd(%x)
inc %x
}
did -c $dname 1 1
did -c $dname 2 $findtok($didtok($dname,2,32),$gettok(%entry,1,32),32)
window -hp +f @editcol 0 0 60 60
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,1,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,1,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}

on *:dialog:colors:sclick:*: {
if ($did == 1) {
did -c $dname 2 $findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32)
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}
if ($did == 2) {
set %entry $puttok(%entry,$did(2),$did(1).sel,32)
drawfill -r @editcol $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) $gettok($gettok($did(unrthemecreator,1,17),2-,32),$findtok($didtok($dname,2,32),$gettok(%entry,$did(1).sel,32),32),44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 3 editcol.bmp
}
if ($did == 4) {
set %unrc.dialog unrthemecreator
dialog -x colors
did -o unrthemecreator 1 %did %field %entry
unset %field
unset %entry
unset %did
window -c @editcol
.remove editcol.bmp
}
}


on *:dialog:colors:close:*: {
set %unrc.dialog unrthemecreator
unset %field
unset %did
unset %entry
window -c @editcol
.remove editcol.bmp
}

dialog -l editpal {
title "Field Edit - Palette"
size -1 -1 183 123
option dbu
icon 1, 11 8 15 15
icon 2, 31 8 15 15
icon 3, 51 8 15 15
icon 4, 71 8 15 15
icon 5, 91 8 15 15
icon 6, 111 8 15 15
icon 7, 132 8 15 15
icon 8, 151 8 15 15
icon 9, 31 28 15 15
icon 10, 51 28 15 15
icon 11, 71 28 15 15
icon 12, 91 28 15 15
icon 13, 111 28 15 15
icon 14, 132 28 15 15
icon 15, 11 28 15 15
icon 16, 151 28 15 15
box "Palette", 17, 5 0 168 50
combo 18, 11 53 60 46, size drop
button "Load", 19, 72 53 30 10
button "Add", 20, 107 53 30 10
button "Delete", 21, 142 53 30 10
text "R:", 22, 11 72 8 8
edit "", 23, 21 71 17 10, limit 3 center
scroll "", 24, 40 72 90 8, range 255 horizontal bottom
scroll "", 25, 40 84 90 8, range 255 horizontal bottom
edit "", 26, 21 83 17 10, limit 3 center
text "G:", 27, 11 84 8 8
scroll "", 28, 40 96 90 8, range 255 horizontal bottom
edit "", 29, 21 95 17 10, limit 3 center
text "B:", 30, 11 96 8 8
icon 31, 140 73 30 30
button "Save", 32, 72 110 37 10
}

on *:dialog:editpal:init:*: {
set %unrc.dialog editpal
window -hp +f @editpal 0 0 60 60
var %x = 1,%pal = $gettok($did(unrthemecreator,1,17),2-,32),%editcol = $rgb($gettok(%pal,1,44))
set %temp.pal %pal
set %sel.col 1
while (%x <= 16) {
clear @editpal
drawfill -r @editpal $gettok(%pal,%x,44) $gettok(%pal,%x,44) 0 0
drawsave @editpal editpal.bmp
did -gv $dname %x editpal.bmp
.remove editpal.bmp
inc %x
}

window -c @editpal
window -hp +f @editcol 0 0 60 60
drawfill -r @editcol $gettok(%pal,1,44) $gettok(%pal,1,44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp

did -a $dname 23 $gettok(%editcol,1,44)
did -a $dname 26 $gettok(%editcol,2,44)
did -a $dname 29 $gettok(%editcol,3,44)
did -c $dname 24 $gettok(%editcol,1,44)
did -c $dname 25 $gettok(%editcol,2,44)
did -c $dname 28 $gettok(%editcol,3,44)

var %x = 1, %y = $lines($qt($scriptdirunrcpal.pal))
while (%x <= %y) {
did -a $dname 18 $gettok($read($qt($scriptdirunrcpal.pal),%x),1,44)
inc %x
}
did -c $dname 18 1
}

on *:dialog:editpal:sclick:*: {
if ($did isnum 1-16) {
set %sel.col $did
drawfill -r @editcol $gettok(%temp.pal,$did,44) $gettok(%temp.pal,$did,44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp
var %editcol = $rgb($gettok(%temp.pal,$did,44))
did -ra $dname 23 $gettok(%editcol,1,44)
did -ra $dname 26 $gettok(%editcol,2,44)
did -ra $dname 29 $gettok(%editcol,3,44)
did -c $dname 24 $gettok(%editcol,1,44)
did -c $dname 25 $gettok(%editcol,2,44)
did -c $dname 28 $gettok(%editcol,3,44)

}
if ($did == 19) {
window -hp +f @editpal 0 0 60 60
var %x = 1,%pal = $gettok($read($qt($scriptdirunrcpal.pal),$did(18).sel),2-,44),%editcol = $rgb($gettok(%pal,1,44))
set %temp.pal %pal
set %sel.col 1
while (%x <= 16) {
clear @editpal
drawfill -r @editpal $gettok(%pal,%x,44) $gettok(%pal,%x,44) 0 0
drawsave @editpal editpal.bmp
did -gv $dname %x editpal.bmp
.remove editpal.bmp
inc %x
}
window -c @editpal
drawfill -r @editcol $gettok(%pal,1,44) $gettok(%pal,1,44) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp
var %editcol = $rgb($gettok(%temp.pal,1,44))
did -ra $dname 23 $gettok(%editcol,1,44)
did -ra $dname 26 $gettok(%editcol,2,44)
did -ra $dname 29 $gettok(%editcol,3,44)
did -c $dname 24 $gettok(%editcol,1,44)
did -c $dname 25 $gettok(%editcol,2,44)
did -c $dname 28 $gettok(%editcol,3,44)
}
if ($did == 20) {
var %input = $$input(Enter a name for your new palette:,oue)
write $qt($scriptdirunrcpal.pal) $+(%input,$chr(44),%temp.pal)
did -r $dname 18
var %x = 1, %y = $lines($qt($scriptdirunrcpal.pal))
while (%x <= %y) {
did -a $dname 18 $gettok($read($qt($scriptdirunrcpal.pal),%x),1,44)
inc %x
}
did -c $dname 18 %y
}
if ($did == 21) {
if ($did(18).sel > 2) {
write -dl [ $+ [ $did(18).sel ] ] $qt($scriptdirunrcpal.pal)
did -r $dname 18
var %x = 1, %y = $lines($qt($scriptdirunrcpal.pal))
while (%x <= %y) {
did -a $dname 18 $gettok($read($qt($scriptdirunrcpal.pal),%x),1,44)
inc %x
}
did -c $dname 18 %y
}
}
if ($did == 32) {
set %unrc.dialog unrthemecreator
dialog -x editpal
did -o unrthemecreator 1 17 #PALETTE %temp.pal
.remove editcol.bmp
window -c @editcol
unset %temp.pal
unset %sel.col
}
}

on *:dialog:editpal:scroll:*: {
if ($did == 24) {
did -ra $dname 23 $did(24).sel
clear @editcol
drawfill -r @editcol $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp
did -gv $dname %sel.col editcol.bmp
set %temp.pal $puttok(%temp.pal,$rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ),%sel.col,44)
}
if ($did == 25) {
did -ra $dname 26 $did(25).sel
clear @editcol
drawfill -r @editcol $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp
did -gv $dname %sel.col editcol.bmp
set %temp.pal $puttok(%temp.pal,$rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ),%sel.col,44)
}
if ($did == 28) {
did -ra $dname 29 $did(28).sel
clear @editcol
drawfill -r @editcol $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp
did -gv $dname %sel.col editcol.bmp
set %temp.pal $puttok(%temp.pal,$rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ),%sel.col,44)
}
}

on *:dialog:editpal:edit:*: {
if ($did == 23) {
if ($did(23) isnum) && ($did(26) isnum) && ($did(29) isnum) {
if ((($did(23) >= 0) && ($did(23) <= 255)) && (($did(26) >= 0) && ($did(26) <= 255)) && (($did(29) >= 0) && ($did(29) <= 255))) {
did -c $dname 24 $did(23)
clear @editcol
drawfill -r @editcol $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp
did -gv $dname %sel.col editcol.bmp
set %temp.pal $puttok(%temp.pal,$rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ),%sel.col,44)
}
}
}
if ($did == 26) {
if ($did(23) isnum) && ($did(26) isnum) && ($did(29) isnum) {
if ((($did(23) >= 0) && ($did(23) <= 255)) && (($did(26) >= 0) && ($did(26) <= 255)) && (($did(29) >= 0) && ($did(29) <= 255))) {
did -c $dname 25 $did(26)
clear @editcol
drawfill -r @editcol $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp
did -gv $dname %sel.col editcol.bmp
set %temp.pal $puttok(%temp.pal,$rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ),%sel.col,44)
}
}
}
if ($did == 29) {
if ($did(23) isnum) && ($did(26) isnum) && ($did(29) isnum) {
if ((($did(23) >= 0) && ($did(23) <= 255)) && (($did(26) >= 0) && ($did(26) <= 255)) && (($did(29) >= 0) && ($did(29) <= 255))) {
did -c $dname 28 $did(29)
clear @editcol
drawfill -r @editcol $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) $rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ) 0 0
drawsave @editcol editcol.bmp
did -gv $dname 31 editcol.bmp
did -gv $dname %sel.col editcol.bmp
set %temp.pal $puttok(%temp.pal,$rgb( [ $+($did(23),$chr(44),$did(26),$chr(44),$did(29)) ] ),%sel.col,44)
}
}
}
}

on *:dialog:editpal:close:*: {
set %unrc.dialog unrthemecreator
.remove editcol.bmp
window -c @editcol
unset %temp.pal
unset %sel.col
}

dialog -l viewtags {
title "View Tags"
size -1 -1 158 75
option dbu
edit "", 1, 4 4 150 57, read multi autohs autovs hsbar vsbar
button "Close", 2, 49 62 60 10, ok cancel
}

on *:dialog:viewtags:init:*: {
did -a viewtags 1 These are the tags that the UNR Theme Engine reads and evaluates:
did -a viewtags 1 $crlf $chr(32) <cN> - Returns the Nth color as stated in the #COLORS field. (N = 1-4)
did -a viewtags 1 $crlf $str($chr(32),2) <c> - Returns the color code given by ctrl + k.
did -a viewtags 1 $crlf $str($chr(32),2) <b> - Returns the bold code given by ctrl + b.
did -a viewtags 1 $crlf $str($chr(32),2) <u> - Returns the underline code given by ctrl + u.
did -a viewtags 1 $crlf $str($chr(32),2) <r> - Returns the reverse code given by ctrl + r.
did -a viewtags 1 $crlf $str($chr(32),2) <o> - Returns the strip code give by ctrl + o.
did -a viewtags 1 $crlf $chr(32) (It is recommended that you use the tags instead of the actual code as the script was made to evaluate and save the tags.)
}

on *:dialog:viewtagsnick:init:*: {
did -a viewtagsnick 1 These are the tags that the UNR Theme Engine reads and evaluates:
did -a viewtagsnick 1 $crlf $chr(32) <cN> - Returns the Nth color as stated in the #COLORS field. (N = 1-4)
did -a viewtagsnick 1 $crlf $str($chr(32),2) <c> - Returns the color code given by ctrl + k.
did -a viewtagsnick 1 $crlf $str($chr(32),2) <b> - Returns the bold code given by ctrl + b.
did -a viewtagsnick 1 $crlf $str($chr(32),2) <u> - Returns the underline code given by ctrl + u.
did -a viewtagsnick 1 $crlf $str($chr(32),2) <r> - Returns the reverse code given by ctrl + r.
did -a viewtagsnick 1 $crlf $str($chr(32),2) <o> - Returns the strip code give by ctrl + o.
did -a viewtagsnick 1 $crlf $chr(32) (It is recommended that you use the tags instead of the actual code as the script was made to evaluate and save the tags.)
did -a viewtagsnick 1 $crlf $chr(32)
did -a viewtagsnick 1 $crlf $chr(32) <nick> - Returns the nickname of person talking.
did -a viewtagsnick 1 $crlf $chr(32) <msg> - Returns the message of the person talking.
}

on *:dialog:viewtagsts:init:*: {
did -a viewtagsts 1 These are the tags that the UNR Theme Engine reads and evaluates:
did -a viewtagsts 1 $crlf $chr(32) <cN> - Returns the Nth color as stated in the #COLORS field. (N = 1-4)
did -a viewtagsts 1 $crlf $str($chr(32),2) <c> - Returns the color code given by ctrl + k.
did -a viewtagsts 1 $crlf $str($chr(32),2) <b> - Returns the bold code given by ctrl + b.
did -a viewtagsts 1 $crlf $str($chr(32),2) <u> - Returns the underline code given by ctrl + u.
did -a viewtagsts 1 $crlf $str($chr(32),2) <r> - Returns the reverse code given by ctrl + r.
did -a viewtagsts 1 $crlf $str($chr(32),2) <o> - Returns the strip code give by ctrl + o.
did -a viewtagsts 1 $crlf $chr(32) (It is recommended that you use the tags instead of the actual code as the script was made to evaluate and save the tags.)
did -a viewtagsts 1 $crlf $chr(32)
did -a viewtagsts 1 $crlf $chr(32) The format of the timestamp itself [ie. (hh:nn:sstt)] look up '$asctime' in the mIRC Help File (F1 or /help).
}

alias -l viewtags { dialog $iif($dialog($iif($1,$1,viewtags)),-v,-mao) $iif($1,$1,viewtags) viewtags }

dialog -l editfont {
title "Edit Field - Font"
size -1 -1 153 60
option dbu
edit "8", 2, 5 12 15 12, read limit 2 center
edit "", 3, 35 13 70 10, autohs
text "Size:", 4, 7 2 16 8
text "Font Name:", 5, 36 2 30 8
button "Preview", 6, 108 13 37 9
icon 7, 5 28 142 18
button "Save", 8, 60 51 37 8
button "+", 9, 20 11 7 7
button "-", 10, 20 18 7 7
}

on *:dialog:editfont:init:*: {
set %unrc.dialog editfont
window -hp +f @font.preview 0 0 296 36 | clear @font.preview
drawfill -r @font.preview $rgb(255,255,255) $rgb(255,255,255) 0 0
drawsave @font.preview fontpreview.bmp
window -c @font.preview
did -gv $dname 7 fontpreview.bmp
}

on *:dialog:editfont:sclick:*: {
if ($did == 6) {
if ($did(3)) {
window -hp +f @font.preview 0 0 296 36 | clear @font.preview
drawfill -r @font.preview $rgb(255,255,255) $rgb(255,255,255) 0 0
drawtext -r @font.preview $rgb(0,0,0) $qt($did(3)) $+(-,$did(2)) 1 1 $did(3)
drawsave @font.preview fontpreview.bmp
window -c @font.preview
did -gv $dname 7 fontpreview.bmp
}
}
if ($did == 8) {
if ($did(3)) {
did -o unrthemecreator 1 11 #FONT $+(-,$did(2)) $did(3)
dialog -x editfont
set %unrc.dialog unrthemecreator
}
else noop $input(A font must be entered to save!,owu,Error!)
}
if ($did == 9) {
if ($did(2) < 28) {
did -ra $dname 2 $calc($v1 + 1)
}
}
if ($did == 10) {
if ($did(2) > 8) {
did -ra $dname 2 $calc($v1 - 1)
}
}
}

on *:dialog:editfont:close:*: {
set %unrc.dialog unrthemecreator
.remove fontpreview.bmp
}

alias -l editfont { dialog $iif($dialog(editfont),-v,-mao) editfont editfont }

dialog -l unrcedit {
title "Field Edit"
size -1 -1 176 49
option dbu
text "", 1, 4 9 167 8
edit "", 2, 4 19 167 10, autohs
button "View Tags", 3, 92 31 34 9
button "Save", 4, 130 31 37 9
}

on *:dialog:nickmsg:init:*: {
set %unrc.dialog nickmsg
dialog -t $dname Field Edit - Message Format
did -a $dname 1 Enter what you would like to use as your message format:
did -a $dname 2 $gettok($did(unrthemecreator,1,15).text,2-,32)
}

on *:dialog:nickmsg:sclick:*: {
if ($did == 3) { viewtags viewtagsnick }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 15 #NICKMSG $did(2)
dialog -x nickmsg
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:nickmsg:close:*:set %unrc.dialog unrthemecreator

on *:dialog:amsg:init:*: {
set %unrc.dialog nickmsg
dialog -t $dname Field Edit - Amsg Prefix
did -a $dname 1 Enter what you would like to use as your Amsg Prefix:
did -a $dname 2 $gettok($did(unrthemecreator,1,13).text,2-,32)
}

on *:dialog:amsg:sclick:*: {
if ($did == 3) { viewtags }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 13 #AMSG $did(2)
dialog -x amsg
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:amsg:close:*:set %unrc.dialog unrthemecreator

on *:dialog:timestamp:init:*: {
set %unrc.dialog timestamp
dialog -t $dname Field Edit - Timestamp
did -a $dname 1 Enter the format of your desired timestamp:
did -a $dname 2 $gettok($did(unrthemecreator,1,9).text,2-,32)
}

on *:dialog:timestamp:sclick:*: {
if ($did == 3) { viewtags viewtagsts }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 9 #TIMESTAMP $did(2)
dialog -x timestamp
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:timestamp:close:*:set %unrc.dialog unrthemecreator

on *:dialog:rightbracket:init:*: {
set %unrc.dialog rightbracket
dialog -t $dname Field Edit - Right Bracket
did -a $dname 1 Enter the characters you would like to use for your right bracket:
did -a $dname 2 $gettok($did(unrthemecreator,1,7).text,2-,32)
}

on *:dialog:rightbracket:sclick:*: {
if ($did == 3) { viewtags }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 7 #RIGHT $did(2)
dialog -x rightbracket
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:rightbracket:close:*:set %unrc.dialog unrthemecreator

on *:dialog:rightbracket:init:*: {
set %unrc.dialog rightbracket
dialog -t $dname Field Edit - Right Bracket
did -a $dname 1 Enter the characters you would like to use for your right bracket:
did -a $dname 2 $gettok($did(unrthemecreator,1,7).text,2-,32)
}

on *:dialog:rightbracket:sclick:*: {
if ($did == 3) { viewtags }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 7 #RIGHT $did(2)
dialog -x rightbracket
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:rightbracket:close:*:set %unrc.dialog unrthemecreator

on *:dialog:leftbracket:init:*: {
set %unrc.dialog leftbracket
dialog -t $dname Field Edit - Left Bracket
did -a $dname 1 Enter the characters you would like to use for your left bracket:
did -a $dname 2 $gettok($did(unrthemecreator,1,6).text,2-,32)
}

on *:dialog:leftbracket:sclick:*: {
if ($did == 3) { viewtags }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 6 #LEFT $did(2)
dialog -x leftbracket
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:leftbracket:close:*:set %unrc.dialog unrthemecreator

on *:dialog:rprefix:init:*: {
set %unrc.dialog rprefix
dialog -t $dname Field Edit - Raw Event Prefix
did -a $dname 1 Enter the characters you would like to use for your raw event prefix:
did -a $dname 2 $gettok($did(unrthemecreator,1,4).text,2-,32)
}

on *:dialog:rprefix:sclick:*: {
if ($did == 3) { viewtags }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 4 #RAWPREFIX $did(2)
dialog -x rprefix
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:rprefix:close:*:set %unrc.dialog unrthemecreator

on *:dialog:prefix:init:*: {
set %unrc.dialog prefix
dialog -t $dname Field Edit - Event Prefix
did -a $dname 1 Enter the characters you would like to use for your event prefix:
did -a $dname 2 $gettok($did(unrthemecreator,1,3).text,2-,32)
}

on *:dialog:prefix:sclick:*: {
if ($did == 3) { viewtags }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 3 #PREFIX $did(2)
dialog -x prefix
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:prefix:close:*:set %unrc.dialog unrthemecreator

on *:dialog:name:init:*: {
set %unrc.dialog name
dialog -t $dname Field Edit - Theme Name
did -b $dname 3
did -a $dname 1 Enter the name of your new theme:
did -a $dname 2 $gettok($did(unrthemecreator,1,1).text,2-,32)
}

on *:dialog:name:sclick:*: {
if ($did == 3) { halt }

if ($did == 4) {
if ($did(2)) {
did -o unrthemecreator 1 1 #NAME $did(2)
dialog -x name
set %unrc.dialog unrthemecreator
}
else noop $input(A value must be entered to save!,owu,Error!)
}
}

on *:dialog:name:close:*: {
set %unrc.dialog unrthemecreator
}

on *:dialog:unrthemecreator:init:*: {
set %unrc.dialog unrthemecreator
var %f = $shortfn($scriptdirdefault.unrc)
loadbuf $lines(%f) -o $dname 1 %f
}


on *:dialog:unrthemecreator:close:*: {
$iif($hget(unrcschemes),.hfree unrcschemes,halt)
}

on *:dialog:unrthemecreator:sclick:*: {
if (%unrc.dialog == unrthemecreator) {
if ($did == 1) {
did -r $dname 13
unrfieldinfo $did(1).sel
}

if ($did == 3) {
if ($did(3).state == 1) {
.hmake unrcschemes 10
did -e $dname 4-6
while (%input == $null) { var %input = $input(Enter the name of a default scheme (Required. Only 1 word.),oeu,Schemes Enabled,Default) }
.hadd unrcschemes %input %input
did -a $dname 4 %input
var %x = $gettok($did(1,19),2-,32),%y = $gettok($did(1,20),2-,32),%z = $gettok($did(1,21),2-,32),%w = $gettok($did(1,22),2-,32)
did -o $dname 1 19 #SCHEMES %input
did -o $dname 1 20 $+($chr(47),$chr(47))
did -o $dname 1 21 $addtok(#COLORS,%input,46) %x
did -o $dname 1 22 $addtok(#MODECOLOR,%input,46) %y
did -a $dname 1 $addtok(#OWNCOLOR,%input,46) %z
did -a $dname 1 $addtok(#SCHEME,%input,46) %w
}
else {
while (%input == $null) { var %input = $input(Are you sure you want to disable schemes? All your schemes will be deleted!,uyvw) }
if (%input == $yes) {
.hfree unrcschemes
did -r $dname 4
did -b $dname 4-6
var %w = $gettok($did(1,21),2-,32),%x = $gettok($did(1,22),2-,32),%y = $gettok($did(1,23),2-,32),%z = $gettok($did(1,24),2-,32)
while ($did(1).lines >= 19) {
did -d $dname 1 $did(1).lines
}
did -a $dname 1 #COLORS %w
did -a $dname 1 #MODECOLOR %x
did -a $dname 1 #OWNCOLOR %y
did -a $dname 1 #SCHEME %z
}
else {
did -c $dname 3
halt
}
}
}
if ($did == 5) {
if ($did(4)) {
if (!$hget(unrcschemes,$did(4))) {
hadd unrcschemes $did(4) $did(4)
did -a $dname 4 $did(4)
var %f = $shortfn($scriptdirdefault.unrc),%nschm = $addtok($did(1,19),$did(4),32)
did -o $dname 1 19 %nschm
did -a $dname 1 $addtok(#COLORS,$did(4),46) $gettok($read(%f,19),2-,32)
did -a $dname 1 $addtok(#MODECOLOR,$did(4),46) $gettok($read(%f,20),2-,32)
did -a $dname 1 $addtok(#OWNCOLOR,$did(4),46) $gettok($read(%f,21),2-,32)
did -a $dname 1 $addtok(#SCHEME,$did(4),46) $gettok($read(%f,22),2-,32)
}
}
}
if ($did == 6) {
if ($did(4).seltext) && ($numtok($didtok($dname,4,32),32) > 1) {
hdel unrcschemes $did(4).seltext
var %num = 21
while ($gettok($gettok($did(1,%num),1,32).text,2,46) != $did(4).seltext) {
inc %num
}
var %num2 = $calc(%num + 3)
while (%num <= %num2) {
did -d $dname 1 %num2
dec %num2
}
did -d $dname 4 $did(4).sel
}
}
if ($did == 8) {
var %input = $input(Are you sure you want to reset all fields? All preferences and schemes will be lost.,ywvu)
if (%input = $yes) {
did -r $dname 1
var %f = $shortfn($scriptdirdefault.unrc)
loadbuf $lines(%f) -o $dname 1 %f
if ($did(3).state == 1) {
did -u $dname 3
.hfree unrcschemes
did -r $dname 4
did -b $dname 4-6
}
}
}
if ($did == 9) {
if ($did(10)) {
var %seldir = $sdir($scriptdir,Select where you'd like to save your theme:),%x = 1, %y = $did($dname,1).lines
if (!$exists($qt($+(%seldir,$gettok($did(10),1,32),.unr)))) {
while (%x <= %y) {
write $qt($+(%seldir,$gettok($did(10),1,32),.unr)) $did($dname,1,%x)
inc %x
}
if ($did(12).state == 1) {
if (!$read($themes.lst,w,$shortfn($+(%seldir,$gettok($did(10),1,32),.unr)))) {
write $themes.lst $shortfn($+(%seldir,$gettok($did(10),1,32),.unr))
$iif($dialog(dialogThmLdr),refresh.Themes)
}
}
dialog -x $dname
}
else noop $input(Theme file already exists. Please select a different filename or directory.,owu)
}
else noop $input(A Filename must be entered to save.,owu)
}
}
}

on *:dialog:unrthemecreator:dclick:*: {
if (%unrc.dialog == unrthemecreator) {
if ($did == 1) {
unrfieldedit $did(1).sel
}
}
}

on *:LOAD: {
if ($hget(theme)) .hfree theme
temp.thm
hsave theme $shortfn($scriptdirtheme.hsh)
if (!$isfile($shortfn($scriptdirReadMe.txt))) { write $shortfn($scriptdirReadMe.txt) NO README FILE FOUND }
if (!$isfile($shortfn($scriptdirdpreview.bmp))) {
window -hp +f @Theme.dPreview 0 0 500 200 | clear @Theme.dPreview
drawfill -r @Theme.dpreview $rgb(192,192,192) $rgb(192,192,192) 0 0
drawsave @Theme.dpreview $qt($scriptdirdpreview.bmp)
window -c @Theme.dpreview
}
$iif(!$exists($themes.lst),write $qt($scriptdirthemes.lst))
write -c $qt($scriptdirdefault.unrc)
var %w = write $qt($scriptdirdefault.unrc)
%w #NAME Default
%w //
%w #PREFIX **
%w #RAWPREFIX *
%w //
%w #LEFT <b><c1>[<b><o>
%w #RIGHT <b><c1>]<b><o>
%w //
%w #TIMESTAMP <c1><b>[<b><o>hh<c1>:<o>nn<c1>:<o>sstt<c1><b>]<b><o>
%w //
%w #FONT -8 Verdana
%w //
%w #AMSG xAmsgx
%w //
%w #NICKMSG (<nick>) <msg>
%w //
%w #PALETTE 16777215,0,14772545,2330216,190,2763429,14822282,1803490,55295,3329434,11829830,15453831,13434880,8421616,9470064,12632256
%w //
%w #COLORS 12 14 04 15
%w #MODECOLOR 12 14 04 15 11
%w #OWNCOLOR 10
%w #SCHEME 00,06,04,05,02,03,03,03,03,03,03,01,05,07,06,01,03,02,03,05,01,00,01,00,01,15,06,00,00,01
write -c $qt($scriptdirunrcpal.pal)
var %w = write $qt($scriptdirunrcpal.pal)
%w unReal,16777215,0,14772545,2330216,190,2763429,14822282,1803490,55295,3329434,11829830,15453831,13434880,8421616,9470064,12632256
%w mIRC Classic,16777215,0,8323072,37632,255,127,10223772,32764,65535,64512,9671424,16776960,16515072,16711935,8355711,13816530
echo -s *** unRealIRC Theme Engine Successfully Loaded.
echo -s *** Make Sure the File is Placed Last in the Order of Files. (Remotes -> File -> Order)
}

alias -l temp.thm { var %h = hadd -m Theme
%h Theme Temporary Default | %h File N/A
%h c1 12 | %h c2 14 | %h c3 04 | %h c4 15 | %h Owncolor 10
%h c~ 12 | %h c& 14 | %h c@ 04 | %h c% 15 | %h c+ 11
%h Prefix ** | %h Rawprefix *
%h Left 15[ | %h Right 15]
%h Timestamp (hh:nn:sstt)
%h Amsg (AmsG)
%h Nickmsg (<nick>) <msg>
.cnick -r $+($chr(36),me)
.cnick -a $+($chr(36),me) $ttok(OWNCOLOR)
var %mnum = 1
while (%mnum <= 5) { .cnick -r *
inc %mnum }
.cnick * $ttok(c~) ~ | .cnick * $ttok(c&) & | .cnick * $ttok(c@) @ | .cnick * $ttok(c%) % | .cnick * $ttok(c+) +
.timestamp -f $ttok(Timestamp)
}

menu channel,menubar,status,query {
Theme Loader:thmldr
}

alias thmldr { if ($dialog(dialogThmLdr)) { dialog -v dialogThmLdr dialogThmLdr }
else { dialog -vdm dialogThmLdr dialogThmLdr } }

alias -l themes.lst { return $shortfn($scriptdirthemes.lst) }

alias refresh.Themes {
did -r dialogThmLdr 2
did -ra dialogThmLdr 9 Themes: $lines($themes.lst)
var %thmnum = 1
while (%thmnum <= $lines($themes.lst)) {
did -a dialogThmLdr 2 $read($read($themes.lst,%thmnum),s,#NAME)
inc %thmnum
}
if (%theme.autogen) { did -c dialogThmLdr 7 }
}

dialog dialogThmLdr {
title "Theme Loader"
size -1 -1 337 135
option dbu

icon 1, 84 1 250 100, $scriptdirdpreview.bmp, 0

list 2, 3 1 80 100, size

combo 3, 3 104 80 36, size drop

button "Apply", 4, 258 104 37 12
button "Preview", 5, 218 104 37 12
button "Exit", 6, 298 104 37 12, ok

check "Auto-Generate Preview", 7, 96 105 69 10

edit "", 8, 145 120 190 10, read
edit "", 9, 2 120 50 10, read
edit "", 10, 53 120 90 10, read

menu "File", 11

item "Load...", 12, 11
item "Unload", 13, 11
item Break, 14, 11
item "Reload Current", 15, 11
item Break, 16, 11
item "Exit", 17, 11, cancel

menu "Help", 18

item "Read Me", 19, 18
item Break, 20, 18
item "About", 21, 18

button "Create New...", 22, 178 104 37 12
}

on *:dialog:dialogThmLdr:init:*: {
refresh.Themes
did -ra $dname 10 Theme: $thm \ Scheme: $schm
}

on *:dialog:dialogThmLdr:sclick:*: {
if ($did == 2) {
if ($did(2).seltext) {
if (!%theme.autogen) did -gv $dname 1 $shortfn($scriptdirdpreview.bmp)
did -r $dname 3
if ($read($shortfn($read($themes.lst,$did(2).sel)),s,#SCHEMES)) {
did -e $dname 3
var %schemes = $read($shortfn($read($themes.lst,$did(2).sel)),s,#SCHEMES)
var %schmnum = 1
while (%schmnum <= $numtok(%schemes,32)) {
did -a $dname 3 $gettok(%schemes,%schmnum,32)
inc %schmnum
}
did -c $dname 3 1
if (%theme.autogen) preview.theme
}
else {
did -b $dname 3
if (%theme.autogen) {
preview.Theme
}
}
}
}
if (($did == 3) && ($did(3).seltext)) {
if (%theme.autogen) { preview.Theme }
}
if ($did == 4) {
if ($did(2).seltext) {
if ($read($shortfn($read($themes.lst,$did(2).sel)),s,#SCHEMES)) {
if ($did(3).seltext) {
theme.load $shortfn($read($themes.lst,$did(2).sel)) $did(3).seltext
}
else { did -ra $dname 8 ERROR: To apply Theme a Scheme must be selected!
}
else { theme.load $shortfn($read($themes.lst,$did(2).sel)) }
did -ra $dname 10 Theme: $thm \ Scheme: $schm
}
else { theme.load $shortfn($read($themes.lst,$did(2).sel)) }
}
else { did -ra $dname 8 ERROR: A theme must be selected! }
}
if ($did == 5) { preview.theme }
if ($did == 7) {
if ($did(7).state == 0) { unset %theme.autogen }
if ($did(7).state == 1) { set %theme.autogen On }
}
if ($did == 22) { createtheme }
}

on *:dialog:dialogThmLdr:menu:*: {
if ($did == 12) {
var %newThm = $sfile($mircdir*unr,Select Theme to Load...,Load)
if (!$read($themes.lst,w,$shortfn(%newThm))) {
write $themes.lst $shortfn(%newThm)
refresh.Themes
}
else { did -ra $dname 8 ERROR: Theme file already loaded! }
}
if ($did == 13) {
if ($did(2).seltext) {
var %thmunl = $input(You sure you would like to unload: $did(2).seltext ?,yu,Confirm Action)
if (%thmunl == $true) { write -dl [ $+ [ $did(2).sel ] ] $themes.lst
refresh.Themes
}
}
else { did -ra $dname 8 ERROR: Please select a Theme to Unload! }
}
if ($did == 15) { theme.reload | did -ra $dname 10 Theme: $thm \ Scheme: $schm }
if ($did == 19) {
if ($isfile($shortfn($scriptdirReadMe.txt))) {
if (!$window(@Theme.ReadMe)) {
window -ad @Theme.ReadMe -1 -1 -1 -1
loadbuf $lines($scriptdirReadMe.txt) @Theme.ReadMe $shortfn($scriptdirReadMe.txt)
}
else { window -ar @Theme.ReadMe }
}
}
if ($did == 21) { dialog $iif($dialog(dialogThmAbout),-v,-vma) dialogThmAbout dialogThmAbout }
}

on *:dialog:dialogThmLdr:mouse:*: {
if ($did == 0) { did -r $dname 8 }
elseif ($did == 1) { did -ra $dname 8 Here is where your Theme's Preview will be generated. }
elseif ($did == 2) { did -ra $dname 8 Your loaded Themes. }
elseif ($did == 3) { did -ra $dname 8 The schemes of your selected Theme. }
elseif ($did == 4) { did -ra $dname 8 Applies your selected Theme. }
elseif ($did == 5) { did -ra $dname 8 Generate a Preview of your selected Theme. }
elseif ($did == 6) { did -ra $dname 8 Closes the dialog. }
elseif ($did == 7) { did -ra $dname 8 If checked preview will auto-generate (Scheme must be selected if available). }
elseif ($did == 8) { did -ra $dname 8 Here is where your 'On-Task' Help will be generated. }
elseif ($did == 9) { did -ra $dname 8 Number of Themes you currently have loaded. }
elseif ($did == 10) { did -ra $dname 8 Theme you are currently using. }
elseif ($did == 22) { did -ra $dname 8 Opens the UNR Theme Creator dialog. }
}

alias -l preview.Theme {
if ($dialog(dialogThmLdr)) {
if ($did(2).seltext) {
set %thmfile $shortfn($read($themes.lst,$did(2).sel))
if ($read(%thmfile,s,#SCHEMES)) {
if (!$did(3)) { did -ra $dname 8 ERROR: A Scheme must be selected! | halt }
set %schm $+(#SCHEME,$chr(46),$did(3).seltext)
set %pschm $+($chr(46),$did(3).seltext)
}
else { var %schm = #SCHEME }
}
window -hp +f @Theme.Preview 0 0 500 200 | clear @Theme.Preview
if ($isfile($shortfn($scriptdirpreview.bmp))) { .remove $shortfn($scriptdirpreview.bmp) }
drawfill -r @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),1,44) + 1),44) $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),1,44) + 1),44) 0 0
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),8,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 0 $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,02,ss,52,tt,pm,t,p,TT,PM,T,P) $pttok(#PREFIX).e (Join) Hirako : ~Vizard@XC-DW1337.socal.res.com
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),10,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,13) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,02,ss,53,tt,pm,t,p,TT,PM,T,P) $pttok(#PREFIX).e (Mode Set) +o Hirako : set by ChanServ
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),12,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,26) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,02,ss,55,tt,pm,t,p,TT,PM,T,P) $pttok(5,+,Pyro,How do I use this script?).n
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),10,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,39) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,01,tt,pm,t,p,TT,PM,T,P) $pttok(#PREFIX).e (Mode Set) +b *!*@XC-568DH48.cable.cal.net : set by $me
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),9,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,52) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,01,tt,pm,t,p,TT,PM,T,P) $pttok(#PREFIX).e (Kick) Pyro from #unReal : by $me » BOOM! Headshot! - unRealIRC - 89
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),16,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,65) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,05,tt,pm,t,p,TT,PM,T,P) $pttok(@,$me,Noobs really annoy me...).m
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),12,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,78) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,08,tt,pm,t,p,TT,PM,T,P) $pttok(3,@,Hirako,Lulz. Abuse much?).n
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),2,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,91) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,14,tt,pm,t,p,TT,PM,T,P) » @ $me slaps Hirako around with a "Ask me if I care?"
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),12,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,104) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,21,tt,pm,t,p,TT,PM,T,P) $pttok(4,%,Hyrule,Hey $me can you help me for a sec?).n
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),16,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,117) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,23,tt,pm,t,p,TT,PM,T,P) $pttok(@,$me,Sure Hyrule).m
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),6,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,130) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,27,tt,pm,t,p,TT,PM,T,P) $pttok(#RAWPREFIX).e [Incoming Private Message] Hyrule : ~Zelda@XC-5895J7.dslw.net
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),18,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,143) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,49,tt,pm,t,p,TT,PM,T,P) $pttok(#PREFIX).e (Quit) Hyrule : ~Zelda@XC-5895J7.dsl.net « Quit: user exited
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),13,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,156) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,03,ss,53,tt,pm,t,p,TT,PM,T,P) $pttok(#PREFIX).e (Notice : #unReal) @ Hirako » Behave while I'm away!
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),11,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,169) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,04,ss,01,tt,pm,t,p,TT,PM,T,P) $pttok(#PREFIX).e (Nick Change) Hirako is now Hir[a]ko
drawtext -pr @Theme.Preview $gettok($read(%thmfile,s,#PALETTE),$calc($gettok($read(%thmfile,s,%schm),17,44) + 1),44) $qt($gettok($read(%thmfile,s,#FONT),2-,32)) $gettok($read(%thmfile,s,#FONT),1,32) 0 $linespace(%thmfile,182) $chr(160) $replacecs($pttok(#TIMESTAMP).e,yy,10,yyyy,2010,m,1,mm,01,mmm,Jan,mmmm,January,d,1,dd,01,ddd,Mon,dddd,Monday,HH,13,H,13,hh,01,h,1,nn,04,ss,09,tt,pm,t,p,TT,PM,T,P) $pttok(#PREFIX).e (Part) Dead : ~Death@XC-32LK4R.socal.cable.com
drawsave @Theme.Preview $qt($scriptdirpreview.bmp)
window -c @Theme.Preview
did -gv $dname 1 $qt($scriptdirpreview.bmp)
unset %thmfile
unset %schm
unset %pschm
}
else { did -ra $dname 8 ERROR: Please select a theme to preview! }
}


alias -l linespace {
if ($left($gettok($read($1,s,#FONT),1,32),1) == -) {
var %fontsize = $remove($gettok($read($1,s,#FONT),1,32),-)
return $round($calc((%fontsize * $2) / 8),0)
}
else {
var %fontsize = $gettok($read($1,s,#FONT),1,32)
return $round($calc((%fontsize * $2) / 11),0)
}
}

dialog -l dialogThmAbout {
title About...
size -1 -1 176 73
option dbu
text unRealIRC Theme Engine V5 $+ $crlf $+ $crlf $+ Version: Public Beta 1.0 $+ $crlf $+ $crlf $+ Created by DarkWarrior $+ $crlf $+ $crlf $+ Contact: irc.xerocreative.com @ #AK / User: DarkWarrior , 1, 14 3 150 45, center
text DarkWarrior© 2009 All Rights Reserved., 2, 14 51 150 8, disable centerr
button "Close", 3, 68 62 37 10, ok cancel
}

alias pc { return $+($chr(3),$gettok($read(%thmfile,s,$+(#COLORS,%pschm)),$1,32)) }


alias pttok {
if ($prop == e) {
var %preturn1 = $replace($read(%thmfile,s,$1),<c>,$chr(3),<c1>,$pc(1),<c2>,$pc(2),<c3>,$pc(3),<c4>,$pc(4),<u>,,<r>,,<b>,,<o>,)
return %preturn1
}
if ($prop == n) {
var %preturn2 = $replace($read(%thmfile,s,#NICKMSG),<nick>,$2 $+($chr(3),$gettok($read(%thmfile,s,$+(#MODECOLOR,%pschm)),$1,32),$3,$chr(3)),<msg>,$4-,<c>,$chr(3),<c1>,$pc(1),<c2>,$pc(2),<c3>,$pc(3),<c4>,$pc(4),<u>,,<r>,,<b>,,<o>,)
return %preturn2
}
if ($prop == m) {
var %preturn4 = $replace($read(%thmfile,s,#NICKMSG),<nick>,$1 $+($chr(3),$read(%thmfile,s,$+(#OWNCOLOR,%pschm)),$2,$chr(3)),<msg>,$3-,<c>,$chr(3),<c1>,$pc(1),<c2>,$pc(2),<c3>,$pc(3),<c4>,$pc(4),<u>,,<r>,,<b>,,<o>,)
return %preturn4
}
if (!$prop) {
var %preturn3 = $replace($1-,<c>,,<c1>,$pc(1),<c2>,$pc(2),<c3>,$pc(3),<c4>,$pc(4),<u>,,<r>,,<b>,,<o>,)
return %preturn3
}
}

alias ttok {
if (!$prop) { return $hget(Theme,$1) }
if ($prop == c) {
if ($1 isnum 1-4) { return c [ $+ [ $1 ] ] $gettok($2,$1,32) }
}
if ($prop == r) { return $replace($1,<c>,,<c1>,$c(1),<c2>,$c(2),<c3>,$c(3),<c4>,$c(4),<u>,,<b>,,<r>,,<o>,)
}
}

alias thm { return $ttok(Theme) }

alias schm {
if ($ttok(Schm)) {
return $ttok(Schm)
}
else {
return N/A
}
}

alias -l theme.load {
if ($isfile($1)) {
if ($right($1,4) == .unr) { var %thm = $1
if ($read(%thm,st,#SCHEMES)) { var %thm.schm = $+($chr(46),$2) }
if ($hget(Theme)) { hfree theme }
hmake theme 20
var %h = hadd -m Theme
%h Theme $read(%thm,st,#NAME)
%h Schm $2
%h File %thm
var %cnum = 1,%clrs = $read(%thm,st,$+(#COLORS,%thm.schm))
while (%cnum <= 4) {
%h $ttok(%cnum,%clrs).c
inc %cnum
}
%h Owncolor $read(%thm,st,$+(#OWNCOLOR,%thm.schm))
.cnick -r $+($chr(36),me)
.cnick -a $+($chr(36),me) $ttok(OWNCOLOR)
var %mcol = $read(%thm,st,$+(#MODECOLOR,%thm.schm))
%h c~ $gettok(%mcol,1,32)
%h c& $gettok(%mcol,2,32)
%h c@ $gettok(%mcol,3,32)
%h c% $gettok(%mcol,4,32)
%h c+ $gettok(%mcol,5,32)
var %mnum = 1
while (%mnum <= 5) { .cnick -r *
inc %mnum }
.cnick * $ttok(c~) ~
.cnick * $ttok(c&) &
.cnick * $ttok(c@) @
.cnick * $ttok(c%) %
.cnick * $ttok(c+) +
%h Prefix $ttok($read(%thm,st,#PREFIX)).r
%h Rawprefix $ttok($read(%thm,st,#RAWPREFIX)).r
%h Left $ttok($read(%thm,st,#LEFT)).r
%h Right $ttok($read(%thm,st,#RIGHT)).r
%h Timestamp $ttok($read(%thm,st,#TIMESTAMP)).r
%h Amsg $ttok($read(%thm,st,#AMSG)).r
%h Nickmsg $ttok($read(%thm,st,#NICKMSG)).r
%h Font $read(%thm,st,#FONT)
%h Scheme $read(%thm,st,$+(#SCHEME,%thm.schm))
%h Palette $read(%thm,st,#PALETTE)
writeini mirc.ini colors n0 Theme, $+ $ttok(Scheme)
writeini mirc.ini palettes n0 $ttok(Palette)
color -ls Theme
.timestamp -f $ttok(Timestamp)
.font -zd $ttok(Font)
if ($hget(theme)) .hsave -o theme $scriptdirtheme.hsh
else { hmake theme 20 | .hsave -o theme $scriptdirtheme.hsh }
echo $color(info2) -a $rpre Theme: $thm \ Scheme: $schm (Successfully Loaded.)
halt
}
else { did -ra $dname 8 ERROR: Incorrect file type! (Theme files: *.unr) | halt }
}
else { did -ra $dname 8 ERROR: Theme file does not exist! | halt }
:error
did -ra $dname 8 ERROR: Theme File unable to Load. ( $+ $error $+ )
}

alias -l theme.reload {
if ($isfile($ttok(file))) {
if ($right($ttok(file),4) == .unr) { var %thm = $ttok(file)
if ($read(%thm,st,#SCHEMES)) { var %thm.schm = $+($chr(46),$schm) }
if ($hget(Theme)) { hfree theme }
hmake theme 20
var %h = hadd -m Theme
%h Theme $read(%thm,st,#NAME)
%h Schm $right(%thm.schm,$calc($len(%thm.schm) - 1))
%h File %thm
var %cnum = 1,%clrs = $read(%thm,st,$+(#COLORS,%thm.schm))
while (%cnum <= 4) {
%h $ttok(%cnum,%clrs).c
inc %cnum
}
%h Owncolor $read(%thm,st,$+(#OWNCOLOR,%thm.schm))
.cnick -r $+($chr(36),me)
.cnick -a $+($chr(36),me) $ttok(OWNCOLOR)
var %mcol = $read(%thm,st,$+(#MODECOLOR,%thm.schm))
%h c~ $gettok(%mcol,1,32)
%h c& $gettok(%mcol,2,32)
%h c@ $gettok(%mcol,3,32)
%h c% $gettok(%mcol,4,32)
%h c+ $gettok(%mcol,5,32)
var %mnum = 1
while (%mnum <= 5) { .cnick -r *
inc %mnum }
.cnick * $ttok(c~) ~
.cnick * $ttok(c&) &
.cnick * $ttok(c@) @
.cnick * $ttok(c%) %
.cnick * $ttok(c+) +
%h Prefix $ttok($read(%thm,st,#PREFIX)).r
%h Rawprefix $ttok($read(%thm,st,#RAWPREFIX)).r
%h Left $ttok($read(%thm,st,#LEFT)).r
%h Right $ttok($read(%thm,st,#RIGHT)).r
%h Timestamp $ttok($read(%thm,st,#TIMESTAMP)).r
%h Amsg $ttok($read(%thm,st,#AMSG)).r
%h Nickmsg $ttok($read(%thm,st,#NICKMSG)).r
%h Font $read(%thm,st,#FONT)
%h Scheme $read(%thm,st,$+(#SCHEME,%thm.schm))
%h Palette $read(%thm,st,#PALETTE)
writeini mirc.ini colors n0 Theme, $+ $ttok(Scheme)
writeini mirc.ini palettes n0 $ttok(Palette)
color -ls Theme
.timestamp -f $ttok(Timestamp)
.font -zd $ttok(Font)
if ($hget(theme)) .hsave -o theme $scriptdirtheme.hsh
else { hmake theme 20 | .hsave -o theme $scriptdirtheme.hsh }
echo $color(info2) -a $rpre Theme: $thm \ Scheme: $schm (Successfully Reloaded.)
halt
}
else { did -ra $dname 8 ERROR: Incorrect file type! (Theme files: *.unr) | halt }
}
else { did -ra $dname 8 ERROR: Theme file does not exist! | temp.thm | halt }
:error
did -ra $dname 8 ERROR: Theme File unable to Reload. ( $+ $error $+ )
}

alias rpre { return $ttok(Rawprefix) }

alias pre { return $ttok(Prefix) }

alias c { if ($1 isnum 1-4) {
return $+(,$dd($ttok(c [ $+ [ $1 ] ]))) }
}

alias dd { if ($1 isnum) { return $iif($len($1) < 2, $+(0,$1),$1) } }

alias stat { if ($1 ison $2) { return $left($remove($nick($2,$1).pnick,$1),1) } }

alias statc { return $iif($cnick($stat($1,$2)).color >= 0,  $+ $cnick($stat($1,$2)).color $+ $1 $+ ,$1) }

alias ownc { return $iif($cnick(1).color >= 0,  $+ $cnick(1).color $+ $1 $+ ,$1) }

on &^*:TEXT:*:?: { echo $color(normal) -mt $nick $replace($ttok(Nickmsg),<nick>,$nick,<msg>,$1-)
haltdef }

on &^*:TEXT:*:#: { echo $color(normal) -mt $chan $replace($ttok(Nickmsg),<nick>,$stat($nick,$chan) $statc($nick,$chan),<msg>,$1-)
haltdef }

on &^*:ACTION:*:#: {
echo $color(Action) -mt $target » $stat($nick,$chan) $nick $1-
haltdef }

on &^*:ACTION:*:?: { echo $color(Action) -mt $nick » $nick $1- | haltdef }

on &*:INPUT:*: { if (!$iscmd($1)) { msg $active $1- } }

on &^*:NOTICE:*:*: {
if ($target == $me) {
var %target = -atm
if ($nick isin $serv) {
var %notice = ( $+ $nick $+ )
}
else var %notice = (Private Notice) $nick
}
else {
if ($target == $chan) {
var %target = -tm $chan
if ($nick isin $serv) var %notice = ( $+ $nick : $chan $+ )
else var %notice = (Notice : $target $+ ) $stat($nick,$chan) $nick
}
else {
var %target -astm
if ($nick isin $serv) var %notice = ( $+ $nick : $target $+ )
else var %notice = (Notice : $target $+ ) $nick
}
}
echo $color(Notice) %target $pre %notice » $1-
haltdef
}

on &^*:JOIN:#: { if ($nick != $me) {
echo $color(Join) -t $chan $pre (Join) $nick : $address }
haltdef }

on &^*:PART:#: { if ($nick != $me) {
if ($1) var %part = ( $1- )
echo $color(Part) -t $chan $pre (Part) $nick : $address %part }
haltdef }

on ^&*:RAWMODE:#: { echo $color(mode) -t $chan $pre (Mode Set) $1- : set by $nick
haltdef }

on ^&*:NICK: {
if ($nick == $me) { echo $color(nick) -ts $pre (Nick Change) $nick is now $newnick }
var %n = 1
while (%n <= $comchan($newnick,0)) {
echo $color(nick) -t $comchan($newnick,%n) $pre (Nick Change) $nick is now $newnick
inc %n }
haltdef }

on ^&*:QUIT: { var %q = 1
while (%q <= $comchan($nick,0)) {
echo $color(quit) -t $comchan($nick,%q) $pre (Quit) $nick : $address « $1-
inc %q }
haltdef }

on &^*:KICK:#: { if ($knick == $me) {
var %kick = (Kicked) }
else var %kick = (Kick) $knick
echo $color(kick) -t $chan $pre %kick from $chan : by $nick » $1-
haltdef }

on &^*:TOPIC:#: { echo $color(topic) -t $chan $pre (Topic Change) ' $1- ' : by $nick
haltdef }

on &^*:SNOTICE:*: { echo $color(notice) -st $pre $nick :: $1-
haltdef }

on &^*:OPEN:?:*: { echo $color(info2) -at $rpre [Incoming Private Message] $nick : $address }

alias msg {
if ($2) && ($2-3 != Status Window) {
if ($show) {
if (!$window($1)) {
echo $color(own) -atm $chr(32) $+ - ( $1 ) - $2-
.msg $1-
haltdef }
elseif ($1 ischan) {
echo $color(own) -tm $1 $replace($ttok(Nickmsg),<nick>,$stat($me,$1) $ownc($me),<msg>,$2-)
.msg $1-
haltdef }
else {
echo $color(own) -tm $1 $replace($ttok(Nickmsg),<nick>,$ownc($me),<msg>,$2-)
.msg $1-
haltdef }
}
else .msg $1- }
}

alias amsg { if ($1) {
if ($1 == -a) && ($2) { var %amsg = 1
while (%amsg <= $chan(0)) {
msg $chan(%amsg) $2-
inc %amsg }
}
else { var %amsg = 1
while (%amsg <= $chan(0)) { msg $chan(%amsg) $tamsg $1-
inc %amsg } }
}
}

alias tamsg { return $ttok(Amsg) }

alias describe { if ($2) && ($2-3 != Status Window) {
if ($show) {
if (!$window($1)) {
echo $color(action) -atm $chr(32) $+ - ( $1 : Act ) - $me $2-
.describe $1-
haltdef }
elseif ($1 ischan) {
echo $color(action) -tm $1 » $stat($me,$1) $me $2-
.describe $1-
haltdef }
else {
echo $color(action) -tm $1 » $me $2-
.describe $1-
haltdef }
}
else .describe $1- }
}

alias me { describe $active $1- }

alias ame { if ($1) { var %ame = 1
while (%ame <= $chan(0)) {
describe $chan(%ame) $1-
inc %ame } }
}

alias whois { set -u2 %whois Yes
whois $$1 }

alias l return $ttok(Left)

alias r return $ttok(Right)

alias skin {
if (!$prop) {
var %x = 1
while (%x <= $calc($numtok($1-,32) + 1)) {
var %b = %b $c(1) $+ $left($gettok($1-,%x,32),1) $+ $c(2) $+ $mid($gettok($1-,%x,32),2)
inc %x
}
var %a = $l %b $+ $r $+ 
}
if ($prop == n) { var %a = $1- }
if ($prop == b) { var %a = $l $+  $1- $r $+  }
if ($prop == bn) {
var %x = 1
while (%x <= $calc($numtok($1-,32) + 1)) {
var %a = %a $c(1) $+ $left($gettok($1-,%x,32),1) $+ $c(2) $+ $mid($gettok($1-,%x,32),2)
inc %x
}
}
if ($prop == s) {
var %x = 1
while (%x <= $calc($numtok($1-,32) + 1)) {
var %b = %b $c(3) $+ $left($gettok($1-,%x,32),1) $+ $c(4) $+ $mid($gettok($1-,%x,32),2)
inc %x
}
var %a = $l %b $+ $r $+ 
}
if ($prop == bs) {
var %x = 1
while (%x <= $calc($numtok($1-,32) + 1)) {
var %a = %a $c(3) $+ $left($gettok($1-,%x,32),1) $+ $c(4) $+ $mid($gettok($1-,%x,32),2)
inc %x
}
}
if ($left($prop,1) == c) {
var %c = $c($right($prop,1))
var %a = $l $1- $r
var %a = $replace(%a,<c>,%c,<c1>,$c(1),<c2>,$c(2),<c3>,$c(3),<c4>,$c(4)) $+ 
}
if ($left($prop,2) == bc) {
var %c = $c($right($prop,1))
var %a = $replace($1-,<c>,%c,<c1>,$c(1),<c2>,$c(2),<c3>,$c(3),<c4>,$c(4)) $+ 
}
return %a
}

alias say { msg $active $1- }

alias iscmd { if ($left($1,1) == $readini(mirc.ini,text,commandchar)) && (!$ctrlenter) { return $true } }

alias serv return ChanServ NickServ MemoServ GlobalServ Global BotServ OperServ

on *:EXIT: { hsave theme $qt($scriptdirtheme.hsh) }

on *:START: {
if (!$hget(theme)) {
hmake theme 20
hload theme $shortfn($scriptdirtheme.hsh)
theme.reload
}
}

raw 001:*: {
haltdef
echo $color(info2) -s $rpre You are now connected. Network : $network
echo $color(info2) -s $rpre $2-
}

raw 002:*: {
haltdef
echo $color(info2) -s $rpre Server : $server - Version $gettok($2-,$numtok($2-,32),32)
}

raw 003:*: {
haltdef
echo $color(info2) -s $rpre $2-
}

raw 004:*: {
var %x = 1
var %num = $calc($numtok($2-,32) - 1)
while (%x < %num) {
var %rmsg = %rmsg $gettok($2-,%x,32)
inc %x
}
var %rmsg = %rmsg (UserModes Supported) $gettok($2-,%num,32) (ChannelModes Supported) $gettok($2-,$numtok($2-,32),32)
echo $color(info2) -s $rpre %rmsg
haltdef
}

raw 005:*: { echo $color(info2) -s $rpre $2-
haltdef }

raw 007:*: {
echo $color(info2) -s $rpre $skin(End of MAP Request)
haltdef
}

raw 251:*: { echo $color(info2) -s $rpre $2-
haltdef }

raw 252:*: { echo $color(info2) -s $rpre $2-
haltdef }

raw 254:*: { echo $color(info2) -s $rpre $2-
haltdef }

raw 255:*: { echo $color(info2) -s $rpre $2-
haltdef }

raw 265:*: { echo $color(info2) -s $rpre $2-
haltdef }

raw 266:*: { echo $color(info2) -s $rpre $2-
haltdef }

raw 301:*: {
haltdef
if (!%whois) {
echo $color(Info2) -s $rpre $2 is currently Away: $3-
}
else {
echo $color(whois) -a $rpre Away : $3-
}
}

raw 305:*: { halt }

raw 306:*: { halt }

raw 307:*: {
haltdef
echo $color(whois) -a $rpre Registered : Yes
}

raw 310:*: {
haltdef
;echo $color(whois) -a $rpre IRCOp : Yes
}

raw 311:*: {
haltdef
echo $color(whois) -a $rpre $skin(Whois : $2)
echo $color(whois) -a $rpre Address : $+($3 ,@,$4)
echo $color(whois) -a $rpre Name : $6-
}

raw 312:*: {
haltdef
echo $color(whois) -a $rpre Server : $3 - $4-
}

raw 313:*: {
haltdef
echo $color(whois) -a $rpre Status : $5-
}

raw 317:*: {
haltdef
echo $color(whois) -a $rpre Idle : $duration($3)
echo $color(whois) -a $rpre Online Since : $asctime($4,ddd mmm dd [hh:nn:sstt] yyyy)
}

raw 318:*: {
haltdef
echo $color(whois) -a $rpre $skin(End of Whois)
}

raw 319:*: {
haltdef
echo $color(whois) -a $rpre Channels : $remove($3-,Status Window)
}

raw 320:*: {
haltdef
echo $color(whois) -a $rpre $3-
}

raw 324:*: { haltdef
echo $color(info) -t $2 $rpre ( $2 ) Modes : $3- }

raw 329:*: { haltdef
echo $color(info) -t $2 $rpre ( $2 ) Created : $asctime($3,ddd mmm dd yyyy hh:nn:sstt) }

raw 332:*: { haltdef
echo $color(topic) -t $2 $rpre ( $2 ) Topic : $3- }

raw 333:*: { haltdef
echo $color(info) -t $2 $rpre ( $2 ) Set by $3 : $asctime($4,ddd mmm dd hh:nn:sstt) }

raw 335:*: {
haltdef
echo $color(whois) -a $rpre Bot : Yes
}

raw 341:*: {
haltdef
echo $color(info2) -s $rpre $2 has successfully been invited to $3
}

raw 353:*: { haltdef
echo $color(info2) -st $rpre ( $3 ) Names : $4- }

raw 366:*: { haltdef
echo $color(info) -st $pre $skin(End of Names) }

raw 372:*: { echo $color(info2) -s $rpre $2-
haltdef }

raw 375:*: { echo $color(info2) -s $rpre $skin($2-)
haltdef }

raw 376:*: { echo $color(info2) -s $rpre $skin(End of MOTD)
haltdef }

raw 378:*: {
haltdef
echo $color(whois) -a $rpre Connected From : $6
echo $color(whois) -a $rpre IP Address : $7
}

raw 379:*: {
haltdef
echo $color(whois) -a $rpre Using Modes : $6-
}

raw 401:*: {
haltdef
echo $color(info2) -a $rpre The Nickname/Channel isn't currently in use or does not exist : $2
}

raw 403:*: {
haltdef
echo $color(info2) -s $rpre The Channel does not exist : $2
}

raw 406:*: {
haltdef
echo $color(info2) -s $rpre Nickname does not exist or is currently offline : $2
}

raw 432:*: {
haltdef
echo $color(info2) -s $rpre Erroneus Nickname. Contains Illegal Characters.
}

raw 433:*: {
haltdef
echo $color(info2) -s Nickname already in use : $2
}

raw 438:*: { echo $color(info2) -a $rpre $skin(Nick Change Too Fast) Please wait $8-
haltdef }

raw 520:*: { echo $color(info2) -s $skin(Cannot Join : $4) IRCOps Only
haltdef }

raw 671:*: {
haltdef
echo $color(whois) -a $rpre Secure Connections : Yes
}

Comments

Sign in to comment.
HeatedHeart   -  Oct 13, 2011
Holy hell.. JUAN!?!?! dude.. i randomly get on here after 2 years of being mia and you decide to get back into scripting to?
 Respond  
smalex   -  Oct 03, 2011
Can't wait for the completed version of this script. Excellent work thus far (beyond what I can do).
 Respond  
DarkWarrior   -  Sep 20, 2011
I went on an unannounced hiatus, but I am back and will begin messing with scripts again. Thanks for the suggestion Slyvar. Once I begin updates and getting back on track I will keep your suggestion in mind.
 Respond  
Slyvar   -  Mar 10, 2011
Awesome Script DarkWarrior, :)

I love it but if you could make the Customizing UI more easier if you release new versions that would be Cool.

Like Button : Clicked it

Rated it : 10/10
 Respond  
[85]   -  Oct 31, 2010
something like this i have on my own script...gj
 Respond  
DarkWarrior   -  Oct 24, 2010
Updated :D FINALLY added the theme creator! Please read the description!
 Respond  
DarkWarrior   -  Sep 08, 2010
ah, I see what u mean about the @#Chan message thing. Thanks for the input I appreciate it.
 Respond  
Grant-   -  Sep 07, 2010
Code
 

Just.. ugly random placement of brackets, not the "clean" way to code it. And you'd need to use $rawmsg in order to check if it's been sent to the channel ops via /msg @#channel Hello! For example, I'll grab part of my own theme...
Code
 
 Respond  
DarkWarrior   -  Sep 07, 2010
i think it does do that, it puts a +%@ in front of the #chan name like (Nickname : +#chan) or something like that

and what do u mean what happened to the brackets?
 Respond  
Grant-   -  Sep 07, 2010
Wtf happened to your brackets.. looks nice overall tho. maybe add something to tell if someone does a msg/describe/notice @%+#channel..
 Respond  
DarkWarrior   -  Sep 07, 2010
Ok, well due to school I disappeared and have not worked on this. However someone pestered me into working on it again and I think I fixed the above errors... I'll paste the new update in a few.
 Respond  
Pyker   -  Jan 11, 2010
Yes, it's now working. The "Dark" theme continues not to work.
 Respond  
Silo   -  Jan 10, 2010
Is it working for you now?
 Respond  
Pyker   -  Jan 03, 2010
Found one:

raw 333:*: { haltdef
echo $color(info) -t $2 $rpre ( $2 ) by $3 : $asctime($3,ddd mmm dd hh:nn:sstt) }

should be:

raw 333:*: { haltdef
echo $color(info) -t $2 $rpre ( $2 ) by $3 : $asctime($4,ddd mmm dd hh:nn:sstt) }
 Respond  
Silo   -  Jan 03, 2010
How old would the topic be? Look at RAWS 331-333 and have a look there for possible errors/conflicts.

Code
 
 Respond  
Pyker   -  Jan 02, 2010
Also, I get timestamps like these (topic creation date):

\ 10.19.11pm \ [×] ( #pyker ) by Pyker : Thu Jan 01 12:00:00am

I'm completely sure that the topic wasn't made 1 day ago. lol

Anyway, nice script.
 Respond  
Pyker   -  Jan 02, 2010
The "Dark" theme isn't working for me. It doesn't return any error, neither does show any error message. Just, doesn't change :P
 Respond  
Silo   -  Dec 16, 2009
Sorry, I should of been more specific...

Code
 
 Respond  
RJosh   -  Dec 15, 2009
not sure if silo just typo'd or not, but he forgot the Dialog ID. Not to mention you need to use a line NUMBER with the -c flag. Not a string of text.
 Respond  
DarkWarrior   -  Dec 15, 2009
wow really? lol.. well.. I feel like a noob... thank you Silo.
 Respond  
Silo   -  Dec 15, 2009
did -c $dname <scheme name>
 Respond  
DarkWarrior   -  Dec 15, 2009
Thanks for the suggestion Testor. I would love to do that, and I could easily make it preview a "default" scheme. However, I have no idea as to how to set the focus on the combo box to be selected with the scheme. Any help with this would be nice, and I'll definitely add that little feature.
 Respond  
Testor   -  Dec 15, 2009
When previewing themes, you should preview a default for each. for themes that have different colour schemes, you must select a theme to preview first. I suggest it automatically (or have an option to) preview the default one, instead of having to pick one first.
 Respond  
p0d   -  Dec 14, 2009
i said that backwards eh. doesnt need to return true.
 Respond  
p0d   -  Dec 14, 2009
on &*:INPUT:*: { if (!$iscmd($1) || ($left($1,1) == 0) { msg $active $1- } }
give that an attempt or have it return true also in the iscmd alias for 0 would be my guess whats at whats stopping it
 Respond  
DarkWarrior   -  Dec 13, 2009
0 isn't anywhere in the scripting itself. The error occurs when you're trying to msg. Like if you just type 0 and hit 'Enter' like if your trying to just chat like normal. It isn't a major bug, because rarely someone starts a line of text with 0, but it is an error nonetheless.

By the way, Updated. Windows XP Users should be able to use the script now. Please let me know any more errors that occur.
 Respond  
Scakk   -  Dec 13, 2009
Another thing is that mIRC hates 0 as it will at times treat it as $null

You could try replacing the 0 if it is there with $chr(48) which is 0
 Respond  
DarkWarrior   -  Dec 13, 2009
Scakk I tested out the theory and its not the problem. The problems lies somewhere with the alias msg on lines 531-547. I've look at it over and over, and I just can't seem to see the problem... I've even thrown in an echo to see if $2 was even being read. Which would be the '0'

It's a minor inconvenience, but damn does it bug not to know why it's doing that....
 Respond  
DarkWarrior   -  Dec 13, 2009
Scakk, I'll test it out.

Another error I'm finding is with Windows XP users the dpreview.bmp isn't created with the on load event and themes don't load properly. I'll have to look more into that.
 Respond  
Shinybot   -  Dec 13, 2009
Very Good i using it now.
 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.