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