menu query,channel,menubar,status {
  Query Blocker:qblock
}
alias qblock {
  if (!$dialog(qblock)) { dialog -m qblock qblock }
  else { dialog -v qblock }
}
dialog qblock {
  title "Query Blocker [Coded by XcLusive]"
  size -1 -1 175 155
  option dbu
  box "Query Blocker: Kişi Bilgilendirme Ayarları", 1, 5 5 165 81
  text "Bekletme Mesajı:", 3, 11 16 152 8
  edit "", 4, 10 25 153 10, autohs
  text "Kabul Mesajı:", 2, 11 39 157 8
  edit "", 5, 10 48 153 10, autohs
  text "Red Mesajı:", 6, 11 62 152 8
  edit "", 7, 10 71 153 10, autohs
  box "Query Blocker Ayarları", 8, 5 88 165 45
  check "", 9, 10 99 8 10
  text "Query Blockeri Çalıştır", 10, 18 100 77 8
  radio "", 11, 10 109 8 10
  text "Blocker'i Dialog Olarak Göster", 12, 18 110 115 8
  radio "", 13, 10 119 8 10
  text "Blocker'i Yazı Olarak Göster", 14, 18 120 115 8
  button "Kapat", 15, 5 137 40 13, cancel
  button "Kaydet", 16, 129 137 40 13
  button "Blocked", 17, 46 137 40 13
  button "VIP", 18, 87 137 40 13,
}

on *:load:{
  writeini $shortfn($scriptdir\qblock.ini) wmsg Lütfen Bekleyiniz Özel Görüşme İsteğiniz Değerlendiriliyor...
  writeini $shortfn($scriptdir\qblock.ini) amsg Özel Görüşme İsteğiniz Kabul Edildi...
  writeini $shortfn($scriptdir\qblock.ini) rmsg Özel Görüşme İsteğiniz Red Edildi...
  set %qblock on | set %qdialog yes | set %qblst.vip XcLusive | qblock
}
alias mdx { return $shortfn($scriptdirmdx.dll)  }
alias views { return $shortfn($scriptdirviews.mdx) }
alias x3 return $readini($scriptdirqblock.ini,$1,$2)
alias x  writeini $shortfn($scriptdirqblock.ini) $1-
alias idset {
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname
  dll $mdx SetDialog $dname bgcolor 13816530
  var %idset2 = $1
  set %idset 0
  :idset
  inc %idset 1
  dll $mdx SetColor $dname %idset textbg 13816530
  dll $mdx SetColor $dname %idset background 13816530
  dll $mdx SetColor $dname %idset text $txtcolor
  dll $mdx SetFont $dname %idset 13 800 Verdana
  if %idset < %idset2 goto idset
}
alias err0r { $iif($input($2,owdia,$1),halt,halt) }
on 1:dialog:qblock:*:*:{
  if $devent == init {
    idset 18
    did -a $dname 4 $x3(qblock,wmsg)
    did -a $dname 5 $x3(qblock,amsg)
    did -a $dname 7 $x3(qblock,rmsg)
    dll $mdx SetColor $dname 2,3,6 text 255
    if %qblock == on did -c $dname 9
    if %qdialog == yes did -c $dname 11
    else { did -c $dname 13 }
  }
  if $devent == sclick {
    if $did == 16 { if $did(9).state == 0 { set %qblock off }
      else { set %qblock on }
      $x(qblock,wmsg,$did(4).text)
      $x(qblock,amsg,$did(5).text)
      $x(qblock,rmsg,$did(7).text)
      $err0r(Bilgi,Query Blocker Ayarları Kaydedildi)
    }
    if $did == 11 { set %qdialog yes | halt }
    if $did == 13 { set %qdialog no | halt }
    if $did == 17 { qblock2 }
    if $did == 18 { qblock3 }
  }
}
alias qblock2 {
  if (!$dialog(qblock2)) { dialog -m qblock2 qblock2 }
  else { dialog -v qblock2 | qblload }
}
dialog qblock2 {
  title "Query Blocker [Coded by XcLusive]"
  size -1 -1 243 108
  option dbu
  box "Bloke Edilenlerin Listesi", 2, 5 5 178 98
  list 1, 10 15 168 83, sort size
  button "Kabul Et", 3, 186 8 55 10
  button "Reddet", 4, 186 22 55 10
  button "Engelle", 5, 186 36 55 10
  button "VIP'e Ekle", 6, 186 50 55 10
  button "VIP Listesi", 7, 186 64 55 10
  button "Ayarlar", 8, 186 78 55 10
  button "Kapat", 9, 186 92 55 10, cancel
}

