Özel kabul addonu

#ozelkabul offalias 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 "Özel Konuşma ısteği"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 (Özel Konuşma ısteği == $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 (Özel Konuşma ısteği == $dialog($dname).title ) {if ($did == 7) {.window -w $dname.msg $dname Özel Konuşma ısteğiniz Kabul Edilmiştir..set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok}if ($did == 8) {.msg $dname Özel Konuşma ısteğiniz ReddediLdi .!.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  Mesajınız Başarıyla iletilmiştir, Lütfen Cevap Vermem için  Bekleyiniz.}}on *:CLOSE:?:{if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }}#ozelkabul endmenu channel,status,menubar,query {Özel Kabul Sistemi.Aç : .enable #ozelkabul.Kapat: .disable #ozelkabul}

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir