egghelp/eggheads community

Papillon

Madalin: Instead of using a foreach loop which is slow, why not just use the standard tcl-command lsearch ? LoKii: In that case I would use a loop on each word said by the user and do a lsearch on the list. Word of warning though, if your channel is very crowded and people are chatty this will be ve...

Papillon

Code: Select all

putserv "NOTICE $nick :Next command only after [expr $troll(delay) - [expr [clock seconds] - $troll(lasttime,$chan)]] seconds. Yon can use 1 request in $cmd(delay) seconds."

just a small typo in here.

Code: Select all

$cmd(delay)

should off course be

Code: Select all

$troll(delay)

Papillon

Your problem lies in the list:log proc else { lappend ::v(op) $cnick } probably just a typo, but I am guessing it should be: else { lappend ::u(nop) $cnick } you were in fact putting all the people not voice, halfop or op into a list which were never used.

Papillon

@silenus: Good that you solved it. It is just to remember that when you name a global variable or procedure, that name is truly global in your bot. You may have a procedure in one script, but call it from another script. Namespaces helps solve this problem if used correctly :) @caesar: it is me ye, ...

Papillon

You are sort of answering your own question. There are indeed two different binds, but they are both bound to the same procedure, or to two different procedures called by the same name... this will always cause troubles.

get_message rename one of them and they will not interfere with eachother

Papillon

Code: Select all

set mapfile [string map {  "" & "&" " \" " \"} $mapfile]

Papillon

Code: Select all

 bind pub - !fact pub:RandomFact


proc RandomFact {nick uhost hand chan args} {

you might even spot it yourself

Papillon

try something like this

Code: Select all

proc logip {ip} {
	set file [open iplog.txt a+]
	set info [split [read $file] \n]]
	if {$ip != "0.0.0.0" && [string equal [lsearch -exact $info $ip] "-1"]} {
		puts $file "$ip"
	}
	close $file
}

Papillon

Code: Select all

set fd [open thefile "RDONLY"]
set tmp [split [read -nonewline $thefile] "\n"]

should be $fd, as in:

Code: Select all

set fd [open thefile "RDONLY"]
set tmp [split [read -nonewline $fd] "\n"]

Papillon

Use Regexp

Code: Select all

set txt SomeTextHere
regexp -all {Text} $txt new

$new will contain the match, in this case "Text"

Papillon

try:

Code: Select all

if {![regexp -- {<li><label>Currently Hosting:</label>(.+)</li>} $html - s_login]} {set s_login Unknown}

Papillon

Code: Select all

bind pubm - "* $love" pub:love

not that different as you see

Papillon

we all have to start somewhere :) I suggest taking a look at the tcl-commands.doc that comes with your eggdrop.. lot's of nice commands in there, one you might find interesting is (6) PUBM (stackable) bind pubm <flags> <mask> <proc> procname <nick> <user@host> <handle> <channel> <text> Description: ...

Papillon

set who [lindex $arg 0] set why [lrange $arg 1 end] here you are using a list command on a string. try making the $arg into a list first using split. set who [lindex [split $arg] 0] set why [lrange [split $arg] 1 end] and eggdrop comes with its own kick command, you could try using that putkick <ch...

Papillon

happy new year everyone

Search found 720 matches