47 lines
1.3 KiB
Lua
47 lines
1.3 KiB
Lua
function irc(h,p,n) -- host, port, nick
|
|
s("IRC client:"..tostring(h), function() print(pcall(function()
|
|
local ip,h,p = component.proxy(component.list("internet")()),h,p
|
|
local c=ip.connect(h,p)
|
|
print("Nick: "..n)
|
|
print("Connected: "..tostring(c.finishConnect()))
|
|
if c.finishConnect() then
|
|
local ct=computer.uptime()
|
|
print("Connected successfully.")
|
|
local function wl(s)
|
|
print("-->| "..tostring(s).."\n")
|
|
c.write(tostring(s).."\n")
|
|
end
|
|
_G.wil = wl
|
|
function _G.sc(u,s) wl("PRIVMSG "..tostring(u).." :"..tostring(s)) end
|
|
local function prs(line)
|
|
h,m = string.match(line,":?(.-):(.+)") tH = {}
|
|
for w in h:gmatch("%S+") do tH[#tH+1] = w end
|
|
if tH[1] == "PING" then
|
|
wl("PONG :"..m)
|
|
elseif tH[2] == "PRIVMSG" then
|
|
local n,r,h = tH[1]:match("(.+)!(.+)@(.+)")
|
|
print(n..":"..m.."\n")
|
|
else
|
|
print("|<-- "..line.."\n")
|
|
end
|
|
end
|
|
wl("NICK "..n)
|
|
wl("USER "..n.." "..n.." "..n.." "..n)
|
|
while c.finishConnect() do
|
|
coroutine.yield()
|
|
local d=c.read()
|
|
if type(d) == "string" then
|
|
if d ~= "" and d ~= "\n" then
|
|
for line in d:gmatch("[^\r\n]+") do
|
|
pcall(prs,line)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
else
|
|
print("Failed to connect:")
|
|
print(c.finishConnect())
|
|
end
|
|
end)) end)
|
|
end
|