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.