dialog tob {
  title "New Project"
  size -1 -1 237 30
  option dbu
}
dialog tbcolor {
  title "Toolbar Button'ları Renk Ayarları"
  size -1 -1 192 114
  option dbu
  tab "Border Rengi", 1, 3 1 185 84
  box "", 2, 7 17 178 66, tab 1
  text "R:", 3, 12 31 6 8, tab 1
  edit "", 4, 19 29 25 10, tab 1 read
  scroll "", 5, 46 30 136 8, tab 1 range 0 255 horizontal
  text "G:", 6, 12 51 6 8, tab 1
  edit "", 7, 19 49 25 10, tab 1 read
  scroll "", 8, 46 50 136 8, tab 1 range 0 255 horizontal
  text "R:", 9, 12 70 6 8, tab 1
  edit "", 10, 19 68 25 10, tab 1 read
  scroll "", 11, 46 69 136 8, tab 1 range 0 255 horizontal
  tab "Light Rengi", 14
  box "", 15, 7 17 178 66, tab 14
  text "R:", 16, 12 31 6 8, tab 14
  edit "", 17, 19 29 25 10, tab 14 read
  scroll "", 18, 46 30 136 8, tab 14 range 0 255 horizontal
  text "G:", 19, 12 51 6 8, tab 14
  edit "", 20, 19 49 25 10, tab 14 read
  scroll "", 21, 46 50 136 8, tab 14 range 0 255 horizontal
  text "R:", 22, 12 70 6 8, tab 14
  edit "", 23, 19 68 25 10, tab 14 read
  scroll "", 24, 46 69 136 8, tab 14 range 0 255 horizontal
  tab "Dark Rengi", 25
  box "", 26, 7 17 178 66, tab 25
  text "R:", 27, 12 31 6 8, tab 25
  edit "", 28, 19 29 25 10, tab 25 read
  scroll "", 29, 46 30 136 8, tab 25 range 0 255 horizontal
  text "G:", 30, 12 51 6 8, tab 25
  edit "", 31, 19 49 25 10, tab 25 read
  scroll "", 32, 46 50 136 8, tab 25 range 0 255 horizontal
  text "R:", 33, 12 70 6 8, tab 25
  edit "", 34, 19 68 25 10, tab 25 read
  scroll "", 35, 46 69 136 8, tab 25 range 0 255 horizontal
  tab "Face Rengi", 36
  box "", 37, 7 17 178 66, tab 36
  text "R:", 38, 12 31 6 8, tab 36
  edit "", 39, 19 29 25 10, tab 36 read
  scroll "", 40, 46 30 136 8, tab 36 range 0 255 horizontal
  text "G:", 41, 12 51 6 8, tab 36
  edit "", 42, 19 49 25 10, tab 36 read
  scroll "", 43, 46 50 136 8, tab 36 range 0 255 horizontal
  text "R:", 44, 12 70 6 8, tab 36
  edit "", 45, 19 68 25 10, tab 36 read
  scroll "", 46, 46 69 136 8, tab 36 range 0 255 horizontal
  tab "Grad Rengi", 47
  box "", 48, 7 17 178 66, tab 47
  text "R:", 49, 12 31 6 8, tab 47
  edit "", 50, 19 29 25 10, tab 47 read
  scroll "", 51, 46 30 136 8, tab 47 range 0 255 horizontal
  text "G:", 52, 12 51 6 8, tab 47
  edit "", 53, 19 49 25 10, tab 47 read
  scroll "", 54, 46 50 136 8, tab 47 range 0 255 horizontal
  text "R:", 55, 12 70 6 8, tab 47
  edit "", 56, 19 68 25 10, tab 47 read
  scroll "", 57, 46 69 136 8, tab 47 range 0 255 horizontal
  tab "Focus Rengi", 58
  box "", 59, 7 17 178 66, tab 58
  text "R:", 60, 12 31 6 8, tab 58
  edit "", 61, 19 29 25 10, tab 58 read
  scroll "", 62, 46 30 136 8, tab 58 range 0 255 horizontal
  text "G:", 63, 12 51 6 8, tab 58
  edit "", 64, 19 49 25 10, tab 58 read
  scroll "", 65, 46 50 136 8, tab 58 range 0 255 horizontal
  text "R:", 66, 12 70 6 8, tab 58
  edit "", 67, 19 68 25 10, tab 58 read
  scroll "", 68, 46 69 136 8, tab 58 range 0 255 horizontal
  tab "Yazı Rengi", 13
  box "Button'un kenarlık rengi", 71, 7 17 178 66, tab 13
  text "R:", 72, 12 31 6 8, tab 13
  edit "", 73, 19 29 25 10, tab 13 read
  scroll "", 74, 46 30 136 8, tab 13 range 0 255 horizontal
  text "G:", 75, 12 51 6 8, tab 13
  edit "", 76, 19 49 25 10, tab 13 read
  scroll "", 77, 46 50 136 8, tab 13 range 0 255 horizontal
  text "R:", 78, 12 70 6 8, tab 13
  edit "", 79, 19 68 25 10, tab 13 read
  scroll "", 80, 46 69 136 8, tab 13 range 0 255 horizontal
  button "Ayarları Kaydet", 69, 3 88 58 12
  button "Kapat", 70, 167 88 22 12, cancel
  edit "mIRC ToolBar - İstediğin gibi değiştir kullan! ---- 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">, 12, 2 102 187 11, read
  button "İlk ayarlara geri dön", 81, 114 88 51 12
  button "Arka plan ayarları", 82, 64 88 47 12
}

