[qblock]
wmsg=Lutfen Bekleyiniz Ozel Gorusme isteginiz Degerlendiriliyor..
amsg=Ozel Gorusme İsteginiz Kabul Edildi..
rmsg=Ozel Gorusme İsteginiz Red Edildi..

[script]
n0=;Tamami Kendime ve Xc Script'e Ait Query Blocker Sistemi
n1=;Genis Kapsamli
n2=menu query,channel,menubar,status {
n3=
n4=}
n5=alias qblock {
n6=  if (!$dialog(qblock)) { dialog -m qblock qblock }
n7=  else { dialog -v qblock }
n8=}
n9=dialog qblock {
n10=  title "OzlemCafe mIRC ozel Kapatma Sistemi"
n11=  size -1 -1 175 155
n12=  option dbu
n13=  box "Ozel Kapatma: Kisi Bilgilendirme Ayarlari", 1, 5 5 165 81
n14=  text "Bekletme Mesaji:", 3, 11 16 152 8
n15=  edit "", 4, 10 25 153 10, autohs
n16=  text "Kabul Mesaji:", 2, 11 39 157 8
n17=  edit "", 5, 10 48 153 10, autohs
n18=  text "Red Mesaji:", 6, 11 62 152 8
n19=  edit "", 7, 10 71 153 10, autohs
n20=  box "Ozel Kapatma Ayarlari", 8, 5 88 165 45
n21=  check "", 9, 10 99 8 10
n22=  text "Sistem  Çalistir", 10, 18 100 77 8
n23=  radio "", 11, 10 109 8 10
n24=  text "Uyariyi Pencere seklinde Goster", 12, 18 110 115 8
n25=  radio "", 13, 10 119 8 10
n26=  text "Uyariyi Yazi Olarak Goster", 14, 18 120 115 8
n27=  button "Kapat", 15, 5 137 40 13, cancel
n28=  button "Kaydet", 16, 129 137 40 13
n29=  button "Engelle", 17, 46 137 40 13
n30=  button "ViP", 18, 87 137 40 13,
n31=}
n32=
n33=on *:load:{
n34=  ;writeini $shortfn($scriptdir\qblock.ini) wmsg Lutfen Bekleyiniz Ozel Gorusme isteginiz Degerlendiriliyor...
n35=  ;writeini $shortfn($scriptdir\qblock.ini) amsg Ozel Gorusme isteginiz Kabul Edildi...
n36=  ;writeini $shortfn($scriptdir\qblock.ini) rmsg Ozel Gorusme isteginiz Red Edildi...
n37=  set %qblock on | set %qdialog yes | set %qblst.vip XcLusive | qblock
n38=}
n39=alias mdx { return $shortfn($scriptdirmdx.dll)  }
n40=alias views { return $shortfn($scriptdirviews.mdx) }
n41=alias x3 return $readini($scriptdirqblock.ini,$1,$2)
n42=alias x  writeini $shortfn($scriptdirqblock.ini) $1-
n43=alias idset {
n44=  dll $mdx SetMircVersion $version
n45=  dll $mdx MarkDialog $dname
n46=  dll $mdx SetDialog $dname bgcolor 13816530
n47=  var %idset2 = $1
n48=  set %idset 0
n49=  :idset
n50=  inc %idset 1
n51=  dll $mdx SetColor $dname %idset textbg 13816530
n52=  dll $mdx SetColor $dname %idset background 13816530
n53=  dll $mdx SetColor $dname %idset text $txtcolor
n54=  dll $mdx SetFont $dname %idset 13 800 Verdana
n55=  if %idset < %idset2 goto idset
n56=}
n57=alias err0r { $iif($input($2,owdia,$1),halt,halt) }
n58=on 1:dialog:qblock:*:*:{
n59=  if $devent == init {
n60=    idset 18
n61=    did -a $dname 4 $x3(qblock,wmsg)
n62=    did -a $dname 5 $x3(qblock,amsg)
n63=    did -a $dname 7 $x3(qblock,rmsg)
n64=    dll $mdx SetColor $dname 2,3,6 text 255
n65=    if %qblock == on did -c $dname 9
n66=    if %qdialog == yes did -c $dname 11
n67=    else { did -c $dname 13 }
n68=  }
n69=  if $devent == sclick {
n70=    if $did == 16 { if $did(9).state == 0 { set %qblock off }
n71=      else { set %qblock on }
n72=      $x(qblock,wmsg,$did(4).text)
n73=      $x(qblock,amsg,$did(5).text)
n74=      $x(qblock,rmsg,$did(7).text)
n75=      $err0r(Bilgi,Query Blocker Ayarlari Kaydedildi)
n76=    }
n77=    if $did == 11 { set %qdialog yes | halt }
n78=    if $did == 13 { set %qdialog no | halt }
n79=    if $did == 17 { qblock2 }
n80=    if $did == 18 { qblock3 }
n81=  }
n82=}
n83=alias qblock2 {
n84=  if (!$dialog(qblock2)) { dialog -m qblock2 qblock2 }
n85=  else { dialog -v qblock2 | qblload }
n86=}
n87=dialog qblock2 {
n88=  title "Ozel Kapatma [Ayarlari]"
n89=  size -1 -1 243 108
n90=  option dbu
n91=  box "Bloke Edilenlerin Listesi", 2, 5 5 178 98
n92=  list 1, 10 15 168 83, sort size
n93=  button "Kabul Et", 3, 186 8 55 10
n94=  button "Reddet", 4, 186 22 55 10
n95=  button "Engelle", 5, 186 36 55 10
n96=  button "ViP'e Ekle", 6, 186 50 55 10
n97=  button "ViP Listesi", 7, 186 64 55 10
n98=  button "Ayarlar", 8, 186 78 55 10
n99=  button "Kapat", 9, 186 92 55 10, cancel
n100=}
n101=
n102=on 1:dialog:qblock2:*:*:{
n103=  if $devent == init {
n104=    idset 19
n105=    dll $mdx SetControlMDX $dname 1 ListView grid headerdrag report rowselect showsel nosortheader single > $views
n106=    did -i $dname 1 1 headerdims 100 80 200
n107=    did -i $dname 1 1 headertext Nick $chr(9) Zaman $chr(9) Mesaj
n108=    qblload
n109=  }
n110=  if $devent == sclick {
n111=    if $did == 1 { set %qblid $calc($did(1).sel - 1) }
n112=    if $did == 3 { qblkabul }
n113=    if $did == 4 { qblred }
n114=    if $did == 5 { qblengel }
n115=    if $did == 6 { qblvipadd }
n116=    if $did == 7 { qblock3 }
n117=    if $did == 8 { qblock }
n118=  }
n119=}
n120=alias qblkabul { 
n121=  var %query = $gettok($read($qbl,%qblid),1,149)
n122=  window -aw %query
n123=  write -dl $+ %qblid $qbl
n124=  .msg %query $x3(qblock,amsg)
n125=  did -r qblock2 1
n126=  qblload
n127=}
n128=
n129=alias qblred {
n130=  var %query = $gettok($read($qbl,%qblid),1,149)
n131=  closemsg %query
n132=  write -dl $+ %qblid $qbl
n133=  .msg %query $x3(qblock,rmsg)
n134=  did -r qblock2 1
n135=  qblload
n136=}
n137=alias qblengel {
n138=  var %query = $gettok($read($qbl,%qblid),1,149)
n139=  closemsg %query
n140=  write -dl $+ %qblid $qbl
n141=  .ignore -p %query
n142=  .notice %query Ozel Gorusme isteginiz Red Edildi (ignore Edildiniz)
n143=  did -r qblock2 1
n144=  qblload
n145=  $iif($input(%query Nickli Kisi ignore Edildi,io,Bilgi),return)
n146=}
n147=alias qblvipadd {
n148=  var %query = $gettok($read($qbl,%qblid),1,149)
n149=  set %qblst.vip $addtok(%qblst.vip,%query,46)
n150=  $err0r(Bilgi,%query ViP Listesine Eklendi)
n151=}
n152=alias qbl { return $shortfn($scriptdir\qb.txt) }
n153=alias qkabul {
n154=  var %qbl = $lines($qbl)
n155=  var %a 1
n156=  while (%a <= %qbl) {
n157=    if (%query.last == $gettok($read($qbl,%a),1,149)) { 
n158=      write -dl $+ %a $qbl
n159=      window -wa %query.last
n160=      .msg %query.last $x3(qblock,amsg) 
n161=      echo $color(info) -ta QBL: %query.last ozel Gorusme İstegi Kabul Edildi
n162=    }
n163=    inc %a 1
n164=  }
n165=}
n166=alias qred {
n167=  var %qbl = $lines($qbl)
n168=  var %a 1
n169=  while (%a <= %qbl) {
n170=    if (%query.last == $gettok($read($qbl,%a),1,149)) { 
n171=      write -dl $+ %a $qbl
n172=      closemsg %query.last
n173=      .msg %query.last $x3(qblock,rmsg) 
n174=      echo $color(info) -ta QBL: %query.last ozel Gorusme İstegi Red Edildi
n175=    }
n176=    inc %a 1
n177=  }
n178=}
n179=alias qblload {
n180=  var %qbl = $lines($qbl)
n181=  var %a 1
n182=  did -r qblock2 1
n183=  while (%a <= %qbl) {
n184=    did -a qblock2 1 $gettok($read($qbl,%a),1,149) $chr(9) $gettok($read($qbl,%a),2,149) $chr(9) $gettok($read($qbl,%a),3,149)
n185=    inc %a 1
n186=  }
n187=}
n188=
n189=alias qblcheck {
n190=  var %x = $lines($qbl)
n191=  var %y 1
n192=  while (%y <= %x) {
n193=    if ($1 == $gettok($read($qbl,%y),1,149)) { halt }
n194=    inc %y 1
n195=  }
n196=}
n197=alias qblock3 dialog -m qblock3 qblock3 
n198=dialog qblock3 {
n199=  title "OzlemCafe mIRC ViP Listeniz"
n200=  size -1 -1 142 108
n201=  option dbu
n202=  box "ViP Listesi", 2, 5 5 87 98
n203=  list 1, 10 15 77 83, sort size
n204=  button "Ekle", 3, 96 25 40 15
n205=  button "Sil", 4, 96 45 40 15
n206=  button "Kapat", 5, 96 65 40 15,cancel
n207=}
n208=on 1:dialog:qblock3:*:*:{
n209=  if $devent == init {
n210=    idset 5
n211=    didtok $dname 1 46 %qblst.vip
n212=  }
n213=  if $devent == sclick {
n214=    var %n $did(1).seltext
n215=    if $did == 3 {
n216=      var %t = $input(ViP Listesine Eklemek istediginiz Nick'i Girin,qoe,Nick Girin)
n217=      if %t { set %qblst.vip $addtok(%qblst.vip,%t,46) | did -r $dname 1 | didtok $dname 1 46 %qblst.vip }
n218=    }
n219=    if $did == 4 {
n220=      if %n { set %qblst.vip $remtok(%qblst.vip,%n,46) | did -r $dname 1 | didtok $dname 1 46 %qblst.vip }
n221=    }
n222=  }
n223=}
n224=on *:open:?:{
n225=  if %qblock == on {
n226=    if ($nick isin %qblst.vip) { halt }
n227=    set %query.last $nick
n228=    if %qdialog == yes {
n229=      qblcheck $nick
n230=      write $qbl $nick $+ $chr(149) $+ $time(hh:nn:ss) $+ $chr(149) $+ $1-
n231=      window -h $nick
n232=      .msg $nick $x3(qblock,wmsg)
n233=      qblock2
n234=    }
n235=    else {
n236=      write $qbl $nick $+ $chr(149) $+ $time(hh:nn:ss) $+ $chr(149) $+ $1-
n237=      window -h $nick
n238=      .msg $nick $x3(qblock,wmsg)
n239=      echo $color(info) -ta QBL: %query.last ozel Gorusme İsteginde Bulundu Kabul Etmek İçin Ctrl+F12 Red Etmek İçin Shift+F12 Tusuna Basin
n240=    }
n241=  }
n242=}
n243=alias CF12 qkabul
n244=alias SF12 qred
