egghelp/eggheads community

help with server tcl

2012-02-20T18:31:47-04:00

Thanx speechless now its working perfect... and special thnx to Johannes13 for helping and working on this tcl .. thanks once again guys

Statistics: Posted by janii — Mon Feb 20, 2012 6:31 pm

help with server tcl

2012-02-16T04:27:22-04:00

Code:

namespace eval ::jumptrigger {   if {[info exists serverlist]} { unset serverlist }   variable serverlist   array set serverlist {      punch punch.va.us.dal.net      krypt krypt.ca.us.dal.net   }   bind pubm m|- * [namespace current]::dojump   proc dojump {n u h c t} {      variable serverlist      if {[string index $t 0] eq "!"} {         set srv [string range $t 1 end]         if {[info exists serverlist($srv)]} {            jump $serverlist($srv)         }      }   }}

Added code to de-init server list and reset it into local namespace as an array.

Statistics: Posted by speechles — Thu Feb 16, 2012 4:27 am

help with server tcl

2012-02-15T18:47:38-04:00

still not working same error
if its not working on array thn do lemme knw how to install tcl 8.5 in my eggdrop bot

Statistics: Posted by janii — Wed Feb 15, 2012 6:47 pm

help with server tcl

2012-02-13T16:17:14-04:00

make sure there is no older script that uses the ::jumptrigger namespace.
And make sure there is no set jumptrigger {...} statement, only array set jumptrigger {...}
(.rehash with the new script without unsetting jumptrigger::serverlist could have caused this)

ohh, and I made some mistakes.. (I should use paste.tclhelp.net to check it)

Code:

namespace eval ::jumptrigger {array set serverlist {punch punch.va.us.dal.netkrypt krypt.ca.us.dal.net}bind pubm m|- * [namespace current]::dojumpproc dojump {n u h c t} {variable serverlistif {[string index $t 0] eq "!"} {set srv [string range $t 1 end]if {[info exists serverlist($srv)]} {jump $serverlist($srv)}}}}

Statistics: Posted by Johannes13 — Mon Feb 13, 2012 4:17 pm

help with server tcl

2012-02-13T14:28:53-04:00

thnx for helping so much
but m still having problem running this code now i got the below error
<(Trivia> [22:12:27] can't set "serverlist(punch)": variable isn't array
<(Trivia> while executing
<(Trivia> "array set serverlist {
<(Trivia> punch punch.va.us.dal.net
<(Trivia> krypt krypt.ca.us.dal.net
<(Trivia> choopa choopa.nj.us.dal.net
<(Trivia> under underworld.se.eu.dal.n..."
<(Trivia> (in namespace eval "::jumptrigger" script line 2)
<(Trivia> invoked from within
<(Trivia> "namespace eval ::jumptrigger {
<(Trivia> array set serverlist {
<(Trivia> punch punch.va.us.dal.net
<(Trivia> krypt krypt.ca.us.dal.net
<(Trivia> choopa choopa.nj.us.dal.ne..."
<(Trivia> (file "scripts/server.t
<(Trivia> [22:12:27] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
<(Trivia> [11] Chat closed
Please help resolving this error

Statistics: Posted by janii — Mon Feb 13, 2012 2:28 pm

help with server tcl

2012-02-12T11:10:09-04:00

Ok, you need at least tcl 8.5 for this.
Reinstall tcl and recompile eggdrop.

to add servers, look at this bit:

Code:

set serverlist {    punch punch.va.us.dal.net    krypt krypt.ca.us.dal.net  }

If you want to add foo,
you want to change it to

Code:

set serverlist {    punch punch.va.us.dal.net    krypt krypt.ca.us.dal.net    foo foo.bar.dal.net  }

(I don't know the names of all dal net servers, so foo is just an example.
And I'm too lazy to look them up for you.

mhh, I might create a version based on arrays, that will work with tcl 8.4

Code:

namespace eval ::jumptrigger {  array set serverlist {    punch punch.va.us.dal.net    krypt krypt.ca.us.dal.net  }  bind pubm m|- * [namespace current]::dojump   proc dojump {n u h c t} {    variable serverlist    if {[string index $t 0] eq "!"} {      set srv [string range $t 1 end]      if {[info exist $serverlist($srv)]} {        jump $serverlist($srv)]      }    }  }}

Ok, one last thing: if you want that other guys than masters can use this command, change in line

Code:

  bind pubm m|- * [namespace current]::dojump

m|- with the flags you want to allow. See .help whois

Statistics: Posted by Johannes13 — Sun Feb 12, 2012 11:10 am

ty

2012-02-10T19:37:38-04:00

thank you for the help but i need a further help with thanx
problem is this code is working with eggdrop v1.6.20, on FreeBSD 7.3-RELEASE-p10.
but not on
eggdrop v1.6.20, on FreeBSD 8.0-RELEASE-p6.
i get this error in party line on freebsd 8.0
Tcl error [::jumptrigger::dojump]: invalid command name "dict"
any help regarding this is appreciated
and how can i add few nicks to use the !punch !krypt command in place of just bot masters

Statistics: Posted by janii — Fri Feb 10, 2012 7:37 pm

help with server tcl

2012-01-31T14:04:24-04:00

Sounds easy...
But YOU have to setup all the servers...

Ohh, and I limited it to bot masters.

Code:

namespace eval ::jumptrigger {  set serverlist {    punch punch.va.us.dal.net    krypt krypt.ca.us.dal.net  }  bind pubm m|- * [namespace current]::dojump    proc dojump {n u h c t} {    variable serverlist    if {[string index $t 0] eq "!"} {      set srv [string range $t 1 end]      if {[dict exist $serverlist $srv]} {        jump [dict get $serverlist $srv]      }    }  }}

Statistics: Posted by Johannes13 — Tue Jan 31, 2012 2:04 pm

noone

2011-12-30T16:01:06-04:00

hello can any1 help me on tht?

Statistics: Posted by janii — Fri Dec 30, 2011 4:01 pm

help with server tcl

2011-12-07T10:40:49-04:00

Moderated: Moved to "Script Request"

/NML_375

Statistics: Posted by nml375 — Wed Dec 07, 2011 10:40 am

help with server tcl

2011-12-06T21:24:57-04:00

hello i want a tcl for dalnet like this
!punch
and the bot shall jump to punch.va.us.dal.net
!krypt
and the bot shall jump to krypt.ca.us.dal.net

and only specified users shall use this command in the channel any help will be appreciated thank you

Statistics: Posted by janii — Tue Dec 06, 2011 9:24 pm