egghelp/eggheads community

socket bot help..

2007-02-09T15:11:40-04:00

Might be worth mentioning, that you currently mix tcl's I/O mechanisms with eggdrop's own socket-implementations. They are not compatible; ie. you cannot use 'puts' with sockets opened with 'connect' or 'listen'. In the same fashion, you cannot use 'putidx' or 'control' with sockets created with the 'socket' command.

Each method has it own advantages and disadvantages; so I'd suggest you read up on both and decide on which to use before you proceed with coding this script.

Also, on a sidenote, I can't stress enough how bad it is to use list-commands (such as 'lindex') on strings. Please use 'split' to convert strings into lists when neccesary.

Statistics: Posted by nml375 — Fri Feb 09, 2007 3:11 pm

socket bot help..

2007-02-09T13:27:22-04:00

hmm thats not what im looking for im wanting it on a socket bot

Then why are you using 'connect'? demond's script does what you claim to be trying to do.

# this will fork a clone to scan for spam on bot's own channels

...using 'connect' to make the tcp connection

Statistics: Posted by user — Fri Feb 09, 2007 1:27 pm

socket bot help..

2007-02-09T13:23:47-04:00

hmm thats not what im looking for im wanting it on a socket bot

Statistics: Posted by sdays — Fri Feb 09, 2007 1:23 pm

socket bot help..

2007-02-09T10:04:47-04:00

Btw im wanting this tcl so it check for invite spam every 10 mins or so..

http://www.demond.net/spambuster.tcl

Statistics: Posted by user — Fri Feb 09, 2007 10:04 am

socket bot help..

2007-02-09T06:54:58-04:00

Btw im wanting this tcl so it check for invite spam every 10 mins or so..

Statistics: Posted by sdays — Fri Feb 09, 2007 6:54 am

socket bot help..

2007-02-09T06:35:00-04:00

i get this Currently: wrong # args: should be "error message ?errorInfo? ?errorCode?"

Statistics: Posted by sdays — Fri Feb 09, 2007 6:35 am

socket bot help..

2007-02-09T06:24:29-04:00

Post the results of:

Code:

.set errorInfo

Statistics: Posted by Alchera — Fri Feb 09, 2007 6:24 am

socket bot help..

2007-02-09T06:22:24-04:00

Ok i fix that part but now it, now won't connect to irc..

Code:

bind pub - !addbot socket:addproc socket:add {nick uhost hand chan arg} {  global realname username socket:chan socket:serv socket:conn  set nick [lindex $arg 0]  set chan [lindex $arg 1]  set serv [lindex $arg 2]  set port [lindex $arg 3]  if {![validchan $chan]} {    putserv "NOTICE $nick :Invalid Channel"    putserv "NOTICE $nick :usage: !addbot    \[port\]"    } else {    if {$serv == ""} {      putserv "NOTICE $nick :Specify a Server"      putserv "NOTICE $nick :usage: !addbot    \[port\]"    }  }  if {$port == ""} {    set socket:conn [connect $serv 6667]    } else {    if {$port != ""} {set socket:conn [connect $serv $port]}  }  set socket:chan $chan  set socket:serv $serv  puts "USER $username 0 0 :$realname"  puts "NICK :$nick"}return 1}

Statistics: Posted by sdays — Fri Feb 09, 2007 6:22 am

socket bot help..

2007-02-09T06:19:03-04:00

Im not really good a tcl scripting..

For every open brace '{' there has to be a matching closing one '}'.

Statistics: Posted by Alchera — Fri Feb 09, 2007 6:19 am

socket bot help..

2007-02-09T05:56:55-04:00

Im not really good a tcl scripting..

Statistics: Posted by sdays — Fri Feb 09, 2007 5:56 am

socket bot help..

2007-02-09T05:18:51-04:00

If you indented your code properly, you'd be able to find the missing close bracket.

Statistics: Posted by rosc2112 — Fri Feb 09, 2007 5:18 am

socket bot help..

2007-02-09T04:38:40-04:00

Can some one help me with this socket bot..

i get:

Code:

 [02:46] Tcl error [socket:add]: missing close-bracket

Code:

bind pub - !addbot socket:addproc socket:add {nick uhost hand chan} {  global nick realname username socket:chan socket:serv socket:nick socket:conn  set socketnick $nick[rand 1000]  set chan "$text0"  set serv "text1"  set port "text2"  if {![validchan $chan]} {    putserv "NOTICE $nick :Invalid Channel"    putserv "NOTICE $nick :usage: !addbot   \[port\]"    } else {    if {$serv == ""} {      putserv "NOTICE $nick :Specify a Server"      putserv "NOTICE $nick :usage: !addbot   \[port\]"      } else {      if {[info exists $socket:conn]} {        if {[valididx $socket:conn} {          putserv "NOTICE $nick :QUIT :Switching Servers"          killdcc $socket:conn        }      }      if {$port == ""} {        set socket:conn [connect $serv 6667]        } else {        if {$port != ""} {set socket:conn [connect $serv $port]}      }      set socket:chan $chan      set socket:serv $serv      putlc "USER $username 0 0 :$realname"      putlc "NICK :$socket:nick"    }    return 1  }}

Statistics: Posted by sdays — Fri Feb 09, 2007 4:38 am