alias tesekkur { dialog -m tsk tsk }
dialog tsk {
  title "Op-Voice-Hop ( Tesekkür Dialog ) | www.mircturk.com ( Coded : LeadeR )"
  size -1 -1 243 170
  option dbu
  tab "Op - Deop ( Tesekkür )", 1, 0 -2 241 160
  button "Ekle", 8, 30 21 17 10, tab 1
  edit "", 4, 55 20 178 13, tab 1 return autohs autovs
  button "Sil", 9, 30 34 17 10, tab 1
  button "Ekle", 10, 31 88 17 10, tab 1
  edit "", 6, 55 87 178 13, tab 1 return autohs autovs
  button "Sil", 11, 31 101 17 10, tab 1
  list 5, 55 34 178 50, tab 1 size
  list 7, 55 101 178 50, tab 1 size
  check "Check Box", 31, 9 53 7 10, tab 1
  edit "+(@) , -(@)", 32, 18 52 36 11, tab 1
  tab "Voice - Devoice ( Tesekkür )", 2
  button "Ekle", 15, 30 21 17 10, tab 2
  edit "", 16, 55 20 178 13, tab 2 return autohs autovs
  button "Sil", 17, 30 34 17 10, tab 2
  button "Ekle", 19, 31 88 17 10, tab 2
  edit "", 20, 55 87 178 13, tab 2 return autohs autovs
  button "Sil", 21, 31 101 17 10, tab 2
  list 18, 55 34 178 50, tab 2 size
  list 22, 55 101 178 50, tab 2 size
  check "Check Box", 33, 9 53 7 10, tab 2
  edit "+(v) , -(v)", 34, 18 52 36 11, tab 2
  tab "Hop-Dehop ( Tesekkür )", 3
  button "Ekle", 23, 30 21 17 10, tab 3
  edit "", 24, 55 20 178 13, tab 3 return autohs autovs
  button "Sil", 25, 30 34 17 10, tab 3
  button "Ekle", 27, 31 88 17 10, tab 3
  edit "", 28, 55 87 178 13, tab 3 return autohs autovs
  button "Sil", 29, 31 101 17 10, tab 3
  list 26, 55 34 178 50, tab 3 size
  list 30, 55 101 178 50, tab 3 size
  check "Check Box", 35, 9 53 7 10, tab 3
  edit "+(%) ,-(%)", 36, 18 52 36 11, tab 3
  button "Kapat", 14, 217 159 25 11, ok
  box "", 13, 2 10 238 147
  box "", 12, 7 14 228 139
}



