IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Tekil Mesaj gösterimi

тєαм · 26 Mayıs 2007, 01:07

Ne zaman hatırlamıyorum ne desem yalan olur, eskiden bir forumdan almıştım bu korumayı sadece reklam koruması olarak almıştım ve ardından küfür korumasıda yaparak iki dialog haline getirdim

işte küfür koruması;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;Küfür Koruması 
dialog kufur { 
  title "Mavisim Script Küfür Koruması" 
  size -1 -1 174 118 
  option dbu 
  combo 1, 113 11 50 50, sort size edit vsbar 
  text "Küfür Listesi", 2, 120 2 36 8 
  button "Ekle", 3, 114 63 23 11 
  button "Çıkar", 4, 140 63 23 11 
  box "Küfür Koruması", 5, 9 13 99 50 
  button "Aç", 6, 18 26 37 12 
  button "Kapat", 7, 62 26 37 12 
  edit "", 8, 45 48 50 10, read 
  text "Durum", 9, 24 48 21 8 
  text "Kick Sebebiniz", 10, 9 83 41 8 
  edit "", 11, 51 82 121 10, autohs 
  button "Kaydet Ve Çık", 12, 33 100 47 12, ok 
  button "İptal", 13, 91 100 47 12, cancel 
  check "Özele Küfür", 14, 12 65 45 10 
  check "Kanala Küfür", 15, 58 65 46 10 
} 
on *:dialog:kufur:*:*:{ 
  if ($devent == init) { 
    did -a $dname 11 %kufursebep 
    did -a $dname 8 %kufurdurum 
    if (%kufurdurum == kapalı) { did -b $dname 14 | did -b $dname 15 }    
    if ($group(#ozkufur) == on) { did -c $dname 14 } 
    if ($group(#kufur) == on) { did -c $dname 15 }    
    mdx SetMircVersion $Version 
    mdx MarkDialog $dname 
    mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 11 700 Tahoma 
    mdx SetColor 11 BackGround $rgb(16,13,130) 
    mdx SetColor 11 textbg $rgb(16,13,130) 
    mdx SetColor 11 text $rgb(255,255,255) 
    mdx SetColor 2,10,9 text $rgb(16,13,130)    
    var %i $lines(kufurler.txt) 
    while (%i > 0) { 
      did -a $dname 1 $read(kufurler.txt,%i) 
      dec %i 
    } 
  } 
  if ($devent == sclick) { 
    if ($did == 12) { set %kufursebep $did(11) }    
    if ($did == 6) { .enable #kufur | .enable #ozkufur | set %kufurdurum Açık | set %kufursebep $did(11) | dialog -x Kufur Kufur | dialog -m Kufur Kufur } 
    if ($did == 7) { .disable #kufur | .disable #ozkufur | did -b $dname 14 | did -b $dname 15 | set %Kufurdurum Kapalı | set %Kufursebep $did(11) | dialog -x Kufur Kufur | dialog -m Kufur Kufur } 
    if ($did == 3) { write Kufurler.txt $did(1) | did -a $dname 1 $read(Kufurler.txt,$lines(Kufurler.txt))  } 
    if ($did == 4) { write $+(-ds,$did(1).seltext) Kufurler.txt $did(1).seltext | did -d $dname 1 $did(1).sel  }    
    if ($did == 14) { if ($did(14).state == 1) { .enable #ozKufur } | else { .disable #ozKufur } } 
    if ($did == 15) { if ($did(15).state == 1) { .enable #Kufur } | else { .disable #Kufur } } 
  } 
} 
 
#Kufur off
on *:TEXT:*:?:{ 
  var %i $lines(Kufurler.txt) 
  while (%i > 0) { 
    if ($read(Kufur.txt,%i) iswm $1-) { 
      var %k $comchan($nick,0) 
      while (%k > 0) { 
        if ($nick !isop $comchan($nick,%k)) { banla $comchan($nick,%k) | kick $comchan($nick,%k) $nick %ozKufursebep } 
        dec %k 
      } 
    } 
    dec %i 
  } 
} 
#Kufur end 
#ozKufur off
on *:TEXT:*:?:{ 
  var %i $lines(Kufurler.txt) 
  while (%i > 0) { 
    if ($read(Kufurler.txt,%i) iswm $1-) { 
      var %k $comchan($nick,0) 
      while (%k > 0) { 
        if ($nick !isop $comchan($nick,%k)) { banla $comchan($nick,%k) | kick $comchan($nick,%k) $nick %ozKufursebep } 
        dec %k 
      } 
    } 
    dec %i 
  } 
} 
#ozKufur end

işte reklam koruması;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;Reklam Koruması 
dialog Reklam { 
  title "Mavisim Script Reklam Koruması" 
  size -1 -1 174 118 
  option dbu 
  combo 1, 113 11 50 50, sort size edit vsbar 
  text "Reklam Listesi", 2, 120 2 36 8 
  button "Ekle", 3, 114 63 23 11 
  button "Çıkar", 4, 140 63 23 11 
  box "Reklam Koruması", 5, 9 13 99 50 
  button "Aç", 6, 18 26 37 12 
  button "Kapat", 7, 62 26 37 12 
  edit "", 8, 45 48 50 10, read 
  text "Durum", 9, 24 48 21 8 
  text "Kick Sebebiniz", 10, 9 83 41 8 
  edit "", 11, 51 82 121 10, autohs 
  button "Kaydet Ve Çık", 12, 33 100 47 12, ok 
  button "İptal", 13, 91 100 47 12, cancel 
  check "Özele Reklam", 14, 12 65 45 10 
  check "Kanala Reklam", 15, 58 65 46 10 
} 
on *:dialog:Reklam:*:*:{ 
  if ($devent == init) { 
    did -a $dname 11 %Reklamsebep 
    did -a $dname 8 %Reklamdurum 
    if (%reklamdurum == kapalı) { did -b $dname 14 | did -b $dname 15 }    
    if ($group(#ozreklam) == on) { did -c $dname 14 } 
    if ($group(#reklam) == on) { did -c $dname 15 }    
    mdx SetMircVersion $Version 
    mdx MarkDialog $dname 
    mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 11 700 Tahoma 
    mdx SetColor 11 BackGround $rgb(16,13,130) 
    mdx SetColor 11 textbg $rgb(16,13,130) 
    mdx SetColor 11 text $rgb(255,255,255) 
    mdx SetColor 2,10,9 text $rgb(16,13,130)    
    var %i $lines(reklamler.txt) 
    while (%i > 0) { 
      did -a $dname 1 $read(reklamler.txt,%i) 
      dec %i 
    } 
  } 
  if ($devent == sclick) { 
    if ($did == 12) { set %reklamsebep $did(11) }    
    if ($did == 6) { .enable #Reklam | .enable #ozreklam | set %Reklamdurum Açık | set %Reklamsebep $did(11) | dialog -x Reklam Reklam | dialog -m Reklam Reklam } 
    if ($did == 7) { .disable #Reklam | .disable #ozreklam | did -b $dname 14 | did -b $dname 15 | set %Reklamdurum Kapalı | set %Reklamsebep $did(11) | dialog -x Reklam Reklam | dialog -m Reklam Reklam } 
    if ($did == 3) { write reklamler.txt $did(1) | did -a $dname 1 $read(reklamler.txt,$lines(reklamler.txt))  } 
    if ($did == 4) { write $+(-ds,$did(1).seltext) reklamler.txt $did(1).seltext | did -d $dname 1 $did(1).sel  }    
    if ($did == 14) { if ($did(14).state == 1) { .enable #ozreklam } | else { .disable #ozreklam } } 
    if ($did == 15) { if ($did(15).state == 1) { .enable #reklam } | else { .disable #reklam } } 
  } 
} 
 
#reklam off
on *:TEXT:*:?:{ 
  var %i $lines(reklamler.txt) 
  while (%i > 0) { 
    if ($read(reklamler.txt,%i) iswm $1-) { 
      var %k $comchan($nick,0) 
      while (%k > 0) { 
        if ($nick !isop $comchan($nick,%k)) { banla $comchan($nick,%k) | kick $comchan($nick,%k) $nick %ozreklamsebep } 
        dec %k 
      } 
    } 
    dec %i 
  } 
} 
#reklam end 
#ozreklam off
on *:TEXT:*:?:{ 
  var %i $lines(reklamler.txt) 
  while (%i > 0) { 
    if ($read(reklamler.txt,%i) iswm $1-) { 
      var %k $comchan($nick,0) 
      while (%k > 0) { 
        if ($nick !isop $comchan($nick,%k)) { banla $comchan($nick,%k) | kick $comchan($nick,%k) $nick %ozreklamsebep } 
        dec %k 
      } 
    } 
    dec %i 
  } 
} 
#ozreklam end

işte resimler;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Küfürleri ve Reklamları mIRC dosyasına text olarak kayıt eder.
Not:Alıntıdır ( Coderi hakkında bilgim yoktur.Reklam koruması alıntıdır, Küfür korumasını ona göre değiştirdim. )
Umarım işinize yarar kolay gelsin.