egghelp/eggheads community

qstat4eggdrop

2004-01-09T02:28:10-04:00

sure, you just have to addapt the binds and add the data to the switch (with the correct game parameter)

Statistics: Posted by GodOfSuicide — Fri Jan 09, 2004 2:28 am

qstat4eggdrop

2004-01-08T17:38:09-04:00

Just one other small thing would that work with lots of server's say !myserver1 !mayserver2 !myserver3 and so on i'm a bit new to tcl

Statistics: Posted by Guest — Thu Jan 08, 2004 5:38 pm

qstat4eggdrop

2004-01-08T16:11:00-04:00

Thanks m8 it works thanks for the help

Statistics: Posted by Guest — Thu Jan 08, 2004 4:11 pm

qstat4eggdrop

2004-01-08T14:41:21-04:00

TCL Archive

and what protocols are supported depends on what qstat can do..

they allways add new games and protocols.

Statistics: Posted by GodOfSuicide — Thu Jan 08, 2004 2:41 pm

qstat4eggdrop

2004-01-08T14:20:05-04:00

this scipt works for unreal tournament servers? if so tell me where can i down it?

Statistics: Posted by Guest — Thu Jan 08, 2004 2:20 pm

qstat4eggdrop

2004-01-08T12:48:19-04:00

Code:

bind pub -|- !myserver qstat:myserver proc qstat:myserver { nick uhost hand chan arg } {  pub:qstat $nick $uhost $hand $chan "127.0.0.1:1337" }

add this to the switch

Code:

"!myserver"     { set gametype "-q3s";  set players 0 }

my answer was based on the TCL i had im my archive, seams this one is different

Statistics: Posted by GodOfSuicide — Thu Jan 08, 2004 12:48 pm

qstat4eggdrop

2004-01-07T15:01:55-04:00

Hi

I tryed that and i get this error

Code:

Tcl error [qstat:myserver]: invalid command name "q3s"

i tryed -q3s as well but it dont work here's what it got in the tcl

Code:

