egghelp/eggheads community

a few questions: nick2 has joined the channel, and regains OP status at 14:00PM 20.02.2013 (having the same ident@host , if not he will be saved with his current ident@host) is that the script's job, or do you have that already? secondly, if someone joins with another ident@host, and then is opped b...

set text [join [lreplace [split $text "\n"] 3 3 "Do you love dogs?"] "\n"]

I'm not sure what you mean with your first question, it will report blocks from the "recent blocks" table at the link you gave. It will probably work on any other page with the exact same layout, if there are any, I mainly added the link into the configuration for the case that the address...

this is pretty old, but there wasn't anything else to do here and I wanted to do something... ### # Settings set blocks_url "http://eligius.st/~wizkid057/newstats/" set blocks_channel "#ilikeblocks" set blocks_interval 5 # end of settings ## package require http; proc getBlocks {...

if {[regexp -nocase -- {^!.* .*$} $text]} { set trigger [lindex [split $text] 0] set search [lrange [split $text] 1 end] regsub -all -- {\*} $search % search set searchvar [list] foreach word $search { lappend searchvar db.`searchcolum` like '%[mysqlescape $word]%'" } do sql stuff like getting...

Thanks for your comment, speechless. You pointed out some flaws in my script, but it isn't as bad as you understood it. My script only answers, if someone writes 5 lines in a row, without being interrupted by another person (I think thats what OP wanted.). Notice, that my array is fivelines(nick|$ch...

### # 5lines.tcl ## # # OUTDATED VERSION, USE THE SCRIPT BELOW! # ## # Settings # # The channels the script should be active in, seperated by spaces # (leave empty for all channels) set fivelines(channels) "" # # How many lines to write, to get an answer set fivelines(count) 5 # # # A lis...

just replace the channel in the line with your nickname/the owners nickname

Well, I have exactly the same problem. I am using my Windrop installation for script-testing for a long time without errors until today. I googled a bit, but didnt find any of the solutions helpful in my case... Now im reading this Threat, and on willyws post I just put .jump irc.freenode.net into m...

but, most irc networks cloak the real host of their users, so it might not work like that...

### # Help script ### # ### # Config ### # ## # Helpfile: set helpfile(file) "omfg_its_a_helpfile.txt" ## # ## # Output Target (private=0 channel=1) set helpfile(target) 0 ## # ## # Output Method (either "PRIVMSG" or "NOTICE") set helpfile(method) "NOTICE" ##...

ok there I need the help of someone else...

is there something like "file existst -nocase", or do we have to set all the filenames with string tolower?

bind pubm o|o "$botnick op" pub_lol_op_2

proc pub_lol_op_2 {nick host hand chan text} {
pub_lol_op "$nick $host $hand $chan [lrange [split $text] 2 end]"
}

do this for every lol script bind -.-

how do you define a "clone"?

I started scripting by reading other scripts, and using them as kind of template when writing my first own scripts...

Whenever I needed something I didnt know how to do, I looked in scripts I had, and tried to understand it...it is imho the best way of learning TCL, but it takes long ;D