[mys_35]

Selam Arkadaslar benim Sizden kucuk bir isTegim var olurmu yada varmi bilmiyorum FuLLname korumasi boyle bir koruma varmı acaba yada yazılabilirmi yardimci olurSanız Sevinirim..

[insane]

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

alias fn { 
  var %< $lines(reklam.txt)
  while (0 < %<) {
    if ($read(reklam.txt,%<) iswm $strip($1-)) { 
      msg #ali gzline $1 1w Reklam.    
} 
dec %<  
}
}
on !@*:join:#: { fn }
alias sp { if (!$dialog(spam)) { dialog -m spam spam } }
dialog spam {
  title "Fullname reklam takip"
  size -1 -1 113 41
  option dbu
  button "Çıkar", 1, 6 14 37 12, flat
  button "Ekle", 2, 6 1 37 12, flat
  combo 3, 51 1 60 39, size sort
  button "KAPAT", 4, 6 27 37 12, flat ok
}
on *:dialog:spam:init:0: {
loadbuf -o $dname 3 reklam.txt }
on *:dialog:spam:sclick:2: {
  if (!$did(spam,3).text) {
  echo 2 -a Lütfen eklenecek reklamı yazınız. | halt }
  elseif $read(reklam.txt,w,$did(3).text) {
  echo 2 -a $did(spam,3).text listede zaten var.  }
  else {
    write reklam.txt $did(spam,3).text 
  did -a $dname 3 $did(spam,3).text }
}
on *:dialog:spam:sclick:1: { 
  if (!$did(spam,3).text) { 
  echo 2 -a Silinecek reklamı seçmelisiniz. | halt }
  elseif !$read(reklam.txt,w,$did(3).text) { 
  echo 2 -a $did(3).text reklam listesinde zaten yok. }
  else { write $+(-dw,",$did(3).text,") reklam.txt 
  did -d $dname 3 $did(3).sel }
}
menu * { 
  FRT:sp
}

Buyrun.

[Survivor]

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

on *:snotice:*client connect*:who $9
raw 352:*:kontrol $9- $6
alias kontrol var %1 1 | while %1 <= $lines(fullname.txt) { if $regex($1,$read(fullname.txt,%1)) { zline $2 :sebeb. | return $true } | inc %1 } | return $false

deneyebilirsin..

[mys_35]

Cok saolun Tşk edeRim arkaDaslar..Elinize saglık

[mys_35]

arkadaslar Sizden kucuk bir isTegim daha olucaktı kusra bakmayın bu yazmıs oldunuz kodlari Zline değilDie kanalda opluk yapıyorum ban kick olarak Değiştirme olanamiz varMi acaba buna gore yazabilirmiyiz Tşk emeginiz için

İstediğin kodu yazdım. mIRC'nin bulunduğu klasöre, fullname.txt adlı bir dosya açtığında ve içerisine de yasaklı verileri girdiğinde; kanala yapılan girişlerde, bu kanalı bir değişkene kaydederek; daha sonrası için işlem yapacaktır. İşte kod:

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

on !*:join:#:set %k # | set %n $nick | .enable #kn | who $nick
#kn off
raw 352:*:if (%k && %n == $6 && $6 ison %k) { var %o = 1 | while ($read(fullname.txt,%o)) { if ($regex($9,$v1)) { ban -k %k $6 2 Kick nedeni. | .disable #kn | unset %k %n | break } | inc %o }

#kn end


Umarım işine yarar. Kolay gelsin.