Kod: Kodu kopyalamak için üzerine çift tıklayın!
lias logviews.about {
if ($window(@logviews) == $null) { set %logviews.about run | logviews }
else {
clear @logviews
titlebar @logviews - About
aline @logviews 11,1 Script LoG Okuyucu
aline @logviews $chr(160)
aline -p @logviews $str($chr(160),4) Log Okuyucu size IRC Loglarınızı Kolay Ve Çabuk Okuma İmkanı Verir..
aline @logviews $chr(160) 0,1 By 0,1SahTe
aline @logviews $chr(160)
aline -p @logviews $str($chr(160),4)
aline @logviews $chr(160)
}
}
alias logviews {
:start
set %logviews.window.h $window(-1).h
set %logviews.window.w $window(-1).w
if ($window(@logviews) == $null) {
window -l16 @logviews 200 200 630 200 @logviews Arial 11
window -nls @logviews2 Arial 11
aline @logviews 0,2 Log Organiser %logviews.version 2,0 Loading log database please wait...
set %logviews.count 1
:AddLog
set %logviews.log $findfile($logdir,*.log,%logviews.count)
if (%logviews.log == $null) goto end
else {
aline -l @logviews2 $nopath(%logviews.log)
inc %logviews.count 1
goto addlog
}
}
else { window -c @logviews | goto start }
:end
set %logviews.lines $line(@logviews2,0,0)
set %logviews.count 1
:lineadd
if (%logviews.count > %logviews.lines) goto end2
else {
aline -l @logviews $line(@logviews2,%logviews.count)
inc %logviews.count 1
goto lineadd
}
:end2
if (%logviews.about == run) { logviews.about | set %logviews.about ran | goto end4 }
:end3
clear @logviews
aline @logviews 11,1 Script
aline @logviews $chr(160)
aline -p @logviews $str($chr(160),4) 11,1 Script0,1 Size IRC Loglarınızı Kolay Ve Çabuk Okuma İmkanı Veriyor. Sağ Taraftaki Listede Okunmak İstenen Logun Üstüne 4,1Çift Tıklayınız..
:end4
iline -l @logviews 1 11,1 Script
iline -l @logviews 2 12,1 Logların Listesi $str($chr(160),175)
iline -l @logviews 3 7-----------------------------
window -c @logviews2
}
alias logrefresh {
:start
if ($window(@logviews) == $null) { logviews }
else {
clear -l @logviews
window -nls @logviews2 Arial 11
set %logviews.count 1
:AddLog
set %logviews.log $findfile($logdir,*.log,%logviews.count)
if (%logviews.log == $null) goto end
else {
aline -l @logviews2 $nopath(%logviews.log)
inc %logviews.count 1
goto addlog }
}
:end
set %logviews.lines $line(@logviews2,0,0)
set %logviews.count 1
:lineadd
if (%logviews.count > %logviews.lines) goto end2
else {
aline -l @logviews $line(@logviews2,%logviews.count)
inc %logviews.count 1
goto lineadd
}
:end2
iline -l @logviews 1 0,2 $chr(160) Loglar $str($chr(160),30)
iline -l @logviews 2 0,2 $str($chr(160),175)
window -c @logviews2
}
alias Logview {
if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2) { halt }
else {
set %logviews.file $logdir $+ $sline(@logviews,1)
set %logviews.size $lof(%logviews.file)
clear @logviews
iline @logviews 1 4Log Viewer Viewing: $sline(@logviews,1) ( $+ %logviews.size bytes) $str($chr(160),175)
titlebar @logviews - $sline(@logviews,1)
loadbuf -p @logviews $logdir $+ $sline(@logviews,1)
sline @logviews 15
}
}
alias logview.newwindow {
set %logviews.window @ [ $+ [ $sline(@logviews,1) ] ]
set %logviews.file $logdir $+ $sline(@logviews,1)
set %logviews.size $lof(%logviews.file)
window %logviews.window @LogView Arial 11
iline %logviews.window 1 0,1 Script Log Viewer 2,0 Viewing: $sline(@logviews,1) ( $+ %logviews.size bytes) $str($chr(160),175)
loadbuf %logviews.window $logdir $+ $sline(@logviews,1)
sline %logviews.window 15
}
menu @logviews {
dclick loglist2
View Log
.In Window:logview $sline(@logviews,1)
.In New Window:logview.newwindow $sline(@logviews,1)
Search Log Text:logsearch
-
Log Sil:dellog $sline(@logviews,1)
Log Copyala:copylog
Logu Yeniden Adlandır:remlog
-
Logu Not Defterinde Aç:lognotepad
-
Listeyi Güncelle:logrefresh
Pencereyi Kapa:window -c @logviews
-
Log Okuyucu Hakkında:logviews.about
}
alias LogList2 {
if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
else logview $sline(@logviews,1)
}
menu @Logview {
Search Log Text:logsearch.nw
-
Delete Log:/dellog $remove($active,@)
Copy Log:/copylog
-
Open Log In Notepad:run notepad.exe $logdir $+ $remove($active,@)
-
Close Window:window -c $active
-
About:window -a @logviews | logviews.about
}
menu @Confirm.Delete {
dclick Confirm.Delete
}
alias Confirm.Delete {
if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt }
if ($sline(@Confirm.Delete,1).ln == 5) { remove $logdir $+ %logviews.log.delete | window -c @Confirm.Delete | dline -l @logviews $sline(@logviews,1).ln | echo %perfect 0,1Log Viewer 0,1 %logviews.log.delete DELETED }
if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete }
}
alias copylog {
if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
/copy $logdir $+ $sline(@logviews,1) $sdir="Select A Directory To Copy $sline(@logviews,1) To:" $+ $sline(@logviews,1)
}
alias remlog {
if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
else {
rename $logdir $+ $sline(@logviews,1) $logdir $+ $?="Please Enter A New File Name:" | logrefresh
}
}
alias dellog {
if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
else {
set %logviews.log.delete $sline(@logviews,1)
window -l+bt @Confirm.Delete 20 20 150 111 @Confirm.Delete Arial 11
aline @Confirm.Delete 15 Are you 4sure 15 you want $str($chr(160),10)
aline @Confirm.Delete 15 to delete: $str($chr(160),50)
aline @Confirm.Delete 8 $sline(@logviews,1) $+ ? $str($chr(160),100)
aline @Confirm.Delete 1 ------------------------------------ $str($chr(160),10)
aline @Confirm.Delete 4 YES $str($chr(160),50)
aline @Confirm.Delete 4 NO $str($chr(160),50)
}
}
alias dellog2 {
set %logviews.log.delete $remove($active,@)
window -l+bt @Confirm.Delete 20 20 150 111 @Confirm.Delete Arial 11
aline @Confirm.Delete 1 ------------------------------------ $str($chr(160),10)
aline @Confirm.Delete 15 Are you 4sure 15 you want $str($chr(160),10)
aline @Confirm.Delete 15 to delete: $str($chr(160),50)
aline @Confirm.Delete 2 $sline(@logviews,1) $+ ? $str($chr(160),100)
aline @Confirm.Delete 1 ------------------------------------ $str($chr(160),10)
aline @Confirm.Delete 4 YES $str($chr(160),50)
aline @Confirm.Delete 4 NO $str($chr(160),50)
}
menu @Confirm.Delete2 {
dclick Confirm.Delete2
}
alias Confirm.Delete2 {
if ($sline(@Confirm.Delete,1).ln == 1 || $sline(@Confirm.Delete,1).ln == 2 || $sline(@Confirm.Delete,1).ln == 3 || $sline(@Confirm.Delete,1).ln == 4) { halt }
if ($sline(@Confirm.Delete,1).ln == 5) { remove $logdir $+ %logviews.log.delete | window -c @Confirm.Delete | dline -l @logviews $sline(@logviews,1).ln | echo 0,1pErFeCt sCriPt Log Viewer 0,1 %logviews.log.delete DELETED }
if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete }
}
alias lognotepad {
if ($sline(@logviews,1).ln == 1 || $sline(@logviews,1).ln == 2 || $sline(@logviews,1).ln == $null) { halt }
else run notepad.exe $logdir $+ $sline(@logviews,1)
}
alias logsearch {
if ($window(@logviews).title == - $sline(@logviews,1)) goto next
else { logview $sline(@logviews,1) | goto next }
:next
if ($window(@LogSearch) != $null) /window -c @LogSearch
window @LogSearch @LogSearch Arial 11
set %logviews.file $logdir $+ $sline(@logviews,1)
titlebar @LogSearch - $sline(@logviews,1)
set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
aline @LogSearch 0,1pErFeCt sCriPt Log Viewer $str($chr(160),10) 2,0 Log Searcher
aline @LogSearch 2,0 $str($chr(160),20) Searching For:2,0 %logviews.searchstring
filter -fwn %logviews.file @LogSearch %logviews.searchstring
}
menu @LogSearch {
dclick logsearch2
Goto Line:logsearch2
-
Close Window:window -c @LogSearch
About:window -a @logviews | logviews.about
}
alias logsearch2 {
if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
else {
sline @logviews $calc($gettok($sline(@LogSearch,1),1,32) + 10)
window -a @logviews
}
}
alias logsearch.nw {
set %logviews.window $remove($active,@)
if ($window(@LogSearch) != $null) window -c @LogSearch
window -l @LogSearch @LogSearch.nw Arial 11
set %logviews.file $logdir $+ %logviews.window
titlebar @LogSearch - %logviews.window
set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
aline @LogSearch 0,2 Log Organiser %logviews.version $str($chr(160),150) 2,0Log Searcher $str($chr(160),100)
aline @LogSearch 2,0 $str($chr(160),20) Searching For:2,0 %logviews.searchstring $str($chr(160),500)
filter -fwn %logviews.file @LogSearch %logviews.searchstring
}
menu @LogSearch.nw {
dclick:logsearchnw
Goto Line:logsearchnw
-
Close Window:window -c @LogSearch
About:window -a @logviews | logviews.about
}
alias logsearchnw {
set %logviews.window2 @ $+ %logviews.window
if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
else {
sline %logviews.window2 $calc($gettok($sline(@LogSearch,1),1,32) + 10)
window -a %logviews.window2
}
}
alias bw_mod_e {
if ($1 == $null) { halt }
%bw_wtot = $count(%badwords,$chr(44)) + 1
:bwm_Wloop
if (%bw_wtot =< 0) { bw_winit | halt }
elseif ($gettok(%badwords,%bw_wtot,44) == $1) { dline %bw_wset $sline(%bw_wset,1).ln | %badwords = $remtok(%badwords,$1,44) | halt }
else { dec %bw_wtot | goto bwm_Wloop }
}
alias Wordalc {
%bw_alt = $count($1,$chr(44)) + 1
:alcloop
if (%bw_alt <= 0) { return }
else {
aline $2 $gettok($1,%bw_alt,44)
dec %bw_alt
goto alcloop
}
:end
}
27 Eylül 2010, 12:12
Benzer Konular 
Normal
