özeL KabuL Red Addonu

#ozelkabul onalias ozelkabul {set %ozelkabul.nick $1set %ozelkabul.address $2set %ozelkabul.msg $3-if ($dialog($1) != $null) { goto son }dialog -m $1 ozelkabul:son}dialog ozelkabul {title \\"Ozel Konusma Istegi\\"size -1 -1 164 61option dbuedit \\"\\", 1, 40 4 120 10, readtext \\"Nick :\\", 2, 4 7 27 8text \\"Adres :\\", 3, 4 19 28 8text \\"Mesaj :\\", 4, 4 31 28 8edit \\"\\", 5, 40 18 121 10, readedit \\"\\", 6, 40 30 121 10, readbutton \\"Kabul ET\\", 7, 13 44 67 12, flat okbutton \\"Red ET\\", 8, 86 44 66 12, flat cancel}on *:dialog:*:init:*:{if (Ozel Konusma Istegi == $dialog($dname).title ) {set %ozelkabul.dialog $dnamedid -a $dname 1 %ozelkabul.nickdid -a $dname 5 %ozelkabul.addressdid -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 == 8) {.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