| Cevap: Gelişmiş Memo Dialogu
Bracket hatası orada değil, init kısmı normal; bracket hatası sclick'i sürekli tekrarlamasından kaynaklanıyor; kod düzenlediğinde brackets'lar artıyor bile =]
kod'un düzenlenmiş hali;
Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:dialog:memogonder:*:*: {
if $devent == init {
did -a $dname 3 %nickmemo
did -a $dname 5 %mesajmemo
did -a $dname 10 %memoyuoku
}
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 == 18 {
.ms help
.echo -a 4«««« Uyarı : 14MemoServ ile ilgili yardım konuları statüste listelenmiştir. Lütfen statüse bakınız.
}
}
}
şeklinde oluyor. Bu arada Hayat arkadaşım bu kadar sclick eventi kullanmanıza gerek yok; 1 kere açtıktan sonra tüm sclick'leri sıralarsınız, tekrar tekrar açmanıza gerek kalmaz. Örneğin şu kısım gibi; koddan alıntı yaptım sadece;
Kod: Kodu kopyalamak için üzerine çift tıklayın! 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.
}
diğer $did 'leri de altına sıralayabilirsiniz. bu arada sürekli brackets kontrolu yapın ki eksiklik ya da fazlalık olmasın, aksi takdirde kod hata verebilir ya da çalışmayabilir.
Konu AzuLa tarafından (02 Şubat 2009 Saat 03:05 ) değiştirilmiştir.
Sebep: teknik düzenleme.
|