--- a/weather.tcl	Mon Jun 02 20:25:31 2014 +0300
+++ b/weather.tcl	Mon Jun 02 21:43:46 2014 +0300
@@ -173,14 +173,19 @@
 
 
 #-------------------------------------------------------------------------
+proc weather_item {udata uindex ufmt} {
+  if {[llength $udata] > $uindex && [lindex $udata $uindex] != ""} {
+    set utmp [lindex $udata $uindex]
+    return [string map [list "@@" $utmp] $ufmt]
+  }
+  return ""
+}
+
 proc weather_get_data {ukey udata} {
   set str "\002[lindex $udata 0]\002, mitattu klo [weather_ctime [lindex $udata 1]]: \002[lindex $udata 2]°C\002"
-  if {[llength $udata] > 3} {
-    append str ", tien pinta [lindex $udata 3]°C"
-  }
-  if {[llength $udata] > 4} {
-    append str ", [lindex $udata 4]"
-  }
+  append str [weather_item $udata 4 ", @@"]
+  append str [weather_item $udata 5 ", kosteus \002@@%\002"]
+  append str [weather_item $udata 3 ", tien pinta @@°C"]
   return "${str}."
 }