egghelp/eggheads community

Help with sockets when converting mirc to tcl.

2005-02-03T04:28:40-04:00

I spent all afternoon looking at other scripts trying to make something work.

Would it look something like this?
Code:
bind join - "$channel %" socker -webserver.com 
The manual is very overwhelming. I just need to host this script for a webserver, I have no patience trying to self learn tcl from scratch.

This should be directed to a proc in my case:

Code:

bind join - "#channelname" socker:webserverproc socker:webserver {nick uhost hand chan} {  #Not sure what this does though.  socker -webserver.com  #Put other stuff in here...  ..............  .............  ...........}

Statistics: Posted by awyeah — Thu Feb 03, 2005 4:28 am

Help with sockets when converting mirc to tcl.

2005-02-03T00:33:35-04:00

This forum (and site) is dedicated to eggdrop and the TCL scripts it uses, it's definitely not a mIRC scripting site. You'd be lucky to find one of us that could even come close to understanding that mIRC "language" let alone any one (if they did) bothering to re-write it into TCL. It's not generally something we do. Try using the Search button up top and using "socket" as your keyword; you might just get lucky.

Statistics: Posted by Alchera — Thu Feb 03, 2005 12:33 am

Help with sockets when converting mirc to tcl.

2005-02-02T20:30:01-04:00

So, I need to take a tcl course to host a script?

I am just asking for some direction on the script, I do not even know where to look, nor do I know the tcl equivalent for the mirc commands used.

Statistics: Posted by SamuelRight — Wed Feb 02, 2005 8:30 pm

Help with sockets when converting mirc to tcl.

2005-02-02T20:21:46-04:00

I have no patience trying to self learn tcl from scratch.

And we have no patience in helping those that will not help themselves.

Statistics: Posted by Alchera — Wed Feb 02, 2005 8:21 pm

Help with sockets when converting mirc to tcl.

2005-02-02T20:18:22-04:00

I spent all afternoon looking at other scripts trying to make something work.

Would it look something like this?

Code:

bind join - "$channel %" socker -webserver.com

The manual is very overwhelming. I just need to host this script for a webserver, I have no patience trying to self learn tcl from scratch.

Statistics: Posted by SamuelRight — Wed Feb 02, 2005 8:18 pm

Help with sockets when converting mirc to tcl.

2005-02-02T19:48:36-04:00

Have you read the TCL manual or even attempted to write this yourself?

Statistics: Posted by ^DooM^ — Wed Feb 02, 2005 7:48 pm

Help with sockets when converting mirc to tcl.

2005-02-02T18:58:16-04:00

I need help converting this mirc script to tcl. I do not have control of the webserver's php scripts, so I need the eggdrop to do the same thing the mirc did. No writing to txt.

Code:

ALIAS something {  sockopen something webserver.com 80  echo opened}on *:JOIN:#channel: somethingon *:PART:#channel: somethingon *:SOCKOPEN:something: {  var %users, %i = 0 | while $nick(#channel,%i)) { %users = $nick(#channel,0) | inc %i }  sockwrite -n oa GET $+(/a/php/script/which/reads/the/number/of/nicks.php?count=,%users) HTTP/1.0     sockwrite -n something Host: webserver.com  sockwrite something $crlf  echo written something  sockclose something}ALIAS NICKS {  sockopen NICKS webserver.com 80  echo opened}on *:JOIN:#channel: NICKSon *:NICK: NICKSon *:PART:#channel: NICKSon *:SOCKOPEN:NICKS: {  var %nicks, %i = 1 | while $nick(#channel,%i)) { %nicks = $addtok(%nicks,$chr(60) $+ $chr(117) $+ $chr(62) $+ $ifmatch $+ $chr(60) $+ $chr(47) $+ $chr(117) $+ $chr(62) $+ $chr(44),43) | inc %i }  sockwrite -n NICKS GET $+(/a/php/script/which/reads/users.php?data=,%nicks) HTTP/1.0     sockwrite -n NICKS Host: webserver.com  sockwrite NICKS $crlf}on *:SOCKOPEN: NICKS {  var %users, %i = 0 | while $nick(#channel,%i)) { %users = $nick(#channel,0) | inc %i }  sockwrite -n NICKS GET $+(/a/php/script/which/reads/the/number/of/nicks.php?count=,%users) HTTP/1.0     sockwrite -n NICKS Host: webserver.com  sockwrite NICKS $crlf}

Thanks.

Statistics: Posted by SamuelRight — Wed Feb 02, 2005 6:58 pm