mIRC Home    About    Download    Register    News    Help

Print Thread
Page 2 of 2 1 2
Re: MDX list #146574 11/04/06 03:16 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
hi laugh

i tried with
Code:
 
  if ($gettok($did(themes,2,$did(themes,2,1).sel),7,32) == Black) { did -v themes 50 | preview-black } 

  if ($gettok($did(themes,2,$did(themes,2,1).sel).text,7,32) == Black) { did -v themes 50 | preview-black } 

  if ($gettok($did(themes,2,$did(themes,2,1).sel),7,32).text == Black) { did -v themes 50 | preview-black } 

 


none of it worked for preview
(sorry for being noob in mdx smirk if i make it harder)


IceCapped
Re: MDX list #146575 11/04/06 03:47 PM
Joined: Dec 2002
Posts: 580
N
NaquadaServ Offline
Fjord artisan
Offline
Fjord artisan
N
Joined: Dec 2002
Posts: 580
Try this...

Code:
alias previewtheme {
  var %didLine | var %Part | var %Color
  set %didLine $did(themes,2,$did(themes,2).sel).text
  set %Part $gettok(%didLine, 1, 9)
  set %Color $gettok(%Part, 1, 7)

  ; Place an echo command here for the sake of testing
  echo -a %Color : %Part : %didLine

  if (%Color == Black) { did -v themes 50 | preview-black }
  elseif (%Color == White) { did -v themes 50 | preview-white }
  elseif (%Color == Teal) { did -v themes 50 | preview-teal }
  elseif (%Color == Blue) { did -v themes 50 | preview-light_blue }
  else { did -v themes 50 | nopreview }
}

Last edited by NaquadaServ; 11/04/06 03:48 PM.

NaquadaBomb
www.mirc-dll.com
Re: MDX list #146576 11/04/06 04:06 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
no preview but this echo:
(for black theme)

1 +fs 0 0 0 Black : 1 +fs 0 0 0 Black : 1 +fs 0 0 0 Black +fs 0 0 0 pRonEtIvAgO +fs 0 0 0 Black +fs 0 0 0 Default theme of Domination
1 +fs 0 0 0 Black : 1 +fs 0 0 0 Black : 1 +fs 0 0 0 Black +fs 0 0 0 pRonEtIvAgO +fs 0 0 0 Black +fs 0 0 0 Default theme of Domination


IceCapped
Re: MDX list #146577 11/04/06 05:57 PM
Joined: Dec 2002
Posts: 580
N
NaquadaServ Offline
Fjord artisan
Offline
Fjord artisan
N
Joined: Dec 2002
Posts: 580
sorry, typed that wrong, try this...

Code:
alias previewtheme {
  var %didLine | var %Part | var %Color
  set %didLine $did(themes,2,$did(themes,2).sel).text
  set %Part $gettok(%didLine, 1, 9)
  set %Color $gettok(%Part, 6, 32)

  ; Place an echo command here for the sake of testing
  echo -a %Color : %Part : %didLine

  if (%Color == Black) { did -v themes 50 | preview-black }
  elseif (%Color == White) { did -v themes 50 | preview-white }
  elseif (%Color == Teal) { did -v themes 50 | preview-teal }
  elseif (%Color == Blue) { did -v themes 50 | preview-light_blue }
  else { did -v themes 50 | nopreview }
}


NaquadaBomb
www.mirc-dll.com
Re: MDX list #146578 11/04/06 06:11 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
no need for apologyse, you do it volountary and i apreciate it much =)

the preview for black/white theme is now good (it shows it in window) but for others it dont.



is this perhaps limitation of mirc for not able to show
modified colours (palets) ?

because Black/White ones are made of basic mirc color palet (default one) and others have modified rgb-s of some colours

oh, yes forgot to thank you smile

thank you laugh

Last edited by raZOR; 11/04/06 06:20 PM.

IceCapped
Re: MDX list #146579 12/04/06 04:42 PM
Joined: Dec 2002
Posts: 580
N
NaquadaServ Offline
Fjord artisan
Offline
Fjord artisan
N
Joined: Dec 2002
Posts: 580
Quote:
the preview for black/white theme is now good (it shows it in window) but for others it dont.

is this perhaps limitation of mirc for not able to show
modified colours (palets) ?

because Black/White ones are made of basic mirc color palet (default one) and others have modified rgb-s of some colours


yw, glad to help...

I would have to see one of the other color's alias to figure that out (you only posted the black one)...


NaquadaBomb
www.mirc-dll.com
Re: MDX list #146580 12/04/06 05:01 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
lol stupid me
althought it shouldnt matter, coz all aliases are same :P
they just got different name for getting right background (or maybe im wrong?)

also what puzzles me why 1 theme (called emmerald on list)
wont preview, because it does not uses modified rgb colours
and uses BLACK background (as Black theme) which should show it confused



Code:
;Teal background

