local m = peripheral.find"monitor"
m.setTextScale(0.5)

local W,H = m.getSize()

local cities = {}
local fp = assert(fs.open("/cities.txt","r"))
repeat
	local line = fp.readLine()
	table.insert(cities,line)
until not line
fp.close()

local verbs = {
	"recovered",
	"extinguished",
	"exsanguinated",
	"defenestrated",
	"obtained",
	"recovered",
	"mistreated",
	"relocated",
	"enraptured",
	"found",
	"seen",
	"heard",
	"devestated",
	"trusted",
	"distrusted",
	"promoted",
	"extended",
	"stretched",
	"squished",
	"moved",
	"rotated",
	"frozen",
	"unfrozen",
	"deployed",
	"redeployed",
	"shaken",
	"stirred",
	"discovered",
	"defeated",
	"thwarted",
	"confounded",
	"separated",
	"dissected",
	"submerged",
	"extracted",
	"zereod",
	"reset",
	"hidden",
	"concealed",
	"remade",
	"detected",
	"skolemized",
	"reinterpreted",
	"unfazed",
}

local function choice(list)
	return list[math.random(#list)]
end

local function slow_write(m,s)
	for i = 1,#s do
		m.write(s:sub(i,i))
		os.sleep(0.1)
	end
end

local function slow_write_f(m, t)
	for _,val in ipairs(t) do
		if type(val) == "string" then
			slow_write(m,val)
		else
			m.setTextColor(val)
		end
	end
end

local norm_color = colors.gray

while true do
	local x = math.random(0,99999)
	m.scroll(1)
	m.setCursorPos(1,H)
	slow_write_f(m, {
		choice{colors.yellow, colors.red, colors.cyan},
		string.format("%5d",math.random(0,99999)),
		norm_color, " bees ", choice{"have been ","were "},
		choice{colors.lime, colors.lightBlue, colors.pink},
		choice(verbs),
		norm_color, " in ",
		choice{colors.orange, colors.yellow, colors.purple},
		choice(cities),
		norm_color, "."})
	os.sleep(1)

end