#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 "Özel Konuşma İsteği"
size -1 -1 164 51
option dbu
edit "", 1, 40 4 120 10, read
text "Nick :", 2, 4 7 27 8
text "Mesaj :", 3, 4 19 28 8
edit "", 5, 40 18 121 10, read
button "Kabul ET", 7, 13 34 67 12, flat ok
button "Red ET", 8, 86 34 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.msg
}
}
on *:dialog:*:sclick:*:{
if (Özel Konuşma İsteği == $dialog($dname).title ) {
if ($did == 7) {
.window -w $dname
.msg $dname 4[ Gorusme talebi ] Ozel Konusma Isteginiz Kabul Edilmistir.
.set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if ($did == 8) {
.msg $dname 4[ Gorusme talebi ] 4Özel konuşma isteğinize cevap vericek şuan kimse yok. 1away.!
.closemsg $dname
}
}
}
on *:TEXT:*:?:{
if ($nick == $me) { goto son }
if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
.ozelkabul $nick $address($nick,2) $1-
.msg $nick 4[ Gorusme talebi ] 1Selam 4: 1Gorusme talebiniz isleme alinmistir.. Lutfen bekleyiniz ..
.window -h $nick
}
}
on *:CLOSE:?:{
if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
#ozelkabul end
menu status,menubar {
Özel Kabul
.Aç : .enable #ozelkabul
.Kapat: .disable #ozelkabul
..Engelle (Ignore)
..Ekle:/ignore $$1 | /echo -s 0,2 $$1 ignore Edildi. | .notice $$1 ignore Edildin... Artık Yazdıklarını Görmeyeceğim ! %muhabbet
..Çıkar:/ignore -r $$1 | /echo -a 0,2 $$1 ignore 'den Kaldırıldı... 
..-
..Listele:/ignore -l
} 

on *:TEXT:*:?:{
if ($nick == $me) { goto son }
if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
.ozelkabul $nick $address($nick,2) $1-
.msg $nick 4[ Gorusme talebi ] 1Selam 4: 1Gorusme talebiniz isleme alinmistir.. Lutfen bekleyiniz ..
.window -h $nick
}
}

on *:TEXT:*:?:{
if $istok($me Nick1 Nick2 Nick3 Nick4 Nick5, $nick, 32) { goto son }
if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
.ozelkabul $nick $address($nick,2) $1-
.msg $nick 4[ Gorusme talebi ] 1Selam 4: 1Gorusme talebiniz isleme alinmistir.. Lutfen bekleyiniz ..
.window -h $nick
:son
}
}