dialog tob {
  title "New Project"
  size -1000 -1000 237 30
  option dbu
}
dialog tbcolor {
  title "Toolbar Button'ları Renk Ayarları"
  size -1000 -1000 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! ---- ", 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 -1000 -1000 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! --- ", 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 50 25 > 1
  mdc BitBtn font 50 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 51 56 5 50 25 > 2
  mdc BitBtn font 51 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 52 107 5 50 25 > 3
  mdc BitBtn font 52 $rgb(119,81,0) 7 > Tahoma
  mdc BitBtn create $dname 53 158 5 50 25 > 4
  mdc BitBtn font 53 $rgb(119,81,0) 7 > Tahoma
  mdc BitBtn create $dname 54 209 5 50 25 > 5
  mdc BitBtn font 54 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 55 260 5 50 25 > 6
  mdc BitBtn font 55 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 56 311 5 50 25 > 7
  mdc BitBtn font 56 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 57 362 5 50 25 > 8
  mdc BitBtn font 57 $rgb(119,81,0) 7 > Tahoma
  mdc BitBtn create $dname 58 413 5 50 25 > 9
  mdc BitBtn font 58 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 59 464 5 50 25 > 10
  mdc BitBtn font 59 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 81 5 31 50 25 > 11
  mdc BitBtn font 81 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 82 56 31 50 25 > 12
  mdc BitBtn font 82 $rgb(119,81,0) 7 > Tahoma
  mdc BitBtn create $dname 83 107 31 50 25 > 13
  mdc BitBtn font 83 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 84 158 31 50 25 > 14
  mdc BitBtn font 84 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 85 209 31 50 25 > 15
  mdc BitBtn font 85 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 86 260 31 50 25 > 16
  mdc BitBtn font 86 $rgb(119,81,0) 7 > Tahoma
  mdc BitBtn create $dname 87 311 31 50 25 > 17
  mdc BitBtn font 87 $rgb(119,81,0) 7 > Tahoma
  mdc BitBtn create $dname 88 362 31 50 25 > 18
  mdc BitBtn font 88 $rgb(119,81,0) 7 > Tahoma
  mdc BitBtn create $dname 89 413 31 50 25 > 19
  mdc BitBtn font 89 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 90 464 31 50 25 > 20
  mdc BitBtn font 90 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 91 515 5 75 25 > 21
  mdc BitBtn font 91 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 92 515 31 75 25 > 22
  mdc BitBtn font 92 $rgb(119,81,0) 8 > Tahoma
  mdc BitBtn create $dname 93 591 5 125 51 > 23
  mdc BitBtn font 93 $rgb(119,81,0) 8 +b > Tahoma

  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 <= 93) {
        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 <= 93) {
      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 > 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
  btcol $dname 81 82 focus 1
  btcol $dname 83 84 focus 2
  btcol $dname 75 86 focus 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 == 50) .....
    if ($4 == 51) .....
    if ($4 == 52) .....
    if ($4 == 53) .....
    if ($4 == 54) .....
    if ($4 == 55) .....
    if ($4 == 56) .....
    if ($4 == 57) .....
    if ($4 == 58) .....
    if ($4 == 59) .....
    if ($4 == 81) .....
    if ($4 == 82) .....
    if ($4 == 83) .....
    if ($4 == 84) .....
    if ($4 == 85) .....
    if ($4 == 86) .....
    if ($4 == 87) .....
    if ($4 == 88) .....
    if ($4 == 89) .....
    if ($4 == 90) .....
    if ($4 == 91) .....
    if ($4 == 92) .....
    if ($4 == 93) .....