dialog bgcolor {
  title "Toolbar Arka Plan Renk Ayarları - Diğer Ayarları"
  size -1 -1 168 156
  option dbu
  tab "Dark Rengi", 1, 2 1 163 85
  box "", 5, 5 16 157 68, tab 1
  text "R:", 6, 9 25 6 8, tab 1
  edit "", 7, 16 23 24 10, tab 1 read
  scroll "", 8, 41 24 117 8, tab 1 range 0 255 horizontal
  text "G:", 9, 9 46 6 8, tab 1
  edit "", 10, 16 44 24 10, tab 1 read
  scroll "", 11, 41 45 117 8, tab 1 range 0 255 horizontal
  text "B:", 12, 10 67 5 8, tab 1
  edit "", 13, 16 65 24 10, tab 1 read
  scroll "", 14, 41 66 117 8, tab 1 range 0 255 horizontal
  tab "Light Rengi", 2
  box "", 15, 5 17 157 67, tab 2
  text "R:", 16, 9 26 6 8, tab 2
  edit "", 17, 16 24 24 10, tab 2 read
  scroll "", 18, 41 25 117 8, tab 2 range 0 255 horizontal
  text "G:", 19, 9 47 6 8, tab 2
  edit "", 20, 16 45 24 10, tab 2 read
  scroll "", 21, 41 46 117 8, tab 2 range 0 255 horizontal
  text "B:", 22, 10 68 5 8, tab 2
  edit "", 23, 16 66 24 10, tab 2 read
  scroll "", 24, 41 67 117 8, tab 2 range 0 255 horizontal
  tab "Face Rengi", 3
  box "", 25, 6 15 157 68, tab 3
  text "R:", 26, 10 24 6 8, tab 3
  edit "", 27, 17 22 24 10, tab 3 read
  scroll "", 28, 42 23 117 8, tab 3 range 0 255 horizontal
  text "G:", 29, 10 45 6 8, tab 3
  edit "", 30, 17 43 24 10, tab 3 read
  scroll "", 31, 42 44 117 8, tab 3 range 0 255 horizontal
  text "B:", 32, 11 66 5 8, tab 3
  edit "", 33, 17 64 24 10, tab 3 read
  scroll "", 34, 42 65 117 8, tab 3 range 0 255 horizontal
  tab "Grad Rengi", 4
  box "", 35, 5 16 157 68, tab 4
  text "R:", 36, 9 25 6 8, tab 4
  edit "", 37, 16 23 24 10, tab 4 read
  scroll "", 38, 41 24 117 8, tab 4 range 0 255 horizontal
  text "G:", 39, 9 46 6 8, tab 4
  edit "", 40, 16 44 24 10, tab 4 read
  scroll "", 41, 41 45 117 8, tab 4 range 0 255 horizontal
  text "B:", 42, 10 67 5 8, tab 4
  edit "", 43, 16 65 24 10, tab 4 read
  scroll "", 44, 41 66 117 8, tab 4 range 0 255 horizontal
  check "Arka planda resim kullanmak istiyorum", 45, 6 99 102 10
  text "Dosya:", 46, 5 114 17 8
  edit "", 47, 23 112 122 10, read autohs
  button "Seç", 48, 146 111 16 11
  box "Arka plan resmi", 49, 2 89 163 38
  button "Ayarları Kaydet", 50, 2 130 41 12
  button "İlk ayarlara geri dön", 51, 87 130 52 12
  button "Kapat", 52, 142 130 23 12, cancel
  edit "mIRC ToolBar - İstediğin gibi değiştir kullan! --- 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">, 53, 2 144 164 11, read
  button "Button Ayarları", 54, 44 130 40 12
}

