Özele Kabul/Red Remotesi,Addonu,Kodu,
#ozelkabul on
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 \”Ozel Konusma Istegi\”
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 (Ozel Konusma Istegi == $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 (Ozel Konusma Istegi == $dialog($dname).title ) {
if ($did == 7) {
.window -w $dname
.msg $dname 10 $Nick 1Özel Konusma isteginiz Kabul 1Edilmistir..
.set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if ($did == {
.msg $dname 10 $dname 1 Bnc OnLine.. Özel Konusma isteginiz Kabul 1Edilmedi..
.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 10 $nick 1 10[1Görüsme Talebi10]: 1Özel Görüsme Talebiniz Degerlendiriliyor. 1Lütfen, Bekleyiniz10!
.window -h $nick
:son
}
}
on *:CLOSE:?:{
if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
#ozelkabul end
-
MircALem.Gen.TR Bilginin Ekolü.
-
MircALem.Gen.TR mIRC'in Tek Adresi!.
Yukardaki sunduğumuz, sizin aradığınıza en yakın aramadır.
This entry was posted
on Perşembe, Mayıs 6th, 2010 at 19:17 and is filed under mIRC Hazır Kodlar.
You can subscribe via RSS 2.0 feed to this post's comments.
You can comment below, or link to this permanent URL from your own site.
Your comments will appear immediately, but I reserve the right to delete innapropriate comments.
