:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::               XcLusive Script                       :::::
:::::               Xc Tema Sistemi                       :::::
:::::               Bütün Kodlar Kendime Aittir           :::::
:::::               Coded By HaLiL                        :::::
:::::               HaLiL@AhKalbim.Net                    :::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
alias temagri {
  set %xctheme gri
  $x(theme,dcolor,13816530)
  if ($1 == click) { $x(theme,ppscolor,13816530) }
  $x(theme,txtcolor,128)
  set %dialogrenk $bgcolor
  set %textrenk $txtcolor
  set %ppsrenk $ppscolor
  color -s gri
  if ($server) && (%toolbar == lagbar) { lag.gri }
  background -sc img\xcgri.jpg
  background -l img\xcgri2.jpg
  background -h img\xcgri3.jpg
  background -bfm img\m34.jpg
  if ($dialog(theme)) idset2 23 theme
  xcwindowayarla
  fifis
}
alias temasiyah {
  set %xctheme siyah
  $x(theme,txtcolor,128)
  if ($1 == click) { $x(theme,ppscolor,5131854) }
  $x(theme,dcolor,0)
  set %dialogrenk $bgcolor
  set %textrenk $txtcolor
  set %ppsrenk $ppscolor
  color -s mIRC Classic
  if ($server) && (%toolbar == lagbar) { lag.siyah }
  background -sc img\xcsiyah.jpg
  background -l img\xcsiyah3.jpg
  background -h img\xcsiyah2.jpg
  background -bfm img\m34.jpg
  if ($dialog(theme)) idset2 23 theme
  xcwindowayarla
  fifis
}
alias temamavi {
  set %xctheme mavi
  $x(theme,txtcolor,128)
  $x(theme,dcolor,16754085)
  if ($1 == click) { $x(theme,ppscolor,16754085) }
  set %dialogrenk $bgcolor
  set %textrenk $txtcolor
  set %ppsrenk $ppscolor
  color -s Rainbow sky
  if ($server) && (%toolbar == lagbar) { lag.mavi }
  background -sf img\xcmavi.jpg
  background -h img\xcmavi3.jpg
  background -l img\xcmavi2.jpg
  background -bfm img\m34.jpg
  if ($dialog(theme)) idset2 23 theme
  xcwindowayarla
  fifis
}
alias temapembe {
  set %xctheme pembe
  $x(theme,txtcolor,16711935)
  $x(theme,dcolor,16752639)
  if ($1 == click) { $x(theme,ppscolor,16752639) }
  set %dialogrenk $bgcolor
  set %textrenk $txtcolor
  set %ppsrenk $ppscolor
  color -s pembe
  background -sf img\xcpembe.jpg
  background -h img\xcpembe3.jpg
  background -bfm img\m34.jpg
  if ($dialog(theme)) idset2 23 theme
  xcwindowayarla
  fifis
}
alias temaorj {
  set %xctheme orjinal
  $x(theme,dcolor,14215660)
  if ($1 == click) { $x(theme,ppscolor,14215660) }
  $x(theme,txtcolor,0)
  set %dialogrenk $bgcolor
  set %textrenk $txtcolor
  set %ppsrenk $ppscolor
  color -s mIRC Modern
  if ($server) && (%toolbar == lagbar) { lag.orj }
  background -xs
  background -h img\yan.jpg
  background -xl
  background -bfm img\m34.jpg
  if ($dialog(theme)) idset2 23 theme
  xcwindowayarla
  fifis
}
alias theme dialog -m theme theme
dialog theme {
  title "XcLusive Script Tema"
  size -1 -1 104 149
  option dbu
  icon $mircdirikon\1.ico, 0
  radio "", 2, 23 12 8 10
  text " mIRC Orjinal", 3, 32 13 46 8
  radio "", 4, 23 24 9 10
  text " Xc Siyah", 5, 32 25 46 8
  radio "", 6, 23 36 9 10
  text " Xc Gri", 7, 32 37 46 8
  radio "", 8, 23 48 9 10
  text " Xc Açık Mavi", 9, 31 49 46 8
  text "Dialog Rengi:", 1, 10 86 48 8
  text "Text Rengi:", 10, 10 99 48 8
  box "Görünüm Seçin", 11, 4 3 96 70
  text "", 12, 63 86 30 8
  text "", 13, 63 98 30 8
  button "Kapat", 14, 7 129 40 15, cancel
  button "Uygula", 15, 57 129 40 15
  box "Dialog Renklendirici", 18, 4 76 96 48
  icon 16, 62 83 31 10
  icon 17, 62 96 31 10
  radio "", 19, 23 60 9 10
  text " Xc For Girls :)", 20, 31 61 49 8
  text "Popup Rengi:", 21, 10 111 48 8
  icon 22, 62 109 31 10
  text "", 23, 63 109 30 8
}
on 1:dialog:theme:*:*:{
  if $devent == init {
    idset 22
    dll $mdx SetBorderStyle $dname 12,13,23 clientedge dlgmodal
    dll $mdx SetColor $dname 12 background $x2(dcolor)
    dll $mdx SetColor $dname 13 background $x2(txtcolor)
    dll $mdx SetColor $dname 23 background $x2(ppscolor)
    if %xctheme == orjinal did -c $dname 2
    if %xctheme == siyah did -c $dname 4
    if %xctheme == gri did -c $dname 6
    if %xctheme == mavi did -c $dname 8
    if %xctheme == pembe did -c $dname 19
  }
  if $devent == sclick {
    if $did == 2 { temaorj click }
    if $did == 4 { temasiyah click }
    if $did == 6 { temagri click }
    if $did == 8 { temamavi click }
    if $did == 19 { temapembe click }
    if $did == 16 { dlgcolor2 }
    if $did == 17 { txtcolor2 }
    if $did == 22 { ppscolor2 }
    if $did == 15 { 
      $x(theme,dcolor,%dialogrenk) 
      $x(theme,txtcolor,%textrenk)
      $x(theme,ppscolor,%ppsrenk)
      idset 23
      dll $mdx SetColor $dname 12 background $x2(dcolor)
      dll $mdx SetColor $dname 13 background $x2(txtcolor)
      dll $mdx SetColor $dname 23 background $x2(ppscolor)
      popuprenk
    }
  }
}
alias dlgcolor2 {
  var %color = $dll(dll\color.dll,Color,$rgb(255,255,255))
  if (%color != $false) { 
    echo -s set %dialogrenk %color
    dll $mdx SetColor theme 12 background %dialogrenk
  }
}
alias txtcolor2 {
  var %color = $dll(dll\color.dll,Color,$rgb(255,255,255))
  if (%color != $false) {
    set %textrenk %color
    dll $mdx SetColor theme 13 background %textrenk
  }
}
alias ppscolor2 {
  var %color = $dll(dll\color.dll,Color,$rgb(255,255,255))
  if (%color != $false) {
    set %ppsrenk %color
    set %popuprenk %color
    dll $mdx SetColor theme 23 background %ppsrenk
  }
}
