İlk olarak Nuclear Script’te görülen addon, yabancı bir coder tarafından yazılmıştır ve İlhan BAYRAK tarafından Türkçe’leştirilmiştir ve geliştirilmiştir.

Kod sayesinde özel görüşmelerinizi denetleyebilir ve yalnızca istediğiniz kişilerle görüşme yapabilirsiniz. Özellikle, sunucu yöneticileri için önerebileceğimiz bir koddur.

on *:load:{
if ($version < 5.91) echo -a  $+ $colour(info2) $+ *** This addon will not work properly with mIRC $version $+ , you need latest mirc in order to use this addon. | beep
echo -q $input(Zurna Script v4.1 Özele Kabul Sistemini Yüklediniz..,68,Secure Query)
}

;[read write data/setting.ini]
alias _vr {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
return $readini data\setting.ini $$1 $$2
}
alias _vw {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
writeini data\setting.ini $$1 $$2 $$3-
}
alias _vrem {
if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
remini data\setting.ini $$1 $$2
}

;menu query {
; &secure query
; .ayar:secure.query
; .access ekle:auser -a securequery $address($1,3) | .msg $1 [otomatik msg] Accessiniz var ozelde konusmak icin. | $ae •12• user added » (12 $address($1,3) ) | if ($dialog(querycon) != $null) { did -r querycon 45 | s.levels }
; .on $sqo: _vw querycon switch on
; .off $sqf: _vw querycon switch off
;}

;menu menubar,channel,status {
; &Korumalar
; .&secure query
; ..ayar:secure.query
; ..on $sqo: _vw querycon switch on
; ..off $sqf: _vw querycon switch off
;}

alias -l sqo {
if ($_vr(querycon,switch) == on) { return [x] }
else { return }
}
alias -l sqf {
if ($_vr(querycon,switch) == off) { return [x] }
else { return }
}
alias secure.query {
if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC www.mirc.com | beep | halt }
if ($dialog(querycon) == $null) { dialog -m querycon querycon }
}
alias secure.query.nick {
if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC www.mirc.com | beep | halt }
dialog -m $_vr(querycon,query.nick) querycon1
_vrem querycon lastmsg
}
dialog querycon1 {
title “Özele Kabul”
size -1 -1 160 81
option dbu
box “”, 33, 7 14 146 42
button “Kabul”, 28, 9 62 25 10, default ok, flat
button “Ignore”, 26, 36 62 25 10, flat
button “Reddet”, 27, 63 62 25 10, flat
edit “”, 1, 32 21 119 10, read autohs, flat
edit “”, 30, 32 31 119 10, read autohs, flat
edit “”, 29, 32 41 119 10, read autohs, flat
check “Aktif Et”, 31, 10 6 84 7, flat
button “Ayarlar”, 2, 92 63 21 8, flat
button “Yetki ver”, 3, 114 63 37 8, flat
box “”, 4, 7 57 146 18, flat
text “Nick”, 5, 11 22 10 8, flat
text “Adres”, 6, 11 32 17 8, flat
text “Mesaj”, 7, 11 42 18 8, flat
}

;dialog querycon1 {
; title “secure query”
; size -1 -1 160 81
; option dbu
; box “”, 33, 7 14 146 42, flat
; button “accept”, 28, 9 62 25 10, default ok, flat
; button “ignore”, 26, 36 62 25 10, flat
; button “decline”, 27, 63 62 25 10, flat
; edit “”, 1, 32 21 119 10, read autohs, flat
; edit “”, 30, 32 31 119 10, read autohs, flat
; edit “”, 29, 32 41 119 10, read autohs, flat
; check “enable secure query”, 31, 10 6 70 7, flat
; button “setup”, 2, 92 63 21 8, flat
; button “add access”, 3, 114 63 37 8, flat
; box “”, 4, 7 57 146 18, flat
; text “nick”, 5, 9 22 10 8, flat
; text “address”, 6, 9 32 19 8, flat
; text “message”, 7, 9 42 21 8, flat
;}

