Code:

# plural proc...proc plur {num {add s} {add2 ""}} {expr {$num!=1?$add:$add2}}# test...foreach i {0 1 32} {puts "There[plur $i " are" "'s"] currently $i bot[plur $i] online."}# result:There are currently 0 bots online.There's currently 1 bot online.There are currently 32 bots online.

Code:

bind pub n !test testproc test {nick uhost hand chan arg} {set defaults {charname none location none action none}array set a [parseIni your.ini]# plural ending (bot(s)) based on the number :Pputserv "PRIVMSG $chan :There are currently [array size a] bot[expr {[array size a]!=1?"s":""}] logged in."foreach bot [lsort -dict [array names a]] {   array set b [concat $defaults $a($bot)]   putserv "PRIVMSG $chan :$bot: ($b(charname)) $b(location) ($b(action))"}}

Code:

while {[gets $fs line]>-1} {  if {![string len $line]} continue  # this makes it ignore empty lines and just skip to the next  # but you don't need that as you create the file and don't write any  # empty lines to it :)    # insert the rest of your code here}

Code:

proc list_bots {nick uhost hand chan args} {   global nowhere mainchanbots inifilebots# i took the liberty to rewrite this 'if' a bit..just to make it easier to read (the result is the same)  if {$chan != $mainchanbots} {return 0}  set i 0   foreach {name value} [parseIni bots.ini] {     set check [ini_read bots.ini ${name} location]     set displayname [ini_read $inifilebots ${name} display]     set botcharname [ini_read $inifilebots ${name} charname]     set botloc [ini_read $inifilebots ${name} location]     set botact [ini_read $inifilebots ${name} action] # you should open the file outside the foreach loop and close it after the end..no point hammering the poor file that way :P# but why are you writing it to a file in the first place? why not keep the lines in a variable?    set fs [open bots.tmp a+]# this 'string match' should be replaced by a 'string equal' I guess.# Although I don't get the point of ignoring one bot..why is it in the file if you don't want to know about it? And why go through all that hard work in the previous lines just to end up ditching the data gathered?    if {![string match $check $nowhere]} {# here you write it as a string, but you later treat it as a list (using 'lindex' on it when reading it back in)      puts $fs "$displayname $botcharname $botloc $botact"       incr i     }     close $fs   }# the number of bots can be determined without this counter if you use one of the examples from my previous post  if {$i <= 0} {     putserv "PRIVMSG $mainchanbots :\<\0032There are currently\003\0034\002 0 \002\003\0032bots logged in.\003\>"   }   if {$i > 0} {     putserv "PRIVMSG $mainchanbots :\<\0032There are currently\003\0034\002 $i \002\003\0032bot\(s\) logged in.\003\>"   }# using a timer to delete the file doesn't make sense to me...why are you doing it?  utimer 5 deletefile  set fs [open bots.tmp r]     while {![eof $fs]} {      if {![gets $fs line]} {# danger danger! :P by returning at this point you end up leaving the file channel open and eventually your interpreter will hang because of too many open files       return 0# you did this check when creating the file     } elseif {[lindex $line 2] != $nowhere} {# using 'lindex' on a string for the next 4 lines (will cause errors if your data contains special chars like [ and {)       set displayname [lindex $line 0]        set botcharname [lindex $line 1]        set botloc [lindex $line 2]        set botact [lrange $line 3 end] # a little late to do this check now? :P       if {$displayname == ""} {          close $fs          return 0        }         putserv "PRIVMSG $mainchanbots :\002$displayname\:\002 \(\0032$botcharname\003\) \0034$botloc\003 \(\0036$botact\003\)"       }     }   close $fs   return 0}

Code:

proc list_bots {nick uhost hand chan args} {  global nowhere mainchanbots inifilebots  if {$chan == $mainchanbots} {  set i 0  foreach {name value} [parseIni bots.ini] {     set check [ini_read bots.ini ${name} location]    set displayname [ini_read $inifilebots ${name} display]    set botcharname [ini_read $inifilebots ${name} charname]    set botloc [ini_read $inifilebots ${name} location]    set botact [ini_read $inifilebots ${name} action]    set fs [open bots.tmp a+]    if {![string match $check $nowhere]} {      puts $fs "$displayname $botcharname $botloc $botact"      incr i    }    close $fs  }  if {$i <= 0} {    putserv "PRIVMSG $mainchanbots :\<\0032There are currently\003\0034\002 0 \002\003\0032bots logged in.\003\>"  }  if {$i > 0} {    putserv "PRIVMSG $mainchanbots :\<\0032There are currently\003\0034\002 $i \002\003\0032bot\(s\) logged in.\003\>"  }  utimer 5 deletefile  set fs [open bots.tmp r]    while {![eof $fs]} {     if {![gets $fs line]} {       return 0     } elseif {[lindex $line 2] != $nowhere} {       set displayname [lindex $line 0]       set botcharname [lindex $line 1]       set botloc [lindex $line 2]       set botact [lrange $line 3 end]       if {$displayname == ""} {         close $fs         return 0       }        putserv "PRIVMSG $mainchanbots :\002$displayname\:\002 \(\0032$botcharname\003\) \0034$botloc\003 \(\0036$botact\003\)"       }    }   close $fs  return 0  }}

Code:

foreach {name attr} [parseIni your.ini] {array set a $attrputserv "PRIVMSG #chan :$name: ($a(charname)) $a(location) ($a(action))"}

Code:

array set a [parseIni your.ini]foreach bot [lsort -dict [array names a]] {array set b $a($bot)putserv "PRIVMSG #chan :$bot: ($b(charname)) $b(location) ($b(action))"}

Code:

set defaults {charname nonelocation noneaction none}array set a [parseIni your.ini]foreach bot [lsort -dict [array names a]] {array set b [concat $defaults $a($bot)]putserv "PRIVMSG #chan :$bot: ($b(charname)) $b(location) ($b(action))"}