alias preview-teal {
  did -v themes 50
  var %thm.file themes\ $+ $theme(name) $+ .dom
  .unload -a %thm.file
  _loadthmfile $did(themes,2,$did(themes,2,1).sel).text
  var %rgb = 0 | while (%rgb < 16) { color -r %rgb | inc %rgb }
  var %temp = $readini themes\ $+ $theme(name) $+ .dom colours rgb | if (%temp != $null) {  _rgb $readini themes\ $+ $theme(name) $+ .dom colours rgb }
  window -c @themes 
  if ($window(@themes) == $null) { window -ph +d @themes 300 200 229 165 | drawfill @themes 0 0 0 0 }
  var %. = drawtext -pb @themes 1 0 verdana 10 x 
  %. 4 $str($chr(160),1) $theme(joinme,#domination) $str($chr(160),7) 
  %. 16 $str($chr(160),1) $theme(me,$me,is choosing a theme!) $str($chr(160),7) 
  %. 28 $str($chr(160),1) $theme(nick,$me,Guest376705) $str($chr(160),7) 
  %. 40 $str($chr(160),1) $theme(notice,NickServ,Password accepted now you can [censored] off!) $str($chr(160),7) 
  %. 52 $str($chr(160),1) $timestamps $+ $theme(logo)  $+ $gettok($readini(system\ $+  $theme(name) $+ .dom,colours,colours),12,44) $+ Can't change Nick while you're banned $str($chr(160),7)
  %. 64 $str($chr(160),1) $theme(attention,TCP Alert in port 80 (http) from $IP) $str($chr(160),7) 
  %. 76 $str($chr(160),1) $theme(quit,rOlling,Quit: Ping timeout) $str($chr(160),7)
  %. 88 $str($chr(160),1) $theme(echoaway,Off - away time: 17s) $str($chr(160),7)
  %. 100 $str($chr(160),1) $theme(joins,Raptor,domi@raptor.tech.nu) $str($chr(160),7)
  %. 112 $str($chr(160),1) $theme(part,$me,id@localhost) $str($chr(160),7)
  %. 124 $str($chr(160),1) $theme(metext,$me,Hi! How are you?)
  %. 136 $str($chr(160),1) $theme(wsl,pRonEtIvAgO)
  %. 148 $str($chr(160),1) $theme(raw311name,pRonEtIvAgO,www.domination.pt.vu)
  drawsave @themes themes\thmprvw.bmp
  if $dialog(themes) { did -g themes 50 themes\thmprvw.bmp }
  .remove themes\thmprvw.bmp
  .unload -a themes\ $+ $theme(name) $+ .dom
  .load -a %thm.file
  var %rgb = 0 | while (%rgb < 16) { color -r %rgb | inc %rgb }
  var %temp = $readini themes\ $+ $theme(name) $+ .dom colours rgb | if (%temp != $null) {  _rgb $readini themes\ $+ $theme(name) $+ .dom colours rgb }
  window -c @themes
}



Code:
;Light Blude bckg

alias preview-light_blue {
  did -v themes 50
  var %thm.file themes\ $+ $theme(name) $+ .dom
  .unload -a %thm.file
  _loadthmfile $did(themes,2,$did(themes,2,1).sel).text
  var %rgb = 0 | while (%rgb < 16) { color -r %rgb | inc %rgb }
  var %temp = $readini themes\ $+ $theme(name) $+ .dom colours rgb | if (%temp != $null) {  _rgb $readini themes\ $+ $theme(name) $+ .dom colours rgb }
  window -c @themes 
  if ($window(@themes) == $null) { window -ph +d @themes 300 200 229 165 | drawfill @themes 0 0 0 0 }
  var %. = drawtext -pb @themes 1 0 verdana 10 x 
  %. 4 $str($chr(160),1) $theme(joinme,#domination) $str($chr(160),7) 
  %. 16 $str($chr(160),1) $theme(me,$me,is choosing a theme!) $str($chr(160),7) 
  %. 28 $str($chr(160),1) $theme(nick,$me,Guest376705) $str($chr(160),7) 
  %. 40 $str($chr(160),1) $theme(notice,NickServ,Password accepted now you can [censored] off!) $str($chr(160),7) 
  %. 52 $str($chr(160),1) $timestamps $+ $theme(logo)  $+ $gettok($readini(system\ $+  $theme(name) $+ .dom,colours,colours),12,44) $+ Can't change Nick while you're banned $str($chr(160),7)
  %. 64 $str($chr(160),1) $theme(attention,TCP Alert in port 80 (http) from $IP) $str($chr(160),7) 
  %. 76 $str($chr(160),1) $theme(quit,rOlling,Quit: Ping timeout) $str($chr(160),7)
  %. 88 $str($chr(160),1) $theme(echoaway,Off - away time: 17s) $str($chr(160),7)
  %. 100 $str($chr(160),1) $theme(joins,Raptor,domi@raptor.tech.nu) $str($chr(160),7)
  %. 112 $str($chr(160),1) $theme(part,$me,id@localhost) $str($chr(160),7)
  %. 124 $str($chr(160),1) $theme(metext,$me,Hi! How are you?)
  %. 136 $str($chr(160),1) $theme(wsl,pRonEtIvAgO)
  %. 148 $str($chr(160),1) $theme(raw311name,pRonEtIvAgO,www.domination.pt.vu)
  drawsave @themes themes\thmprvw.bmp
  if $dialog(themes) { did -g themes 50 themes\thmprvw.bmp }
  .remove themes\thmprvw.bmp
  .unload -a themes\ $+ $theme(name) $+ .dom
  .load -a %thm.file
  var %rgb = 0 | while (%rgb < 16) { color -r %rgb | inc %rgb }
  var %temp = $readini themes\ $+ $theme(name) $+ .dom colours rgb | if (%temp != $null) {  _rgb $readini themes\ $+ $theme(name) $+ .dom colours rgb }
  window -c @themes
}


  

Last edited by raZOR; 12/04/06 05:05 PM.

IceCapped
Re: MDX list #146581 12/04/06 05:32 PM
Joined: Dec 2002
Posts: 580
N
NaquadaServ Offline
Fjord artisan
Offline
Fjord artisan
N
Joined: Dec 2002
Posts: 580
I would suggest if they are all the same to change it to a single alias, at the very least it will be easier to debug. wink

If you could place the entire script for this on a website for download and post here the URL, I will take a closer look.


NaquadaBomb
www.mirc-dll.com
Re: MDX list #146582 12/04/06 05:48 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
i tried before that thing with same aliases, and it made big confusion because this theme engine reads background types per alias so it... messes up with single one i guess

ok, i uploaded it =)
its ~400 kb in size coz of mdx dlls included and some theme images. there are 2 script files in system folder (you will see)
which needs load in mirc.

link:
rzr_themes

also, i want to thank you very very much for this.
i dont like to bug people =)
but i was kinda desperate lol

