egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2001-09-24T21:03:00-04:00 https://forum.eggheads.org/app.php/feed/topic/3 2001-09-24T21:03:00-04:00 2001-09-24T21:03:00-04:00 https://forum.eggheads.org/viewtopic.php?p=5#p5 <![CDATA[bind topc]]>
I would sugest somthing more along the lines of this code.

Code: 

set chantopics {{#Chaññel http://www.url.com.br}{#channel2 http://www.url2.com}}set urltemp ""set urltemp2 ""foreach urltemp $chantopics {  lappend urltemp2 [string tolower $urltemp]}set chantopics $urltempunset urltemp urltemp2bind topc - * url_topicproc url_topic {nick uh hand chan arg} {  global chantopics  if {[set idx [lsearch -glob $chantopics "[sting tolower $chan] *"]] < 0} { return }  set topic [join [lrange [lindex $chantopics $idx] 1 end]]  if {![string match -nocase "*${topic}*" $arg]} {    putserv "TOPIC $chan :http://${topic}/"  }}

Statistics: Posted by ppslim — Mon Sep 24, 2001 9:03 pm

]]> 2001-09-24T20:34:00-04:00 2001-09-24T20:34:00-04:00 https://forum.eggheads.org/viewtopic.php?p=4#p4 <![CDATA[bind topc]]> after my upgrade to 1.6.6 this doesn't run correct, the bot can't change the topic anymore, but they match the bind command, why!?
<bot>TYPE FLGS COMMAND HITS BINDING (TCL)
<bot> topc -|- * 2 url_topic

the entire script
###
set urltopicchans "#Chaññel"
set urltopicmatch "www.url.com.br "
set urltopics "http://www.url.com.br/"
set maxtopiclength "215"
bind topc - * url_topic

proc url_topic { nick uhost hand chan topic } {
global urltopicchans urltopicmatch urltopics botnick maxtopiclength
if {$urltopicchans == ""} {
putlog "URLtopic ERROR: Channel"
return 0
}
if {$urltopicmatch == "" || $urltopics == ""} {
putlog "URLtopic ERROR: URL"
return 0
}
set urlindex [lsearch [string tolower $urltopicchans] [string tolower $chan]]
set topic [topic $chan]
set urlmatch [lindex $urltopicmatch $urlindex]
set url [lindex $urltopics $urlindex]
if {![string match [string tolower "*$urlmatch*"] [string tolower $topic]]} {
if {![botisop $chan]} {
putlog "I don't have op"
return 0
}
if {[expr [string length $topic] + [string length $url]] < $maxtopiclength} {
putserv "TOPIC $chan :$topic $url"
putlog "Including.. ."
return 1
} {
putlog "Topic too long"
return 0
}
} {
return 0
}
}

putlog "URLtopic Loaded"
###

Statistics: Posted by stere0 — Mon Sep 24, 2001 8:34 pm

]]>