/ScriptServ

;Q.Log 1.05
;by ch1zra
;ch1zra@gmail.com
;#Scripters #Sobica_Zr @ irc.krstarica.com
;© 2004 Up The Irons ! inc.
; ~~~ on load & unload ~~~
on 1:load: {
  if ($version > 6.0) { 
    echo $color(highlight) Q.Log 1.05 by ch1zra loaded... 
    echo   
    echo $color(info) ch1zra@gmail.com 
    window -wka @Q.Log 
    clear @Q.Log 
    set %qlog.time $time(dd mmmm yyyy ( dddd ) - HH:mm:ss TT)
    write qlog.txt *******************
    write qlog.txt Q.Log 
    write qlog.txt by ch1zra
    write qlog.txt 4ch1zra@gmail.com  
    write qlog.txt #Scripters #Sobica_Zr @ irc.krstarica.com
    write qlog.txt Loaded %qlog.time
    write qlog.txt *********************************************************
    write qlog.txt 
    loadbuf @Q.Log QLog.tXt 
  }
  else { 
    echo  Version 6.0 or higher required, get a newer version of mirc at http://www.mirc.com 
    unload -rs $script
  }
}  
on 1:unload: {
  window -c @Q.log
  unset %qlog.* 
  echo $color(info) Bye, bye... 
  if ($exists($mircdir\qlog.txt)) {
    remove qlog.txt 
  }
}
; ~~~ aliases ~~~
alias qlog.show {
  if ($exists($mircdir\qlog.txt)) {
    window -wak @Q.Log
    clear @Q.Log
    loadbuf @Q.Log QLog.tXt 
  }
  else { 
    echo  $color(highlight) > Could not find QLog.tXt file... 
    echo  $color(highlight) > Creating new QLog.tXt file...
    set %qlog.restime $time(dd mmmm yyyy ( dddd ) - HH:mm:ss TT)
    write QLog.tXt *******************
    write qlog.txt > Q.Log 1.05
    write qlog.txt > by ch1zra
    write qlog.txt > 4ch1zra@gmail.com  
    write qlog.txt > #Scripters #Sobica_Zr @ irc.krstarica.com
    write qlog.txt > 
    write qlog.txt > Could not locate previous data, new log created on :
    write qlog.txt > %qlog.restime
    write qlog.txt *********************************************************
    write qlog.txt 
    window -wak @Q.Log 
    clear @Q.Log 
    loadbuf @Q.Log QLog.tXt 
  }
}
; ~~~ event ~~~
on *:OPEN:?:*: {
  set %Qlog.nick $nick ( $address($nick,1) )
  set %qlog.time  $time(dd mmmm yyyy ( dddd ) - HH:mm:ss TT)
  write QLog.txt *** %qlog.time  ===    %qlog.nick
  notice $nick -[ Automated msg ]- I'll be with you in a sec... 
  if ($window(@Q.Log)) {
    clear @Q.Log 
    loadbuf @Q.Log QLog.tXt
  }
  else { halt }
}
;~~~ menus ~~~
menu menubar,channel,status,query {
  Q.Log
  .Show:qlog.show
  .Hide:window -hk @Q.Log 
}
menu menubar {
  Q.Log
  .Unload
  ..Yes:unload -rs $script
  ..No:echo $color(info) Script remains... | echo $color(info) ch1zra@gmail.com
}
menu @Q.Log {
  Q.Log
  .Close:window -h @Q.Log
}
;Q.Log 1.05
;by ch1zra
;ch1zra@gmail.com
;#Scripters #Sobica_Zr @ irc.krstarica.com
;© 2004 Up The Irons ! inc.