Code:

Chat with SpawNWaiting for acknowledgement...DCC Chat connection established-<SpawN> Enter your password.<pSy> blacklist<SpawN> Connected to SpawN, running eggdrop v1.6.17<SpawN>      ____                __<SpawN>     / __/___ _ ___ _ ___/ /____ ___   ___<SpawN>    / _/ / _ `// _ `// _  // __// _ \ / _ \<SpawN>   /___/ \_, / \_, / \_,_//_/   \___// .__/<SpawN>        /___/ /___/                 /_/<SpawN>  <SpawN> Hey pSy!  My name is SpawN and I am running eggdrop v1.6.17, on CYGWIN_NT-5.1 1.5.24(0.156/4/2).<SpawN>  <SpawN> Local time is now 02:15<SpawN> You are an owner of this bot. Only +n users can see this! For more info,<SpawN> see .help set motd. Please edit the motd file in your bot's 'text'<SpawN> directory.<SpawN> Use .help for basic help.<SpawN> Use .help <command> for help on a specific command.<SpawN> Use .help all to get a full command list.<SpawN> Use .help *somestring* to list any help texts containing "somestring".<SpawN>  <SpawN> Have fun.<SpawN>  <SpawN> Commands start with '.' (like '.quit' or '.help')<SpawN> Everything else goes out to the party line.<SpawN> You have no messages.<SpawN> *** pSy joined the party line.<SpawN> [02:15] New user peak in #mercenaries: 1.<SpawN> [02:16] Tcl error [qstatrun]: couldn't duplicate input handle: bad file number<SpawN> [02:16] <<pSy>> !pSy! top <SpawN> [02:16] WARNING! No language selected! (getslang())<SpawN> [02:16] Tcl error [pub:qstat]: couldn't duplicate input handle: bad file number

Code:

Chat with SpawNWaiting for acknowledgement...DCC Chat connection established-<SpawN> Enter your password.<pSy> blacklist<SpawN> Connected to SpawN, running eggdrop v1.6.17<SpawN>      ____                __<SpawN>     / __/___ _ ___ _ ___/ /____ ___   ___<SpawN>    / _/ / _ `// _ `// _  // __// _ \ / _ \<SpawN>   /___/ \_, / \_, / \_,_//_/   \___// .__/<SpawN>        /___/ /___/                 /_/<SpawN>  <SpawN> Hey pSy!  My name is SpawN and I am running eggdrop v1.6.17, on CYGWIN_NT-5.1 1.5.18(0.132/4/2).<SpawN>  <SpawN> Local time is now 02:39<SpawN> You are an owner of this bot. Only +n users can see this! For more info,<SpawN> see .help set motd. Please edit the motd file in your bot's 'text'<SpawN> directory.<SpawN> Use .help for basic help.<SpawN> Use .help <command> for help on a specific command.<SpawN> Use .help all to get a full command list.<SpawN> Use .help *somestring* to list any help texts containing "somestring".<SpawN>  <SpawN> Have fun.<SpawN>  <SpawN> Commands start with '.' (like '.quit' or '.help')<SpawN> Everything else goes out to the party line.<SpawN> You have no messages.<SpawN> *** pSy joined the party line.<SpawN> [02:39] #Grigai: mode change '+o SpawN' by pSy!~pSy@aitvaras-F831351B.vln.skynet.lt<SpawN> [02:39] #Grigai: mode change '-o SpawN' by savas!ubaldas@aitvaras.eu<SpawN> [02:39] #Grigai: mode change '+o SpawN' by pSy!~pSy@aitvaras-F831351B.vln.skynet.lt<SpawN> [02:40] #Grigai: mode change '-o SpawN' by savas!ubaldas@aitvaras.eu<SpawN> [02:40] Tcl error [qstatrun]: couldn't create error file for command: no such file or directory<SpawN> [02:40] #grigai (+mRtrn) : [m/14 o/2 h/1 v/7 n/4 b/0 e/1 I/0]<SpawN> [02:40] #Grigai: mode change '+o SpawN' by pSy!~pSy@aitvaras-F831351B.vln.skynet.lt<SpawN> [02:40] Tcl error [pub:qstat]: couldn't create error file for command: no such file or directory<SpawN> [02:41] Tcl error [qstatrun]: couldn't create error file for command: no such file or directory