alias -l udcdll return $shortfn($scriptdirultradock.dll)
alias udock dll $udcdll $1 $2-
alias -l hosdll return $shortfn($scriptdir)
alias -l mdcdll return $shortfn($scriptdirmdc.dll)
alias -l mdc dll $mdcdll $1 $2-
alias bgval {
  tokenize 44 $readini(toolbar.ini,bgcolors,$1)
  return $rgb($1,$2,$3)
}
alias -l btval {
  tokenize 44 $readini(toolbar.ini,buttoncolors,$1)
  return $rgb($1,$2,$3)
}

alias demiddll return $shortfn($scriptdirdemid.dll)
alias tbclose { hos Undock tob | dialog -x tob }
on *:dialog:tob:init:*: {
  if ($isfile(toolbar.ini) == $false) { ilk->degerler | bg-ilk->degerler }
  if ($dll($udcdll,IsToolbar,) == $true) udock ShowToolbar 0
  udock Dock -1 $dialog(tob).hwnd top tob
  mdc BitBtn create $dname 50 5 5 64 50 > Bağlan
  mdc BitBtn font 50 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn icon 50 $shortfn($scriptdirbaglan.ico)
  mdc BitBtn iconpos 50 top
  mdc BitBtn create $dname 51 75 5 64 50 > Op Menü
  mdc BitBtn font 51 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn icon 51 $shortfn($scriptdirprotect.ico)
  mdc BitBtn iconpos 51 top
  mdc BitBtn create $dname 52 145 5 64 50 > Kara Liste
  mdc BitBtn icon 52 $shortfn($scriptdirmds.ico)
  mdc BitBtn iconpos 52 top
  mdc BitBtn font 52 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn create $dname 53 215 5 64 50 > Korumalar
  mdc BitBtn icon 53 $shortfn($scriptdirmediaplayer.ico)
  mdc BitBtn iconpos 53 top
  mdc BitBtn font 53 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn create $dname 54 285 5 64 50 > Yardım 
  mdc BitBtn font 54 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn icon 54 $shortfn($scriptdirhelp.ico)
  mdc BitBtn iconpos 54 top
  mdc BitBtn create $dname 55 355 5 64 50 > Görünüm
  mdc BitBtn icon 55 $shortfn($scriptdirrenk.ico)
  mdc BitBtn iconpos 55 top
  mdc BitBtn font 55 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn create $dname 56 425 5 64 50 > Away
  mdc BitBtn icon 56 $shortfn($scriptdiravay.ico)
  mdc BitBtn iconpos 56 top
  mdc BitBtn font 56 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn create $dname 57 495 5 64 50 > NickList
  mdc BitBtn icon 57 $shortfn($scriptdirweb.ico)
  mdc BitBtn iconpos 57 top
  mdc BitBtn font 57 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn create $dname 58 565 5 64 50 > Ayarlar
  mdc BitBtn font 58 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn icon 58 $shortfn($scriptdirayarlar.ico)
  mdc BitBtn iconpos 58 top
  mdc BitBtn create $dname 59 635 5 64 50 > Anasayfa
  mdc BitBtn font 59 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn icon 59 $shortfn($scriptdirhome.ico)
  mdc BitBtn iconpos 59 top
  mdc BitBtn create $dname 60 717 5 64 50 > Google
  mdc BitBtn font 60 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn icon 60 $shortfn($scriptdirinternet.ico)
  mdc BitBtn iconpos 60 top
  mdc BitBtn create $dname 61 787 5 77 50 > Media Player
  mdc BitBtn font 61 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn icon 61 $shortfn($scriptdirmmc.ico)
  mdc BitBtn iconpos 61 top
  mdc BitBtn create $dname 62 870 5 64 50 > Tarama
  mdc BitBtn font 62 $rgb(119,81,0) 8 +b > Tahoma
  mdc BitBtn icon 62 $shortfn($scriptdirara.ico)
  mdc BitBtn iconpos 62 top
  if ($readini(toolbar.ini,bgcolors,bgpic) == none) {
    mdc Panel create $dname 51 0 0 $dialog($dname).w $dialog($dname).h
    mdc Panel color 51 $bgval(dark) $bgval(light) $bgval(face) $bgval(grad)
  }
  else {
    mdc Panel create $dname 51 0 0 $dialog($dname).w $dialog($dname).h
    mdc Panel color 51 $bgval(dark) $bgval(light) $bgval(face) $bgval(grad)
    mdc Panel visible 51 $false
    dll $demiddll SetBkImage $dname $shortfn($readini(toolbar.ini,bgcolors,bgpic))
  }
  degerleri->yukle
}
alias tbset if (!$dialog(tbcolor)) dialog -m tbcolor tbcolor
alias tbgset if (!$dialog(bgcolor)) dialog -m bgcolor bgcolor
alias -l btcol {
  did -a $1 $2 $gettok($readini(toolbar.ini,buttoncolors,$4),$5,44)
  did -c $1 $3 $gettok($readini(toolbar.ini,buttoncolors,$4),$5,44)
}
alias -l degerleri->yukle {
  if ($dialog(tob)) {
    if ($dialog(tob)) {
      var %i = 50
      while (%i <= 59) {
        mdc BitBtn color %i $btval(border) $btval(dark) $btval(light) $btval(face) $btval(grad) $btval(focus)
        inc %i
      }
    }
  }
}
alias -l bg->yukle {
  if ($dialog(tob)) {
    if ($readini(toolbar.ini,bgcolors,bgpic) == none) {
      mdc Panel visible 51 $true
      mdc Panel color 51 $bgval(dark) $bgval(light) $bgval(face) $bgval(grad)
    }
    else dll $demiddll SetBkImage tob $shortfn($readini(toolbar.ini,bgcolors,bgpic))
  }
}
alias ilk->degerler {
  var %s writeini toolbar.ini buttoncolors
  %s border 128,86,0
  %s light 255,231,185
  %s dark 232,156,0
  %s face 255,236,198
  %s grad 255,190,55
  %s focus 255,128,64
  %s text 119,81,0
}
alias -l bg-ilk->degerler {
  var %bg writeini toolbar.ini bgcolors
  %bg dark 155,105,0
  %bg light 213,143,0
  %bg face 255,255,255
  %bg grad 255,225,164
  %bg bgpic none
}
on *:dialog:tbcolor:init:*: {
  btcol $dname 4 5 border 1
  btcol $dname 7 8 border 2
  btcol $dname 10 11 border 3
  btcol $dname 17 18 light 1
  btcol $dname 20 21 light 2
  btcol $dname 23 24 light 3
  btcol $dname 28 29 dark 1
  btcol $dname 31 32 dark 2
  btcol $dname 34 35 dark 3
  btcol $dname 39 40 face 1
  btcol $dname 42 43 face 2
  btcol $dname 45 46 face 3
  btcol $dname 50 51 grad 1
  btcol $dname 53 54 grad 2
  btcol $dname 56 57 grad 3
  btcol $dname 61 62 focus 1
  btcol $dname 64 65 focus 2
  btcol $dname 67 68 focus 3
  btcol $dname 73 74 text 1
  btcol $dname 76 77 text 2
  btcol $dname 79 80 text 3
}
alias -l save->settings {
  var %s = writeini toolbar.ini buttoncolors
  %s border $+($did(4),$chr(44),$did(7),$chr(44),$did(10))
  %s dark $+($did(28),$chr(44),$did(31),$chr(44),$did(34))
  %s light $+($did(17),$chr(44),$did(20),$chr(44),$did(23))
  %s face $+($did(39),$chr(44),$did(42),$chr(44),$did(45))
  %s grad $+($did(50),$chr(44),$did(53),$chr(44),$did(56))
  %s focus $+($did(61),$chr(44),$did(64),$chr(44),$did(67))
}
on *:dialog:tbcolor:scroll:*: {
  did -ra $dname $calc($did - 1) $did($did).sel
  if (!$dialog(tob)) did -ra $dname 12 Toolbar açık olmadığından yeni değerler yansıtılamadı!
  else {
    var %i = 50
    while (%i <= 59) {
      mdc BitBtn color %i $rgb($did(4),$did(7),$did(10)) $rgb($did(28),$did(31),$did(34)) $rgb($did(17),$did(20),$did(23)) $rgb($did(39),$did(42),$did(45)) $rgb($did(50),$did(53),$did(56)) $rgb($did(61),$did(64),$did(67))
      mdc BitBtn font %i $rgb($did(73),$did(76),$did(79)) 8 +b > Tahoma     
      inc %i
    }
  }
}
on *:dialog:tbcolor:sclick:*: {
  if ($did == 69) { save->settings | did -ra $dname 12 Ayarlar kaydedilmiştir. }
  if ($did == 81) { ilk->degerler | degerleri->yukle }
  if ($did == 82) tbgset
}
on *:dialog:tbcolor:close:*: degerleri->yukle
on *:dialog:bgcolor:close:*: bg->yukle
alias -l bgcol {
  did -a $1 $2 $gettok($readini(toolbar.ini,bgcolors,$4),$5,44)
  did -c $1 $3 $gettok($readini(toolbar.ini,bgcolors,$4),$5,44)
}