dialog querycon {
title “Özele Kabul”
size -1 -1 167 119
option dbu
button “Tamam”, 12, 70 104 25 10, default ok, flat
tab “Ayar”, 2, 2 1 163 115, flat
edit “”, 3, 4 43 159 10, tab 2 autohs, flat
text “Bekletme Mesajı”, 13, 6 35 44 7, tab 2, flat
edit “”, 4, 4 60 159 10, tab 2 autohs, flat
check “Aktif Et”, 15, 11 83 32 10, tab 2, flat
button “Melodi Sec”, 16, 45 83 37 10, tab 2, flat
box “Ozelde Sesli Uyarma “, 17, 8 75 80 22, tab 2, flat
edit “”, 208, 99 79 15 9, tab 2, flat
button “-”, 206, 93 81 5 5, tab 2, flat
text “Saniye Sonra”, 210, 124 80 32 7, tab 2, flat
box “Ozel Istegi Oto Kapat”, 209, 90 71 68 30, tab 2, flat
button “+”, 207, 116 81 5 5, tab 2, flat
text “Reddetme Mesajı”, 14, 6 53 44 7, tab 2, flat
check “Aktif Et”, 33, 8 20 66 10, tab 2, flat
check “Usere Yetkisi Oldugunu Ilet”, 49, 75 20 83 10, tab 2, flat
check “Oto Kapatma Aktif”, 50, 95 89 58 10, tab 2, flat
box “”, 51, 5 15 156 18, tab 2, flat
tab “Log”, 11, flat
list 34, 7 20 42 50, tab 11 sort size hsbar, flat
button “Sil”, 35, 7 73 29 8, tab 11, flat
button “Kopyala”, 39, 131 72 29 8, tab 11, flat
check “Ozel isteklerini Logla”, 43, 7 95 58 10, tab 11, flat
edit “”, 52, 86 84 74 10, tab 11 autohs, flat
button “Yetki ver”, 53, 48 85 37 8, tab 11, flat
edit “”, 64, 54 21 106 50, tab 11 read multi vsbar, flat
button “Hepsini Sil”, 65, 7 83 29 8, tab 11, flat
tab “Korumalar”, 32, flat
radio “Universal mask *!*@*”, 211, 10 42 62 12, tab 32, flat
radio “Host mask ignore”, 212, 10 56 62 9, tab 32, flat
box “Query flood ignore tïpi”, 213, 6 34 70 34, tab 32, flat
edit “”, 214, 124 55 10 10, tab 32, flat
check “Aktif”, 219, 89 42 40 10, tab 32, flat
box “Query flood korumasi”, 216, 80 34 82 34, tab 32, flat
edit “”, 217, 83 55 15 10, tab 32, flat
text “Ozel istek”, 215, 136 57 24 7, tab 32, flat
text “Saniyede”, 218, 99 56 23 7, tab 32, flat
tab “Yetki”, 40, flat
list 41, 11 42 146 50, tab 40 sort size hsbar, flat
button “Sil”, 42, 12 96 37 8, disable tab 40, flat
text “Kullanıcı Yetkisi”, 44, 12 34 36 8, tab 40, flat
edit “”, 45, 26 19 106 10, tab 40 autohs, flat
button “Ekle”, 46, 134 20 29 8, disable tab 40, flat
text “Adres”, 47, 6 20 19 8, tab 40, flat
tab “Hakkında”, 54, flat
box “”, 55, 30 23 106 70, tab 54, flat
text “Yapimci:”, 56, 60 31 20 8, tab 54, flat
text “Sürüm”, 58, 60 42 20 8, tab 54, flat
link “wWw.YuzukTurk.Com”, 59, 54 80 75 8, tab 54, flat
text “Regex”, 60, 84 31 50 8, tab 54, flat
text “2.0″, 61, 84 42 14 8, tab 54, flat
text “Regex, der ki: Zurna Script kullanın ve bu programı yalnızca YuzukTurk.Com’dan indirin. “, 63, 34 55 97 20, tab 54, flat
}

