menu * { 
  » OP ToolBar:/dialog -m oppanel oppanel
  - 
}
on *:OP:#: {
  if ($opnick == $me) {
    /dialog -m oppanel oppanel  
  }
}
alias oppanel {
  if ($dialog(oppanel)) {
    dialog -x oppanel oppanel
    dialog -m oppanel oppanel
  }
  else {
    dialog -m oppanel oppanel
  }
}
alias -l error {
  if ($input($1-,ow,Op menü Hata Bildirimi)) { halt }
}
alias -l isop {
  if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) { paneluser | return $true }
}
alias -l panelchan {
  return $did(oppanel,20).seltext
}
alias -l paneluser {
  if ($did(oppanel,1).seltext = $null) { edialog Listeden Nick Seçmediniz! | halt }
  else { return %onick }
}
alias -l refresh {
  did -r oppanel 1,24,25
  %c = $nick($did(oppanel,20).seltext,0)
  %i = 1
  while (%i <= %c) {
    did -a oppanel 1 $nick($did(oppanel,20).seltext,%i).pnick
    inc %i
  }
  if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) {
    did -ei oppanel 24 1 $chan($did(oppanel,20).seltext).topic
    did -ei oppanel 25 1 $chan($did(oppanel,20).seltext).mode
    did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
  }
  else {
    did -ib oppanel 24 1 $chan($did(oppanel,20).seltext).topic
    did -ib oppanel 25 1 $chan($did(oppanel,20).seltext).mode
    did -b oppanel 28,29
  }
}
alias -l trefresh {
  .timer -m 1 500 refresh
}
alias -l ccm {
  ;Tesekkürler
  var %ccm.modes = mMiRcsptnlk
  var %ccm.ch = $panelchan
  if ($1 == $null) {
    if ($len($gettok($chan(%ccm.ch).mode,1,32)) < { mode %ccm.ch $+(-,$remove($gettok($chan(%ccm.ch).mode,1,32),+)) $iif(k isin $gettok($chan(%ccm.ch).mode,1,32),$+(-,$chan(%ccm.ch).key)) | halt }
    else {
      var %ccm.m2 = $mid($gettok($chan(%ccm.ch).mode,1,32),8)
      mode %ccm.ch $+(-,$remove($left($gettok($chan(%ccm.ch).mode,1,32),7),+)) $iif(k isin $left($gettok($chan(%ccm.ch).mode,1,32),7),$+(-,$chan(%ccm.ch).key))
      mode %ccm.ch $+(-,%ccm.m2) $iif(k isin %ccm.m2,$+(-,$chan(%ccm.ch).key))
      halt
    }
  }
  var %ccm.nm = $1 | var %ccm.nparms $calc($0 - 1) | if (%ccm.nparms > 0) { var %ccm.nmp1 = $remove($2,+) } | if (%ccm.nparms > 1) { var %ccm.nmp2 = $remove($3,+) }
  var %ccm.om = $remove($gettok($chan(%ccm.ch).mode,1,32),+)
  if ((l isincs %ccm.om) && (k isincs %ccm.om)) {
    if ($pos(%ccm.om,l,1) < $pos(%ccm.om,k,1) { var %ccm.oml = $gettok($chan(%ccm.ch).mode,2,32)) | var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,3,32),+) }
    else { var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,2,32),+) | var %ccm.oml = $gettok($chan(%ccm.ch).mode,3,32) }
  }
  elseif (l isincs %ccm.om) { var %ccm.oml = $gettok($chan(%ccm.ch).mode,2,32) }
  elseif (k isincs %ccm.om) { var %ccm.omk = $remove($gettok($chan(%ccm.ch).mode,2,32),+) }
  if ((- isin %ccm.nm) && ($right(%ccm.nm,1) != -)) { echo 4 -a * | halt }
  var %ccm.check = $remove(%ccm.nm,+) | var %ccm.c = 0 | var %ccm.n = $len(%ccm.check) | unset %ccm.nm
  while (%ccm.c < %ccm.n) {
    inc %ccm.c
    if ($mid(%ccm.check,%ccm.c,1) !isincs %ccm.modes) {
      halt
    }
    if ($mid(%ccm.check,%ccm.c,1) !isincs %ccm.nm) { var %ccm.nm = %ccm.nm $+ $mid(%ccm.check,%ccm.c,1) }
  }
  var %ccm.err = $calc($calc(%ccm.nparms - $iif(k isincs %ccm.nm,1)) - $iif(l isincs %ccm.nm,1))
  if (%ccm.err < 0) {
    echo 14 -a You entered: $+($1-,.)
    if ((%ccm.err == -1) && (l isincs %ccm.nm) && (%ccm.nmp1 !isnum)) { echo 4 -a * }
    else { echo 4 -a * }
    halt
  }
  if (%ccm.err > 0) {
    echo 14 -a You entered: $+($1-,.)
    echo 4 -a *
    if (%ccm.nparms < 3) { echo -a * }
    echo 14 -a * )
    halt
  }
  if ((l isincs %ccm.nm) && (k isincs %ccm.nm)) {
    if ($pos(%ccm.nm,l,1) < $pos(%ccm.nm,k,1)) { var %ccm.nml = %ccm.nmp1 | var %ccm.nmk = %ccm.nmp2 }
    else { var %ccm.nmk = %ccm.nmp1 | var %ccm.nml = %ccm.nmp2 }
  }
  elseif (l isincs %ccm.nm) { var %ccm.nml = %ccm.nmp1 }
  elseif (k isincs %ccm.nm) { var %ccm.nmk = %ccm.nmp1 }
  if ((%ccm.nml != $null) && (%ccm.nml !isnum)) { echo 14 -a * | halt }
  var %ccm.n = $len(%ccm.om) | var %ccm.c = 0
  while (%ccm.c < %ccm.n) { inc %ccm.c | if (($mid(%ccm.om,%ccm.c,1) !isincs %ccm.nm)) { var %ccm.negm = %ccm.negm $+ $mid(%ccm.om,%ccm.c,1) } }
  var %ccm.n = $len(%ccm.nm) | var %ccm.c = 0
  while (%ccm.c < %ccm.n) { inc %ccm.c | if (($mid(%ccm.nm,%ccm.c,1) !isincs %ccm.om) || ($mid(%ccm.nm,%ccm.c,1) == k) || ($mid(%ccm.nm,%ccm.c,1) == l)) { var %ccm.posm = %ccm.posm $+ $mid(%ccm.nm,%ccm.c,1) } }
  if ((l isincs %ccm.posm) && (%ccm.nml === %ccm.oml)) { var %ccm.posm = $remove(%ccm.posm,l) }
  if ((k isincs %ccm.posm) && (%ccm.nmk === %ccm.omk)) { var %ccm.posm = $remove(%ccm.posm,k) }
  if ((k isincs %ccm.negm) && (k !isincs %ccm.posm)) { var %ccm.nmk = $+(-,%ccm.omk) }
  var %ccm.tm = $calc($len(%ccm.negm) + $len(%ccm.posm))
  if (%ccm.tm > 6) {
    var %ccm.nm2 = $mid($+(%ccm.negm,%ccm.posm),7,1)
    var %ccm.snm2 = $iif($len(%ccm.negm) <= 7,+,-)
  }
  if (%ccm.negm) { var %ccm.negm = - $+ %ccm.negm }
  if (%ccm.posm) { var %ccm.posm = + $+ %ccm.posm }
  var %ccm.negposm = $replace(%ccm.negm $+ %ccm.posm,++,+)
  var %ccm.newmodes1 = $iif(%ccm.nm2,$left(%ccm.negposm,$calc($pos(%ccm.negposm,%ccm.nm2,1) - 1)),%ccm.negposm)
  if ((l isincs %ccm.newmodes1) && (k isincs %ccm.newmodes1)) { var %ccm.newmodes1 = %ccm.newmodes1 $iif($pos(%ccm.newmodes1,l,1) < $pos(%ccm.newmodes1,k,1),%ccm.nml %ccm.nmk,%ccm.nmk %ccm.nml) }
  else { var %ccm.newmodes1 = %ccm.newmodes1 $iif(l isincs %ccm.newmodes1,%ccm.nml) $iif(k isincs %ccm.newmodes1,%ccm.nmk) }
  if (%ccm.nm2) {
    var %ccm.newmodes2 = $+(%ccm.snm2,$mid(%ccm.negposm,$pos(%ccm.negposm,%ccm.nm2,1)))
    if ((l isincs %ccm.newmodes2) && (k isincs %ccm.newmodes2)) { var %ccm.newmodes2 = %ccm.newmodes2 $iif($pos(%ccm.newmodes2,l,1) < $pos(%ccm.newmodes2,k,1),%ccm.nml %ccm.nmk,%ccm.nmk %ccm.nml) }
    else { var %ccm.newmodes2 = %ccm.newmodes2 $iif(l isincs %ccm.newmodes2,%ccm.nml) $iif(k isincs %ccm.newmodes2,%ccm.nmk) }
  }
  if (%ccm.newmodes1) { mode %ccm.ch %ccm.newmodes1 | if (%ccm.newmodes2) { mode %ccm.ch %ccm.newmodes2 } }
}
dialog oppanel {
  title ".::[ oPeratör Menü ]::."
  size -1 -1 135 190
  option dbu
  list 1, 3 6 67 126, size vsbar
  button "Op", 2, 71 7 28 12
  button "Deop", 3, 99 7 30 12
  button "Voice", 4, 71 19 28 12
  button "Devoice", 5, 99 19 30 12
  button "+o/-v", 6, 71 31 28 12
  button "-o/+v", 7, 99 31 30 12
  button "Sop Yaz", 8, 71 43 28 12
  button "Sop Sil", 9, 99 43 30 12
  button "Aop Yaz", 10, 71 55 28 12
  button "Aop Sil", 11, 99 55 30 12
  button "+Vop", 12, 71 67 28 12
  button "-Vop", 13, 99 67 30 12
  button "Kick", 14, 71 83 28 12
  button "Akick", 15, 99 83 30 12
  button "Ban", 16, 71 95 28 12
  button "Ip ban", 17, 99 95 30 12
  button "Kick+Ban", 18, 71 107 28 12
  button "KBan IP?", 19, 99 107 30 12
  combo 20, 20 161 70 100, size drop
  text "Kanal", 21, 1 162 17 8
  button "Kapat", 22, 93 174 37 10, ok cancel
  button "Yenile", 23, 93 161 37 10
  edit "", 24, 20 135 70 10, disable autohs
  edit "", 25, 20 147 70 10, disable autohs
  text "Topik", 26, 1 136 18 8
  text "Modlar", 27, 1 148 18 8
  button "Topic Kaydet", 28, 93 135 37 10, disable
  button "Mod Kaydet", 29, 93 148 37 10, disable
  button "Süreli KB", 30, 71 119 28 12
  button "Süreli Ban", 31, 99 119 30 12
}
on 1:dialog:oppanel:init:0: {
  mdx MarkDialog $dname
  mdx SetBorderStyle 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,22,23,28,29,30,31 staticedge
  mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 +a 13 500 tahoma
  var %i = 1
  while ($chan(%i)) {
    did -a oppanel 20 $ifmatch
    inc %i
  }
  did -c oppanel 20 1
  %chan = $did(20).seltext
  %i = 1
  while ($nick(%chan,%i).pnick) {
    did -a oppanel 1 $ifmatch
    inc %i
  }
  did -a oppanel 24 $chan(%chan).topic
  did -a oppanel 25 $chan(%chan).mode
  if ((*o* iswm $usermode) || ($me isop %chan)) {
    did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
  }
}
on 1:dialog:oppanel:close:0: {
  unset %onick, %chan
}
on 1:dialog:oppanel:sclick:1: {
  %formatnick = $did(oppanel,1).seltext
  if ($left(%formatnick,1) isin @+%~?*!) {
    set %onick $remove(%formatnick,$left(%formatnick,1))
    unset %formatnick
    if ($left(%onick,1) isin @+%~?*!) {
      set %onick $remove(%onick,$left(%onick,1))
      if ($left(%onick,1) isin @+%~?*!) {
        set %onick $remove(%onicknick,$left(%onick,1))
      }
    }
  }
  else {
    set %onick $did(oppanel,1).seltext
  }
}
on 1:dialog:oppanel:sclick:2: {
  if ($isop) { mode $panelchan +o $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:3: {
  if ($isop) { mode $panelchan -o $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:4: {
  if ($isop) { mode $panelchan +v $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:5: {
  if ($isop) { mode $panelchan -v $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:6: {
  if ($isop) { mode $panelchan -v+o $paneluser $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:7: {
  if ($isop) { mode $panelchan -o+v $paneluser $paneluser | trefresh }
}
on 1:dialog:oppanel:sclick:8: {
  if ($isop) { chanserv SOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:9: {
  if ($isop) { chanserv SOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:10: {
  if ($isop) { chanserv AOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:11: {
  if ($isop) { chanserv AOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:12: {
  if ($isop) { chanserv VOp $panelchan add $paneluser }
}
on 1:dialog:oppanel:sclick:13: {
  if ($isop) { chanserv VOp $panelchan del $paneluser }
}
on 1:dialog:oppanel:sclick:14: {
  if ($isop) { kick $panelchan $paneluser 1Kick Nedeni: $?="Kick Nedeni?" | trefresh }
}
on 1:dialog:oppanel:sclick:15: {
  if ($isop) { chanserv akick $panelchan $?="Add/Del?" $paneluser Auto Kick.! }
}
on 1:dialog:oppanel:sclick:16: {
  if ($isop) { ban $panelchan $paneluser }
}
on 1:dialog:oppanel:sclick:17: {
  if ($isop) { ban $panelchan $paneluser $?="Ban Sekli?") }
}
on 1:dialog:oppanel:sclick:18: {
  if ($isop) { ban $panelchan $paneluser 2 | kick $panelchan $paneluser 2You are banned.! 7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:19: {
  if ($isop) { ban $panelchan $paneluser $?="Ban Sekli?") | kick $panelchan $paneluser 2You are banned.!7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:20: {
  did -r oppanel 1,24,25
  %c = $nick($did(oppanel,20).seltext,0)
  %i = 1
  while (%i <= %c) {
    did -a oppanel 1 $nick($did(oppanel,20).seltext,%i).pnick
    inc %i
  }
  if (($me isop $did(oppanel,20).seltext) || (*o* iswm $usermode)) {
    did -ei oppanel 24 1 $chan($did(oppanel,20).seltext).topic
    did -ei oppanel 25 1 $chan($did(oppanel,20).seltext).mode
    did -e oppanel 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,22,23,24,25,28,29
  }
  else {
    did -ib oppanel 24 1 $chan($did(oppanel,20).seltext).topic
    did -ib oppanel 25 1 $chan($did(oppanel,20).seltext).mode
    did -b oppanel 28,29
  }
}
on 1:dialog:oppanel:sclick:23: {
  dialog -x oppanel oppanel
  dialog -m oppanel oppanel
}
on 1:dialog:oppanel:sclick:28: {
  %oldtopic = $chan($did(oppanel,20).seltext).topic
  if (%oldtopic != $did(oppanel,24)) {
    topic $did(oppanel,20).seltext $did(oppanel,24)
  }
}
on 1:dialog:oppanel:sclick:29: {
  ccm $did(oppanel,25)
}
on 1:dialog:oppanel:sclick:30: {
  if ($isop) { ban $+(-u,$calc($input(Kaç Dakika Banli olsun ban?,qe,Süreli Ban) * 60)) $panelchan $paneluser 2 | kick $panelchan $paneluser 2You are Kick+ban.! 7 $me | trefresh }
}
on 1:dialog:oppanel:sclick:31: {
  if ($isop) { ban $+(-u,$calc($input(Kaç dakika? ban?,qe,Süreli Ban) * 60)) $panelchan $paneluser 2 }
}