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

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

- - txt ile ban listesi olsuturma (https://www.ircforumlari.net/mirc-scripting-sorunlari/15892-txt-ile-ban-listesi-olsuturma.html)

txt ile ban listesi olsuturma

biliyorum bu konuda bir cok kes soru soruldu ama randimanli bir sey cikaramadik ortaya
yapmak istedigim su kanalda atilan ban ve o bana ait olan kick'in sebebini bir txt dosyasinda toplamak istiyorum ama sadece ban ve kick olan actionlarda bunu yapsin istedim yani sadece kick olayi varsa bunu txt doyasina kayit etmesin .. ama ayni zamandada acilan banlarin (unban) larinda o listeden cikarilmasini istiyorum ama saglikli bir sey yapamadim burdan aldim bir kod ama oda bi kayit ediyor bi etmiyor bi siliyor bi silmiyor
kanalda 3 op oldugunda bir reklam oluyor uc opda ban atiyor hali ile uc banda txt dosyasina kayit ediliyor bu banlarin ucude acildiginda txt dosyasindan ucununde silinmesi gerekirken silinmiyor
bu isi bilen bir arkadastan rica edecem soyle guzel calisacak bir kodda yardimci olursa sevincem
saygilar

baslikta hatali yazmisim olusturma olacakti :))))

Yanıt: txt ile ban listesi olsuturma

PHP- Kodu:

   alias bansay { 
  if (!%bansirasi ) {
    set %bansirasi 1
  } 
  .msg $chan %bansirasi %banlist1
  inc %bansirasi
}
on *:rawmode:#: { 
  if ($1 = +b) && (!$read(ban.txt,w,$2)) { 
    write ban.txt $gettok($2,1,33) 
    halt 
  }
if ($1 == -b) { write -dl $+ $2- ban.txt } }
on *:kick:#: { 
  if ($read(ban.txt,w,$knick)) {
    write -dl $+ $knick ban.txt
write ban.txt $knick $1- } }
on @*:text:!ban*:#: {
  var %% = $+(%,#,$nick) 
  inc -eu5 $(%%,1) 
  if $(%%,2) >= 2 {
    .msg $chan bir sonraki komutu kullanmak için 5 saniye beklemeniz gerekmektedir. 
    unset $(%%,1)
  halt }
  if ($nick !isop $chan) {
    .msg $chan Komutları kullanabilmeniz için Op olmanız gerekir.
  halt }
  :bosh
  if (!$lines(ban.txt)) {
    .msg $chan ban listesi boş.
    halt
  }
  if ($1 == !banlist) { 
    .msg $chan nick atılma nedeni
    unset %bansirasi
    var %banlist 1 
    while %banlist <= $lines(ban.txt) { 
      set %banlist1$read(ban.txt,%banlist)
      bansay
      inc %banlist 
    }
    halt 
  }
  if ($1 == !banall) { 
    write -c ban.txt 
    .msg $chan Bütün banlar silindi.
    halt
  }
  if $1 == !bansil {
    if !$2 {
      .msg $chan Numara girmeyi düşünüyormusunuz:)?
      halt 
    }
    if (!$read(ban.txt,p,$2)) { 
      .msg $chan Girmiş olduğunuz  $+ $2 $+  numarası listede bulunamadi:(.
      halt 
    }
    if $regex($2-,[a-z]) {
      .msg $chan Sadece silinecek rakamı girmeniz yeterlidir.
    halt }
    .write -dl $+ $2 ban.txt
    .msg $chan  $+ $2 $+  listeden silindi. 
    halt 
  } 
}
else {
  goto bosh
}

bir takım eksiklikleri var ama işini görür yinede:)

Yanıt: txt ile ban listesi olsuturma

yukardaki kodda ban attigimiz ipinin kickinde ki sebebi yazdirmiyor benim yapmak istedigim soyle bir sey txt dosyasinda su sekilde kayit etmesi gerekiyor
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].* ( reklam yapmak yasaktir ) saat tarih ve banlayan opnicki
boyle bir sey yani tek satira almasi ve tabiki bu ban acildigindada bu satiri kople silmesi gerekiyor

Yanıt: txt ile ban listesi olsuturma

peki bu op nick admin olacakmı yada bu kodu remotesine koyduğun herneyse ?

Yanıt: txt ile ban listesi olsuturma

banlayan opnicki demekle yani o bani atan kisinin nicki demek istedim bu kodu bir bota koydugumuzu dusunursek bani hangi op atmis ise onun nicki demek istedim
karisik oldu galiba biraz :)) anlamadinsa o olmasada olur banlanan ip ve bankick sebebini ayni satira yazdirir ve acilan banida sildirsek o bile yeter yeterki her bani ve o banin kcik sebebini kayit altina alsin