egghelp/eggheads community

There's still no fix for this. Other scripts seem to be too complicated for me.

No one has a decent solution for this?

I emailed him, but unfortunately no response (yet).

Does anyone have a clue what might be the problem?

Howdy. I have a problem with my google.tcl script. For some reason my !image command doesn't do anything anymore. I suspect this has something to do with Google changing something to their website, perhaps? My bot doesn't return any errors when using the !image command. I've tried disabling all othe...

Well I think the topic says it all doesn't it :) I've been trying to make the script myself, but it's just too hard for me :( I've also searched on the forum, but nothing seems to work So first, I want to write a line in a text file: proc savevar set thevar $text save $thevar in $thisfile (so there ...

Hello. proc proc_join {nick uhost hand chan} { global myhostmask pmfile if {$uhost == $myhostmask} { set pmfileread [open $pmfile r] set pmdata [read -nonewline $pmfileread] close $pmfileread putserv "PRIVMSG $nick :$pmdata" } } This is my code. If for example in the text is: This is sente...

proc pub_admin {nick host hand chan arg} { foreach user [chanlist $chan] { if {[isop $user $chan]} { if {[info exists list]} { append list " $user" } else { set list "$user" } } } putserv "PRIVMSG $chan : $list, $nick called for an admin!" } Hi, this is the current cod...

Hello a while ago I made a minor adjustment to some *.tcl script, and I didn't change anything to the google.tcl script, but when I rehashed I got this: <B0t> [20:59] Tcl error in file 'eggdrop.conf': <B0t> [20:59] can't find package http <B0t> while executing <B0t> "package require http" ...

Hello I want to make a script that has this: Owners (or higher) can use " !op nick " to op this person. Nick is optional, otherwise it will op the person himself. But I also want the script to let ops in the channel use the command. So everybody who has op, can use " !op nick " t...

thanks caesar, it works perfectly

dollar wrote:Split the string and remove the element with lreplace (http://www.tcl.tk/man/tcl8.4/TclCmd/lreplace.htm)

Sorry but I have no idea how to do that
Could you give me an example or anything?

Thanks

Hello I made a proc which lets people put themselves in the topic, whether or not they are available for a clanwar. In short this is: proc pub_waravail {nick host hand chan text} { global avail set myname "[lindex $text 0]" if {($myname != "")} { if {$avail == ""} { set...

Ok thank you, I fixed the problem :) Now there's another small issue bind pub - !deop pub_deop set botname "Botbot" proc pub_deop {nick mask hand chan text} { global botname if {[isop $nick $chan]} { set deopname "[lindex $text 0]" if {[string match -nocase $deopname $botname]} {...

First problem: everybody in the channel can execute the !op command, however I stated in my script that only ops can use it. How is this possible? bind pub - !op pub_op proc pub_op {nick mask hand chan text} { foreach user [chanlist $chan] { if {[isop $user $chan]} { set opname "[lindex $text 0...

1) I have a rather stupid question. What is the $+ command in TCL? I've tried searching for it in google and on this forum, but it's quite impossible to search for since it only uses special characters. Thanks in advance 2) Is there a way to save global variables, so that they are still there when t...

proc pub_avail {nick host hand chan text} { global avail set myname "[lindex $text 1]" if {($myname != "") && ([string match -nocase "#666.to" "$chan"])} { if {$avail == ""} { set avail "$myname" } else { append avail " $mynam...