Code:

Tcl error [qstatrun]: couldn't create error file for command: no such file or directory

Code:

Tcl error [qstatrun]: couldn't duplicate input handle: bad file number

Code:

# set your qstatpathset qstatpath "C:/egg/qstat/qstat.exe"# number of servers to checkset server_number 6set mcn_version "v0.1.1"################################################################ TCL code begins, don't edit unless you know what your doing ################################################################putlog "mapchangenotify $mcn_version loaded"# read server list set slname "mapchangenotify.serverlist"set slct [open $slname "r"]set sdlist [split [read $slct] \n]close $slct#---------------------------------------------------------------------# create server files if they don't existset cfc 0while { $cfc != $server_number } {if {![file exists mapchange]} {set fname "mapchangenotify$cfc.output"set fp [open $fname "w"]close $fpincr cfc}}#---------------------------------------------------------------------bind time - * qstatrun ;# runs every minuteproc qstatrun {m h d mo y} {global qstatpathglobal server_numberglobal slctglobal slglobal sdlistset server_count 0set slcount 0while {$server_count != $server_number} {# read old map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set qstatxmlfile [split [read $fp] \n]close $fp#-------------------------------------------------------------------------# using regex to find the right lines, yeah i know 50 lines is over kill.set qstatxmlgameline 20set qstatxmlmapline 20set findrightlines 0set findrightlinesmax 20while { $findrightlines != $findrightlinesmax } {set poon [lindex $qstatxmlfile $findrightlines]if { [regexp "<map>(.*)</map>" $poon] == 1} {set qstatxmlmapline $findrightlines} incr findrightlines}#-------------------------------------------------------------------------set mapline [lindex $qstatxmlfile $qstatxmlmapline]# strip out <map> and <\map>set oldmap [string range $mapline 7 [expr [string length $mapline] - 7]]#-------------------------------------------------------------------------# set server list set qstatgametype [lindex $sdlist $slcount] ; incr slcountset qstatserverip [lindex $sdlist $slcount] ; incr slcountset qstataddedtext [lindex $sdlist $slcount] ; incr slcountset qstatircchan [lindex $sdlist $slcount] ; incr slcount#-------------------------------------------------------------------------exec $qstatpath $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output# read new map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set qstatxmlfile [split [read $fp] \n]close $fp#-------------------------------------------------------------------------# using regex to find the right lines, yeah i know 50 lines is over kill.set qstatxmlgameline 20set qstatxmlmapline 20set findrightlines 0set findrightlinesmax 20while { $findrightlines != $findrightlinesmax } {set poon [lindex $qstatxmlfile $findrightlines]if { [regexp "<map>(.*)</map>" $poon] == 1} {set qstatxmlmapline $findrightlines} if { [regexp "<gametype>(.*)</gametype>" $poon] == 1} {set qstatxmlgameline $findrightlines} incr findrightlines}#-------------------------------------------------------------------------set gametypeline [lindex $qstatxmlfile $qstatxmlgameline]set mapline [lindex $qstatxmlfile $qstatxmlmapline]# strip out <map> and <\map>set newmap [string range $mapline 7 [expr [string length $mapline] - 7]]# strip out <gametype> and <\gametype>set gametype [string range $gametypeline 12 [expr [string length $gametypeline] - 12]]#--------------------------------------------------------------------------# if qstat hit the server at the wrong time nothing is returned so having another crack at itset recheckbreak 0set mlbroken 0while {[string length $mapline] < 1} {exec $qstatpath $qstatgametype $qstatserverip -xml -of mapchangenotify$server_count.output# read new map nameset fname "mapchangenotify$server_count.output"set fp [open $fname "r"]set qstatxmlfile [split [read $fp] \n]close $fp#------------------------------------------------------------------------# using regex to find the right lines, yeah i know 50 lines is over kill.set qstatxmlgameline 20set qstatxmlmapline 20set findrightlines 0set findrightlinesmax 20while { $findrightlines != $findrightlinesmax } {set poon [lindex $qstatxmlfile $findrightlines]if { [regexp "<map>(.*)</map>" $poon] == 1} {set qstatxmlmapline $findrightlines} if { [regexp "<gametype>(.*)</gametype>" $poon] == 1} {set qstatxmlgameline $findrightlines} incr findrightlines}#------------------------------------------------------------------------set gametypeline [lindex $qstatxmlfile $qstatxmlgameline]set mapline [lindex $qstatxmlfile $qstatxmlmapline]# strip out <map> and <\map>set newmap [string range $mapline 7 [expr [string length $mapline] - 7]]# strip out <gametype> and <\gametype>set gametype [string range $gametypeline 12 [expr [string length $gametypeline] - 12]]incr recheckbreakif {$recheckbreak == 2} { set mlbroken 1 ; break }}#-----------------------------------------------------------------------------------------------------------------------------------------incr server_countif {$newmap != $oldmap && $mlbroken == 0 }  {     puthelp "PRIVMSG $qstatircchan :$qstataddedtext $newmap "   }}}

