rendered paste body#include <File.au3>
#include <IRC.au3>
Global $server = "irc.gamersvault.net"
Global $port = 6667
Global $nick = "Au3Bot"
Global $channel = "#xferbot"
$Log = "Log.txt"
$CountLines = _FileCountLines($Log)
TCPStartup ()
Global $sock = _IRCConnect($server, $port, $nick); Connects to IRC and Identifies its Nickname
;$recv = TCPRecv($sock, 8192); Recieve things from server
_IRCJoinChannel ($sock, $channel)
While 1
$nCountLines = _FileCountLines($Log)
If $nCountLines <> $CountLines Then
_IRCSendMessage($sock, $log & $ncountlines, $channel)
$CountLines = $nCountLines
EndIf
Sleep(20)
WEnd