#ozel on
menu query,channel,menubar,status {
  Ozel Kabul:qblock
}
alias qblock {
  if (!$dialog(qblock)) { dialog -m qblock qblock }
  else { dialog -v qblock }
}
dialog qblock {
  title "Ozel Kabul Ozelligi"
  size -1 -1 175 168
  option dbu
  box "Ozel Kabul: Kisi Bilgilendirme Ayarlari", 1, 5 5 165 81
  text "Bekletme Mesaji:", 3, 11 16 152 8
  edit "", 4, 10 25 153 10, autohs
  text "Kabul Mesaji:", 2, 11 39 157 8
  edit "", 5, 10 48 153 10, autohs
  text "Red Mesaji:", 6, 11 62 152 8
  edit "", 7, 10 71 153 10, autohs
  box "Ozel Kabul Ayarları", 8, 5 88 165 45
  check "", 9, 10 99 8 10
  text "Ozel KAbulu Calistir", 10, 18 100 77 8
  radio "", 11, 10 109 8 10
  text "Kabul'u Dialog Olarak Goster", 12, 18 110 115 8
  radio "", 13, 10 119 8 10
  text "Kabulu Yazi Olarak Goster", 14, 18 120 115 8
  button "Temizle", 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,
  button "Kapat", 19, 60 153 50 13, cancel
}
on *:load:{
  writeini $shortfn($scriptdir\qblock.ini) wmsg Lutfen Bekleyiniz Ozel Gorusme İsteginiz Degerlendiriliyor..
  writeini $shortfn($scriptdir\qblock.ini) amsg Ozel Gorusme İsteginiz Kabul Edildi..
  writeini $shortfn($scriptdir\qblock.ini) rmsg Ozel Gorusme İsteginiz Red Edildi..
  set %qblock on | set %qdialog yes | set %qblst.vip Serdar406 | 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 $rgb(230,245,252)
  var %idset2 = $1
  set %idset 0
  :idset
  inc %idset 1
  dll $mdx SetColor $dname %idset textbg $rgb(230,245,252)
  dll $mdx SetColor $dname %idset background $rgb(230,245,252)
  dll $mdx SetColor $dname %idset text $txtcolor
  dll $mdx SetFont $dname %idset 14 900 Tahoma
  if %idset < %idset2 goto idset
}
alias err0r { $iif($input($2,owdia,$1),halt,halt) }
on 1:dialog:qblock:*:*:{
  if $devent == init {
    idset 19
    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 }
    if $did == 15 { .write -c qblock\qb.txt | echo -a Liste Temizlendi! }  
  }
}
alias qblock2 {
  if (!$dialog(qblock2)) { dialog -m qblock2 qblock2 }
  else { dialog -v qblock2 | qblload }
}
dialog qblock2 {
  title "Ozel Kabul Ozelligi"
  size -1 -1 243 118
  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 "Temizle", 9, 186 92 55 10, cancel
  button "Kapat", 10, 186 105 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 }
    if $did == 9 { write -c qblock\qb.txt | dialog -x qblock2 qblock2 | dialog -m qblock2 qblock2 }
  }
}
alias qblkabul { 
  var %query = $gettok($read($qbl,%qblid),1,149)
  if (%query) {
    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 "Ozel Kabul"
  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 61 %qblst.vip
  }
  if $devent == sclick {
    var %n $did(1).seltext
    if $did == 3 {
      var %t = $input(VIP Listesine Eklemek Istediginiz Nick'i Girin,qoe,Nick Girin)
      if %t { set %qblst.vip $addtok(%qblst.vip,%t,61) | did -r $dname 1 | didtok $dname 1 61 %qblst.vip }
    }
    if $did == 4 {
      if %n { set %qblst.vip $remtok(%qblst.vip,%n,61) | did -r $dname 1 | didtok $dname 1 61 %qblst.vip }
    }
  }
}
on *:open:?:{
  if !$away { 
    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 Ozel Gorusme İsteginde Bulundu Kabul Etmek İcin Ctrl+F12 Red Etmek İcin Shift+F12 Tusuna Basin
      }
    }
  }
}
alias CF12 qkabul
alias SF12 qred