on *:dialog:tsk:*:*: {
  if ($devent == sclick) {
    if ($did == 5) { did -ra $dname 4 $did(5).seltext }
    if ($did ==  {
      if ($did(4) != $null) { write op.txt $did(4) | did -a $dname 5 $did(4) }
      did -r $dname 4
    }
    if ($did == 9) {
      if ($did(4) != $null) { write $+(-,d,s,$did(4)) op.txt | did -d tsk 5 $did(5).sel }
      did -r $dname 4
    }
    if ($did == 7) { did -ra $dname 6 $did(7).seltext }
    if ($did == 10) {
      if ($did(6) != $null) { write deop.txt $did(6) | did -a $dname 7 $did(6) }
      did -r $dname 6
    }
    if ($did == 11) {
      if ($did(6) != $null) { write $+(-,d,s,$did(6)) deop.txt | did -d tsk 7 $did(7).sel }
      did -r $dname 6
    }
    if ($did == 18) { did -ra $dname 16 $did(18).seltext }
    if ($did == 15) {
      if ($did(16) != $null) { write v.txt $did(16) | did -a $dname 18 $did(16) }
      did -r $dname 16
    }
    if ($did == 17) {
      if ($did(16) != $null) { write $+(-,d,s,$did(16)) v.txt | did -d tsk 18 $did(18).sel }
      did -r $dname 16
    }
    if ($did == 22) { did -ra $dname 20 $did(22).seltext }
    if ($did == 19) {
      if ($did(20) != $null) { write dv.txt $did(20) | did -a $dname 22 $did(20) }
      did -r $dname 20
    }
    if ($did == 21) {
      if ($did(20) != $null) { write $+(-,d,s,$did(20)) dv.txt | did -d tsk 22 $did(22).sel }
      did -r $dname 20
    }
    if ($did == 26) { did -ra $dname 24 $did(26).seltext }
    if ($did == 23) {
      if ($did(24) != $null) { write h.txt $did(24) | did -a $dname 26 $did(24) }
      did -r $dname 24
    }
    if ($did == 25) {
      if ($did(24) != $null) { write $+(-,d,s,$did(24)) h.txt | did -d tsk 26 $did(26).sel }
      did -r $dname 24
    }
    if ($did == 30) { did -ra $dname 28 $did(30).seltext }
    if ($did == 27) {
      if ($did(28) != $null) { write dh.txt $did(28) | did -a $dname 30 $did(28) }
      did -r $dname 28
    }
    if ($did == 29) {
      if ($did(28) != $null) { write $+(-,d,s,$did(28)) dh.txt | did -d tsk 30 $did(30).sel }
      did -r $dname 28
    }
    if ($did == 14) {
      if ($did(31).state == 1) { .enable #op }
      if ($did(31).state == 0) { .disable #op }
      if ($did(33).state == 1) { .enable #vop }
      if ($did(33).state == 0) { .disable #vop }
      if ($did(35).state == 1) { .enable #hop }
      if ($did(35).state == 0) { .disable #hop }    
    }
  }
  if ($devent == init) {
    var %bd.s = 1
    var %bd.t = $lines(op.txt)
    while (%bd.s <= %bd.t) { did -a $dname 5 $read(op.txt,%bd.s) | inc %bd.s }
    var %ad.s = 1
    var %ad.t = $lines(deop.txt)
    while (%ad.s <= %ad.t) { did -a $dname 7 $read(deop.txt,%ad.s) | inc %ad.s }
    var %vd.s = 1
    var %vd.t = $lines(v.txt)
    while (%vd.s <= %vd.t) { did -a $dname 18 $read(v.txt,%vd.s) | inc %vd.s }
    var %dvd.s = 1
    var %dvd.t = $lines(dv.txt)
    while (%dvd.s <= %dvd.t) { did -a $dname 22 $read(dv.txt,%dvd.s) | inc %dvd.s }
    var %h.s = 1
    var %h.t = $lines(h.txt)
    while (%h.s <= %h.t) { did -a $dname 26 $read(h.txt,%h.s) | inc %h.s }
    var %dh.s = 1
    var %dh.t = $lines(dh.txt)
    while (%dh.s <= %dh.t) { did -a $dname 30 $read(dh.txt,%dh.s) | inc %dh.s }
    if ($group(#op) == on) { did -c $dname 31 } | if ($group(#op) == off) { did -u $dname 31 }
    if ($group(#vop) == on) { did -c $dname 33 } | if ($group(#vop) == off) { did -u $dname 33 }
    if ($group(#hop) == on) { did -c $dname 35 } | if ($group(#hop) == off) { did -u $dname 35 }
  }
}

#op on
on *:op:#: {
  if $opnick == $me {
    msg $chan $nick $read(op.txt)
  }
}

on *:deop:#: {
  if $opnick == $me {
    msg $chan $nick $read(deop.txt)
  }
}
#op end

#vop on 
on *:voice:#: {
  if $vnick == $me {
    msg $chan $nick $read(v.txt)
  }
}

on *:devoice:#: {
  if $vnick == $me {
    msg $chan $nick $read(dv.txt)
  }
}
#vop end

#hop on
on *:help:#: {
  if $hnick == $me {
    msg $chan $nick $read(h.txt)
  }
}

on *:dehelp:#: {
  if $hnick == $me {
    msg $chan $nick $read(dh.txt)
  }
}
#hop end

menu channel,status,menubar {
  Tesekkurler:/tesekkur
}