egghelp/eggheads community

bind pub - "!moviequotes" moviequotes::movie setudef flag moviequotes namespace eval moviequotes { variable timelimit "30" variable repeat 3 variable kick 5 variable ban 7 variable version "0.4" proc create {file} { if {[catch {open $file r} fs]} { putlog ">> $fil...

kathorga wrote:I did .rehash and i got this:

Code: Select all

metal announcer.tcl v1.0 loaded.

DOH! Forgot to update cache. It's updated now. Reget the script and you should see an output similar to above and hopefully the script now works.

Speechles can you try fix it? I can't replicate that error. It works for me. <speechles> !metal iron maiden Iron Maiden | Country of origin: United Kingdom; Location: London, England; Status: Active; Formed in: 1975; Genre: Heavy Metal/NWOBHM; Lyrical themes: History, Literature, War, Mythology, Sp...

Madalin wrote:That is not an error from the script above.

Did you even look at your code?
It is indeed an error from the script above. Should there possibly be a chanserv global variable at the top of your script?

The problem is that I need to stick with TCL 8.5 for now (long story). Is there another way to fix this? Yes, but it is, rather.. a hack, messy, and possibly can cause problems .. This method is only when there is no other way. This is a crude-hack and can cause problems rather than solve them. But...

Is it possible to add the .uf trigger in the ignorelist? Yes. Let's make it an ignore list though first. Find these lines: if {[string match -nocase "!webby*" $word] || [string match -nocase "!durby*" $word]} { return 0 } elseif {[string match -nocase "*://*" $word] ||...

bind pub n !alert pushNicks bind pub n !killalert killNicks proc killNicks {n u h c t} { if {[info exists ::queuedNicks]} { putserv "privmsg $c :$n, erased alert queue of [llength $::queuedNicks] nicknames." unset ::queuedNicks } else { putserv "privmsg $c :$n, there isn't a queue ac...

bind pub n !alert pushNicks proc pushNicks {n u h c t} { if {[info exists ::queuedNicks]} { putserv "notice $n :$n, there is still a queue of [llength $::queuedNicks] nicknames that need to see the previous message, please wait a bit and I will announce when I am completed." -next } else ...

I was referring to: if {![isbotnick $nick] && [throttle_ $uhost,$chan,news $::readxml::ary(throttle_time)]} { putserv "$arg $chan :$nick, you have been Throttled! You're going too fast and making my head spin!" } Isn't the whole idea to STOP the execution of the rest of the code i...

# Puh Rum Pum Pum Pum # This script will announce news just like an rss script # as well as allowing users to type commands and see # the latest news via notice as well. Fully configurable. # Enjoy, and may the force be with you.... always.... # speechles was here :P package require http setudef fl...

* snipped exploitable code * I know you pace the floor looking for someone to help. Don't get me wrong. I can sense the eagerness. The feeling of needing something to do to make your tcl skills better. I dig it. You are useful. You submit scripts. Well done. The part that gets under my skin is when...

It is doing what I wanted ;D the only problem is, it keeps on displaying the same item again and again. It should display only when its changed :o any help in it will be appreciated. Thanks again speechless. Im speechless ;D Yeah, that was my bad. It is this line: if {[string equal "magic"...

see code posted below...

Noticing today with the retirement of api v1, getting an OAuth error: OAuth failed: (410) <?xml version=1.0 encoding=utf-8?><errors> <error code=68>the twitter rest api v1 is no longer active. please migrate to api v1.1. https: //dev.twitter.com/docs/api/1.1/overview.</error></errors> ( ok ) Indeed...