write $+($regml(1),.txt) $8

write $+($regml(1),.txt) $time $8

on *:input:#: { 
  if $regex($1-,/[!.]logip\s+\S+$/SAi) { 
    if $isfile($2 $+ .txt) { echo -a Takip edilen IP Mevcut! } 
    else { write $+($2,.txt) | echo -a $+($2,.txt) isimli IP Takip dosyası oluşturuldu. }
  }
  if $regex($1-,/^[!.]logbak\s+\S+$/Si) {
    if $isfile($+($2,.txt)) { window -e $+(@IP,$2) | loadbuf $+(@IP,$2) $+($2,.txt) }
    else { echo -a Bu isimde bir dosya yok. } 
  } 
  if $regex($1-,/^[!.]logsil\s+\S+$/Si) { 
    if $isfile($+($2,.txt)) { .remove $+($2,.txt) | echo -a $+($2,.txt) Dosyası Silindi. } 
    else { echo -a Bu isimde bir dosya yok. }
  }
  if $regex($1-,/[!.]logbul$/ASi) { 
    if $findfile($mircdir,*.*.*.*.txt,0) == 0 { echo -a Hiçbir IP-Log dosyası bulunamadı. } 
    else { var %a = 1 | window -e @IP-Loglar | while %a <= $findfile($mircdir,*.*.*.*.txt,0) { echo @IP-Loglar $gettok($findfile($mircdir,*.*.*.*.txt,%a),-1,92) | inc %a }
    }
  }
}

on $*:snotice:/Client\sconnecting/i: {
  if $isfile($regsubex($8,/\S+[!].+[@](\S+)$/AiS,\1) $+ .txt) { write $+($regml(1),.txt) $8 }
  else { return } 
}

on *:input:#: { 
  if $regex($1-,/[!.]logip\s+\S+$/SAi) { haltdef
    if $finddir($mircdir,iplog,0) == 0 { mkdir iplog } 
    if $isfile($+(iplog/,$2,.txt)) { echo -a Takip edilen IP-Log Dosyası Mevcut! } 
    else { write $+(iplog\,$2,.txt) | echo -a $+($2,.txt) isimli Takip IP dosyası oluşturuldu. }
  }
  if $regex($1-,/^[!.]logbak\s+\S+$/Si) { haltdef
    if $isfile($+(iplog/,$2,.txt)) { window -e $+(@IP,$2) | loadbuf $+(@IP,$2) $+(iplog\,$2,.txt) }
    else { echo -a Bu isimde bir dosya yok. } 
  } 
  if $regex($1-,/^[!.]logsil\s+\S+$/Si) { haltdef
    if $isfile($+(iplog/,$2,.txt)) { .remove $+(iplog\,$2,.txt) | echo -a $+($2,.txt) Dosyası Silindi. } 
    else { echo -a Bu isimde bir dosya yok. }
  }
  if $regex($1-,/[!.]logbul$/ASi) { haltdef
    if $findfile($mircdiriplog,*.txt,0) == 0 { echo -a Hiçbir IP-Log dosyası bulunamadı. } 
    else { var %a = 1 | window -e @IP-Loglar | while %a <= $findfile($mircdiriplog,*.txt,0) { echo @IP-Loglar Log Dosyası:2 $gettok($findfile($mircdiriplog,*.txt,%a),-1,92) Satır Sayısı:4 $lines($gettok($findfile($mircdiriplog,*.txt,%a),-2-,92)) | inc %a }
    }
  }
}
on $*:snotice:/Client\sconnecting/i: {
  if $isfile($+(iplog/,$regsubex($10,/\(\S+[@](\S+)\)$/AiS,\1),.txt)) { write $+(iplog\,$regml(1),.txt) Giriş Zamanı: $time(dd-mm- $+ 20 $+ yy - HH:nn) Giriş Mask: $+($9,$10) | /echo -st [IP-Takip] Giriş Yapıldı. IP:4 $regml(1)  }
}

on $*:snotice:/Client\sconnecting/i: {
  if !$isfile($+(iplog/,$regsubex($10,/\(\S+[@](\S+)\)$/AiS,\1),.txt)) { write $+(iplog\,$regml(1),.txt) $+($9,!,$regsubex($10,/([\50\51])/g,$null)) }
  else { write $+(iplog\,$regml(1),.txt) $+($9,!,$regsubex($10,/([\50\51])/g,$null)) }
}

on $*:snotice:/Client\sconnecting/i: {
  if !$isfile($+(iplog/,$regsubex(_ip,$8,/.+[\41].+[\100](\S+)$/AS,\1),.txt)) { write $+(iplog\,$regml(_ip,1),.txt) $8 }
  else { write $+(iplog\,$regml(_ip,1),.txt) $8 }
}