listenerComputerChat

local term = require("term")
term.clear();
component = require("component")
local event = require("event")
local computerName="Skynet";
local self_modemAddress="ebdbfa9f-d36d-49d4-a5c0-cf9ca3b7d27d";
local chatBox=component;
if component.chat_box then
	chatBox=component.chat_box;
	chatBox.setName(computerName);
	component.rjGlobal={};
else
	chatBox.setName=function()end;
	print("Can not find to chatbox");
end
event.onError=function(message)
chatBox.say("Whoopies, I just shart myself executing your command. (Error!)");
print(message);
end

component.invoke(self_modemAddress,"open",255)
--eval the message from port 255
print("Networking enabled:"..tostring(component.invoke(self_modemAddress,"isOpen",255) ));
print("Skynet 0.001 emerged");
chatBox.say("Hello, John and Sarah.");


function chat_message(eveType, address, user, message) --e being the event that was registered
  local messageLower = string.lower(message);
  local sky1, sky2=string.find(messageLower, string.lower(computerName)..",", 0,true);
  if sky1==1 and sky2==7 then
   --component.invoke(self_modemAddress,"send","5203e10f-7b05-4a9d-843a-d20eccc4860b",0x00000ff,0xff1000);
   os.execute( message:match(computerName..",.-(.*)") );
  end
end
event.listen("chat_message", chat_message);

function modem_message(_, localNetworkCard, from, port, distance, message) --e being the event that was registered
if port==255 then
	local f = load(message);
	if f then
		  f();
	end
 end
end
event.listen("modem_message", modem_message);



--while true do
--local _, localNetworkCard, from, port, _, message = event.pull("modem_message")
--print("Got a message from " .. from .. " on port " .. port .. ": " .. tostring(message))
--end
--os.execute("pastebin get 308mgPW6 reactor.lua -f");
--os.execute("reactor.lua");
-- for _, Method in pairs(component.methods(component.list( "modem" )())) do print(Method) end