;##---------  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
  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