so thank you ^^


IceCapped
Re: MDX list #146583 14/04/06 03:29 AM
Joined: Dec 2002
Posts: 580
N
NaquadaServ Offline
Fjord artisan
Offline
Fjord artisan
N
Joined: Dec 2002
Posts: 580
There were quite a few bugs that needed fixing...

Try this out... Themes-Fixed.rar

Big changes...
* themes-preview.mrc is no longer needed, I consolidated all the "preview-[color]" aliases and moved it to theme-dialog.mrc.
* .dom files are now .ini files, mIRC handles .ini files differently and they need to be .ini files (unless you wanted to rewrite a bunch of code)
* The sclick event for the listview needed some improvements because the MDX control triggers multiple sclick events.

Enjoy wink,
NaquadaBomb


NaquadaBomb
www.mirc-dll.com
Re: MDX list #146584 14/04/06 11:36 AM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
heeey
i really thank you for your time and effort
but unfortunately it doesnt work here confused

when i click on listbox on any theme it previews Black one (in preview window) but always loads Teal one
and not any other, also i cannot change themes at all,
it always loads just 1 theme (teal one) no matter on which i click/load


i use 6.17 for this (clean)

does it worked at you ?

Last edited by raZOR; 14/04/06 01:18 PM.

IceCapped
Re: MDX list #146585 14/04/06 01:26 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
ehm disregard all this.
it was some problem coz on weird way all theme files
were loaded at once :P

Naquada this is outstanding work !
i realy dont know how to thank you...

i have just 1 question (hope you not angry) smirk

everything regarding preview and loading is ok exept on White and LightBlue theme it doesnt show it right (as preview) all others are ok, (on white it gives black bckg and weird colors and on Blue it gives black bckg and all grey colors) just wondering if this is mirc's fault ?
or engine (coz its old) ?

Last edited by raZOR; 14/04/06 01:27 PM.

IceCapped
Re: MDX list #146586 14/04/06 05:21 PM
Joined: Dec 2002
Posts: 580
N
NaquadaServ Offline
Fjord artisan
Offline
Fjord artisan
N
Joined: Dec 2002
Posts: 580
Yeah there still seems to be a bug with always showing a black (or existing) background in preview. I think I know why too, I will take another look at the script this weekend. smile


NaquadaBomb
www.mirc-dll.com
Re: MDX list #146587 14/04/06 05:52 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
hehe oke
thank you very much smile


IceCapped
Re: MDX list #146588 20/04/06 07:54 PM
Joined: Dec 2002
Posts: 580
N
NaquadaServ Offline
Fjord artisan
Offline
Fjord artisan
N
Joined: Dec 2002
Posts: 580
I haven't been able to figure out why the background is always black. And I wont have any time to check it again for at least the next week... Send me your e-mail address to admin@mirc-dll.com, and I'll get back to you as soon as I can.


NaquadaBomb
www.mirc-dll.com
Re: MDX list #146589 27/04/06 11:33 PM
Joined: Apr 2005
Posts: 1,009
raZOR Offline OP
Hoopy frood
OP Offline
Hoopy frood
Joined: Apr 2005
Posts: 1,009
done =)
& thanks very much


IceCapped
Page 2 of 2 1 2