egghelp/eggheads community

Code: Select all

./Dev.conf

Code: Select all

./Dev.botchk

Code: Select all

proc getDate {} {
    set temp [clock format [clock scan "yesterday"] -format "%Y-%m-%d"]
    return $temp
}

Code: Select all

set txt "this is a test (hopefully). We'll see"
set txt [regsub -all -- {(.*)\(([^)]*)\)(.*)} $txt "\\1(\00314\\2\003)\\3"]

Code: Select all

putquick "privmsg $chan "Error. The ident is longer as 6 vars."

Code: Select all

set color [format %02s $value]

Code: Select all

bind pub - !lol lolproc

set diffchans [list #LOL #ROFL #OMGWTF]

proc lolproc {nick uhost hand chan text} {
 set value [lindex [split $text] 0]
 foreach i $::diffchans {
  if ![string equal -nocase $chan $i] {
   putquick "PRIVMSG $i :\[NEWS\] - $value"
  }
 }
}