Client

-- So, main diagnostic: The client isnt reading. I tried to implement parallel today, not working out, must sleep. Attempt to have the input and rednet receiving all at the same time, for that is just what the solution to this problem is.

function inputLoop()
while true do
if inType=="key" then
 ev,p1,p2,p3=os.pullEvent("char") -- Pull any events.
if ev=="char" then
  if ev=="char" and p1=="e" then rednet.send(hostid,"disconnect") print("Exiting") error() end -- Exit key.
   print("Input: "..p1)
 data=tostring(p1) -- Tostringing the parameter 1.
  rednet.send(hostid,data)
 data=nil
end
end


if inType=="string" then
data=read()
 rednet.send(hostid,data) end

 end
end

function mainLoop()
 print("Main loop activated")
rednet.send(hostid,"connect")
 id,msg,dist=rednet.receive()
 if id==hostid then inType=msg print("Input Type: "..inType) end -- Sends the connection notice to the server.

while true do -- Begin the loop.

ev,p1,p2,p3=os.pullEvent("rednet_message")

if ev=="rednet_message" and p1==hostid then print("["..p1.."]{"..p3.."}: "..p2) end -- Receiving.
if ev=="rednet_message" and p1==hostid then if p2=="key" then inType="key" end end
if ev=="rednet_message" and p1==hostid then if p2=="string" then inType="string" end end
if ev=="rednet_message" and p1==hostid then if p2=="exit" then break; end end

end
end

function paraCore()
parallel.waitForAny(mainLoop,inputLoop)
end

function intro()
rednet.open("top") -- Open the top port.
rednet.open("right")
rednet.open("left")
rednet.open("back")
inType="string"
print("Host ID?")
hostid=tonumber(read()) -- Fetch the host ID.
paraCore()
end

term.clear()
term.setCursorPos(1,1)
 intro()