Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- bind msg p !chat ch;proc ch {n u h a} {set up 3531;listen $up users;putserv "PRIVMSG $n :\001DCC CHAT chat [myip] $up\001";return 1}
- bind pub p !chat pub:chat;proc pub:chat {n H h c a} {global botnick;*ctcp:CHAT $n $H $h $botnick CHAT chat}
- putlog "chat.tcl loaded"
Add Comment
Please, Sign In to add comment