;dialog querycon {
; title “Secure Query v2.12″
; size -1 -1 167 119
; option dbu
; button “ok”, 12, 70 104 25 10, default ok, flat
; tab “config”, 2, 2 1 163 115, flat
; edit “”, 3, 4 43 159 10, tab 2 autohs, flat
; text “standby message”, 13, 4 35 44 7, tab 2, flat
; edit “”, 4, 4 60 159 10, tab 2 autohs, flat
; check “enable”, 15, 11 83 32 10, tab 2, flat
; button “select sound”, 16, 45 83 37 10, tab 2, flat
; box “audible alert on query request”, 17, 8 75 80 22, tab 2, flat
; edit “”, 208, 109 79 15 9, tab 2, flat
; button “-”, 206, 101 81 5 5, tab 2, flat
; text “seconds”, 210, 135 80 20 7, tab 2, flat
; box “auto-close dialog”, 209, 95 71 63 30, tab 2, flat
; button “+”, 207, 126 81 5 5, tab 2, flat
; text “decline message”, 14, 4 53 44 7, tab 2, flat
; check “enable secure query”, 33, 11 20 66 10, tab 2, flat
; check “notify user has access”, 49, 92 20 66 10, tab 2, flat
; check “enable auto-close”, 50, 99 89 58 10, tab 2, flat
; box “”, 51, 7 15 154 18, tab 2, flat
; tab “log”, 11, flat
; list 34, 7 20 42 50, tab 11 sort size hsbar, flat
; button “remove”, 35, 7 73 29 8, tab 11, flat
; button “copy”, 39, 131 72 29 8, tab 11, flat
; check “log query requests”, 43, 7 95 58 10, tab 11, flat
; edit “”, 52, 86 84 74 10, tab 11 autohs, flat
; button “add access”, 53, 48 85 37 8, tab 11, flat
; edit “”, 64, 54 21 106 50, tab 11 read multi vsbar, flat
; button “remove all”, 65, 7 83 29 8, tab 11, flat
; tab “protection”, 32, flat
; radio “universal mask *!*@*”, 211, 15 42 62 12, tab 32, flat
; radio “host mask ignore”, 212, 15 56 62 9, tab 32, flat
; box “query flood ignore type”, 213, 11 34 70 34, tab 32, flat
; edit “”, 214, 87 54 10 10, tab 32, flat
; check “enable”, 219, 89 42 40 10, tab 32, flat
; box “query flood protection”, 216, 85 34 70 34, tab 32, flat
; edit “”, 217, 125 54 15 10, tab 32, flat
; text “queries in”, 215, 99 56 24 7, tab 32, flat
; text “secs”, 218, 141 55 17 7, tab 32, flat
; tab “access”, 40, flat
; list 41, 11 42 146 50, tab 40 sort size hsbar, flat
; button “remove”, 42, 12 96 37 8, disable tab 40, flat
; text “user access”, 44, 12 34 29 8, tab 40, flat
; edit “”, 45, 26 19 106 10, tab 40 autohs, flat
; button “add”, 46, 134 20 29 8, disable tab 40, flat
; text “address”, 47, 6 20 19 8, tab 40, flat
; tab “about”, 54, flat
; box “”, 55, 30 23 106 70, tab 54, flat
; text “author:”, 56, 60 31 17 8, tab 54, flat
; text “version”, 58, 60 42 17 8, tab 54, flat
; link “www.yuzukturk.com”, 59, 54 80 59 8, tab 54
; text “Regex”, 60, 84 31 22 8, tab 54
; text “v2.12″, 61, 84 42 14 8, tab 54
; text “It is important to keep your Team Nexgen addon’s updated. You will find them on our web site.”, 63, 34 55 97 20, tab 54
;}

on *:dialog:*:init:*:{
if ($dialog(querycon) == $dname) {
if ($_vr(querycon,switch) == on) { did -c querycon 33 }
elseif ($_vr(querycon,switch) == $null) { _vw querycon switch on | did -c querycon 33 }
if ($_vr(querycon,ignore.host) == $null) { _vw querycon ignore.host on | _vw querycon ignore.uni off }
if ($_vr(querycon,decline) == $null) { _vw querycon decline Kusura bakmayınız, şimdilik sizinle özelde konuşamayacağım.. }
if ($_vr(querycon,ignore.uni) == on) && ($_vr(querycon,ignore.host) == off) { did -c querycon 211 1 }
else did -c querycon 212 1
did -o querycon 3 1 $_vr(querycon,standby)
did -o querycon 4 1 $_vr(querycon,decline)
if ($_vr(querycon,soundswitch) == on) { did -c querycon 15 }
if ($_vr(querycon,timer) == $null) { _vw querycon timer 240 }
did -o querycon 208 1 $_vr(querycon,timer)
if ($_vr(querycon,max.query) == $null) { _vw querycon max.query 5 | did -o querycon 214 1 $_vr(querycon,max.query) }
else did -o querycon 214 1 $_vr(querycon,max.query)
if ($_vr(querycon,max.query.sec) == $null) { _vw querycon max.query.sec 20 | did -o querycon 217 1 $_vr(querycon,max.query.sec) }
else did -o querycon 217 1 $_vr(querycon,max.query.sec)
if ($_vr(querycon,netflood) == on) did -c querycon 219
else did -b querycon 211,217,212,214
if ($_vr(querycon,log) == on) { did -c querycon 43 }
elseif ($_vr(querycon,log) == $null) { _vw querycon log on | did -c querycon 43 }
if ($_vr(querycon,notifyaccess) == on) { did -c querycon 49 }
elseif ($_vr(querycon,notifyaccess) == $null) { _vw querycon notifyaccess on | did -c querycon 49 }
if ($_vr(querycon,auto-close) == on) { did -c querycon 50 }
did -b querycon 46,42
nick.list
s.levels
did -z querycon 34
}
if ($dialog($dname) == $_vr(querycon,query.nick)) {
if ($_vr(querycon,auto-close) == on) { %qs.nick = $_vr(querycon,query.nick) | .timer 1 $sq_t close.qw }
}
}
on *:dialog:querycon:edit:*:{
if ($did == 3) {
if ($did(querycon,3).text != $null) {
_vw querycon standby $did(querycon,3).text
}
}
if ($did == 4) {
if ($did(querycon,4).text != $null) {
_vw querycon decline $did(querycon,4).text
}
}
if ($did == 45) {
if ($did(querycon,45).text != $null) { did -e querycon 46 }
elseif ($did(querycon,45).text == $null) { did -b querycon 46 }
}
if ($did == 208) {
if ($did(querycon,208).text != $null) {
_vw querycon timer $did(querycon,208).text
}
}
if ($did == 214) {
if ($did(querycon,214).text != $null) {
_vw querycon max.query $did(querycon,214).text
}
}
if ($did == 217) {
if ($did(querycon,217).text != $null) {
_vw querycon max.query.sec $did(querycon,217).text
}
}
}