Code:

set qstat_flag "-|-"set pathqstat "c:/egg/qstat"set nopub ""bind pub $qstat_flag "!cs"  pub:qstatbind pub $qstat_flag "!csp"  pub:qstatbind pub $qstat_flag "!css"  pub:qstatbind pub $qstat_flag "!cssp"  pub:qstatbind pub $qstat_flag "!q4"  pub:qstatbind pub $qstat_flag "!q4p"  pub:qstatproc pub:qstat {nick host hand chan arg} {  global lastbind pathqstat nopub  if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}  set arg [lindex $arg 0]  if {[string length [string trim $arg]] == 0} {    putquick "NOTICE $nick :1,0Syntax: $lastbind <IP/Host>"    return 0  }  switch [string tolower $lastbind] {    "!cs"     { set gametype "-a2s";  set players 0 }    "!csp"     { set gametype "-a2s";  set players 1 }    default {      putquick "NOTICE $nick :1,0Unknown Command"      return 0    }  }  # run the qstat program.   if {$players} {     set stat [open "|$pathqstat/qstat.exe $gametype $arg -Ts $pathqstat/server.qstat -Tp $pathqstat/players.qstat -P" r]   } else {     set stat [open "|$pathqstat/qstat.exe $gametype $arg -Ts $pathqstat/server.qstat" r]   }  qstat:results $chan $nick $stat  close $stat  return 0}proc qstat:results {chan nick pf} {    while {[gets $pf line] >= 0} {       if {[string match "DOWN*" $line]} {          putquick "NOTICE $nick :Connection refused while querying server."          break       } elseif {[string match "HOSTNOTFOUND*" $line]} {          putquick "NOTICE $nick :Host not found."          break       } elseif {[string match "TIMEOUT*" $line]} {          putquick "NOTICE $nick :Timeout while querying server."          break       }       set msg [split $line]       set string ""       foreach query $msg {          if {[string length $string] + [string length $query] < 458} {             append string "$query "          } else {             putquick "NOTICE $nick :$string"             set string ""          }       }       if {$string != ""} {          putquick "NOTICE $nick :$string"       }    } }

Code:

[22:56] Tcl error [pub:qstat]: couldn't duplicate input handle: bad file number

Code:

  if {$players == 1} {    catch { exec $qstat(path)/qstat -timeout 5 $gametype $arg -Ts $qstat(path)/server.qstat -Tp $qstat(path)/players.qstat -P } lines  } else {    catch { exec $qstat(path)/qstat -timeout 5 $gametype $arg -Ts $qstat(path)/server.qstat } lines  }