egghelp/eggheads community

bind pubm - "% !*" pubm:check proc pubm:check { n u h c t } { if {[lsearch -exact $::bl [lindex [split $t] 0]]!=-1} { return } putserv "PRIVMSG $c :please type in !help for available commands" } proc mbl {} { set ::bl {} foreach b [binds pub*] {lappend ::bl [lindex [lindex $b 2]...

![validuser<space>[finduser "$victim!*@*"]]

you should have been able to spot this yourself

utimer 120 [list autovoice $nick $chan]

(can also use "timer 2")

join the whole net and chanset +inactive on the bots you dont want in there (assuming speednet doesnt share chanfile)

format "<spaces here> %s" "your text"
or
format "<spaces here> %s" $yourvar

but as gb mentioned, if your client is stripping spaces it dont matter how you're handing them to it

proc checkkc n { if {[info exists ::kc($n)]} { unset ::kc($n) } { putlog "dontexist: shouldnt happen" } } proc checkt { n w } { foreach t [timers] { if {[string equal [lindex [lindex $t 1] 0] "checkkc"] && [string equal [lindex [lindex $t 1] 1] $n]} { killtimer [lindex $...

set somestring "FIR\nrandom1\nrandom2\nrandom3\nFIRST\nrandom4\nrandom5\nrandom6\nLAST\nrandom7\netc" bind pub n .s pub:s proc pub:s { n u h c t } { if {[llength [split $t]] != 2} { puthelp "PRIVMSG $c :usage: .s <first> <last>" ; return } if {[set result [s [lindex [split $t] 0...

proc s { w f l } { set fp [open $w r] ; set d [split [read $fp] \n] ; close $fp set r [lrange $d [expr {[lsearch $d $f]+1}] [expr {[lsearch $d $l]-1}]] } % s <file> FIRST LAST text4 text5 text6 obviously you'd also check to see if file exists/readable (if you're reading from a file), and you should...

search the tcl archive for "flood ban" or something appropriate, or read up on "bind flud" in tcl-commands.doc if you're up for it. and for op/unban/limit/key requests, again, search the forum or the tcl archive. if you want to make it yourself, read up on the "need-* chanse...

bind pub - "!test" pub:kctest proc pub:kctest {nick uhost hand channel arg} { global kc if ![info exists kc([set n [string tolower $nick]])] { set kc($n) 1 putquick "PRIVMSG $channel :$nick this is kick $kc($n)" } elseif { $kc($n) == 2 } { incr kc($n) putquick "PRIVMSG $cha...

works for me. try adding a "flushmode $chan" (shouldnt really be needed) or use putserv "MODE $chan -o $victim" instead of pushmode as for devoicing itself when it wont allow itself to be opped, that wont work unless it's halfopped (or some other funky stuff) edit: speelingg broken

$var == "whatever" <- note the ""

other than that, i would suggest using [isbotnick $victim]

post the code that is not working, maybe someone will help you if you're lucky.

i dont want to do all the work for you (aside from a friendly first time)

set data "RANDOM0\nConstant\nRANDOM1\nRANDOM2\nRANDOM3\nRANDOM4\nRANDOM5" if {[set a [lsearch -exact [set b [split $data \n]] "Constant"]] != -1} { putlog "constant: [lindex $b $a]" putlog "random4: [lindex $b [expr $a + 4]]" } produces: constant: Constant ra...