IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu   Reklam Alanı


  IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu IF - mIRC Scripting Hazır Kodlar

Bizim mekan Reklam alanı

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Arama Stil
Alt 10 Haziran 2016, 19:32   #1
Gelme, burası çok derin.
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 581
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post MSG/AME Koruma Diyalogu

Kod:
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ı.





 immortaL isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
diyalogu, koruma, msg or ame

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



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:02.


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
IRCForumu - Sohbet - Bizim mekan
Copyright ©2005 - 2016 IRCForumu.Net | Tüm Hakları Saklıdır.