Add the last one

lol.lua

@@ -0,0 +1,127 @@
+local sensor = peripheral.find("plethora:sensor")
+local monitors = {peripheral.find("monitor")}
+
+-- Get all bees in an area to define a randomseed
+local function defineRandomSeed()
+	local entities = sensor.sense()
+	local seed = ""
+
+	for k,entity in pairs(entities) do
+		seed = seed .. math.abs(math.floor(entity.x)) .. math.abs(math.floor(entity.y)) .. math.abs(math.floor(entity.z))
+	end
+
+	if not (seed == nil or "") then
+		math.randomseed(tonumber(seed))
+	end
+end
+
+--print(Markov)
+
+function say(message)
+	local voice = ""
+	local gender = math.random(1,2)
+	if gender == 1 then
+		voice = "m"..math.random(1,7)
+	elseif gender == 2 then
+		voice = "f"..math.random(1,5)
+	end
+	local url = "https://music.madefor.cc/tts?text=" .. textutils.urlEncode(message) .."&voice=en-us%2B"..voice
+	local response, err = http.get { url = url, binary = true }
+	if not response then error(err, 0) end
+
+	local speaker = peripheral.find("speaker")
+	local decoder = require("cc.audio.dfpwm").make_decoder()
+
+	while true do
+		local chunk = response.read(16 * 1024)
+		if not chunk then break end
+
+		local buffer = decoder(chunk)
+		while not speaker.playAudio(buffer) do
+			os.pullEvent("speaker_audio_empty")
+		end
+	end
+end
+
+local request = http.get("http://<NotForYou>:1234/getmarkov")
+local markov = textutils.unserializeJSON(request.readAll())
+request.close()
+
+local words={} --Get dictionary of all the words for purposes
+local n=0
+
+for k,v in pairs(markov) do
+	n=n+1
+	words[n]=k
+end
+
+local depth = 3
+
+local function split(str, f)
+    tbl = {}
+    for i in str:gmatch("[^" .. n .. "]+") do
+        table.insert(tbl, i)
+    end
+    return tbl
+end
+
+local function log(text, mark)
+    if mark then
+        local tbl = split(text, "\n")
+        tbl[mark] = tbl[mark] .. " SELECTED"
+        text = table.concat(tbl, "\n")
+    end
+    print(text)
+    for k,m in pairs(monitors) do
+        local old = term.current()
+        term.redirect(m)
+        print(text)
+        term.redirect(old)
+    end
+end
+
+while true do
+
+
+	local sentence = {}
+
+	local firstwords = words[math.random(#words)]
+	--sentence[1] = firstwords:match("([^ ]+) [^ ]+")
+	--sentence[2] = firstwords:match("[^ ]+ ([^ ]+)")
+	for word in firstwords:gmatch("%S+") do
+		table.insert(sentence, word)
+	end
+
+	for x=depth+1,16 do
+		defineRandomSeed()
+		local correct = true
+		for y=1,depth,1 do
+			if sentence[x-y] == nil then
+				correct = false
+			end
+		end
+		if correct then
+			--local lastwords = sentence[x-2] .. " " .. sentence[x-1]
+			local lastwords = ""
+			for y=depth,1,-1 do
+				lastwords = lastwords .. sentence[x-y] .. " "
+			end
+			lastwords = lastwords:sub(1, -2)
+		--	log("'" .. lastwords .. "'")
+			if not (markov[lastwords] == nil) and (#markov[lastwords] > 0) then
+                local randnum = math.random(#markov[lastwords])
+               -- log(textutils.serialize(markov[lastwords]), randnum+1)
+				sentence[x] = markov[lastwords][randnum]
+			end
+		end
+	end
+
+	local output = ""
+	for k,v in pairs(sentence) do
+		output = output .. v .. " "
+	end
+
+	log(output)
+	say(output)
+	sleep(3)
+end