on *:dialog:*:sclick:*:{
if (Query request $dname == $dialog($dname).title) {
if ($did == 2) { secure.query }
if ($did == 3) {
auser -a securequery $did(30,$did(30)) $did(1,$did(1)) | did -b $did(1,$did(1)) 3
if ($_vr(querycon,notifyaccess) == on) { .msg $did(1,$did(1)) [otomatik msg] Özelde konusmak icin Yetkiniz var. }
}
if ($did == 27) { .ignore -pu180 $did(30,$did(30)) | .msg $did(1,$did(1)) $_vr(querycon,decline) | dialog -x $did(1,$did(1)) }
if ($did == 28) {
.ignore -r $did(30,$did(30)) | query $did(1,$did(1)) | .timer -m 1 1 echo $did(1,$did(1)) < $+ $did(1,$did(1)) $+ > $did(29,$did(29)) | _vrem querycon lastmsg
.msg $did(1,$did(1)) Özel Görüşmeye Kabul Edildiniz…
dialog -x $did(1,$did(1))
}
if ($did == 26) { .ignore -p $did(30,$did(30)) | dialog -x $did(1,$did(1)) }
if ($did == 31) {
if ($_vr(querycon,switch) != on) { _vw querycon switch on }
else { _vw querycon switch off }
}
}
if ($dialog(querycon) == $dname) {
if ($did == 15) {
if ($_vr(querycon,soundswitch) != on) { _vw querycon soundswitch on | did -c querycon 15 }
else { _vw querycon soundswitch off | did -u querycon 15 }
}
if ($did == 16) { setquerysound }
if ($did == 206) { if (%timer > 0) { dec %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer } }
if ($did == 207) { inc %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer }

if ($did == 39) { clipboard < $+ $did(34,$did(34).sel) $+ > $sr($did(34,$did(34).sel),msg) }
if ($did == 34) { did -r querycon 64 | did -a querycon 64 $chr(91) $+ $sr($did(34,$did(34).sel),date) $+ $chr(93) | did -a querycon 64 $crlf $sr($did(34,$did(34).sel),msg) | did -o querycon 52 1 $_vr(securequery,$did(34,$did(34).sel))) }
if ($did == 33) {
if ($_vr(querycon,switch) != on) { _vw querycon switch on | set %ozkab ON }
else { _vw querycon switch off | set %ozkab OFF }
}
if ($did == 35) { write -ds $+ $did(34,$did(34).sel) securequery\names.txt | _vrem securequery $did(34,$did(34).sel)) | .timer -m 1 1 nick.list }
if ($did == 41) { did -e querycon 42,46 | did -o querycon 45 1 $did(41,$did(41).sel)) }
if ($did == 42) { ruser $did(41,$did(41).sel) | s.levels }
if ($did == 43) {
if ($_vr(querycon,log) != on) { _vw querycon log on | did -c querycon 43 }
else { _vw querycon log off }
}
if ($did == 50) {
if ($_vr(querycon,auto-close) != on) { _vw querycon auto-close on | did -c querycon 50 }
else { _vw querycon auto-close off }
}
if ($did == 53) {
if ($did(querycon,52).text != $null) {
.auser -a securequery $did(querycon,52).text | did -r querycon 52
}
}
if ($did == 49) {
if ($_vr(querycon,notifyaccess) != on) { _vw querycon notifyaccess on | did -c querycon 49 }
else { _vw querycon notifyaccess off }
}
if ($did == 46) {
if ($did(querycon,45).text != $null) {
.auser -a securequery $did(querycon,45).text | did -r querycon 45 | s.levels
}
}
if ($did == 65) { .remove securequery\names.txt | .remove securequery\logs.ini | did -r querycon 64,34,52 }
if ($did == 211) {
if ($_vr(querycon,ignore.uni) == off) { _vw querycon ignore.uni on | _vw querycon ignore.host off | did -c querycon 211 | did -u querycon 212 }
else { _vw querycon ignore.uni off | _vw querycon ignore.host on | did -u querycon 211 | did -c querycon 212 }
}
if ($did == 212) {
if ($_vr(querycon,ignore.host) == off) { _vw querycon ignore.host on | _vw querycon ignore.uni off | did -c querycon 212 | did -u querycon 211 }
else { _vw querycon ignore.host off | _vw querycon ignore.uni on | did -u querycon 212 | did -c querycon 211 }
}
if ($did == 219) {
if ($_vr(querycon,netflood) == off) { _vw querycon netflood on | did -c querycon 219 | did -e querycon 211,217,212,214 }
else { _vw querycon netflood off | did -u querycon 219 | did -b querycon 211,217,212,214 }
}
}
}
alias -l sr {
if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini }
return $readini securequery\logs.ini $$1 $$2
}
alias -l sw {
if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini }
writeini securequery\logs.ini $$1 $$2 $$3-
}
alias -l srem {
if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini }
remini securequery\logs.ini $$1 $$2
}
on ^*:open:?: {
if ($_vr(querycon,switch) == $null) { _vw querycon switch on }
if ($finddir($mircdir\,securequery*,1) == $null) { mkdir securequery }
if ($_vr(querycon,netflood) != on) {
inc %upflood15 1
if (%upflood15 > $_vr(querycon,max.query)) {
if ($_vr(querycon,ignore.uni) == on) { .ignore -pu $+ $_vr(querycon,max.query.sec) *!*@* }
else { .ignore -pu $+ $_vr(querycon,max.query.sec) $wildsite }
echo -a 4[ ALERT ] $nick is Query Flooding. User ( $+ $wildsite $+ ) now ignored for $_vr(querycon,max.query.sec) secs.
}
.timer 1 60 unset %upflood15
}
if ($_vr(querycon,standby) == $null) { _vw querycon standby Özel Görüşmelerim kapalı. Görüşme isteğiniz değerlendirilecek. Lütfen bekleyiniz… %logo }
if ($level($address($nick,3)) == securequery) { goto end }
if ($_vr(querycon,switch) == on) {
if ($_vr(querycon,soundswitch) == on) { if ($_vr(querycon,sound) != $null) { splay $_vr(querycon,sound) } }
if ($_vr(querycon,log) == on) {
if ($read(securequery\names.txt, s, $nick) == $nick) { write -ds $+ $nick securequery\names.txt }
sw $nick date $asctime(h:nn:sstt m/d) | sw $nick msg $strip($1-,burc) | write securequery/names.txt $nick | _vw securequery $nick $wildsite | nick.list
}
.ignore -pu180 $wildsite
.msg $nick $_vr(querycon,standby)
_vw querycon query.nick $nick
if ($dialog($nick) == $null) { secure.query.nick }
dialog -t $_vr(querycon,query.nick) Query request $nick
did -o $nick 1 1 $_vr(querycon,query.nick)
did -o $nick 30 1 $wildsite
did -o $nick 29 1 $strip($1-,burc)
if ($_vr(querycon,switch) == on) { did -c $nick 31 }
haltdef
:end
}
}
alias -l secure.dir {
mkdir ” $+ $mircdirsecurequery $+ \ $+ ”
return securequery $+ \
}
alias -l sq_t {
return $_vr(querycon,timer)
}

alias -l nick.list {
if ($dialog(querycon) != $null) {
did -r querycon 64,34,52
var %fst = $lines(securequery\names.txt)
var %f = 1
while (%f <= %fst) { did -a querycon 34 $read(securequery\names.txt,%f) | inc %f 1 }
}
}
alias -l s.levels {
did -r querycon 41
var %s.l = $ulist(*,securequery,0)
if (%s.l == 0) { did -b querycon 42 | return }
else did -e querycon 42
var %s.w = 0
:loop
inc %s.w
if (%s.w <= %s.l) { did -a querycon 41 $ulist(*,securequery,%s.w) | goto loop }
else return
}
alias -l close.qw { if ($dialog(%qs.nick) != $null) dialog -x %qs.nick }
alias -l setquerysound {
_vw querycon sound $$dir=”Choose a wav:” $mircdir*.wav;*mp3;*.mid
}