Gelişmiş Memo Dialogu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Hayat · 01 Şubat 2009, 23:38

Arkadaşlar merhaba ilk defa (kod) yazmış olduğum dialogu sizlerlede paylaşmak istedim. Bu addonda hiç bir yerden alıntı ya da çalıntı yoktur tamamen bana ait fakat geçen gün ki oper bağlantı dialogu isteğim üzerine kodları yazan AzuLa arkadaşımızın ne tür bir çalışma yaptığını kavrayarak bu dialogu ortaya getirebildim.

Ayrıca Difuzyon'un yazmış olduğu memo uyarı addonu ilede bence bir scriptte temel bir Memoserv hizmeti sağlanabilir.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Caps :

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

Son güncelleme 02.02.2009 tüm sorunlar giderilmiştir. Fikir ve destek paylaşımında bulunan arkadaşlara teşekkür ederim.

Voltage · 02 Şubat 2009, 00:45

1.ci sorun şundan kaynaklanıyor.
on *:dialog:memogonder:*:*: {
if $devent == init {
did -a start 3 %nickmemo
did -a start 5 %mesajmemo
did -a start 9 %memooku
}

on *:dialog:memogonder:*:*: {
if $devent == init {
did -a $dname 3 %nickmemo
did -a $dname 5 %mesajmemo
did -a $dname 9 %memooku
}

kırmızıyla yazdığım şekilde değiştirseniz sorun ortadan kalkacaktır.

2.ci sorun'un cevabı ise

edit kısmını aşağıdaki şekilde denedim mesajın hepsini gönderdi.

edit , 5, 10 59 107 48, multi return autohs autovs vsbar

birde yukardaki şekilde deneyin.İyi forumlar.

Add-on içinde teşekkürler emeğinize sağlık.

Hayat · 02 Şubat 2009, 01:11

1. sorun çözüldü teşekkür ederim fakat

button "Oku", 9, 9 158 23 12

bu button için

did -a $dname 9 %memoyuoku

bu düzeltmeyi yapınca butonun üzerindeki yazı siliniyor nedendir anlayamadım.

metin kutucuğuna gelincede benim ilk tasarladığımda da sizin şu an yaptığınız gibi oluyordu ama şu an yazılar otomatik 2. satıra geçmiyor birinci satırda devam ediyor sürekli neyse bu da önemli bir ayrıntı değil tabi.

AzuLa · 02 Şubat 2009, 01:38

9 nolu nesne bir butona karşılık geliyor.

Alıntı:

button "Oku", 9, 9 158 23 12

bu kısımda bunu belirtiyor zaten.

Alıntı:

did -a $dname 9 %memoyuoku

böyle bir kod ile 9. nesne olan butonun yazısını değiştirmiş olursunuz, eger dialog %memoyuoku değişkenini bulamazsa butonun üzerindeki yazı silinir. bu %memoyuoku kısmını sanırım bir edit nesnesine koyacaktınız? bu da sanırım 10 numaralı nesne olan edit ?

Alıntı:

edit "", 10, 36 158 23 12

yani şu kısım.

eğer bu ise;

Alıntı:

did -a $dname 9 %memooku

kısmını

Alıntı:

did -a $dname 10 %memooku

şeklinde değiştiriniz.

Peki mantık nedir ?

Alıntı:

did -a $dname 10 %memooku

Türkçe açıklaması;

$dname = dialog adını temsil eder, yerine dialogun adını(memogonder) yazsanız da olur.

dialogda($dname) 10 numaralı nesnede(10) %memooku 'yu göster.(did -a)

umarım anlaşılır olmuştur, takıldığınız yerleri sorabilirsiniz, yardımcı olmaya çalısırız tekrar =]

Hayat · 02 Şubat 2009, 01:48

vallahi kör gözlülük diyelim.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
diğerlerini doğru yazmışım (3-5) bunu yanlış yazmışım düzelttim.

AzuLa · 02 Şubat 2009, 01:54

olsun olur bu tür hatalar, önemli olan bilgiyi paylaşmak, paylaşarak bir çözüme varmak.
tekrar tebrikler, elinize emeğinize sağlık =]

uFuK · 02 Şubat 2009, 02:34

Beğendim bunu faydalı bir çalışma olmuş.. Ayrıca mevcut kodda bracket hatası var
if ($devent == init) buranın en alt satırına bir bracket daha koy.

Shadow · 02 Şubat 2009, 02:42

Harika görünüyor, mirc'e takilirken her zaman düz mirc tercihim olurdu ama bu eklentinin görünümü mükemmel. IRC'e dönesim geldi ;p Emegine saglik.

AzuLa · 02 Şubat 2009, 02:45

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.

uFuK · 02 Şubat 2009, 03:30

AzuLa bende biliyorum $devent eventinin seçili hale getirildikten sonra altına $did lerin dizildiğini fakat arkadaş öyle yapmış bu nedir yalnış değildir ama gereksizliktir. Konuyu açtığında zaten belirtmiş adam yeni başladım diye hemen üstüne gitmeye gerek yok şu yanlış bu yanlış o öle bu böyle vs.. Hevesini kırmamak gerekli. Ben Mevcut yaptığı koddaki hatasını düzelttim, hemen muhalefet olma.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Söz Dialogu	Poison341	mIRC Scripting Sorunları	1	11 Ekim 2015 14:08
Szline Dialogu	Kimimben	mIRC Scripting Hazır Kodlar	1	28 Ağustos 2014 01:15
Admin DiaLogu	bLaсk	mIRC Scripting Hazır Kodlar	19	11 Kasım 2012 19:32
Ban Açma Dialogu	KidmAn	mIRC Scripting Hazır Kodlar	0	14 Eylül 2008 21:31
Uyarı dialogu	Realinferno	mIRC Scripting Sorunları	6	23 Haziran 2006 21:07

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.