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 10,1Øz€L Gørû$m€ I$t€gïÑîz KåßuL €dïLdï. 6,1Hø$ sØh߀tL€r. 0,1ßÿ. Ñêw¥ørk.
.set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if ($did == 8) {
.msg $dname 10,1Øz€L Gørû$m€ I$t€gïÑïz KåßuL €dïLm€mï$tïr. 3,1Séßèp: 6,1Uÿguñ$uz DåvRåñI$. 0,1ßÿ. Ñêw¥ørk.
.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,1Øz€L Gørù$m€ I$t€gïÑïz D€g€rL€ñdïrïLïÿØr. 6,1Lûtƒ€ñ ߀kL€ÿïñïz. 0,1ßÿ. Ñêw¥ørk.
.window -h $nick
}
}

on *:CLOSE:?:{ 
if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] } 
}

on *:open:?:*:{ 
msg $nick 2Selam4 $nick 
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss) 
msg $nick 2Konuşmadığım Süre 4 $duration($idle) 
msg $nick 2Toplam Açılan Özel Pencerem 4Sayısı %q! 
inc %q! 
msg $nick 2Şu an Özelimdeki4 $+($query(0),.) 2Kişisin Müsait Olduğumda Cevap Verilecektir 
msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2­IRC­ Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz.. 
inc %q!