Dave-ee Jones, on 10 August 2017 - 10:33 PM, said:

Dave-ee Jones, on 09 August 2017 - 03:49 AM, said:

-- Set modem, tch, rch here
local server_term = term.current()
local custom_term = {}
for name, func in pairs(server_term) do
	custom_term[name] = function(...)
		modem.transmit(tch, rch, {name = name, args = {...}})
		return func(...)
	end
end
term.redirect(custom_term)  -- Used to be current_term (it was a mistake)
-- Wait for the client to be running here
term.clear()
term.setCursorPos(1, 1)
-- Run program of choice here

local env = {}
local tcp = {{_G, env}}
local cpd = {[_G] = env}
while #tcp > 0 do
	local current = tcp[#tcp]
	tcp[#tcp] = nil
	for key, value in pairs(current[1]) do
		if type(value) == "table" then
			if cpd[value] then
				current[2][key] = cpd[value]
			else
				current[2][key] = {}
				tcp[#tcp + 1] = {value, current[2][key]}
				cpd[value] = current[2][key]
			end
		elseif type(value) == "function" then
			current[2][key] = function()
				_ENV = env
				value()
			end
			-- You can use setfenv but it will modify the original function.
		else
			current[2][key] =  value
		end
	end
end

local timer = os.startTimer(0.3)
local fuel = false
local state = false
while true do
	local event, data, msg = os.pullEvent()
	if event == "rednet_message" and data == 7 then
		fuel = msg == "fuelLow" and true or (msg == "fuelGood" and false or fuel)
	elseif event == "timer" and data == timer then
		if fuel then
			state = not state
			rs.setOutput("left", state)
		else
			-- No delay next time fuel is low.
			state = false
		end
		timer = os.startTimer(0.3)
	end
end

Bomb Bloke, on 08 August 2017 - 01:48 AM, said:

local env = {}
local tcp = {{_G, env}}
while #tcp > 0 do
	local current = tcp[#tcp]
	tcp[#tcp] = nil
	for key, value in pairs(current[1]) do
		if type(value) == "table" then
			tcp[#tcp + 1] = {value, current[2][key]}
		elseif type(value) == "function" then
			current[2][key] = function()
				_ENV = env
				value()
			end
			-- You can use setfenv but it will modify the original function.
		else
			current[2][key] =  value
		end
	end
end

Jummit, on 07 August 2017 - 08:56 AM, said:

local website = http.get(url)
if website then
   github_file = website.readAll()
end
website.close()

local website = http.get(url)
if website then
    github_file = website.readAll()
    website.close()
end

local mt = {__index = _G, __metatable = function() return nil end}
while true do
    local env = {}
    env._G = env
    setmetatable(env, mt)
    os.run(env, multishell and "/rom/programs/advanced/multishell" or "/rom/programs/shell")
end

Twijn, on 09 July 2017 - 11:10 PM, said:

<?php
  header("Content-Type: text/plain");
  echo "1.0";
?>

<?php
  header("Content-Type: text/plain");
  echo "1.1";
?>

function isOutdated(current, remote)
    local cfunc = current:gmatch("%d+")
    local rfunc = remote:gmatch("%d+")
    local cnum = tonumber(cfunc())
    local rnum = tonumber(rfunc())
    while cnum and rnum do
        if cnum ~= rnum then
            return cnum < rnum
        end
        cnum = tonumber(cfunc())
        rnum = tonumber(rfunc())
    end
    return rnum ~= nil
end

XeroTR, on 02 August 2017 - 09:28 PM, said:

PixelFox1, on 31 July 2017 - 11:30 PM, said:

local killed = false
local oldPullEvent = os.pullEvent

function os.pullEvent(filter)
	while true do
		local event, r1, r2, r3, r4, r5 = os.pullEvent()
		--# In place of this comment, check if the event would trigger the custom behaviour and, if so, set killed = true and return an enter key event.
		if not filter or event == filter then
			return event, r1, r2, r3, r4, r5
		end
	end
end

local input = read()
if killed then
    --# Custom behaviour
else
    --# Enter pressed by the user
end
os.pullEvent = oldPullEvent

Feolthanos, on 31 July 2017 - 11:00 AM, said:

    local files = fs.complete("user#", dir)
    local index = #files + 1
    while (fs.exists("user#"..index)) do
        index = index + 1
    end

Homedog, on 30 July 2017 - 07:32 PM, said: