Paste: irc bot
| Author: | bb |
|---|
| Mode: | factor |
|---|
| Date: | Fri, 5 Dec 2008 05:51:00 |
|---|
Plain Text |
USING: io.sockets io.encodings.8-bit splitting ; "irc.freenode.net" 6667 <inet> latin1 [ "NICK TheSlapFactor3" print "USER testident testhost * :testrealname" print flush [ readln " " split second "376" = not ] [ ] [ ] while "JOIN #concatenative" print flush [ t ] [ readln " " split dup first "PING" = [ "PONG " write second print flush ] [ ] if dup length 4 >= [ 3 over nth ":!slap" = [ "PRIVMSG #concatenative :\u000001ACTION slaps " write 4 over nth write "\u000001" print flush ] [ ] if ] [ ] if ] [ ] while ] with-client
New Annotation