IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Query Blocker (Özel Kabul) Add-on'u (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/169481-query-blocker-ozel-kabul-add-onu.html)

Cevap: Query Blocker (Özel Kabul) Add-on'u

eline sağlık Halil abi her zaman ki gibi süperSin ...

Cevap: Query Blocker (Özel Kabul) Add-on'u

bişe daha isticem ama çok olmuş olucam heralde xD
vip listesinde olan birisini eklemeye çalışınca "bu nick zaten vip listesinde" gibi bir uyarı wersin. + listede olmayan birisini silmeye çalışınca da "bu nick vip listenizde değil" gibi uyarsın. yani notify deki gibi.. simdiden kolay gelsin :)

Cevap: Query Blocker (Özel Kabul) Add-on'u

Kullandığım Kişisel Scriptime Kurdum.Gerçektende Çok Beğendim :) Eline Sağlık Kardeşim..

Cevap: Query Blocker (Özel Kabul) Add-on'u

şu linke bir el atan yokmu?

Cevap: Query Blocker (Özel Kabul) Add-on'u

linki yeniliyebilecek bir arkadaş yok'mu ?

Cevap: Query Blocker (Özel Kabul) Add-on'u

Alıntı:

XcLusive Nickli Üyeden Alıntı (Mesaj 618718)

load bölümünün hatası.
add-on'u tekrar download et ve yüklemeyi dene eğer gene aynı hatayı verirse,

Kod:

n33=on *:load:{

n34=  writeini $shortfn($scriptdir\qblock.ini) wmsg Lütfen Bekleyiniz Özel Görüşme İsteğiniz Değerlendiriliyor...

n35=  writeini $shortfn($scriptdir\qblock.ini) amsg Özel Görüşme İsteğiniz Kabul Edildi...

n36=  writeini $shortfn($scriptdir\qblock.ini) rmsg Özel Görüşme İsteğiniz Red Edildi...

n37=  set %qblock on | set %qdialog yes | set %qblst.vip XcLusive | qblock

n38=}

satırlarını

Kod:

n33=on *:load:{

n34=  ;writeini $shortfn($scriptdir\qblock.ini) wmsg Lütfen Bekleyiniz Özel Görüşme İsteğiniz Değerlendiriliyor...

n35=  ;writeini $shortfn($scriptdir\qblock.ini) amsg Özel Görüşme İsteğiniz Kabul Edildi...

n36=  ;writeini $shortfn($scriptdir\qblock.ini) rmsg Özel Görüşme İsteğiniz Red Edildi...

n37=  set %qblock on | set %qdialog yes | set %qblst.vip XcLusive | qblock

n38=}

 

olarak değiştir kaydet ve tekrar load et.

hatayı düzeltemedim

/dll: Açılamıyor 'C:\Documents' (Satır 45, qblock.ini)

addonsuz temiz bir exe yi yeni klasöre koydum, qblock klasörünü için koydum
qbock klasörünü mırc ana dizinine attım. Verdiğiniz komut ile komut satırından yükledim aynı hatayı aldım.
yorumunuzdaki , satırları dediniz şekilde düzelttim ama hala aynı hatayı alıyorum.
mirc verisiyonum 6,21

Cevap: Query Blocker (Özel Kabul) Add-on'u

alias ozelkabul {
set %ozelkabul.nick $1
set %ozelkabul.address $2
set %ozelkabul.msg $3-
if ($dialog($1) != $null) { goto son }
dialog -m $1 ozelkabul
:son
}
dialog ozelkabul {
title "Özel Konuşma İsteği"
size -1 -1 164 61
option dbu
edit "", 1, 40 4 120 10, read
text "Nick :", 2, 4 7 27 8
text "Adres :", 3, 4 19 28 8
text "Mesaj :", 4, 4 31 28 8
edit "", 5, 40 18 121 10, read
edit "", 6, 40 30 121 10, read
button "Kabul ET", 7, 13 44 67 12, flat ok
button "Red ET", 8, 86 44 66 12, flat cancel
}
on *:dialog:*:init:*:{
if (Özel Konuşma İsteği == $dialog($dname).title ) {
set %ozelkabul.dialog $dname
did -a $dname 1 %ozelkabul.nick
did -a $dname 5 %ozelkabul.address
did -a $dname 6 %ozelkabul.msg
}
}
on *:dialog:*:sclick:*:{
if (Özel Konuşma İsteği == $dialog($dname).title ) {
if ($did == 7) {
.window -w $dname
.msg $dname 3,9/9,3\1,3/3,1\9,19,1 15,2 ÔzeL ~ Gørûşme ~ Ïstegïnïz 11,1 ® 15,2 KaßuL Edïlmïştïr 11,1 || 8,2 $$me 11,1 || 3,1/1,3\9,3/3,9\0,9
.set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if ($did == 8) {
.msg $dname 3,9/9,3\1,3/3,1\ 0,4 R € D ! ® 8,5 Kurállárá ~ U ÿmámák ~ Uygunsuz ~ Davranış ! 11,1 || 8,2 $$me 11,1 || 3,1/1,3\9,3/3,9\0,9
.ignore -pu300 $dname
.closemsg $dname
}
}
}
on *:TEXT:*:?:{
if ($nick == $me) { goto son }
if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
.ozelkabul $nick $address($nick,2) $1-
.msg $nick 3,9/9,3\1,3/3,1\9,1 15 11,1 ØzeL ~ Görüşme ~ Ïçin 11,1 ® 11,1 Lûtƒen ~ ßekleyïniz 11,1 || 8,2 $$me 11,1 || 3,1/1,3\9,3/3,9\0,93,9\0,9
.window -h $nick
}
}
on *:CLOSE:?:{
if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
menu status,query,channel,nicklist,menubar {
-
Ozel sistem
.Aç:.enable #ozelkabul| echo -a 4,1Özel Sistem :4,1 Açık
.Kapa:.disable #ozelkabul | echo -a 4,1Özel Sistem :4,1 Kapalı
-
}
}

Bunuda deneyebilirsiniz..Özel kabul /Red Addonu

alt r yapıp remoteye eklediğinde çalışacaktır..