egghelp/eggheads community

Making a socket TCL script work with eggdrop

2008-07-09T15:26:34-04:00

good idea about this script.. if you fix it plz release it.. if you want.. will be great

thx

Statistics: Posted by ultralord — Wed Jul 09, 2008 3:26 pm

Making a socket TCL script work with eggdrop

2008-01-24T10:29:54-04:00

You really don't need vwait, or rather, should not use vwait in eggdrop, as this will block eggdrop's own event-engine (different than tcl's engine). Also, eggdrop calls the Tcl_DoOneEvent within the main-loop stepping tcl's event-engine.
Drop the vwait, and your script should work pretty ok.

Statistics: Posted by nml375 — Thu Jan 24, 2008 10:29 am

Making a socket TCL script work with eggdrop

2008-01-23T17:24:14-04:00

I've never seen or figured out how vwait is supposed to be used. But in your case, you'd probably be better off using a 'while' loop, while not EOF, gets $gsSock, something along those lines.

Statistics: Posted by rosc2112 — Wed Jan 23, 2008 5:24 pm

Making a socket TCL script work with eggdrop

2008-01-23T09:40:45-04:00

Hi All,

I would be very grateful if someone could point me in the right direction with something I'm a bit stuck on.

I'll admit I'm a beginner TCL programmer, but have coded in various other languages before.

Basically I have a TCL script that works fine if I run it outside of Eggdrop, however when loading it in Eggdrop I'm hitting some issues.

What my script does is connect to a TCP port on a gameserver, login and monitor chat taking place on the server. It then simply prints any chat messages it finds.

I believe the problem to be because I'm using "vwait eventLoop". This causes the bot to hang while loading, and I'm a bit unsure of how I should rewrite this to be eggrop friendly.

My script is below and I would be very grateful for any help I can get in getting this to work with eggdrop.

Thanks!!

Code:

# Set server connection detailsset gsname "xxxx"set gsip "xxxx"set gsadmport xxxxset gspass "xxxx"set gsnick "xxx"# Handle output from the server and print chat messages to channelproc read_sock {sock} {  set l [gets $sock]   if {[string match *Chat* $l]} {    puthelp "PRIVMSG #gsadmins :Server #02 - $l"   }}# Setup the connectionset gsSock [socket $gsip $gsadmport]# Monitor the socketfileevent $gsSock readable [list read_sock $gsSock]# Line buffer the socketfconfigure $gsSock -buffering line# Send admin passwordputs $gsSock "$gspass"# Identify us!puts $gsSock "/nick $gsnick"# Wait and handle eventsvwait eventLoop

[/code]

Statistics: Posted by sparc317 — Wed Jan 23, 2008 9:40 am