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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - yardim (https://www.ircforumlari.net/mirc-scripting-sorunlari/213719-yardim.html)

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..

Kod:

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.

Kod:

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..

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

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:

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.