local p = peripheral.wrap"back"
for i,mod in ipairs{"kinetic","sensor","keyboard","glasses"} do
	assert(p.hasModule("plethora:"..mod), "need "..mod.."!")
end

local vover = false
local vstrength = 1.16
local hstrength = 4
local vdelta = 0.01
local hdelta = 0.2
local yaw, pitch = 0,0

local canvas = p.canvas()
canvas.clear()
local vtext = canvas.addText({x=5,y=5}, tostring(vstrength))
vtext.setAlpha(0)
local htext = canvas.addText({x=5,y=20}, tostring(hstrength))

local function strengthclamp(x) return math.max(math.min(x,4),0) end

parallel.waitForAny(
	function() while true do
		if vover then p.launch(0,-90,vstrength)
		else os.sleep(0) end
	end end,
	function() while true do
		htext.setText(tostring(hstrength))
		vtext.setText(tostring(vstrength))
		local _,key = os.pullEvent"key"
		if key == 265 then vstrength=vstrength+vdelta
		elseif key == 264 then vstrength=vstrength-vdelta
		elseif key == 262 then hstrength=hstrength-hdelta
		elseif key == 263 then hstrength=hstrength+hdelta
		elseif key == 67 then p.launch(yaw, pitch, hstrength)
		elseif key == 86 then vover = not vover
							  vtext.setAlpha(vover and 255 or 0)
		end
		vstrength = strengthclamp(vstrength)
		hstrength = strengthclamp(hstrength)
	end end,
	function() while true do
		local player  for i,e in ipairs(p.sense()) do
			if e.key=="minecraft:player" and e.name=="ubq323" then player=e break
		end end
		assert(player, "couldnt find player??")
		pitch,yaw = player.pitch, player.yaw
	end end
)