on 1:dialog:qblock2:*:*:{
  if $devent == init {
    idset 19
    dll $mdx SetControlMDX $dname 1 ListView grid headerdrag report rowselect showsel nosortheader single > $views
    did -i $dname 1 1 headerdims 100 80 200
    did -i $dname 1 1 headertext Nick $chr(9) Zaman $chr(9) Mesaj
    qblload
  }
  if $devent == sclick {
    if $did == 1 { set %qblid $calc($did(1).sel - 1) }
    if $did == 3 { qblkabul }
    if $did == 4 { qblred }
    if $did == 5 { qblengel }
    if $did == 6 { qblvipadd }
    if $did == 7 { qblock3 }
    if $did == 8 { qblock }
  }
}
alias qblkabul { 
  var %query = $gettok($read($qbl,%qblid),1,149)
  window -aw %query
  write -dl $+ %qblid $qbl
  .msg %query $x3(qblock,amsg)
  did -r qblock2 1
  qblload
}

alias qblred {
  var %query = $gettok($read($qbl,%qblid),1,149)
  closemsg %query
  write -dl $+ %qblid $qbl
  .msg %query $x3(qblock,rmsg)
  did -r qblock2 1
  qblload
}
alias qblengel {
  var %query = $gettok($read($qbl,%qblid),1,149)
  closemsg %query
  write -dl $+ %qblid $qbl
  .ignore -p %query
  .notice %query Ozel Görüşme İsteğiniz Red Edildi (Ignore Edildiniz)
  did -r qblock2 1
  qblload
  $iif($input(%query Nickli Kişi Ignore Edildi,io,Bilgi),return)
}
alias qblvipadd {
  var %query = $gettok($read($qbl,%qblid),1,149)
  set %qblst.vip $addtok(%qblst.vip,%query,46)
  $err0r(Bilgi,%query VIP Listesine Eklendi)
}
alias qbl { return $shortfn($scriptdir\qb.txt) }
alias qkabul {
  var %qbl = $lines($qbl)
  var %a 1
  while (%a <= %qbl) {
    if (%query.last == $gettok($read($qbl,%a),1,149)) { 
      write -dl $+ %a $qbl
      window -wa %query.last
      .msg %query.last $x3(qblock,amsg) 
      echo $color(info) -ta QBL: %query.last Özel Görüşme İsteği Kabul Edildi
    }
    inc %a 1
  }
}
alias qred {
  var %qbl = $lines($qbl)
  var %a 1
  while (%a <= %qbl) {
    if (%query.last == $gettok($read($qbl,%a),1,149)) { 
      write -dl $+ %a $qbl
      closemsg %query.last
      .msg %query.last $x3(qblock,rmsg) 
      echo $color(info) -ta QBL: %query.last Özel Görüşme İsteği Red Edildi
    }
    inc %a 1
  }
}
alias qblload {
  var %qbl = $lines($qbl)
  var %a 1
  did -r qblock2 1
  while (%a <= %qbl) {
    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)
    inc %a 1
  }
}

alias qblcheck {
  var %x = $lines($qbl)
  var %y 1
  while (%y <= %x) {
    if ($1 == $gettok($read($qbl,%y),1,149)) { halt }
    inc %y 1
  }
}
alias qblock3 dialog -m qblock3 qblock3 
dialog qblock3 {
  title "Query Blocker"
  size -1 -1 142 108
  option dbu
  box "VIP Listesi", 2, 5 5 87 98
  list 1, 10 15 77 83, sort size
  button "Ekle", 3, 96 25 40 15
  button "Sil", 4, 96 45 40 15
  button "Kapat", 5, 96 65 40 15,cancel
}
on 1:dialog:qblock3:*:*:{
  if $devent == init {
    idset 5
    didtok $dname 1 46 %qblst.vip
  }
  if $devent == sclick {
    var %n $did(1).seltext
    if $did == 3 {
      var %t = $input(VIP Listesine Eklemek Istediğiniz Nick'i Girin,qoe,Nick Girin)
      if %t { set %qblst.vip $addtok(%qblst.vip,%t,46) | did -r $dname 1 | didtok $dname 1 46 %qblst.vip }
    }
    if $did == 4 {
      if %n { set %qblst.vip $remtok(%qblst.vip,%n,46) | did -r $dname 1 | didtok $dname 1 46 %qblst.vip }
    }
  }
}
on *:open:?:{
  if %qblock == on {
    if ($nick isin %qblst.vip) { halt }
    set %query.last $nick
    if %qdialog == yes {
      qblcheck $nick
      write $qbl $nick $+ $chr(149) $+ $time(hh:nn:ss) $+ $chr(149) $+ $1-
      window -h $nick
      .msg $nick $x3(qblock,wmsg)
      qblock2
    }
    else {
      write $qbl $nick $+ $chr(149) $+ $time(hh:nn:ss) $+ $chr(149) $+ $1-
      window -h $nick
      .msg $nick $x3(qblock,wmsg)
      echo $color(info) -ta QBL: %query.last Özel Görüşme İsteğinde Bulundu Kabul Etmek İçin Ctrl+F12 Red Etmek İçin Shift+F12 Tuşuna Basın
    }
  }
}
alias CF12 qkabul
alias SF12 qred