tcl/tk 버전 bot

tcl/tk 버전 bot
** pc에서 보셔야 잘보입니다..
콘솔버전 실행은 tclsh bot.tcl
윈도우 버전 실행은 wish bot.tcl

 ** 점차 모든 언어의 소스가 보이기 시작한다..
----------------------------------------

#### "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)