Gelismis memo dialogu

Caps : Alıntı: #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. } } } icon satırına dikkat ediniz lütfen bold ile işaretledim kaynak dosyayı bulamazsa dialog açılmaz. Teşekkürler.