Menu channel,status {
  Op Teşekkür Menüsü:prefixtes
}
alias prefixtes {  dialog -m prefixtes prefixtes  | if (%tsket == on) { dialog -t PrefixteS Teşekkür Diyalogu Suan Açık. } | else {  did -b prefixtes 9,10,11,12,39,40,41,42,43,44 | dialog -t prefixtes Teşekkür Diyalogu Suan Kapali! } }
dialog PrefixteS {
  size 40 200 403 329
  box "", 505, 1 -5 400 329
  title "Owner/Sop/OP/HaLfop/Voice Tsk PaneLi"
  button "Kaydet ve Cık",1,132 285 125 30,ok
  button "Vazgec",2,263 285 125 30,cancel
  text "Owner (+q) Msg",3,8 47 100 20
  text "DeOwner (-q) Msg",4,8 72 100 20
  text "Protect (+oa) Msg",5,8 97 100 20
  text "DeProtect (-oa) Msg",6,8 119 110 20
  text "Op (+o) Msg",23,8 141 100 20
  text "DeOp (-o) Msg",24,8 165 100 20
  text "Halfop (+h) Msg",25,8 189 100 20
  text "DeHalfop (-h) Msg",26,8 213 110 20
  text "Voice (+v) Msg",27,8 237 100 20
  text "DeVoice (-v) Msg",28,8 261 110 20
  text "Owner Sop Op Voice Mesaj PaneLi ",7,170 15 190 13, tab 70
  box "",8,5 0 120 43,
  box "",700,127 0 270 43,
  edit %owtemsg ,9,125 45 270 20,autohs
  edit %deowtemsg ,10,125 69 270 20,autohs
  edit %prtemsg ,11,125 93 270 20,autohs
  edit %deprtemsg ,12,125 117 270 20,autohs
  edit %optemsg ,39,125 141 270 20,autohs
  edit %deoptemsg ,40,125 165 270 20,autohs
  edit %hatemsg ,41,125 189 270 20,autohs
  edit %dehatemsg ,42,125 213 270 20,autohs
  edit %votemsg ,43,125 237 270 20,autohs
  edit %devotemsg ,44,125 261 270 20,autohs
  radio "Acık",13,10 13 51 25,group
  radio "KapaLı",14,65 13 51 25
  text "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
289 115 15,disable
}
on *:dialog:PrefixteS:init:*: {
  if (%tsket == on) { did -c PrefixteS 13 }
  if (%tsket == off) { did -c PrefixteS 14 }
  mdx MarkDialog $dname
  mdx SetDialog  $dname  bgcolor  $rgb(181,181,1)
  mdx SetColor $dname 1,2,3,4,5,6,7,13,14,23,24,25,26,27,28,101 textbg $rgb(180,180,0) 
  mdx SetColor $dname 1,2,3,4,5,6,7,13,14,23,24,25,26,27,28,101 background $rgb(181,181,1)
  mdx SetFont $dname 1,2,3,4,5,6,7,9,10,11,12,13,14,23,24,25,26,27,28,39,40,41,42,43,44 14 700 arial
  ;mdx SetColor 101 text $rgb(100,050,255)
  mdx SetColor 7 text $rgb(010,120,240)
  mdx SetColor 9,10,11,12,39,40,41,42,43,44 text $rgb(255,105,0)
  mdx SetColor $dname 9,10,11,12,39,40,41,42,43,44 textbg $rgb(100,100,100) 
  mdx SetColor  3,4,5,6 text $rgb(0,0,0)
  mdx SetBorderStyle 1,2 staticedge
}
on *:dialog:PrefixteS:sclick:1: { set %owtemsg $did(9) | set %deowtemsg $did(10) | set %prtemsg $did(11) | set %deprtemsg $did(12) | set %optemsg $did(39) | set %deoptemsg $did(40) | set %hatemsg $did(41) | set %dehatemsg $did(42) | set %votemsg $did(43) | set %devotemsg $did(44) }
on *:dialog:PrefixteS:sclick:13: { set %tsket on | dialog -t PrefixteS Owner Sop Op HaLfOp Voice Tesekkur AcıLdı. | did -e PrefixteS 9 | did -e PrefixteS 10 | did -e PrefixteS 11 | did -e PrefixteS 12 | did -e PrefixteS 39 | did -e PrefixteS 40 | did -e PrefixteS 41 | did -e PrefixteS 42 | did -e PrefixteS 43 | did -e PrefixteS 44 }
on *:dialog:PrefixteS:sclick:14 { set %tsket off | dialog -t PrefixteS Owner Sop Op HaLfOp Voice Tesekkur Kapandı. | did -b PrefixteS 9 | did -b PrefixteS 10 | did -b PrefixteS 11 | did -b PrefixteS 12 | did -b PrefixteS 39 | did -b PrefixteS 40 | did -b PrefixteS 41 | did -b PrefixteS 42 | did -b PrefixteS 43 | did -b PrefixteS 44 }
alias prefixs {
  if $regex($1,/\+(q)) { return  Owner | halt }
  if $regex($1,/\-(q)) { return  DeOwner | halt }
  if $regex($1,/\+(a)) { return  Protect | halt }
  if $regex($1,/\-(a)) { return  DeProtect | halt }
  if $regex($1,/\+(o)) { return  Op | halt }
  if $regex($1,/\-(o)) { return  DeOp | halt }
  if $regex($1,/\+(h)) { return Halfop | halt }
  if $regex($1,/\-(h)) { return DeHalfop | halt }
  if $regex($1,/\+(v)) { return Voice | halt }
  if $regex($1,/\-(v)) { return DeVoice | halt }
}
on ^*:Rawmode:#:{
  if $regex(#,/#(oper|mirc|educator|egitim|s(pamfilter|inav)|help(ers)?)/i) { return }
  if $regex($1,/\+(q|a|o|h|v)/i) && ($2 == $me) && ($nick != $me) {
    msg $chan $replace($prefixs($1),Op,%optemsg,Protect,%prtemsg,Owner,%owtemsg,Voice,%votemsg,Halfop,%hatemsg)
    msg $chan $prefixs($1) için teşekkürler $nick
    if  ($active != $chan) {
      /echo -a 3 
      /echo -a 3*** 4 $+  5 ( 4 $nick 5) $+  5 ( 5 $chan 5) 12Kanalında Sana $prefixs($1) $+([4,$1,12]) Verdi
      /echo -a 3
    }
  }
  if $regex($1,/\-(q|a|o|h|v)/i) && ($2 == $me) && ($nick != $me) {
    msg $chan $replace($prefixs($1),DeOp,%deoptemsg,DeProtect,%deprtemsg,DeOwner,%deowtemsg,DeVoice,%devotemsg,DeHalfop,%dehatemsg)
    msg $chan niye aldın ki yetkimi $nick :x
    if  ($active != $chan) {
      /echo -a 3 
      /echo -a 3*** 4 $+  5 ( 4 $nick 5) $+  5 ( 5 $chan 5) 12Kanalında Senden $prefixs($1) $+([4,$1,12]) Aldı
      /echo -a 3
    }
  }
}