IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

17Beğeni(ler)
  • 5 Post By R3dLine
  • 2 Post By Goemon
  • 1 Post By hummm
  • 2 Post By SuLh
  • 2 Post By diE
  • 1 Post By R3dLine
  • 1 Post By kimleronline
  • 1 Post By Soğuk
  • 1 Post By Set
  • 1 Post By R3dLine

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 09 Mart 2016, 17:04   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
MSG/AME Koruma Diyalogu




Yaklaşık 7 Gündür Üzerinde Çalışmış oldugum Kodlama Yollarını Araştırarak Renk Li Ame/AMSG Diyalog Sistemini bitrip Paylaşıma Sunmak istedim

Beğenmeniz Dileği ile inşallah Yapabilmişimdir

Arkadaşlar Script Klasörünüzün İçinde Dll Klasörü Varsa İçine mdx.dll yi Attığınızda Diyalog Gayet Sağlıklı Çalışacaktır.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias mdx dll dll\mdx.dll $1- menu menubar,status,channel,query { MSG/AME Menüsü:amen } alias amen { if $dialog(amen) { !echo -a 10MSG/AME Koruma Menüsü 2Zaten 3AÇIK! } | else { !dialog -m amen amen } } dialog amen { title "« Ame - Amsg Koruması - R3dLine »" size -1 -1 183 123 option dbu tab "Ame", 1, 3 2 119 99 combo 3, 10 28 60 68, tab 1 size button "Ekle", 4, 78 28 37 12, tab 1 button "SiL", 5, 78 48 37 12, tab 1 tab "Amsg", 2 combo 6, 10 28 60 68, tab 2 size button "Ekle", 7, 78 28 37 12, tab 2 button "SiL", 8, 78 48 37 12, tab 2 box "#Kanal Şeklinde Ekleyebilirsiniz", 9, 6 18 112 80 box "RenkLeR", 10, 125 2 53 120 combo 11, 130 12 42 110, size vsbar drop button "Kapat", 12, 80 105 30 15, ok cancel } alias ame { var %_ = 1 while $chan(%_) { if !$istok(%muafame,$v1,32) { describe $chan(%_) $1- } inc %_ } } alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if $istok(%muafamsg,$chan(%i),32) != $true { msg $chan(%i) $1- } } } on *:dialog:amen:init:*:{ if (%muafame) .didtok $dname 3 32 $ifmatch if (%muafamsg) .didtok $dname 6 32 $ifmatch mdx MarkDialog $dname mdx SetDialog $dname bgcolor $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetColor $dname 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1,24,21,27,20 text $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetColor $dname 10,35,23 text $rgb(0,69,111) mdx SetColor $dname 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27,24 textbg $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetColor $dname 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetColor $dname 9,10 background $iif(%renklerim,%renklerim,$rgb(102,177,147)) mdx SetFont $dname 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27,24,34,25 +b Turkish 13 800 Candara mdx SetFont $dname 5,9,11,15,36,38 +b Turkish 13 800 Candara mdx SetDialog $dname style title tool sysmenu did -a $dname 11 Renk1 did -a $dname 11 Renk2 did -a $dname 11 Renk3 did -a $dname 11 Renk4 did -a $dname 11 Renk5 did -a $dname 11 Renk6 did -a $dname 11 Renk7 did -a $dname 11 Renk8 did -a $dname 11 Renk9 did -a $dname 11 Renk10 did -a $dname 11 Renk11 did -a $dname 11 Renk12 did -a $dname 11 Renk13 did -a $dname 11 Renk14 did -a $dname 11 Renk15 } on *:dialog:amen:sclick:*: { ;ame icin muafiyet if ($did == 4) { if ($did(3) != $null) { set -u %sk $did(3) | if (%sk) && (!$istok(%muafame,%sk,32)) { .set %muafame $addtok(%muafame,%sk,32) | did -a $dname 3 %sk } } } if ($did == 5) { if ($did(3).sel > 0) { .set %muafame $remtok(%muafame,$did(3).seltext,1,32) | did -d $dname 3 $did(3).sel | did -c $dname 3 1 } } ;amsg icin muafiyet if ($did == 7) { if ($did(6) != $null) { set -u %sk $did(6) | if (%sk) && (!$istok(%muafamsg,%sk,32)) { .set %muafamsg $addtok(%muafamsg,%sk,32) | did -a $dname 6 %sk } } } if ($did == 8) { if ($did(6).sel > 0) { .set %muafamsg $remtok(%muafamsg,$did(6).seltext,1,32) | did -d $dname 6 $did(6).sel | did -c $dname 6 1 } } ;renkler if $did == 11 && $regex($did(11).text,/^Renk1$/) { set %renklerim $rgb(102,177,147) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk2$/) { set %renklerim $rgb(216,222,225) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk3$/) { set %renklerim $rgb(201,138,201) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk4$/) { set %renklerim $rgb(243,192,189) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk5$/) { set %renklerim $rgb(165,141,0) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk6$/) { set %renklerim $rgb(255,36,255) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk7$/) { set %renklerim $rgb(9,165,249) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk8$/) { set %renklerim $rgb(9,165,111) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk9$/) { set %renklerim $rgb(81,219,255) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk10$/) { set %renklerim $rgb(255,183,102) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk11$/) { set %renklerim $rgb(255,0,0) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk12$/) { set %renklerim $rgb(255,255,255) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk13$/) { set %renklerim $rgb(255,255,0) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk14$/) { set %renklerim $rgb(162,162,150) | renklendir } elseif $did(11) && $regex($did(11).text,/^Renk15$/) { set %renklerim $rgb(0,204,198) | renklendir } } alias renklendir { mdx MarkDialog amen mdx SetDialog amen bgcolor %renklerim mdx SetColor amen 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1 text $rgb(0,0,100) mdx SetColor amen 10,35,23 text $rgb(0,69,111) mdx SetColor amen 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27 textbg %renklerim mdx SetColor amen 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background %renklerim mdx SetColor $dname 9,10 background %renklerim mdx SetFont amen 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27 +b Turkish 13 800 Candara mdx SetFont amen 5,9,11,15,36,38 +b Turkish 13 800 Candara mdx SetDialog amen style title tool sysmenu }


