Bot = "Phile"
Dir = "files/file.txt"

File = ""

function Main()
	FileLoad()
end

function FileLoad()
	readfrom(Dir)
	while 1 do
		local line = read()
		if line == nil then
			break
		else
			File = File.."\r\n"..line
		end
	end
	readfrom()
end

function DataArrival(user, data)
	if (strsub(data,1,1) == "<") then
		s,e,cmd = strfind(data, "%b<>(%S+)")

		if cmd == "!file" then
			user:SendData(Bot, File)
		end
	end
end