Mouse and keyboard input simultaneously

print("Type something")
input = read()

while true do
event = {os.pullEvent()}

if event[1] == "mouse_click" then
  print("Mouse click")
end
end

local str = ""

while true do
	local event = { os.pullEvent() }
	if event[1] == "mouse_click" then
		-- Do stuff with your mouse
	elseif event[1] == "char" then
		str = str .. event[2]
	end
end

local function mouseClickHandler (eventName, clickType, xClickPos, yClickPos)
	local currentCursorPos = { term.getCursorPos() }

	term.setCursorPos (1, currentCursorPos[2] + 1)
	term.write ("Mouse click at: (" .. currentCursorPos[1] .. ", " .. currentCursorPos[2] .. ')')
        term.setCursorPos (unpack (currentCursorPos))
end

local function modifiedRead()
	local readCoroutine = coroutine.create (read)
	coroutine.resume (readCoroutine)

	local mouseClickHandlerCoroutine = coroutine.create (mouseClickHandler)

	while coroutine.status (readCoroutine) ~= "dead" do
		local eventData = { os.pullEvent() }

		if eventData[1] == "mouse_click" then
			coroutine.resume (mouseClickHandler, unpack (eventData))
		else
			coroutine.resume (readCoroutine, unpack (eventData))
		end
	end
end

Engineer, on 23 June 2013 - 04:02 PM said:

Of course, the only thing that makes it complex is that you have to write your own read function. This is very, very primitive:

-snip-

But like I said, you can take this to the next level and make it super complex if you really want. Only Im not doing that for you :P/>

Grim Reaper, on 23 June 2013 - 04:38 PM said:

Engineer gave a great example of how you might do what you're asking for.

Here's a similar way, but using coroutines:

-snip-

local input

local function getInput()
  print("Type something:")
  input = read()
end

local function getMouseInput()
  while true do
    local evt, btn, x, y = os.pullEvent("mouse_click")
    -- Handle the mouse click here
  end
end

parallel.waitForAny(getInput, getMouseInput)

MysticT, on 23 June 2013 - 06:47 PM said:

Why would you write a coroutine manager when you have the parallel api? ;)/>

-snip-

Snakybo, on 24 June 2013 - 01:46 PM said:

If I use your method, and I click something that clears the screen, it still waits for an input. Is there way to stop that?

Engineer, on 24 June 2013 - 01:54 PM said:

Snakybo, on 24 June 2013 - 01:46 PM said:

If I use your method, and I click something that clears the screen, it still waits for an input. Is there way to stop that?

Then you must have your own read function that checks continueusly if a boolean is true. If that is true it will break that loop it is in

local input

local function getInput()
  print("Type something:")
  input = read()
end

local function getMouseInput()
  while true do
    local evt, btn, x, y = os.pullEvent("mouse_click")
    break -- stop the loop when we get a mouse click
  end
end

parallel.waitForAny(getInput, getMouseInput)

term.clear()
term.setCursorPos(1, 1)
if input then
  print("Your input: ", input)
else
  print("You clicked the screen!")
end

MysticT, on 24 June 2013 - 03:03 PM said:

The parallel.waitForAny call should return when one of the functions ends. So, you just have to make the mouse input function end and it will end the other one too. Example:

-snip-

If this is not what you need, please explain what you are trying to do, so we can help.

local data = {}
function main()
term.clear()
term.setCursorPos(1,1)
data[1] = 1
data[2] = 1
data[3] = ms

parallel.waitForAny(handleMouse, handleInput)

data[1] = 2
data[2] = 1
data[3] = ms

handleMouse()
end
function handleInput()
term.write("Input: ")
  local inp = read()

if inp == "yes" then
  kb()
end
end
function handleMouse()
while true do
  local event = {os.pullEvent()}

  if event[1] == "mouse_click" then
   for k, v in ipairs(data) do
	if event[3] == data[1] and event[4] == data[2] then
	 data[3]()
	 return
	end
   end
  end
end
end
function ms()
print("Mouse got here")
end
function kb()
print("Keyboard got here")
end
main()

theoriginalbit, on 25 June 2013 - 12:44 AM said:

your code will error after you restart your computer. Move your functions above the parallel call to fix this future problem.

Snakybo, on 25 June 2013 - 05:10 AM said:

Thanks TOB