IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 10 Haziran 2016, 19:32   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
MSG/AME Koruma Diyalogu


Reklam

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ı - Script »" 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 }


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.

Alıntı.
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ı - Script »" 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 }


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.

Alıntı.
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
diyalogu, koruma, msg or ame
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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 Açık
Pingbacks are Açık
Refbacks are Açık