#### "Simple Tcl irc bot", Version: 1.0, Created by: mentalglitch
 
package require Tcl 8.5
 
### Vairables. Edit these
 
array set main {
 server "irc.icq.com"
 port "6667"
 nick "T-Bot"
 user "TclBot"
 rname "Simple Tcl irc bot"
 nickpass "qj3h5bag"
 mymodes "+iBT-G"
 channels "#chan1,#chan2,#chan3"
}
 
### Do not edit below this line
 
set main(sock) "0"
 
### Procs
 
proc send {raw} {
 global main
 puts $main(sock) "$raw"; flush $main(sock)
 return
}
 
proc startsock {s p} {
 global main
 catch {socket $s $p} main(sock)
 send "NICK $main(nick)"
 send "\nUSER $main(user) * $main(server) :$main(rname)"
 recv $main(sock)
}
 
proc recv {sid} {
 global main
 while {[set argu [gets $sid]] != "-1"} {
  if {[llength [split $argu]] < 1} {break}
  set argu [split $argu]
  set nick [lindex [split [lindex $argu 0] :!@] 1]
  set user [lindex [split [lindex $argu 0] :!@] 2]
  set host [lindex [split [lindex $argu 0] :!@] 3]
  set sw "[lindex $argu 1]"
  switch -exact $sw {
   001 {serverinit $sid}
   PING {send "PONG [join [lindex $argu 2]]"}
  }
 }
}
 
proc serverinit {sid} {
 global main
 send "MODE $main(nick) $main(mymodes)"
 send "PRIVMSG nickserv :identify $main(nickpass)"
 after 420 set next 1
 vwait next
 send "JOIN :$main(channels)"
}
startsock $main(server) $main(port)

Commenting Options