Burdan İndir Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.

Konu SuLh tarafından (09 Mart 2016 Saat 20:06 ) değiştirilmiştir. Sebep: Update.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 09 Mart 2016, 18:29   #2
Goemon
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Eline Sağlık Dostum

 
Alıntı ile Cevapla

Alt 09 Mart 2016, 18:47   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




Redline eline sağlık devamını bekliyoruz senden
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 09 Mart 2016, 19:37   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




Emeğine sağlık, bu kategoride yeni birilerini görmek çok güzel.

 
Alıntı ile Cevapla

Alt 09 Mart 2016, 19:37   #5
Çevrimdışı
diE
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




Eline sağLık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Seni Paylaşım Yaparken Görmek Güzel : ) İnşallah Devamı Gelir. Başarılarının Devamını Dilerim..

 
Alıntı ile Cevapla

Alt 09 Mart 2016, 19:38   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




Saolun Arkadaşlar Bir Hatam Var ise Af Ola Elimden Geldiğince Araştırma Yaparak Kodlamalar Yapıyorum

 
Alıntı ile Cevapla

Alt 09 Mart 2016, 19:46   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




Ellerine saglık agam. Paylasımlarının devamını bekliyor olacagız
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 09 Mart 2016, 21:50   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




ßaşarılarının Devaminı dilerim R3dLine son olmaması dileğiyle

 
Alıntı ile Cevapla

Alt 09 Mart 2016, 22:17   #9
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




Hadi hayirli'si , devam'inida görücez inş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 09 Mart 2016, 22:19   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: MSG/AME Koruma Diyalogu




Eyw @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Saol
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
ame, ame koruması, koruması, msg, msg koruması


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Teşekkür diyalogu Poison341 mIRC Scripting Sorunları 2 03 Ekim 2015 17:29
Kanallar Diyalogu aLone mIRC Scripting Hazır Kodlar 0 16 Eylül 2014 15:40
Baba-Kız Diyalogu Flevour Komedi ve Mizah 0 26 Eylül 2012 16:46
Bağlantı Diyalogu McKruGer mIRC Scripting Hazır Kodlar 7 12 Eylül 2009 20:40
Sivrisineklerîn Diyalogu Hasan Komedi ve Mizah 0 30 Mayıs 2006 14:05