Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| 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.. |