Background Manager

By rhasttaff on Oct 06, 2008

Hello! This one is my Background Manager to associate images to Channels/Query windows like in the screenshot

WARN:
FILENAMES CAN'T CONTAINE SPACES
wrong = My Photo.jpg
right = My-Photo.jpg
characteristics

wchannel= Any window channel non associated with a image (Default)
wquery= Any window Query non associated with a image (Default)
wmessage=comun windows
@mdi=main mIRC window
*--
Name option= create a .bmp image with the channel/query name in Drawtext format with 3 colors configurables

updated: to load when added a channel/quey alread openned
and added $qt to Pathnames with Spaces

Jah Bless´´

;##---------  By    rhasttaff   ----------##
;##         Background Manager            ##
;##             By rhasttaff              ##
;##---------                      --------##
;##   FILENAMES CAN'T CONTAINE SPACES     ##
;##    wrong = My Photo.jpg               ##
;##    right = My-Photo.jpg               ##
;##---------                      --------##
;##   wchannel= Any window channel non    ##
;##   associated with a image (Default)   ##
;##   wquery= Any window Query non        ##
;##   associated with a image (Default)   ##
;##--------  By     rhasttaff  -----------##
dialog bkgmng {
  title "BackGrounds"
  size 45 300 194 162
  option dbu
  edit "", 13, 5 149 184 10, read
  box "mIRC Windows", 15, 120 3 72 20
  box "", 16, 2 144 190 17
  box "", 17, 2 93 38 55
  radio "Center", 18, 5 98 32 7, group left  disable 
  radio "Fill", 19, 5 106 32 7, left  disable 
  radio "Normal", 20, 5 114 32 7, left  disable 
  radio "Stretch", 21, 5 122 32 7, left  disable 
  radio "Tile", 22, 5 130 32 7, left  disable 
  radio "Photo", 23, 5 138 32 7, left  disable 
  box "", 24, 2 3 119 94
  icon 25, 5 9 113 85
  list 27, 123 40 66 105, size sort
  button "ADD", 29, 42 103 20 11, disable
  button "REM", 30, 70 103 20 11, disable
  radio "Default", 44, 123 11 30 10, group
  radio "Personal", 45, 157 11 32 10
  radio "Channel", 46, 123 25 31 10, disable group
  radio "Query", 47, 157 25 32 10, disable
  box "", 48, 120 19 72 129
  box "", 53, 39 93 82 27
  button "EDIT", 58, 97 103 20 11, disable
  icon 60, 9 12 106 78, bkg-bkg-prev.bmp, noborder
  radio "Portuguese", 62, 43 133 38 10, group
  radio "English", 63, 88 133 29 10
  box "Language", 64, 39 124 82 24
}
dialog bkgmng2 {
  title "Backgrounds"
  size 45 330 183 107
  option dbu
  edit "", 13, 4 94 156 10, read
  button ".....", 14, 162 94 15 9, disable
  box "", 15, 73 0 109 93
  box "", 16, 2 89 180 17
  box "Background Style", 24, 1 19 73 18
  icon 25, 76 3 103 90
  radio "Name", 26, 3 26 23 8, group
  radio "Pic", 27, 28 26 21 8
  radio "None", 47, 50 26 22 8
  combo 28, 3 45 53 47, size drop
  combo 29, 4 66 11 120, size drop
  combo 30, 59 45 12 33, size drop
  radio "C1", 31, 18 67 16 7, group
  radio "C2", 32, 36 67 16 7
  radio "C3", 33, 55 67 16 7
  box "", 35, 1 0 73 18
  edit "", 41, 3 5 68 11, read autohs
  box "Font", 42, 1 37 73 20
  box "Colors", 43, 2 58 72 21
  edit "", 44, 4 80 41 10, read
  edit "", 45, 46 80 26 10, read
  box "", 46, 2 75 72 18
}
dialog bkgadd {
  title "Add New"
  size -1 -1 128 27
  option dbu
  radio "Channel", 1, 3 3 31 7, group
  radio "Query", 2, 37 3 30 7
  radio "Name", 3, 73 3 26 7, group disable
  radio "Pic", 4, 102 3 20 7, disable
  box "", 5, 1 -2 69 15
  box "", 6, 69 -2 57 15
  edit "", 7, 2 14 92 11, disable
  button "OK", 8, 100 14 22 10, disable
}
on *:dialog:bkgmng:*:*: {
  if ($devent = init) { 
    if ($readini(bkg.ini,config,lang) = 2) {  d-1 -c 62 | d-1 -ra 15 Janelas do mIRC | d-1 -ra 18 Centro | d-1 -ra 19 Preencher | d-1 -ra 21 Ampliado | d-1 -ra 22 lado-a-lad |  d-1 -ra 23 Foto | d-1 -ra 44 Padrão | d-1 -ra 45 Pessoal | d-1 -ra 46 Canal | d-1 -ra 47 Privado | d-1 -ra 62 Português | d-1 -ra 63 Inglês | d-1 -ra 64 Idiomas } 
    if ($readini(bkg.ini,config,lang) = 1) { d-1 -c 63 }  
    d-1 -c 44
    var %a- = toolbar switchbar @mdi status wmessage wchannel wquery
    var %b- = $numtok(%a-,32) 
    while (%b- >= 1) { 
      d-1 -a 27 $gettok(%a-,%b-,32)
      dec %b-
    } 
    bkg-bkg-prev
  }
  if ($devent = sclick) {
    if ($did isnum 18-23) && ($did($dname,27).seltext) { bkg.cgpos $bkg.pos($did)  | bkg.cgp2 $did($dname,27).seltext $did  }
    if ($did = 27) && ($did($dname,44).state = 1) && ($did($dname,27).seltext) {
      if ($did($dname,27).seltext = toolbar) { bkg.sep $bkg.rd($did($dname,27).seltext)  | d-1 -ub 18-23  }
      if ($did($dname,27).seltext = switchbar) { bkg.sep $bkg.rd($did($dname,27).seltext) | d-1 -ub 18-23   }
      if ($did($dname,27).seltext = @mdi) { bkg.sep $bkg.rd($did($dname,$did).seltext)   }
      if ($did($dname,27).seltext = wchannel) { 
        if ($readini(bkg.ini,wchannel,open) = name) { d-1 -ue 18-23 | d-1 -c $bkg.pos($readini(bkg.ini,wchannel,pos)) | d-1 -ra 13 Name  | bkg.nm-prev #Name wchannel }
        else {  bkg.sep $bkg.rd($did($dname,$did).seltext) }           
      }
      if ($did($dname,27).seltext = wquery) {
        if ($readini(bkg.ini,wquery,open) = name) {  d-1 -ue 18-23 | d-1 -c $bkg.pos($readini(bkg.ini,wquery,pos)) | d-1 -ra 13 Name |   bkg.nm-prev #Name wquery }      
        else {  bkg.sep $bkg.rd($did($dname,$did).seltext) } 
      }
      if ($did($dname,27).seltext = wmessage) { bkg.sep $bkg.rd($did($dname,$did).seltext)   }
      if ($did($dname,27).seltext = status) { bkg.sep $bkg.rd($did($dname,$did).seltext)   }
      d-1 -e 58
    }
    if ($did = 27) && ($did($dname,45).state = 1) && ($did($dname,27).seltext) {
      d-1 -e 18-23,29-30,58
      if ($did($dname,46).state = 1) { bkg.sep $bkg.rd($did($dname,$did).seltext) }
      if ($did($dname,47).state = 1) { bkg.sep $bkg.rd($did($dname,$did).seltext) }
    }
    if ($did = 29) && ($did($dname,45).state = 1) { dialog -m bkgadd bkgadd }
    if ($did = 30) && ($did($dname,44).state != 1) && ($did($dname,27).seltext) { remini bkg.ini $did($dname,27).seltext | remini mirc.ini background $did($dname,27).seltext | dialog -x $dname | bkg }
    if ($did = 44) { d-1 -r 27,13 | d-2 -a 27 toolbar switchbar @mdi status wmessage wchannel wquery | d-1 -ub 29-30,58 | d-1 -ub 46-47 | d-1 -h 60 }
    if ($did = 45) { d-1 -e 29,46-47 | d-1 -ub 18-23,30,58 | d-1 -c 46 | d-1 -h  60 | d-1 -r 27,13 | d-2 -a 27 $d-3($bkg.get)  }
    if ($did = 46) {  d-1 -ub 18-23,30,58 | d-1 -e 29 | d-1 -r 13,27 | d-1 -h 60 | d-2 -a 27 $d-3($bkg.get)   }
    if ($did = 47) {  d-1 -h  60 | d-1 -e 29 | d-1 -ub 18-23,30,58  | d-1 -r 13,27 | d-2 -a 27 $d-4($remove($bkg.get,toolbar,switchbar,@mdi,status,wmessage,wchannel,wquery)) }
    if ($did = 58) { bkg.edit $did($dname,27).seltext $bkg.rd($did($dname,27).seltext) }
    if ($did = 62) { writeini bkg.ini config lang 2 | dialog -x $dname | bkg }
    if ($did = 63) { writeini bkg.ini config lang 1 | dialog -x $dname | bkg }
  }
}
on *:dialog:bkgmng2:*:*: {
  if ($devent = init) {
    if ($readini(bkg.ini,config,lang) = 2) {   d-5 -ra 24 Estilos | d-5 -ra 26 Nome | d-5 -ra 27 Foto | d-5 -ra 47 Nada | d-5 -ra 42 Fonte |  d-5 -ra 43 Cores } 
    d-6 -a 28 Verdana Thickhead Tahoma System Sylfaen Roman Modern Impact Georgia Garamond Fixedsys Courier Bright Arial
    d-6 -a 29 15 14 13 12 10 11 9 8 7 6 5 4 3 2 1 0 
    d-6 -a 30 3 2 1 
    dialog -o $dname  
  } 
  if ($devent = sclick) {
    if ($did = 14) && ($did($dname,27).state = 1) {
      if (($did($dname,41).text = toolbar) || ($did($dname,41).text = switchbar)) { 
        var %a- = $ifmatch, %b- = $sfile($scriptdir,Background Pic,Select), %c- = $chr(44) $+ $iif($readini(bkg.ini,%a-,pos),$readini(bkg.ini,%a-,pos),0), %d- = $remove($qt(%b-),$mircdir)  
        if (%b-) { writeini bkg.ini %a- open pic |  writeini bkg.ini %a- pic %d- | writeini mirc.ini background %a- %d-  | bkg.loadimg %a- %d- | d-5 -e 14 | d-5 -ra 13 %d- | d-5 -v 25 | d-5 -g 25 %d- | halt }
      }
      else {
        var %a- = $did($dname,41).text, %b- = $sfile($scriptdir,Background Pic,Select), %c- = $chr(44) $+ $iif($readini(bkg.ini,%a-,pos),$readini(bkg.ini,%a-,pos),0), %d- = $remove($qt(%b-),$mircdir)  
        if (%b-) { writeini bkg.ini %a- open pic |  writeini bkg.ini %a- pic %d- $+ %c- | writeini mirc.ini background %a- %d- $+ %c-  | bkg.loadimg %a- %d-  | d-5 -e 14 | d-5 -ra 13 %d- | d-5 -v 25 | d-5 -g 25 %d- }    
      } 
    }
    if ($did = 26) {
      d-5 -e 28-33
      if (($did($dname,41).text = wchannel) || ($did($dname,41).text = wquery)) { 
        var %a- = $ifmatch, %b- = $readini(bkg.ini,%a-,open), %c- = $readini(bkg.ini,%a-,pic), %d- = bkg.rd(%a-)
        writeini bkg.ini %a- open name | d-5 -b 14 | d-5 -ra 13 Name | bkg.nm-prev2 #Name | writeini mirc.ini background %a- none | bkg.loadimg %a- name | writeini bkg.ini %a- pos 0
      }
      else {
        var %a- = $did($dname,41).text, %b- =  $readini(bkg.ini,%a-,open),  %c- = $readini(bkg.ini,%a-,pic), %d- = $iif($readini(bkg.ini,%a-,font),$readini(bkg.ini,%a-,font),Impact), %e- = $iif($readini(bkg.ini,%a-,c1),$readini(bkg.ini,%a-,c1),8), %f- = $iif($readini(bkg.ini,%a-,c2),$readini(bkg.ini,%a-,c2),4), %g- = $iif($readini(bkg.ini,%a-,c3),$readini(bkg.ini,%a-,c3),3), %h- = $iif($readini(bkg.ini,%a-,size),$readini(bkg.ini,%a-,size),50)  
        writeini bkg.ini %a- font %d- | writeini bkg.ini %a- c1 %e-  | writeini bkg.ini %a- c2 %f-  | writeini bkg.ini %a- c3 %g- | writeini bkg.ini %a- size %h-  |  writeini bkg.ini %a- tm 2  | writeini bkg.ini %a- pos 0
        writeini bkg.ini  %a- style name | d-5 -b 14 | d-5 -ra 13 Name | bkg.nm-create %a- %a- | writeini mirc.ini background %a- $remove($scriptdir,$mircdir) $+ %a- $+ .bmp $+ ,0
      }
    }
    if ($did = 27) {
      if (($did($dname,41).text = wchannel) || ($did($dname,41).text = wquery)) { 
        var %a- = $ifmatch, %b- = $sfile($scriptdir,Background Pic,Select), %c- = $chr(44) $+ $iif($readini(bkg.ini,%a-,pos),$readini(bkg.ini,%a-,pos),0), %d- = $remove($qt(%b-),$mircdir)
        if (%b-) { writeini bkg.ini %a- open pic |  writeini bkg.ini %a- pic %d- $+ %c- | writeini mirc.ini background %a- %d- $+ %c- | bkg.loadimg %a- pic | d-5 -e 14 | d-5 -ra 13 %d- | d-5 -v 25 | d-5 -g 25 %d- | halt }
        else { writeini bkg.ini %a- open none |  writeini bkg.ini %a- pic none | writeini mirc.ini background %a- none |  bkg.loadimg %a- none | d-5 -u 27 | d-5 -c 47 | d-5 -b 14 | d-5 -ra 13 none | d-5 -h 25   }
      }
      else { 
        if (($did($dname,41).text = toolbar) || ($did($dname,41).text = switchbar)) { 
          var %a- = $did($dname,41).text, %b- = $sfile($scriptdir,Background Pic,Select), %c- = $chr(44) $+ $iif($readini(bkg.ini,%a-,pos),$readini(bkg.ini,%a-,pos),0), %d- = $remove($qt(%b-),$mircdir)
          if (%b-) { writeini bkg.ini %a- style pic |  writeini bkg.ini %a- pic %d-  |  writeini mirc.ini background %a- %d- | bkg.loadimg %a- %d-  |   writeini bkg.ini %a- style Pic | d-5 -e 14 | d-5 -ra 13 %d- | d-5 -v 25 | d-5 -g 25 %d- | halt }  
          else { writeini bkg.ini %a- open none |  writeini bkg.ini %a- pic none | writeini mirc.ini background %a- none | d-5 -u 27 | d-5 -c 47 | d-5 -b 14 | d-5 -ra 13 none | d-5 -h 25   } 
        }
        else {
          var %a- = $did($dname,41).text, %b- = $sfile($scriptdir,Background Pic,Select), %c- = $chr(44) $+ $iif($readini(bkg.ini,%a-,pos),$readini(bkg.ini,%a-,pos),0), %d- = $remove($qt(%b-),$mircdir)
          if (%b-) { writeini bkg.ini %a- style pic |  writeini bkg.ini %a- pic %d- $+ %c- | writeini mirc.ini background %a- %d- $+ %c-  |  bkg.loadimg %a- %d- |  writeini bkg.ini %a- style Pic | d-5 -e 14 | d-5 -ra 13 %d- | d-5 -v 25 | d-5 -g 25 %d- | halt }  
          else { writeini bkg.ini %a- open none   | writeini bkg.ini %a- style none |  writeini bkg.ini %a- pic none | writeini mirc.ini background %a- none | d-5 -u 27 | d-5 -c 47 | d-5 -b 14 | d-5 -ra 13 none | d-5 -h 25 }     
        }
      }
    }
    if ($did = 47) {
      if (($did($dname,41).text = wchannel) || ($did($dname,41).text = wquery)) { var %a- = $ifmatch | writeini bkg.ini %a- open none  | writeini bkg.ini %a- style none | d-5 -b 14 | d-5 -ra 13 None | d-5 -h 25 |  writeini mirc.ini background %a- none  }
      else { var %a- = $did($dname,41).text | writeini bkg.ini  %a- style none | d-5 -b 14 | d-5 -ra 13 None | d-5 -h 25 | writeini mirc.ini background %a- none |  bkg.loadimg %a- none }
    }
    if ($did = 28) { 
      if (($did($dname,41).text = wchannel) || ($did($dname,41).text = wquery)) { var %a- = $ifmatch | writeini bkg.ini %a- font $did($dname,28).seltext |  bkg.nm-prev2 $iif(%a- = wchannel,#Name,Name) %a-   | bkg.led %a-  }
      else { var %a- = $did($dname,41).text | writeini bkg.ini $did($dname,41).text font $did($dname,28).seltext | bkg.nm-create %a- | bkg.led2 %a-  } 
    }
    if ($did = 29) { 
      if (($did($dname,41).text = wchannel) || ($did($dname,41).text = wquery)) {
        var %a- = $ifmatch
        if ($did($dname,31).state = 1) { writeini bkg.ini %a- c1 $did($dname,$did).seltext | bkg.nm-prev2 $iif(%a- = wchannel,#Name,Name) %a- | bkg.led %a- }
        if ($did($dname,32).state = 1) { writeini bkg.ini %a- c2 $did($dname,$did).seltext | bkg.nm-prev2 $iif(%a- = wchannel,#Name,Name) %a- | bkg.led %a-  }
        if ($did($dname,33).state = 1) { writeini bkg.ini %a- c3 $did($dname,$did).seltext | bkg.nm-prev2 $iif(%a- = wchannel,#Name,Name) %a- | bkg.led %a-  }
      }
      else {
        var %a- = $did($dname,41).text 
        if ($did($dname,31).state = 1) { writeini bkg.ini %a- c1 $did($dname,$did).seltext | bkg.nm-create %a- | bkg.led2 %a- }
        if ($did($dname,32).state = 1) { writeini bkg.ini %a- c2 $did($dname,$did).seltext | bkg.nm-create %a- | bkg.led2 %a- }
        if ($did($dname,33).state = 1) { writeini bkg.ini %a- c3 $did($dname,$did).seltext | bkg.nm-create %a- | bkg.led2 %a- }
      }
    }
    if ($did = 30) {
      if (($did($dname,41).text = wchannel) || ($did($dname,41).text = wquery)) {
        var %a- = $ifmatch
        if ($did($dname,$did).seltext = 1) { writeini bkg.ini %a- size 20  | bkg.nm-prev2 $iif(%a- = wchannel,#Name,Name) %a-  | bkg.led %a- }
        if ($did($dname,$did).seltext = 2) { writeini bkg.ini %a- size 50  | bkg.nm-prev2 $iif(%a- = wchannel,#Name,Name) %a-  | bkg.led %a- }
        if ($did($dname,$did).seltext = 3) { writeini bkg.ini %a- size 80  | bkg.nm-prev2 $iif(%a- = wchannel,#Name,Name) %a-  | bkg.led %a- }
      }
      else {
        var %a- = $did($dname,41).text
        if ($did($dname,$did).seltext = 1) { writeini bkg.ini %a- size 20 | bkg.nm-create %a- | bkg.led2 %a- }
        if ($did($dname,$did).seltext = 2) { writeini bkg.ini %a- size 50 | bkg.nm-create %a- | bkg.led2 %a- }
        if ($did($dname,$did).seltext = 3) { writeini bkg.ini %a- size 80 | bkg.nm-create %a- | bkg.led2 %a- }
      }
    }
  }
  if ($devent = close) { 
    if ($dialog(bkgmng)) { 
      if (($did($dname,41).text = wquery) || ($did($dname,41).text = wchannel)) { var %a- = $ifmatch  | dialog -x bkgmng |  bkg.chgwrn %a- warn | bkg }
      else {
        if ($did($dname,26).state = 1) { bkg.loadimg $did($dname,41).text $qt($remove($scriptdir,$mircdir) $+ $did($dname,41).text $+ .bmp) | dialog -x bkgmng | bkg }
      } 
    } 
  }
}
on *:dialog:bkgadd:*:*: {
  if ($devent = init) { 
    if ($readini(bkg.ini,config,lang) = 2)  { dialog -t $dname Add Novo | did -ra $dname 1 Canal | did -ra $dname 2 Privado | did -ra $dname 3 Nome | did -ra $dname 4 Foto } 
    dialog -o $dname 
  } 
  if ($devent = sclick) {
    if ($did isnum 1-2) { did -e $dname 7 }
    if ($did isnum 3-4) { did -eu $dname 8 }
    if ($did = 8) && ($did($dname,7).text) { var %a- = $did($dname,7).text, %b- = $iif($did($dname,1).state = 1,channel,query), %c- = $iif($did($dname,3).state = 1,name,Pic)  | dialog -x $dname | bkg.addnew %a- %b- %c-  }
  } 
  if ($devent = edit) && ($did = 7) {
    if ($did($dname,1).state = 1) {
      if ($len($did($dname,7).text) >= 2) { did -e $dname 3-4 }
      else {  did -ub $dname 3-4,8 }
      halt
    }
    if ($did($dname,2).state = 1) {
      if ($len($did($dname,7).text) >= 1) { did -e $dname 3-4 }
      else {  did -ub $dname 3-4,8 }
    }
  } 
}
on *:join:*: {
  if ($nick = $me) {
    if (!$readini(mirc.ini,background,$chan))  && ($readini(bkg.ini,wchannel,open) = name) {  writeini bkg.ini wdef $chan $chan | bkg.nm-create-default $chan wchannel }
  }
}
on *:open:?: {
  if (!$readini(mirc.ini,background,$target)) && (!$readini(bkg.ini,wdef,$target)) && ($readini(bkg.ini,wquery,open) = name) { writeini bkg.ini wdef $target $target  |  bkg.nm-create-default $target  wquery }
}
on *:active:?: {
  if ($query($target)) {
  if (!$readini(mirc.ini,background,$target)) && (!$readini(bkg.ini,wdef,$target)) && ($readini(bkg.ini,wquery,open) = name) { writeini bkg.ini wdef $target $target  |  bkg.nm-create-default $target  wquery }
}
}
on *:close:?: {
  if (!$readini(mirc.ini,background,$target))  && ($readini(bkg.ini,wquery,open) = name) && ($readini(bkg.ini,wdef,$target)) {  remini bkg.ini wdef $target }
}
on *:part:*: {
  if ($nick = $me) {
    if (!$readini(mirc.ini,background,$chan))  && ($readini(bkg.ini,wchannel,open) = name) && ($readini(bkg.ini,wdef,$chan)) {  remini bkg.ini wdef $chan }
  }
}
on *:Quit: {
  if ($nick = $me) { remini bkg.ini wdef }
}
on *:load: {
  writeini bkg.ini config lang 1
  bkg-bkg-prev
  if (!$readini(mirc.ini,background,wchannel)) { writeini mirc.ini background wchannel none | writeini bkg.ini wchannel open none | writeini bkg.ini wchannel pos 0 }
  if (!$readini(mirc.ini,background,wquery)) { writeini mirc.ini  background wquery none | writeini bkg.ini wchannel open none | writeini bkg.ini wchannel pos 0 }
  if (!$readini(mirc.ini,background,wmessage)) { writeini mirc.ini  background wmessage none | writeini bkg.ini wmessage style none | writeini bkg.ini wmessage pos 0 }
  if (!$readini(mirc.ini,background,@mdi)) { writeini mirc.ini  background @mdi none | writeini bkg.ini @mdi style none | writeini bkg.ini @mdi pos 0 }
  if (!$readini(mirc.ini,background,status)) { writeini mirc.ini  background status none | writeini bkg.ini status style none | writeini bkg.ini status pos 0 }
  if (!$readini(mirc.ini,background,toolbar)) { writeini mirc.ini  background toolbar none | writeini bkg.ini toolbar style none | writeini bkg.ini toolbar pos 0 }
  if (!$readini(mirc.ini,background,switchbar)) { writeini mirc.ini  background switchbar none | writeini bkg.ini switchbar style none | writeini bkg.ini switchbar pos 0 }
  writeini bkg.ini wchannel pos 0
  writeini bkg.ini wquery pos 0
  writeini bkg.ini wmessage pos 0
}
alias -l bkg-bkg-prev {
  window -c @bkg 
  window -ph +d @bkg 0 0 240 180
  drawfill @bkg  $colour(background) $colour(background) 1 1
  drawtext -pb @bkg $colour(background) $colour(background) fixedsys 1  1 1 ok
  drawsave @bkg  bkg-bkg-prev.bmp | window -c @bkg 
  d-1 -g 25 bkg-bkg-prev.bmp
}
alias -l bkg.nm-prev {
  var %a- = $len($1), %b- = $readini(bkg.ini,$2,font), %c- = $readini(bkg.ini,$2,size), %d- = $iif($calc($width(%b-,%b-,%c-) + $len(%b-)) > 100,$v1,100), %e- = $iif($height(%b-,%b-,%c-) > 40,$v1,40), %f- = $readini(bkg.ini,$2,c1), %g- = $readini(bkg.ini,$2,c2), %h- = $readini(bkg.ini,$2,c3)
  var %i- =   $+ %h- $+ $left($remove($1,$chr(35)),1) $+  $+ %g- $+ $right($remove($1,$chr(35)),-1), %j- =  $+ %h- $+ $left($1,1) $+  $+ %g- $+ $right($1,-1)
  var %bkg.nm-prev = $iif($did(bkgmng,27).seltext = wquery,%i-,%j-)
  window -c @bkg 
  window -ph +d @bkg 0 0 %d- %e-
  drawfill @bkg  $rgb(%f-) $rgb(%f-) 1 1
  drawtext -pb @bkg $rgb(%g-) $rgb(%f-)  %b- %c- 3 3 %bkg.nm-prev
  drawsave @bkg  $remove($scriptdir,$mircdir) $+ bkg-tst.bmp | window -c @bkg
  d-1 -v 60
  d-1 -g 60 $qt($remove($scriptdir,$mircdir) $+ bkg-tst.bmp)
}
alias -l bkg.nm-prev2 {
  var %a- = $len($1), %b- = $readini(bkg.ini,$2,font), %c- = $readini(bkg.ini,$2,size), %d- = $iif($calc($width(%b-,%b-,%c-) + $len(%b-)) > 100,$v1,100), %e- = $iif($height(%b-,%b-,%c-) > 40,$v1,40), %f- = $readini(bkg.ini,$2,c1), %g- = $readini(bkg.ini,$2,c2), %h- = $readini(bkg.ini,$2,c3)
  var %i- =   $+ %h- $+ $left($remove($1,$chr(35)),1) $+  $+ %g- $+ $right($remove($1,$chr(35)),-1), %j- =  $+ %h- $+ $left($1,1) $+  $+ %g- $+ $right($1,-1)
  var %bkg.nm-prev = $iif($did(bkgmng,27).seltext = wquery,%i-,%j-)
  window -c @bkg 
  window -ph +d @bkg 0 0 %d- %e-
  drawfill @bkg  $rgb(%f-) $rgb(%f-) 1 1
  drawtext -pb @bkg $rgb(%g-) $rgb(%f-)  %b- %c- 3 3 %bkg.nm-prev
  drawsave @bkg  $remove($scriptdir,$mircdir) $+ bkg-tst.bmp | window -c @bkg
  d-5 -v 25
  d-5 -g 25 $qt($remove($scriptdir,$mircdir) $+ bkg-tst.bmp)
}
alias -l bkg.nm-create {
  var %a- = $len($1), %b- = $readini(bkg.ini,$1,font), %c- = $readini(bkg.ini,$1,size), %d- = $iif($calc($width($1,%b-,%c-) + $len($1)) > 100,$v1,100), %e- = $iif($height($1,%b-,%c-) > 40,$v1,40), %f- = $readini(bkg.ini,$1,c1), %g- = $readini(bkg.ini,$1,c2), %h- = $readini(bkg.ini,$1,c3), %i- =  $+ %h- $+ $left($1,1) $+  $+ %g- $+ $right($1,-1)
  var %bkg.nm-prev = $$1
  set %tmpb %a
  set %tmpb2 %e
  window -c @bkg 
  window -ph +d @bkg 0 0 %d- %e-
  drawfill @bkg  $rgb(%f-) $rgb(%f-) 1 1
  drawtext -pb @bkg $rgb(%g-) $rgb(%f-)  %b- %c- 3 3 %i-
  drawsave @bkg  $remove($scriptdir,$mircdir) $+ $1 $+ .bmp | window -c @bkg
  d-5 -v 25
  d-5 -g 25 $qt($remove($scriptdir,$mircdir) $+ $1 $+ .bmp) 
  writeini mirc.ini background $1 $remove($scriptdir,$mircdir) $+ $1 $+ .bmp
}
alias -l bkg.nm-create-default {
  var %a- = $len($1), %b- = $readini(bkg.ini,$2,font), %c- = $readini(bkg.ini,$2,size), %d- = $iif($calc($width($1,%b-,%c-) + $len($1)) > 100,$v1,100), %e- = $iif($height($1,%b-,%c-) > 40,$v1,40), %f- = $readini(bkg.ini,$2,c1), %g- = $readini(bkg.ini,$2,c2), %h- = $readini(bkg.ini,$2,c3), %i- =  $+ %h- $+ $left($1,1) $+  $+ %g- $+ $right($1,-1)
  window -c @bkg 
  window -ph +d @bkg 0 0 %d- %e-
  drawfill @bkg  $rgb(%f-) $rgb(%f-) 1 1
  drawtext -pb @bkg $rgb(%g-) $rgb(%f-)  %b- %c- 3 3 %i-
  drawsave @bkg  $remove($scriptdir,$mircdir) $+ wdefault.bmp | window -c @bkg
  Background $1 $remove($scriptdir,$mircdir) $+ wdefault.bmp  | Background $$bkg.poswdefault($readini(bkg.ini,$iif($2 = wchannel,wchannel,wquery),pos)) $1
  remini mirc.ini background $1
}
alias -l bkg.loadimg {
  var %a- = wchannel query toolbar switchbar status @mdi wmessage
  if ($istok(%a-,$1,32)) {
    if ($2 != none) {
      if ($1 = wchannel) { bkg.chgwrn }
      if ($1 = wquery) { bkg.chgwrn }
      if ($1 = toolbar) { background -l $2- }
      if ($1 = switchbar) { background -h $2-  }
      if ($1 = status) { background -s $qt($2-)   }
      if ($1 = @mdi) { background -m $2-  }
      if ($1 = wmessage) { background -d $2-  }
    }
    if ($2 = none) { 
      if ($1 = wchannel) { bkg.chgwrn }
      if ($1 = wquery) { bkg.chgwrn }
      if ($1 = toolbar) { background -xl  }
      if ($1 = switchbar) { background -xh   }
      if ($1 = status) { background -xs    }
      if ($1 = @mdi) { background -xm  }
      if ($1 = wmessage) { background -xd   }
    }
  }
  else { 
    if ($2 != none) {
      if ($1 ischan) { background $1 $2- }
      else { 
        var %b- = $query(0)
        while (%b- >= 1) {
          if ($query(%b-) = $1) { background $1 $2- }
          dec %b-
        }
      } 
    }
    if ($2 = none) {
      if ($1 ischan) { background -x $1 }
      else { 
        var %b- = $query(0)
        while (%b- >= 1) {
          if ($query(%b-) = $1) { background -x $1 }
          dec %b-
        }
      } 
    }
  }
}
alias -l bkg.pos {
  if ($1 isnum 0-5) {
    if ($1 = 0) { return 18 }
    if ($1 = 1) { return 19 }
    if ($1 = 2) { return 20 }
    if ($1 = 3) { return 21 }
    if ($1 = 4) { return 22 }
    if ($1 = 5) { return 23 }
  }
  if ($1 isnum 18-23) { 
    if ($1 = 18) { return 0 }
    if ($1 = 19) { return 1 }
    if ($1 = 20) { return 2 }
    if ($1 = 21) { return 3 }
    if ($1 = 22) { return 4 }
    if ($1 = 23) { return 5 }
  }
}
alias -l bkg.poswdefault {
  if ($1 isnum 0-5) {
    if ($1 = 0) { return -c }
    if ($1 = 1) { return -f }
    if ($1 = 2) { return -n }
    if ($1 = 3) { return -r }
    if ($1 = 4) { return -t }
    if ($1 = 5) { return -p }
  }
}
alias -l bkg.sep { 

  if ($$1 != none) {
    did -v bkgmng 60
    if ($numtok($1-,44) = 2) {
      if ($gettok($1-,2,44) = 0) { d-1 -ra 13 $qt($gettok($1-,1,44)) | d-1 -g 60 $qt($gettok($1-,1,44)) | d-1 -ue 18-23 | d-1 -c 18 } 
      if ($gettok($1-,2,44) = 1) { d-1 -ra 13 $qt($gettok($1-,1,44)) | d-1 -g 60 $qt($gettok($1-,1,44)) | d-1 -ue 18-23 | d-1 -c 19 } 
      if ($gettok($1-,2,44) = 2) { d-1 -ra 13 $qt($gettok($1-,1,44)) | d-1 -g 60 $qt($gettok($1-,1,44)) | d-1 -ue 18-23 | d-1 -c 20 }
      if ($gettok($1-,2,44) = 3) { d-1 -ra 13 $qt($gettok($1-,1,44)) | d-1 -g 60 $qt($gettok($1-,1,44)) | d-1 -ue 18-23 | d-1 -c 21 }
      if ($gettok($1-,2,44) = 4) { d-1 -ra 13 $qt($gettok($1-,1,44)) | d-1 -g 60 $qt($gettok($1-,1,44)) | d-1 -ue 18-23 | d-1 -c 22 }
      if ($gettok($1-,2,44) = 5) { d-1 -ra 13 $qt($gettok($1-,1,44)) | d-1 -g 60 $qt($gettok($1-,1,44)) | d-1 -ue 18-23 | d-1 -c 23 }
    }
    else {  d-1 -v 60 | d-1 -ra 13 $1- | d-1 -g 60 $1- | d-1 -ub 18-23 }
  }
  if ($$1 = none)  { d-1 -ra 13 none  | d-1 -ub 18-23 | d-1 -h 60 }
}
alias -l bkg.cgp {
  if ($1 = 18) { return -c }
  if ($1 = 19) { return -f }
  if ($1 = 20) { return -n }
  if ($1 = 21) { return -r }
  if ($1 = 22) { return -t }
  if ($1 = 23) { return -p }
}
alias -l bkg.cgp2 {
  var %a- = wchannel wquery toolbar switchbar status @mdi wmessage
  if ($istok(%a-,$1,32)) {
    if ($1 = wchannel) { bkg.cgpdef wchannel }
    if ($1 = wquery) {  bkg.cgpdef wquery }
    if ($1 = status) { background  $bkg.cgp($2) $+ s  }
    if ($1 = @mdi) { background  $bkg.cgp($2) $+ m  }
    if ($1 = wmessage) { background  $bkg.cgp($2) $+ d   }
  }
  else { 
    if ($1 ischan) { background $bkg.cgp($2) $1 }
    else { 
      var %b- = $query(0)
      while (%b- >= 1) {
        if ($query(%b-) = $1) { background $bkg.cgp($2) $1  }
        dec %b-
      }
    } 
  }
}
alias -l bkg.edit {
  dialog -m bkgmng2 bkgmng2
  d-5 -ra 41 $1
  if (!$readini(bkg.ini,$1,style)) { writeini bkg.ini $1 style $iif($bkg.rd($1) = none,none,Pic) }
  if ($did(bkgmng,44).state = 1) {
    d-5 -b 26-33
    if ($1 = @mdi) { var %a- = $iif($2 = none,$2,$gettok($2-,1,44)) | d-5 -eu 27,47 | d-5 -ra 13 $qt(%a-) | d-5 $iif($2 = none,-h 25,-g 25 $qt(%a-)) | d-5 $iif($2 = none,-ec 47,-ec) 27,14  }
    if ($1 = status) { var %a- = $iif($2 = none,$2,$gettok($2-,1,44))  | d-5 -eu 27,47 |  d-5 -ra 13 $qt(%a-) | d-5 $iif($2 = none,-h 25,-g 25 $qt(%a-)) | d-5 $iif($2 = none,-ec 47,-ec) 27,14  }
    if ($1 = wmessage) { var %a- = $iif($2 = none,$2,$gettok($2-,1,44)) | d-5 -eu 27,47 |  d-5 -ra 13 $qt(%a-) | d-5 $iif($2 = none,-h 25,-g 25 $qt(%a-)) | d-5 $iif($2 = none,-ec 47,-ec) 27,14 }
    if ($1 = wchannel) {
      if ($readini(bkg.ini,wchannel,open) = name) {  var %a- = $readini(bkg.ini,wchannel,font), %b- = $readini(bkg.ini,wchannel,tm), %c- = $readini(bkg.ini,wchannel,c1) $+ $chr(44) $+ $readini(bkg.ini,wchannel,c2)  $+ $chr(44) $+  $readini(bkg.ini,wchannel,c3) | d-5 -e 26-33,47 | d-5 -c 26 | d-5 -ra 44 %a- $+ $chr(44) $+ %b- | d-5 -ra 45 %c- | d-5 -ra 13 Name |  bkg.nm-prev2 #Name wchannel | d-5 -b 14  }
      if ($readini(bkg.ini,wchannel,open) = pic) { d-5 -eu 26-27,47 | d-5 -c 27 | d-5 -ra 13 $gettok(bkg.rd($1),1,44) | d-5 -g 25 $gettok(bkg.rd($1),1,44) | d-5 -e 14  | d-5 -b 28-33 }
      if ($readini(bkg.ini,wchannel,open) = none) { d-5 -eu 26-27,47 | d-5 -c 47 | d-5 -b 14 }
    }
    if ($1 = wquery) { 
      if ($readini(bkg.ini,wquery,open) = name) { var %a- = $readini(bkg.ini,wquery,font), %b- = $readini(bkg.ini,wquery,tm), %c- = $readini(bkg.ini,wquery,c1) $+ $chr(44) $+ $readini(bkg.ini,wquery,c2)  $+ $chr(44) $+  $readini(bkg.ini,wquery,c3) | d-5 -e 26-33 | d-5 -c 26 | d-5 -ra 44 %a- $+ $chr(44) $+ %b- | d-5 -ra 45 %c- | d-5 -ra 13 Name |  bkg.nm-prev2 #Name wquery | d-5 -b 14  }
      if ($readini(bkg.ini,wquery,open) = pic) { d-5 -eu 26-27,47 | d-5 -c 27 | d-5 -ra 13 $gettok(bkg.rd($1),1,44) | d-5 -g 25 $qt($gettok(bkg.rd($1),1,44)) | d-5 -e 14  | d-5 -b 28-33 }
      if ($readini(bkg.ini,wquery,open) = none) { d-5 -eu 26-27,47 | d-5 -b 14 }
    }    
    if ($1 = toolbar) {   var %a- = $2 | d-5 -eu 27,47 | d-5 -ra 13 %a- | d-5 $iif($2 = none,-h 25,-g 25 %a-) | d-5 $iif($2 = none,-ec 47,-ec) 27,14 }
    if ($1 = switchbar) {  var %a- = $2 | d-5 -eu 27,47 |  d-5 -ra 13 %a- | d-5 $iif(%a- = none,-h 25,-g 25 %a-) | d-5 $iif($2 = none,-ec 47,-ec) 27,14 }
  }
  if ($did(bkgmng,45).state = 1) { 
    if ($readini(bkg.ini,$1,style) = name) { var %a- = $gettok($2-,1,44), %b- = $readini(bkg.ini,$1,font), %c- = $readini(bkg.ini,$1,tm), %d- = $readini(bkg.ini,$1,c1) $+ $chr(44) $+ $readini(bkg.ini,$1,c2)  $+ $chr(44) $+  $readini(bkg.ini,$1,c3) | d-5 -eu 26-27,47 | d-5 -ec 26 | d-5 -ra 13 %a- | d-5 -g 25 $qt(%a-) | d-5 -ra 44 %b- $+ $chr(44) $+ %c- | d-5 -ra 45 %d- | halt }
    if ($readini(bkg.ini,$1,style) = Pic) { var %a- = $gettok($2-,1,44) |  d-5 -eu 26-27,47 | d-5 -c 27 | d-5 -ra 13 %a- | d-5 -g 25 $qt(%a-) | d-5 -e 14 | d-5 -b 28-30 | halt }
    if ($readini(bkg.ini,$1,style) = none) { d-5 -ra 13 none |  d-5 -eu 26-27,47 | d-5 -c 47 | d-5 -b 28-33 | d-5 -h 25 }
  }
}
alias -l bkg.addnew {
  dialog -m bkgmng2 bkgmng2
  d-5 -ra 41 $1
  if ($3 = name) {
    writeini bkg.ini $1 open name
    writeini bkg.ini $1 style name
    writeini bkg.ini $1 pos 0
    var %a- = $1, %b- =  $readini(bkg.ini,%a-,open),  %c- = $readini(bkg.ini,%a-,pic), %d- = $iif($readini(bkg.ini,%a-,font),$readini(bkg.ini,%a-,font),Impact), %e- = $iif($readini(bkg.ini,%a-,c1),$readini(bkg.ini,%a-,c1),8), %f- = $iif($readini(bkg.ini,%a-,c2),$readini(bkg.ini,%a-,c2),4), %g- = $iif($readini(bkg.ini,%a-,c3),$readini(bkg.ini,%a-,c3),3), %h- = $iif($readini(bkg.ini,%a-,size),$readini(bkg.ini,%a-,size),50)  
    writeini bkg.ini %a- font %d- | writeini bkg.ini %a- c1 %e-  | writeini bkg.ini %a- c2 %f-  | writeini bkg.ini %a- c3 %g- | writeini bkg.ini %a- size %h-  |  writeini bkg.ini  %a- style name  |  writeini bkg.ini %a- tm 2
    d-5 -c 26 | d-5 -e 26-27,47 | d-5 -b 14 | d-5 -ra 13 Name | bkg.nm-create %a- %a- | writeini mirc.ini background %a- $remove($scriptdir,$mircdir) $+ %a- $+ .bmp $+ ,0 | bkg.led2 %a-
    halt 
  }
  else { 
    var %a- = $1, %b- = $sfile($scriptdir,Background Pic,Select), %c- = $chr(44) $+ $iif($readini(bkg.ini,%a-,pos),$readini(bkg.ini,%a-,pos),0), %d- = $remove($qt(%b-),$mircdir)
    if (%b-) {   writeini bkg.ini %a- open pic |  writeini bkg.ini %a- style Pic |  writeini bkg.ini %a- pic %d- $+ %c- | writeini mirc.ini background %a- %d- $+ %c-  | writeini bkg.ini %a- pos 0 | d-5 -b 28-33 | d-5 -c 27 | d-5 -e 14 | d-5 -ra 13 %d- | d-5 -v 25 | d-5 -g 25 $qt(%d-) | bkg.loadimg %a- $qt(%d-) | halt }
    else {  writeini bkg.ini %a- open none  | writeini bkg.ini %a- style none | writeini mirc.ini background %a- none  | writeini bkg.ini %a- pos 0 | d-5 -b 28-33 | d-5 -c 47 | d-5 -b 14 | d-5 -ra 13 none | d-5 -h 25  }
    halt 
  }
}
alias -l bkg.cgpdef {
  var %a- = $ini(bkg.ini,wdef,0)
  while (%a- >= 1) {
    var %b- = $ini(bkg.ini,wdef,%a-) %b-
    dec %a-
  }
  if ($1 = wchannel) {
    var %c- = $d-3(%b-)
    var %d- = $numtok(%c-,32)
    while (%d- >= 1) {
      if ($gettok(%c-,%d-,32) ischan) { Background $bkg.poswdefault($readini(bkg.ini,wchannel,pos)) $gettok(%c-,%d-,32) | remini mirc.ini background $gettok(%c-,%d-,32) }
      dec %d-
      halt
    }
  }
  if ($1 = wquery) { 
    var %c- = $d-4(%b-)
    var %d- = $numtok(%c-,32)
    while (%d- >= 1) {
      if ($query($gettok(%c-,%d-,32))) { background $bkg.poswdefault($readini(bkg.ini,wquery,pos)) $gettok(%c-,%d-,32) | remini mirc.ini background $gettok(%c-,%d-,32)  }
      dec %d-
    }

  }
}
alias -l bkg.led {
  var %a- = $readini(bkg.ini,$1,font), %b- = $readini(bkg.ini,$1,tm), %c- = $readini(bkg.ini,$1,c1) $+ $chr(44) $+ $readini(bkg.ini,$1,c2)  $+ $chr(44) $+  $readini(bkg.ini,$1,c3) 
  d-5 -e 26-33 | d-5 -c 26 | d-5 -ra 44 %a- $+ $chr(44) $+ %b-  | d-5 -ra 45 %c- | d-5 -ra 13 Name |  bkg.nm-prev2 #Name $1
}
alias -l bkg.led2 {
  var %a- = $readini(bkg.ini,$1,font), %b- = $readini(bkg.ini,$1,tm), %c- = $readini(bkg.ini,$1,c1) $+ $chr(44) $+ $readini(bkg.ini,$1,c2)  $+ $chr(44) $+  $readini(bkg.ini,$1,c3) 
  d-5 -e 26-33 | d-5 -c 26 | d-5 -ra 44 %a- $+ $chr(44) $+ %b-  | d-5 -ra 45 %c- | d-5 -ra 13 Name 
}
alias -l bkg.cgpos {
  if (($did(bkgmng,27).seltext = wchannel) || ($did(bkgmng,27).seltext = wquery)) {
    if ($readini(bkg.ini,$did(bkgmng,27).seltext,open) = name) { writeini bkg.ini $did(bkgmng,27).seltext pos $1 }
    if ($readini(bkg.ini,$did(bkgmng,27).seltext,open) = pic) { var %a- = $bkg.rd($did(bkgmng,27).seltext), %b- = $gettok(%a-,1,44) | writeini bkg.ini $did(bkgmng,27).seltext pos $1 | writeini mirc.ini background $did(bkgmng,27).seltext %b- $+ $chr(44) $+ $1 }

  }
  else { var %a- = $bkg.rd($did(bkgmng,27).seltext), %b- = $gettok(%a-,1,44) | writeini bkg.ini $did(bkgmng,27).seltext pos $1 | writeini mirc.ini background $did(bkgmng,27).seltext %b- $+ $chr(44) $+ $1 }
}
alias -l bkg.get { 
  var %a- = $ini(mirc.ini,background,0)
  while (%a- >= 1) {
    var %b- = $ini(mirc.ini,background,%a-) %b-
    dec %a-
  }
  return %b-
}
alias -l bkg.chgwrn { .echo -q $iif($readini(bkg.ini,config,lang) = 1,$input(Changes in wchannel/wquery takes effect in the next time that the channels/query windows are opened.,oid,Background Info),$input(As Mudanças em wchannel/wquery só terão efeito na proxima vez que as janelas forem abertas.,oid,Background Info)) }
alias -l bkg.rd { return $readini(mirc.ini,background,$$1) }
alias -l bkg { dialog $iif(!$dialog(bkgmng),-m bkgmng bkgmng,-x bkgmng) }
alias -l d-1 {  $iif(!$dialog(bkgmng),halt,did $1 bkgmng $2-) }
alias -l d-2 {
  var %a- = $$3-
  var %b- = $numtok(%a-,32)
  while (%b- >= 1) {
    $iif(!$dialog(bkgmng),halt,did $$1 bkgmng $2 $gettok(%a-,%b-,32))
    dec %b-
  }
}
alias -l d-3 {
  var %a- = $$1-
  var %b- = $numtok(%a-,32)
  while (%b- >= 1) {
    if ($left($gettok(%a-,%b-,32),1) = $chr(35)) { var %c- = $gettok(%a-,%b-,32) %c- }  
    dec %b-
  }
  return %c-
}
alias -l d-4 {
  var %a- = $$1-
  var %b- = $numtok(%a-,32)
  while (%b- >= 1) {
    if ($left($gettok(%a-,%b-,32),1) != $chr(35)) { var %c- = $gettok(%a-,%b-,32) %c- }  
    dec %b-
  }
  return %c-
}
alias -l d-5 { if ($dialog(bkgmng2)) { did $1 bkgmng2 $2- } }
alias -l d-6 {
  var %a- = $$3-
  var %b- = $numtok(%a-,32)
  while (%b- >= 1) {
    $iif(!$dialog(bkgmng2),halt,did $$1 bkgmng2 $2 $gettok(%a-,%b-,32))
    dec %b-
  }
}
menu menubar,status,channel,query,wmessage {
  Background-Manager:bkg
}
;### The End   ;)~   ## (595).lines

Like Page Follow Author

Comments

rhasttaff - Oct 24, 2008

just click YES

Respond

Bullet_Dodger - Oct 24, 2008

/dialog: 'bkgmng' error loading icon 'bkg-bkg-prev.bmp' (line 560, script14.nns)

Respond

rhasttaff - Oct 09, 2008

no Brother. i loaded it right now in a Blank mIRC and it works perfectlly.

please try load it again and make sure that you have allowed initialization commands.
its needed when you load the remote.

that icon is created on load.

sorry by this but im sure that it is fixed.

Jah Bless´´´

Respond

xplo - Oct 09, 2008

rhasttaff no you didn't i just reloaded it and i still see this

* /dialog: 'bkgmng' error loading icon 'bkg-bkg-prev.bmp' (line 556, TEST.mrc)

and line 556 is

alias -l bkg { dialog $iif(!$dialog(bkgmng),-m bkgmng bkgmng,-x bkgmng) }

We don't have the images that you have.

Respond

Eugenio - Oct 08, 2008

np man, rofl @ payed version
smh

Respond

rhasttaff - Oct 08, 2008

Imrac Thanks man i never used hash tables. i will try to learn it :)

Xpl0reR Thanks man to test it ;)
i believe that i have fixed it in the last update when Jamiie commented
if you have loaded it before that comment please load it again.

Thanks again

Jah Bless´´´

Respond

xplo - Oct 08, 2008

got this error

* /dialog: 'bkgmng' error loading icon 'bkg-bkg-prev.bmp' (line 556, TEST.mrc)

Respond

Imrac - Oct 07, 2008

Looks great, the only thing I wish, is that you start using hash tables =). Its alot cleaner, and the table is stored in memory, making it faster, and less taxing on the hdd =)

Respond

rhasttaff - Oct 06, 2008

Jamiie Thanks to test it ;)

Please make sure that this icon is in the your mircdir

have to be becouse it was created in on load event

EDIT: SORRY i find this error plz load again.
the problem was in the last update i added $qt in a wrong place.

Fixed.

Jah Bless´´´

Respond

Jamiie - Oct 06, 2008

Got this upon loading and clicking through channel menu..

/dialog: 'bkgmng' error loading icon 'bkg-bkg-prev.bmp' (line 555, script24)

Respond

rhasttaff - Oct 06, 2008

is not that the problem.
the point is mIRC DO NOT ALLOW FILENAMES WITH SPACES in the background ;)
anyway thanks

Jah Bless´´´

Respond

napalm` - Oct 06, 2008

Clears Throat

[quote]
WARN:
FILENAMES CAN'T CONTAINE SPACES

You could get around this by using $qt around the filename. :][/quote]

/help $shortfn

Respond

rhasttaff - Oct 06, 2008

hi Typo ;)
if i can understand your comment (too long) with my bad english and horrible google's concordance (lol)
when you load the remote if you have some window already personalized its will show you in the dialog.
else yes you have to add then manually.
now i updated to load the pic/name if you add a channel that you are in.
before this update yeas its only load when you re-open that window.
and finally the button [...] apears when the radio PIC is already checked so its used to change the Pic.
when you check radio ->name its generate the name.
when you check radio ->Pic its open the selection file window.
when you check radio ->none its shows none.

NOW when you add a channel that you are in, its will load the image whatever if Name or Pic, when you close the config window.

ahhh and that fire icon it comes only in the in the payed version ;)~

and not no problems with ammount of images just with spaces in filenames.

i added option to change all backgrounds Positions if them configured in wchannel (images that open as default). to load a image is same.
Thanks for comment my post :) and sorry my bad english

^Neptune Thanks man
but mIRC do NOT allow filenames with space, but i used it to Pathnames Thanks :)
so filenames STILL CAN't containe spaces

Thanks alot Eugenio ;)
i like when ppl try it before comment and don't comment based on Other comments Thanks again!

Thanks all

Jah Bless´´´

Respond

napa182 - Oct 06, 2008

looks like it would be a cool code if it worked right =/

Respond

Eugenio - Oct 06, 2008

/me has test0red
/me rates 9 && +likes
This pwnz man, nuff said.
WTF @ typo

Respond

^Neptune - Oct 06, 2008

WARN:
FILENAMES CAN'T CONTAINE SPACES

You could get around this by using $qt around the filename. :]

Respond

Typo - Oct 06, 2008

This looks fantastic! Looks like you put quite a bit of work into this.

Couple things tho:

You didn't include the icon you specify in the dialog so I had to comment out that line just to get it to load.

When it did load it wasn't exactly easy to figure out. I expected to see a list of the channels I was in when I clicked personal but the list didnt change even tho channel was already "clicked" so I decided to try and select it even tho it was selected and that made the list vanish but no channels showed up so I realized you have to add them manually. I then tried to manully add a picture but realized there wasn't a way to do that so I figured maybe I chose the picture when I add a channel so I tried that. I went to add, clicked channel, clicked pic, the file selection thing loaded and i picked my file. The new dialog opened and it has the preview but its unclear what im supposed to do. The o nly button I see has 3 .'s on it and just opens the file selection dialog again. I see no ok button to verify my image selection so I finally hit X to close it and came to make my comment before I try to play with it anymore.

Maybe it's just me but either way I'll try to mess with it some more.

On a side note:

I was going to add a background option in my ViewPic script and had even coded most of it but I found when I applied a background image to all the channels in the network which im in 35 channels on, it started messing up pretty bad, the backgrounds would be there and then vanish and eventually all but a couple channels backgrounds would just be gone. Even worse, I noticed it also made images no longer be able to load in the viewpic's normal viewing mode which uses picwins and it stopped the images in the viewpic's photo album, which is dialog based, from loading too.

I decided at that point to drop background support and moved on to adding the update I'm working on now.

Have you run into this problem or any problem like it where you seem to reach a limit to the amount of images you can have loaded in mirc?

I notice it doesnt look like you added the option to add a background to all the channels at once so it would take me forever to recreate the problem with your script but I imagine it would do the same thing the one I made (and deleted) did.

Anyhow, I think I've done quite enough talking. lol

I won't rate this yet incase your not done with it and you can make it more user friendly or I find out its just me thats having trouble with it and I'm an idiot.

Respond