;############################################################################
; برمجه لفتح اللوقات والتحكم فيها
;############################################################################

alias logviews.about {
  if ($window(@yourlogs) == $null) { set %logviews.about run | logviews }
  else {
    clear @yourlogs
    titlebar @yourlogs - About
    aline @yourlogs 12Log Viewer
    aline @yourlogs $chr(160)
    aline -p @yourlogs $str($chr(160),4) Log Organiser allows quick and easy management of your IRC logs.
  }
} 

alias logviews {
  :start
  set %logviews.window.h $window(-1).h
  set %logviews.window.w $window(-1).w
  if ($window(@yourlogs) == $null) {  
    window -l16 @yourlogs 200 200 630 200 @yourlogs Arial 11
    window -nls @yourlogs2 Arial 11
    aline @yourlogs 12Log Organiser04 %logviews.version 12 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 @yourlogs2 $nopath(%logviews.log)
      inc %logviews.count 1
      goto addlog
    }
  }
  else { window -c @yourlogs | goto start }
  :end
  set %logviews.lines $line(@yourlogs2,0,0)
  set %logviews.count 1
  :lineadd
  if (%logviews.count > %logviews.lines) goto end2
  else {
    aline -l @yourlogs $line(@yourlogs2,%logviews.count)
    inc %logviews.count 1
    goto lineadd
  }
  :end2
  if (%logviews.about == run) { logviews.about | set %logviews.about ran | goto end4 }
  :end3
  clear @yourlogs
  aline @yourlogs 12Log Viewer
  aline @yourlogs $chr(160)
  aline -p @yourlogs $str($chr(160),4) 12Welcome To Log Viewer $+ !  To view a log, please double click it in the side listbox.  Or else  right click on a log in the listbox to access more commands.
  :end4
  iline -l @yourlogs 1 7Logs $chr(160) $str($chr(160),30)
  iline -l @yourlogs 2 12Current Logs  $str($chr(160),175) 
  window -c @yourlogs2
}


alias logrefresh {
  :start
  if ($window(@yourlogs) == $null) { logviews }
  else {
    clear -l @yourlogs
    window -nls @yourlogs2 Arial 11
    set %logviews.count 1
    :AddLog
    set %logviews.log $findfile($logdir,*.log,%logviews.count)
    if (%logviews.log == $null) goto end
    else {
      aline -l @yourlogs2 $nopath(%logviews.log)
      inc %logviews.count 1
    goto addlog }
  }
  :end
  set %logviews.lines $line(@yourlogs2,0,0)
  set %logviews.count 1
  :lineadd
  if (%logviews.count > %logviews.lines) goto end2
  else {
    aline -l @yourlogs $line(@yourlogs2,%logviews.count)
    inc %logviews.count 1
    goto lineadd
  }
  :end2
  iline -l @yourlogs 1 12 $chr(160) Current Logs  $str($chr(160),30)
  iline -l @yourlogs 2 04 $str($chr(160),175) 
  window -c @yourlogs2
}

alias Logview {
  if ($sline(@yourlogs,1).ln == 1 || $sline(@yourlogs,1).ln == 2) { halt }
  else {
    set %logviews.file $logdir $+ $sline(@yourlogs,1)
    set %logviews.size $lof(%logviews.file)
    clear @yourlogs    
    iline @yourlogs 1 04Log Viewer Viewing: $sline(@yourlogs,1) ( $+ %logviews.size bytes) $str($chr(160),175)
    titlebar @yourlogs - $sline(@yourlogs,1)
    loadbuf -p @yourlogs $logdir $+ $sline(@yourlogs,1)
    sline @yourlogs 15
  }
}

alias logview.newwindow {
  set %logviews.window @ [ $+ [ $sline(@yourlogs,1) ] ]
  set %logviews.file $logdir $+ $sline(@yourlogs,1)
  set %logviews.size $lof(%logviews.file)
  window %logviews.window @LogView Arial 11
  iline %logviews.window 1 12Log Viewer 04 Viewing: $sline(@yourlogs,1) ( $+ %logviews.size bytes) $str($chr(160),175)
  loadbuf %logviews.window $logdir $+ $sline(@yourlogs,1)
  sline %logviews.window 15
}

menu @yourlogs {
  dclick loglist2
  View Log
  .In Window:logview $sline(@yourlogs,1)
  .In New Window:logview.newwindow $sline(@yourlogs,1)
  Search Log Text:logsearch
  -
  Delete Log:dellog $sline(@yourlogs,1)
  Copy Log:copylog
  Rename Log:remlog
  -
  Open Log In Notepad:lognotepad
  -
  Refresh List:logrefresh
  Close Window:window -c @yourlogs
  -
  About:logviews.about
}

alias LogList2 {
  if ($sline(@yourlogs,1).ln == 1 || $sline(@yourlogs,1).ln == 2 || $sline(@yourlogs,1).ln == $null) { halt }
  else logview $sline(@yourlogs,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 @yourlogs | 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 @yourlogs $sline(@yourlogs,1).ln | echo 12Log Organiser %logviews.version 04 %logviews.log.delete DELETED }
  if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete }
}

