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