on *:dialog:bgcolor:init:*: {
  if ($readini(toolbar.ini,bgcolors,bgpic) != none)  {
    did -a $dname 47 $readini(toolbar.ini,bgcolors,bgpic)
    did -c $dname 45
  }
  bgcol $dname 7 8 dark 1
  bgcol $dname 10 11 dark 2
  bgcol $dname 13 14 dark 3
  bgcol $dname 17 18 light 1
  bgcol $dname 20 21 light 2
  bgcol $dname 23 24 light 3
  bgcol $dname 27 28 face 1
  bgcol $dname 30 31 face 2
  bgcol $dname 33 34 face 3
  bgcol $dname 37 38 grad 1
  bgcol $dname 40 41 grad 2
  bgcol $dname 43 44 grad 3
}
on *:dialog:bgcolor:scroll:*: {
  did -ra $dname $calc($did - 1) $did($did).sel
  if (!$dialog(tob)) did -ra $dname 53 Toolbar açık olmadığından yeni değerler yansıtılamadı!
  elseif ($dll($mdcdll,GetPanel,visible 51) == $true) mdc Panel color 51 $rgb($did(7),$did(10),$did(13)) $rgb($did(17),$did(20),$did(23)) $rgb($did(27),$did(30),$did(33)) $rgb($did(37),$did(40),$did(43))
}
alias -l bg->sec {
  var %f = $sfile($mircdir,Arka plan resmini seçin)
  if (%f) {
    if ($right(%f,3) != png) return $input(Arka plan resminin uzantısı png olmalıdır.,ohud,Hata)
    else { dll $demiddll SetBkImage tob $shortfn(%f) | did -ra bgcolor 47 %f }
  }
}
alias -l save->bgsets {
  var %a = writeini toolbar.ini bgcolors
  %a dark $+($did(7),$chr(44),$did(10),$chr(44),$did(13))
  %a light $+($did(17),$chr(44),$did(20),$chr(44),$did(23))
  %a face $+($did(27),$chr(44),$did(30),$chr(44),$did(33))
  %a grad $+($did(37),$chr(44),$did(40),$chr(44),$did(43))
  if ($did(45).state == 1) && ($did(47)) %a bgpic $did(47)
  elseif ($did(45).state == 0) %a bgpic none
}
on *:dialog:bgcolor:sclick:*: {
  if ($did == 45) {
    if ($dialog(tob)) {
      if ($did(45).state == 1) mdc Panel visible 51 $false
      else { mdc Panel visible 51 $true | dll $demiddll SetBkImage tob $shortfn($did(47)) }
    }
  }
  if ($did == 48) bg->sec
  if ($did == 50) save->bgsets
  if ($did == 51)  { bg-ilk->degerler | bg->yukle }
}
on *:start: dialog -m tob tob
on *:load: if ($isfile($scriptdirmie.mrc) == $true) .load -rs $shortfn($scriptdirmie.mrc)

;Button komutları burda yer almaktadır.
on *:signal:mdc: {
  if ($2 == tob) && ($3 == sclick) {
    if ($4 == 57) { dialog -m nicklist nicklist } 
    if ($4 == 50) { dialog -m baglanti baglanti }
    if ($4 == 51) { dialog -m console console }
    if ($4 == 52) { dialog -m blist blist }
    if ($4 == 53) { dialog -m korumalar korumalar }
    if ($4 == 54) plsyardim
    if ($4 == 55) { /dialog -m görünüm görünüm }
    if ($4 == 56) away.s
    if ($4 == 58) tbset
    if ($4 == 59) url -na 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.mynet.com
    if ($4 == 60) explorer
    if ($4 == 61) mmc
    if ($4 == 62) kk
  }
}