alias copylog {
  if ($sline(@yourlogs,1).ln == 1 || $sline(@yourlogs,1).ln == 2 || $sline(@yourlogs,1).ln == $null) { halt }
  /copy $logdir $+ $sline(@yourlogs,1) $sdir="Select A Directory To Copy $sline(@yourlogs,1) To:" $+ $sline(@yourlogs,1)
}

alias remlog {
  if ($sline(@yourlogs,1).ln == 1 || $sline(@yourlogs,1).ln == 2 || $sline(@yourlogs,1).ln == $null) { halt }
  else {
    rename $logdir $+ $sline(@yourlogs,1) $logdir $+ $?="Please Enter A New File Name:" | logrefresh
  }
}

alias dellog {
  if ($sline(@yourlogs,1).ln == 1 || $sline(@yourlogs,1).ln == 2 || $sline(@yourlogs,1).ln == $null) { halt } 
  else {
    set %logviews.log.delete $sline(@yourlogs,1)
    window -l+bt @Confirm.Delete 20 20 150 111 @Confirm.Delete Arial 11
    aline @Confirm.Delete 12 Are you 4sure12 you want $str($chr(160),10)
    aline @Confirm.Delete 12 to delete: $str($chr(160),50)
    aline @Confirm.Delete 7 $sline(@yourlogs,1) $+ ? $str($chr(160),100)
    aline @Confirm.Delete 4 ------------------------------------ $str($chr(160),10)
    aline @Confirm.Delete 7 YES $str($chr(160),50)
    aline @Confirm.Delete 12 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 12:) :) :) :) :) :) :) :) :) :) :) 
  aline @Confirm.Delete 4 ------------------------------------ $str($chr(160),10)
  aline @Confirm.Delete 12 Are you 4sure15 you want $str($chr(160),10)
  aline @Confirm.Delete 4 to delete: $str($chr(160),50)
  aline @Confirm.Delete 12 $sline(@yourlogs,1) $+ ? $str($chr(160),100)
  aline @Confirm.Delete 4 ------------------------------------ $str($chr(160),10)
  aline @Confirm.Delete 12 YES $str($chr(160),50)
  aline @Confirm.Delete 7 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 | logrefresh | echo -a 4Log Organiser %logviews.version -12 %logviews.log.delete DELETED! }
  if ($sline(@Confirm.Delete,1).ln == 6) { window -c @Confirm.Delete }
}

alias lognotepad {
  if ($sline(@yourlogs,1).ln == 1 || $sline(@yourlogs,1).ln == 2 || $sline(@yourlogs,1).ln == $null) { halt }
  else run notepad.exe $logdir $+ $sline(@yourlogs,1)
}

alias logsearch {
  if ($window(@yourlogs).title == - $sline(@yourlogs,1)) goto next
  else { logview $sline(@yourlogs,1) | goto next }
  :next
  if ($window(@LogSearch) != $null) /window -c @LogSearch
  window @LogSearch @LogSearch Arial 11
  set %logviews.file $logdir $+ $sline(@yourlogs,1)
  titlebar @LogSearch - $sline(@yourlogs,1) 
  set %logviews.searchstring * [ $+ [ $?="Enter Text To Search For:" ] $+ ] *
  aline @LogSearch 12Log Viewer $str($chr(160),10) 12 Log Searcher
  aline @LogSearch 12 $str($chr(160),20) Searching For:4 %logviews.searchstring 
  filter -fwn %logviews.file @LogSearch %logviews.searchstring
}

menu @LogSearch {
  dclick logsearch2
  Goto Line:logsearch2
  -
  Close Window:window -c @LogSearch
  About:window -a @yourlogs | logviews.about
} 

alias logsearch2 {
  if ($sline(@LogSearch,1).ln == 1 || $sline(@LogLogSearch,1).ln == 2 || $sline(@LogSearch,1).ln == $null) { halt }
  else {
    sline @yourlogs $calc($gettok($sline(@LogSearch,1),1,32) + 10)
    window -a @yourlogs
  }
}

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 12Log Organiser %logviews.version  $str($chr(160),150) 04Log Searcher $str($chr(160),100)
  aline @LogSearch 12 $str($chr(160),20) Searching For:04 %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 @yourlogs | 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
  }
}
menu channel,menubar { 
  logviews:logviews
}

alias thank dialog -mo thank thank
dialog thank {
  title "Channel #Scripts In ArabChat"
  size -1 -1 200 180
  box "",1,5 0 190 70
  text "Thank you for loading this Add-on written by CoteDor. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
  box "",3,5 68 190 86
  text "Banned@LoveMaiL.Com",4,10 80 180 15,center
  edit "http://Chan-Scripts.Cjb.Net",5,33 100 130 22,center,read
  button "Visit",6,70 127 50 20
  button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://chan-scripts.cjb.net 
on *:load:{ thank } }