| immortaL | 23 Kasım 2016 18:12 |
/* Özel Kabul v0.9 '' YENİ '' */
Kod:
alias ozelkabul {
set %daws.nick $1
set %daws.address $2
set %daws.msg $3-
if ($dialog($1) != $null) { goto son }
dialog -m $1 zelkabul
:son
}
dialog zelkabul {
title "Dawson Ö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 (Dawson Özel Konuşma İsteği == $dialog(%daws.nick).title ) {
set %daws.dialog %daws.nick
did -a %daws.nick 1 %daws.nick
did -a %daws.nick 5 %daws.address
did -a %daws.nick 6 %daws.msg
}
}
on *:dialog:*:sclick:*:{
if (Dawson Özel Konuşma İsteği == $dialog($dialog($dialog(0))).title ) {
if ($did == 7) {
.window -w $dialog($dialog(0))
.msg $dialog($dialog(0)) -
.msg $dialog($dialog(0)) 12 Ozel Gorusme Istegini Kabul Ettim $nick Sana Nasil Yardim Edebilirim?
.timer 1 2 msg $dialog($dialog(0)) $ksc $dialog($dialog(0)) .. Buyrun?
.set %daws.gorusme. [ $+ [ $dialog($dialog(0)) ] ] ok
}
if ($did == 8) {
.msg $dialog($dialog(0)) 12 Ya da Cok Yogun ve Mesgulum. Lutfen Daha Sonra Tekrar geliniz.
.msg $dialog($dialog(0)) 0,12 OZEL GORUSME ISTEGINIZ RED EDILDI
.ignore -pu30 $dialog($dialog(0))
.closemsg $dialog($dialog(0))
}
}
}
on *:open:?:*:{
if ($nick == $me) { goto son }
if (%daws.gorusme. [ $+ [ $nick ] ] == $null) {
.ozelkabul $nick $address $1-
.msg $nick 12
.msg $nick 12
.msg $nick 12 $replace($duration($idle),secs,Saniye,mins,Dakika,hrs,Saat,day,Gün,wk,Hafta) Suredir Konusmuyorum
if ($server == irc.geveze.org) {
.msg $nick 12 lRC/Svs Hakkindaki Sorunlariniz icin /join #Help yaziniz
.msg $nick 12 -
.msg $nick 12 Server Hakkindaki Sorunlariniz icin /join #OperHelp yaziniz
}
.msg $nick
.msg $nick 12 Suanda Ozel Gorusme Istegini Degerlendiriyorum Lutfen Beklermisin
.msg $nick 12
if ($server == irc.geveze.org ) {
.msg $nick 0,12 #Geveze 0,2 Kanalini Muhabbet Kanali Olarak Kullanabilirsiniz.
.msg $nick 12
}
.msg $nick 0,4 Sadece Sohbet Icin Geldiyseniz Uyari : Bayan Degilim
.msg $nick 12
.msg $nick 4 Yogun Oldugundam Dolayi cevap veremeye ßilirim Lütfen anLayisla karsilayiniz
inc %q!
.window -h $nick
}
:son
}
on *:CLOSE:?:{
if (%daws.gorusme. [ $+ [ $target ] ] != $null) { unset %daws.gorusme. [ $+ [ $target ] ] }
}
|
