--- a/tj.tcl	Sun Sep 11 17:43:32 2011 +0300
+++ b/tj.tcl	Sun Sep 11 17:48:23 2011 +0300
@@ -1,4 +1,4 @@
-############################################################################
+##########################################################################
 #
 # TJ (Army Mornings Left-counter) v0.60 by ccr/TNSP
 # (C) Copyright 2000,2009,2011 Tecnic Software productions (TNSP)
@@ -16,16 +16,16 @@
 # !tjaamut <[-]aamujen lkm tasta hetkesta laskien> [+/- tunnit]
 # !tjset dd.mm.yyyy hh:mm
 #
-############################################################################
+##########################################################################
 
 # Default starting TJ
 set tj_defstarttj 180
 
 
 
-############################################################################
+##########################################################################
 # No need to look below this line
-############################################################################
+##########################################################################
 set tj_message "TJ (SA-INT model) v0.65 by ccr/TNSP"
 set tj_dateident "tjdate"
 set tj_preferredmsg "PRIVMSG"
@@ -35,7 +35,7 @@
 bind pub - !tjaamut tj_pubaamut
 bind pub - !tjset tj_pubset
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
 proc tj_correctnickcase { jnick } {
 
   if {![validuser $jnick]} { return "" }
@@ -51,7 +51,7 @@
 }
 
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------
 proc tj_smsg {udest umsg} {
   global tj_preferredmsg
 
@@ -59,7 +59,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_pubmsg {nick uhost hand chan args} {
   set args [string trim [join $args ""]]
   if {$args == ""} { set args $hand }
@@ -69,13 +69,13 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_ctime { utime } {
   return [clock format $utime -format "%d.%m.%Y %H:%M"]
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_pubaamut {unick uhost uhand uchan uargs} {
   set foo [split $uargs " "]
   set tjdays [lindex $foo 0]
@@ -93,7 +93,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_pubset {unick uhost uhand uchan uargs} {
 
   set udate [clock scan $uargs -format "%d.%N.%Y %H:%M"]
@@ -102,7 +102,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_settj { uuser unick udate } {
   global tj_dateident
 
@@ -115,7 +115,7 @@
 }
 
 
-# -------------------------------------------------------------------------  
+# ------------------------------------------------------------------------
 proc tj_gettj {ihandle ichan} {
   global tj_defstarttj
   global tj_dateident
@@ -191,4 +191,4 @@
 
 }
 
-# -------------------------------------------------------------------------
+# ------------------------------------------------------------------------