IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Giren kullanıcılara userip çekip ban atmak

Arkadaş bu kodu paylaşmış herkesin useripi statusta çıkartıyor eşleştiriyor. Belirlediğimiz bir useripi eşleşirse eğer kanaldan atabilir mi? Örneğin aşağıdaki kişi nick kaydedince hostu değişiyor tekrar tekrar kanala girebiliyor.

aşağıda belirlediğim userip listeye eklesem acaba kanaldan atabilir mi

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Alıntı:

muratt_aziz Nickli Üyeden Alıntı (Mesaj 1041286317)

userip Takip kodumuz adından da anlaşıldığı gibi //userip $nick komutunu bazalınarak yapılmıştır.

Özellikleri
userip sorgusundan gelen yanıtı kayıtlarla karşılaştırıp var ise önceki nickleri hafızaya alıp gecmısı silerek yenıden yeni nickle beraber kaydedip
girilen kanallara önceki nicklleri echo ile yansıtmasıdır

kayıt esnasında tarih alınarak bulunulan ay ve gun kayıt tarihinden sonra bir ayı doldurmuş ise obilgiyi silerek ve eskı nıckler varise onlar silinip bırarada yenı veri kaydı sistemi ile kasılmaya karşı tedbir alınmıştır

kodu deneyerek öneri ve hata gibi durumları paylaşmanızı rica ederim
daha derli toplu birsekilde sizlerin yorumları neticesinde geliştirilecektir

Kod:

on *:join:#: { set %nytg $nick | if $nick != $me { .timeruserip 1 1 userip $nick } }

raw 340:*: { unset %aynınıck | unset %trtr

  set %trih $date  | set %rfe $gettok($2-,1,61) | set %iplık  $gettok($gettok($2-,2,64),1-3,46) | set %cokoldu $gettok($2-,1,61)  $gettok($gettok($2-,2,64),1-3,46)  $server $date

  var %ecfrsdf 1 

  while %ecfrsdf <= $lines(d.txt) {

    if %iplık isin $read(d.txt,%ecfrsdf) { set %aynınıck %aynınıck  $gettok($read(d.txt,%ecfrsdf),1,32) $gettok($read(d.txt,%ecfrsdf),5-,32)  }

    if $len(%aynınıck) > 0 { set %aynınıck $remove(%aynınıck,%rfe)

    if %ecfrsdf == $lines(d.txt) { .timerdfsd 1 0 fghyyy } }

    if $left($right($read(d.txt,%ecfrsdf),7),2) <  $right($left($remove(%trih,/) ,-5),1) $+ $right($left($remove(%trih,/)  ,4),1) {

    if $left($right($read(d.txt,1),10),2) <  $right($left($remove(%trih,/) ,2),4) { bnv d.txt * $+  $right($read(d.txt,%ecfrsdf),7) $+ * } }

    inc %ecfrsdf 

  }

  if !$read(d.txt,w,%cokoldu) { .timerff 1 1 write d.txt %cokoldu }

} 

alias bnv { var %= = 1 | while $read(d.txt,w,$2) { write $+(-dw,$2) d.txt | inc %= } }

alias fghyyy { var %x = 1 | var %t = $comchan(%nytg,0) | while %x <=  %t { if $len(%aynınıck) > 0 { echo $comchan(%nytg,%x) 4,3  %nytg  0,4Nickinin Daha önceki nickleri.4,3 %aynınıck  |  set %trtr  %aynınıck | .timerggdsz 1 0 debn } | inc %x } } 

alias debn { var %x1 = 1 | var %t = $lines(d.txt) | while %x1 <= %t {  if (%iplık == $gettok($read(d.txt,%x1),2,32)) { bnv d.txt  * $+  $gettok($read(d.txt,%x1),2,32) $+ * }

    if (%x1 == %t) { if !$read(d.txt,w,%cokoldu) { .timerff 1 1 write d.txt %cokoldu %trtr } }

    inc %x1

  }

}