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

Summary:
Author:
Mode:
Body: