Gelişmiş Memo Dialogu

#Bu sistem Hayat tarafından 02.02.2009 tarihinde kodlanmıştır. Yardım ve emeği geçen herkese teşekkürler.
alias memogonder { dialog -m memogonder memogonder | echo -a 4«««« Uyarı : 14MemoServ Kanal ve Nick mesaj gönderimi, okuma, silme ve diğer ayarları menüsü başlatılmıştır. }
dialog memogonder {
title “Sevilir Oper Script Memo İşlemleri”
size -1 -1 130 280
option dbu
text “Mesaj Gönderilecek Nick Giriniz”, 1, 11 13 77 8
box “Nicke Memo Gönderme”, 2, 5 3 120 85
edit “”, 3, 10 23 107 11
text “Mesajınızı buraya yazınız”, 4, 11 39 78 8
edit , 5, 10 49 107 15, multi return autohs autovs
button “Gönder”, 6, 11 70 50 12
button “İptal”, 7, 66 70 50 12
icon 20, 102 10 12 11,$mircdirRemote/startpen/mirc.ico
box “Okuma Silme – Kutucuklara Memo No Girin!”, 8, 5 90 120 30
button “Oku”, 9, 9 102 23 12
edit “”, 10, 36 102 23 12, multi return autohs autovs
edit “”, 11, 94 102 23 12, multi return autohs autovs
button “Sil”, 12, 68 102 23 12
box “Kanala Memo Gönderme”, 22, 5 120 120 80
text “Mesaj Gönderilecek Kanal İsmini Giriniz”, 21, 11 130 93 8
edit “#”, 23, 10 140 107 11
text “Mesajınızı buraya yazınız”, 24, 11 155 78 8
edit , 55, 10 165 107 15, multi return autohs autovs
button “Gönder”, 26, 11 185 50 12
button “İptal”, 27, 66 185 50 12
icon 28, 102 126 12 11,$mircdirRemote/startpen/mirc.ico
box “Kutucuklara Memo No ve Kanal Adı Girin!”, 29, 5 202 120 30
button “Oku”, 30, 9 215 13 12
edit “#”, 31, 24 215 19 12, multi return autohs autovs
edit “no”, 32, 45 215 19 12, multi return autohs autovs
edit “#”, 34, 82 215 19 12, multi return autohs autovs
edit “no”, 35, 102 215 19 12, multi return autohs autovs
button “Sil”, 33, 67 215 13 12
box “Nickinize Özel Diğer Memo İşlemleri”, 14, 5 234 120 40
button “Mesajları Listele”, 15, 10 245 47 10
button “Son Gelen Mesajınız”, 16, 61 245 58 10
button “Tümünü Sil!”, 17, 10 258 34 10
button “Yardım”, 18, 87 258 32 10
button “Bilgi”, 19, 50 258 32 10
}
on *:dialog:memogonder:*:*: {
if $devent == init {
did -a $dname 3 %nickmemo
did -a $dname 5 %mesajmemo
did -a $dname 10 %memoyuoku
did -a $dname 23 %kanalmemo
did -a $dname 55 %kanalmesajmemo
did -a $dname 31 %kanaladımemooku
did -a $dname 32 %kanalmemookuno
did -a $dname 34 %kanaladımemosil
did -a $dname 35 %kanalmemosilno
}
if $devent == sclick {
if $did == 6 {
.ms send $did(3) $did(5)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Memo mesajınız belirttiğiniz nicke yollanmıştır. Ayrıntılı bilgi için statüse bakınız.
.dialog -x memogonder memogonder
}
if $did == 7 {
.echo -a 4«««« Uyarı : 14İsteğiniz üzerine memo (özel mesaj) gönderimi iptal edildi.
.dialog -x memogonder memogonder
}
if $did == 12 {
.ms del $did(11)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Belirttiğiniz numaralı Memo mesajınız silinmiştir. Ayrıntılar için statüse bakabilirsiniz.
}
if $did == 9 {
.ms read $did(10)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Belirttiğiniz numaralı Memo mesajınız. Not mesajınızı statüste okuyabilirsiniz.
}
if $did == 15 {
.ms list
.echo -a 4«««« Uyarı : 14Tüm mesajlarınız statuste listeleniyor, lütfen statüse göz atın.
}
if $did == 16 {
.ms read last
.echo -a 4«««« Uyarı : 14Son gelen mesajınız listelendi lütfen statüse bakınız.
}
if $did == 17 {
.ms del all
.echo -a 4«««« Uyarı : 14Mesaj kutunuzdaki tüm mesajlarınız kalıcı olarak silinmiştir. Ayrıntılar için lütfen statüse bakınız.
}
if $did == 19 {
.ms info
.echo -a 4«««« Uyarı : 14Kayıtlı nickinize ait mesaj kutunuzun özellikleri statüste listelenmiştir.
}
if $did == 26 {
.ms send $did(23) $did(55)
.echo -a 4«««« Uyarı : 14Teşekkür ederiz Memo mesajınız belirttiğiniz Kanala yollanmıştır. Ayrıntılı bilgi için statüse bakınız.
.dialog -x memogonder memogonder
}
if $did == 27 {
.echo -a 4«««« Uyarı : 14İsteğiniz üzerine memo (Kanal mesaj) gönderimi iptal edildi.
.dialog -x memogonder memogonder
}
if $did == 33 {
.ms del $did(34) $did(35)
.echo -a 4«««« Uyarı : 14İsteğiniz üzerine memo belirlediğiniz numaralı Kanal mesajı silinmiştir. Lütfen statüse bakınız.
}
if $did == 30 {
.ms read $did(31) $did(32)
.echo -a 4«««« Uyarı : 14İsteğiniz üzerine memo belirlediğiniz numaralı Kanal mesajı listelenmiştir. Lütfen statüse bakınız.
}
if $did == 18 {
.ms help
.echo -a 4«««« Uyarı : 14MemoServ ile ilgili yardım konuları statüste listelenmiştir. Lütfen statüse bakınız.
}
}
}