;;;;;;;;;;;;
;loglarin !log komutu ile loglarin aranacagi kanal yada kanallar #helpers ve #mirchelp olarak belirttim.
;;;;;;;;;;;;;

on *:text:*:#helpers,#mirchelp:{
if (?log* iswm $1) {
if ($2 == $null || $3 == $null) {
msg # -
msg # Aranacak Logun [4Tarih ve 4Kanal] bilgisini vermelisiniz.
msg # Ornek kullanim: !log $time(dd-mm-yyyy) #help
msg # -
return
}
;Buradas #opers kanalini loglamaz. Siz istege gore degistirebilirsiniz.
if ($3 == #opers) { return }
;;;;;
;Log Taramasi yapan kisiyi #helpers kanalina bilgi gonderir
;;;;;;
.msg #helpers [LOG-SCAN] $nick $3 kanalinin loglarini tariyor.
var %dzn = $+(logbul,\,$+($chr(91),$2,$chr(93)),\,$3,.txt)
if (!$isfile(%dzn)) {
msg # -
msg # 4> $+(,$chr(91),,$2,,$chr(93),) tarihinde $+(,$chr(91),,$3,,$chr(93),) kanalinin loglari bulunamadi.
msg # -
return
}
else {
var %kcsyfa = $ayrac(%dzn)
msg # $+(4[Sayfa 1,/,,%kcsyfa,,4])
.play -tSAYFA-1 $chan %dzn 0
.timer 1 1 msg # $+(4[Sayfa 1,/,,%kcsyfa,,4])
if ($ayrac(%dzn) > 1) {
.timer 1 1 msg # 4>>>> Diger sayfaya gormek icin 4!ileri komutunu,
if (%kcsyfa > 5) { .timer 1 2 msg # 4>>>> Belirli sayfaya direkt gecmek icin ise 4!sayfa-no komutunu kullanin. }
}
set $+(%,logarayan,$nick) %dzn
set $+(%,logarayan,$nick,-sayfa) 1
return
}
}
if ($1 == !ileri) {
if ($var($+(%,logarayan,$nick))) {
inc $+(%,logarayan,$nick,-sayfa)
var %dno = $var($+(%,logarayan,$nick),1).value
var %sno = $var($+(%,logarayan,$nick,-sayfa),1).value
if ($read(%dno,w,$+([SAYFA-,%sno,])) == $null) { return }
else {
var %kcsyfa = $ayrac(%dno)
msg # $+(4[Sayfa %sno,/,,%kcsyfa,,4])
.play $+(-tSAYFA-,%sno) $chan %dno 0
.timer 1 1 msg # $+(4[Sayfa %sno,/,,%kcsyfa,,4])
}
}
}
if ($regex($1,/^!sayfa-(\d+)$/i)) {
if ($var($+(%,logarayan,$nick))) {
var %dno = $var($+(%,logarayan,$nick),1).value
var %sno = $regml(1)
var %kcsyfa = $ayrac(%dno)
if ($read(%dno,w,$+([,$remove($1,!),])) == $null) { return }
else {
msg # $+(4[Sayfa %sno,/,,%kcsyfa,,4])
.play $+(-tSAYFA-,%sno) $chan %dno 0
.timer 1 1 msg # $+(4[Sayfa %sno,/,,%kcsyfa,,4])
}
}
}
}
alias ayrac {
var %i = 0, %readn = 1, %no = $1-
if (!$isfile(%no)) return
while ($read(%no,wnt,[SAYFA-*,%readn) != $null) {
inc %i
var %readn = $readn + 1
}
return %i
}

; Konusma gecmisi log tutulacak kanallar
alias logkanal return #mirchelp,#help
on 1:text:*:$($logkanal):{
;loglanmayacak muafnickler
if $istok(Hes S-bot Nomercy Radyobot,$nick,32) { return }
if !$isdir(logbul) { .mkdir logbul }
if !$isdir($+(logbul\,$time([dd-mm-yyyy]))) { .mkdir $+(logbul\,$time([dd-mm-yyyy])) }
var %dadi = $+(logbul\,$time([dd-mm-yyyy]),\,$chan,.txt)
if ($read(%dadi,w,[SAYFA-1]) == $null) { write %dadi [SAYFA-1] }
var %tpstr = $calc($lines(%dadi) - $ayrac)
if (25 // %tpstr) { write %dadi $+([SAYFA-,$calc($ayrac(%dadi) + 1),]) }
write %dadi $time([HH:nn:ss]) < $+ $nick $+ > $eval($$1-,1)
}