1# Main body of code. 2 3puts -nonewline "Loading [info script] ..." 4 5# $cn connect irc.freenode.net 6667 6$cn registerevent 001 "$cn join $channel" 7 8# Register a default action for commands from the server. 9$cn registerevent defaultcmd { 10 puts "[action] [msg]" 11} 12 13# Register a default action for numeric events from the server. 14$cn registerevent defaultnumeric { 15 puts "[action] XXX [target] XXX [msg]" 16} 17 18# Register a default action for events. 19$cn registerevent defaultevent { 20 puts "[action] XXX [who] XXX [target] XXX [msg]" 21} 22 23# Register a default action for PRIVMSG (either public or to a 24# channel). 25 26$cn registerevent PRIVMSG { 27 puts "[who] says to [target] [msg]" 28} 29 30# If you uncomment this, you can change this file and reload it 31# without shutting down the network connection. 32 33if {0} { 34 $cn registerevent PRIVMSG { 35 puts "[who] says to [target] [msg]" 36 if { [msg] == "RELOAD" && [target] == $::ircclient::nick } { 37 if [catch { 38 ::irc::reload 39 } err] { 40 puts "Error: $err" 41 } 42 set ::ircclient::RELOAD 1 43 } 44 } 45} 46 47$cn registerevent KICK { 48 puts "[who] KICKed [target] : [msg]" 49} 50 51puts " done" 52