set qversion "2.2"bind pub $qstat_flag "!ut"  pub:qstatbind pub $qstat_flag "!hl"  pub:qstat bind pub $qstat_flag "!cs"  pub:qstatbind pub $qstat_flag "!qw"  pub:qstatbind pub $qstat_flag "!q1"  pub:qstat bind pub $qstat_flag "!q2"  pub:qstat bind pub $qstat_flag "!q3"  pub:qstat bind pub $qstat_flag "!rcw" pub:qstatbind pub $qstat_flag "!bf"  pub:qstatbind pub $qstat_flag "!gs"  pub:qstatbind pub $qstat_flag "!ut2k3"  pub:qstatbind pub $qstat_flag "!ut2003" pub:qstatbind pub $qstat_flag "!utp"  pub:qstatbind pub $qstat_flag "!hlp"  pub:qstatbind pub $qstat_flag "!qwp"  pub:qstatbind pub $qstat_flag "!q1p"  pub:qstatbind pub $qstat_flag "!q3p"  pub:qstatbind pub $qstat_flag "!q2p"  pub:qstatbind pub $qstat_flag "!rcwp" pub:qstatbind pub $qstat_flag "!bfp"  pub:qstatbind pub $qstat_flag "!ut2k3p"  pub:qstatbind pub $qstat_flag "!ut2003p" pub:qstatbind pub $qstat_flag "!qstat" pub:qstat_helpproc pub:qstat_help {nick host hand chan arg} {  global pathqstat nopub  # check if channel is allowed.  if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}  # output qstat commands / help.  putserv "NOTICE $nick :Qstat commands:"  putserv "NOTICE $nick :\002!qw / !q1 / !q2 / !q3 / !rcw \002 - Displays status of queried Quake World, 1, 2, 3 or RTCW servers"  putserv "NOTICE $nick :\002!ut / !ut2003 / !hl / !bf / !gs \002 - Displays status of queried UT(2003), Half-life, BF1942 and GameSpy servers"  return 0}proc pub:qstat {nick host hand chan arg} {  global lastbind pathqstat nopub  # check if channel is allowed.  if {[lsearch -exact $nopub [string tolower $chan]] >= 0} {return 0}  # only use one argument.  set arg [lindex $arg 0]  # check for input.  if {[string length [string trim $arg]] == 0 || [qstat:input_check $arg]} {    putquick "NOTICE $nick :Syntax: $lastbind "    return 0  }  # figure out which command was used.  switch [string tolower $lastbind] {    "!hl"     { set gametype "-hls";  set players 0 }    "!cs"     { set gametype "-hls";  set players 0 }    "!ut"     { set gametype "-uns";  set players 0 }    "!qw"     { set gametype "-qws";  set players 0 }    "!q1"     { set gametype "-qs";   set players 0 }    "!q2"     { set gametype "-q2s";  set players 0 }    "!q3"     { set gametype "-q3s";  set players 0 }    "!rcw"    { set gametype "-rwm";  set players 0 }    "!bf"     { set gametype "-gps";  set players 0 }    "!gs"     { set gametype "-gps";  set players 0 }    "!ut2k3"  { set gametype "-ut2s"; set players 0 }    "!ut2003" { set gametype "-ut2s"; set players 0 }    "!hlp"     { set gametype "-hls";  set players 1 }    "!utp"     { set gametype "-uns";  set players 1 }    "!qwp"     { set gametype "-qws";  set players 1 }    "!q1p"     { set gametype "-qs";   set players 1 }    "!q2p"     { set gametype "-q2s";  set players 1 }    "!q3p"     { set gametype "-q3s";  set players 1 }    "!rcwp"    { set gametype "-rwm";  set players 1 }    "!bfp"     { set gametype "-gps";  set players 1 }    "!ut2k3p"  { set gametype "-ut2s"; set players 1 }    "!ut2003p" { set gametype "-ut2s"; set players 1 }    default {      putquick "NOTICE $nick :Unknown command."      return 0    }  }  # run the qstat program.  if {$players} {     set stat [open "|$pathqstat/qstat -timeout 5 $gametype $arg -Ts $pathqstat/server.qstat -Tp $pathqstat/players.qstat -P" r]  } else {    set stat [open "|$pathqstat/qstat -timeout 5 $gametype $arg -Ts $pathqstat/server.qstat" r]  }  # output the result.  qstat:results $chan $nick $stat  # close fork, end program.  close $stat  return 0}# show results.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    }    putquick "PRIVMSG $chan :$line"    }}# check for valid charsproc qstat:input_check {text} {  if {[regexp \[^\[:alnum:\]_\.\:\] $text]} { return 1 }  if {[string match "0*" $text]} { return 1 }  return 0}

thx for the help btw

Statistics: Posted by Guest — Wed Jan 07, 2004 3:01 pm

qstat4eggdrop

2004-01-07T13:26:15-04:00

Code:

bind pub -|- !myserver qstat:myserverproc qstat:myserver { nick uhost hand chan arg } { q3s $nick $uhost $hand $chan "127.0.0.1:1337"}

Statistics: Posted by GodOfSuicide — Wed Jan 07, 2004 1:26 pm

qstat4eggdrop

2004-01-07T13:08:13-04:00

hmm does it support normal eggdrop scripts ..?

Statistics: Posted by Ofloo — Wed Jan 07, 2004 1:08 pm

qstat4eggdrop

2004-01-07T12:10:45-04:00

Hi

Ive been running qstat4eggdrop for a while now but ive been trying to make so that when someone types say !JoltET1 it will come back with the name of the server and ip same as if they type say !q3 ***.***.***:**** would this be Possible?
I'm running qstat4eggdrop 2.2

Statistics: Posted by Guest — Wed Jan 07, 2004 12:10 pm