egghelp/eggheads community

Code: Select all

utimer 15 [list putserv "PRIVMSG $chan :<message>"]

Code: Select all

set fs [open QUOTES.txt]
set data [read $fs]
close $fs

foreach Quote [split $data \n] {
	foreach Line [split $Quote "|"] {
		puthelp "PRIVMSG #CHANNEL :$Line"
	}
}

Code: Select all

bind join - "#b *" chanJoin

proc chanJoin {nick host hand chan} {
  if { [validchan #a] && [botisop #a] && [onchan $nick #a] } {
    pushmode #a +o $nick
  }
}

Code: Select all

set RE {$t1|$t2}

set r [regexp -nocase -all -- [subst -nocommands -nobackslashes $RE] $arg]

Code: Select all

set init-server { putserv "PRIVMSG Q@CServe.quakenet.org :AUTH user password" }