PossieOS Client

serverID = 45 -- Change this to the ID of the server computer
rednet.open("top") -- Put the modem on the top

if fs.isDir("CurentWebsite") == false then
	fs.makeDir("CurentWebsite")
	make = fs.open("CurentWebsite/WebPage", "w")
	make.close("")
end

function printSearchResult()
	shell.run("clear")
	print("Search Results")
	print()
	thing = 0
	repeat
		thing = thing + 1
		webParts = split(result[thing], "/")
		if cur == thing then
			print("-> www."..webParts[2].."."..webParts[3])
		else
			print("www."..webParts[2].."."..webParts[3])
		end
	until thing == max
end

function printExtension()
	shell.run("clear")
	print("Choose an extension")
	if ecur == 1 then
		print("-> .mine")
	else
		print(".mine")
	end
	if ecur == 2 then
		print("-> .pos")
	else
		print(".pos")
	end
	if ecur == 3 then
		print("-> .tv")
	else
		print(".tv")
	end
	if ecur == 4 then
		print("-> .mol")
	else
		print(".mol")
	end
end

function split(str, pat)
	local t = { }
	local fpat = "(.-)"..pat
	local last_end = 1
	local s, e, cap = str:find(fpat, 1)
		while s do
			if s ~= 1 or cap ~= "" then
				table.insert(t,cap)
			end
			last_end = e+1
			s, e, cap = str:find(fpat, last_end)
		end
		if last_end <= #str then
			cap = str:sub(last_end)
			table.insert(t, cap)
	end
	return t
end

function displayMain()
	term.clear()
	applicationX = {1,2,3,4,5,6,7,8,9,10,11}
	applicationY = {5,6,7,8}
	settingsX = {15,16,17,18,19,20,21,22,23,24,25}
	settingsY = {5,6,7,8}
	browserX = {29,30,31,32,33,34,35,36,37,38,39}
	browserY = {5,6,7,8}
	searchX = {1,2}
	searchY = {18,19}
	term.setCursorPos(1,4)
	print('  ____     ')
	print(' /    |___ ')
	print('| Program |')
	print('| To Web  |')
	print('|_________|')
	term.setCursorPos(15,4)
	term.write('  ____     ')
	term.setCursorPos(15,5)
	term.write(' /    |___ ')
	term.setCursorPos(15,6)
	term.write('|         |')
	term.setCursorPos(15,7)
	term.write('|Make Site|')
	term.setCursorPos(15,8)
	term.write('|_________|')
	term.setCursorPos(29,4)
	term.write('  ____     ')
	term.setCursorPos(29,5)
	term.write(' /    |___ ')
	term.setCursorPos(29,6)
	term.write('|         |')
	term.setCursorPos(29,7)
	term.write('| Browser |')
	term.setCursorPos(29,8)
	term.write('|_________|')
	term.setCursorPos(1,1)
	print("WELCOME: Joseph                       wifi is on")
	print("---------------------------------------------------")
	term.setCursorPos(1,18)
	print(" O")
	term.write("/")
end

displayMain()
while true do
	event, param1, param2, param3 = os.pullEvent()
	if event == "mouse_click" then
		if param1 == 1 then
			for i,v in ipairs(applicationY) do
				if param3 == v then
					for i,v in ipairs(applicationX) do
						if param2 == v then
							shell.run("clear")
							term.write("Write file name to upload into site: ")
							s = read()
							s = string.upper(s)
							if s == "startup" then
								shell.run("clear")
								print("CAN NOT UPLOAD THE PROGRAM YOU ARE IN")
								os.sleep(2)
								displayMain()
							elseif fs.exists(s) then
								shell.run("clear")
								term.write("ENTER TAGS (SEPERATE WITH /): ")
								tags = string.upper(read())
								printExtension()
								emin = 1
								emax = 4
								ecur = 1
								while true do
									event, param = os.pullEvent()
									if event == "key" and param == 200 then
										if ecur == emin then
											ecur = emax
											printExtension()
										else
											ecur = ecur-1
											printExtension()
										end
									elseif event == "key" and param == 208 then
										if ecur == emax then
											ecur = emin
											printExtension()
										else
											ecur = ecur+1
											printExtension()
										end
									elseif event == "key" and param == 28 then
										if ecur == 1 then
											extension = "mine"
										elseif ecur == 2 then
											extension = "pos"
										elseif ecur == 3 then
											extension = "tv"
										elseif ecur == 4 then
											extension = "mol"
										end
										break
									end
								end
								file = fs.open(s, "r")
								site = file.readAll()
								file.close()
								rednet.send(serverID, "makeSite!SP!"..s.."!SP!"..tags.."!SP!"..extension.."!SP!"..site)
								displayMain()
							else
								shell.run("clear")
								print("FILE DOES NOT EXIST")
								os.sleep(2)
								displayMain()
							end
						end
					end
				end
			end
			for i,v in ipairs(settingsY) do
				if param3 == v then
					for i,v in ipairs(settingsX) do
						if param2 == v then
							shell.run("clear")
							term.write("NAME: ")
							name = read()
							shell.run("edit sites/"..name)
							nSite = fs.open("sites/"..name, "r")
							fSite = nSite.readAll()
							nSite.close()
							term.write("Do you still want to continue (yes or no): ")
							answer = string.upper(read())
							if answer == "YES" then
								shell.run("clear")
								term.write("ENTER TAGS (SEPERATE WITH /): ")
								tags = string.upper(read())
								shell.run("clear")
								emin = 1
								emax = 4
								ecur = 1
								printExtension()
								while true do
									event, param = os.pullEvent()
									if event == "key" and param == 200 then
										if ecur == emin then
											ecur = emax
											printExtension()
										else
											ecur = ecur-1
											printExtension()
										end
									elseif event == "key" and param == 208 then
										if ecur == emax then
											ecur = emin
											printExtension()
										else
											ecur = ecur+1
											printExtension()
										end
									elseif event == "key" and param == 28 then
										if ecur == 1 then
											extension = "mine"
										elseif ecur == 2 then
											extension = "pos"
										elseif ecur == 3 then
											extension = "tv"
										elseif ecur == 4 then
											extension = "mol"
										end
										break
									end
								end
								rednet.send(serverID, "makeSite!SP!"..name.."!SP!"..tags.."!SP!"..extension.."!SP!"..fSite)
							end

						end
					end
					displayMain()
				end
			end
			for i,v in ipairs(browserY) do
				if param3 == v then
					for i,v in ipairs(browserX) do
						if param2 == v then
							shell.run("clear")
							term.setCursorPos(9,4)
							print("|-----|----|    |--------|   |")
							term.setCursorPos(9,5)
							print("|     |    |    |        |   |")
							term.setCursorPos(9,6)
							print("|     |    |    |        |   |")
							term.setCursorPos(9,7)
							print("|          |    |        |   |")
							term.setCursorPos(9,8)
							print("|          |    |________|   |______")
							sleep(2)
							shell.run("clear")
							print("Welcome to the MOL search engine!!!")
							print("")
							input = read()
							search = string.upper(input)
							j = "search!SP!"..search
							rednet.send(serverID, j)
							id, msg, d = rednet.receive(2)
							shell.run("clear")
							print("SEARCH RESULTS:")
							print(msg)
							result = textutils.unserialize(msg)
							if result ~= nil then
								min = 1
								max = #result
								cur = 1
								printSearchResult()
								while true do
									event, param = os.pullEvent()
									if event == "key" and param == 200 then
										if cur == min then
											cur = max
											printSearchResult()
										else
											cur = cur-1
											printSearchResult()
										end
									elseif event == "key" and param == 208 then
										if cur == max then
											cur = min
											printSearchResult()
										else
											cur = cur+1
											printSearchResult()
										end
									elseif event == "key" and param == 28 then
										sMsg = "openWebSite!SP!"..result[cur]
										print(sMsg)
										sleep(1)
										rednet.send(serverID, sMsg)
										id, msg, d = rednet.receive(2)
										blankPage = fs.open("CurentWebsite/WebPage", "w")
										blankPage.write(msg)
										blankPage.close()
										shell.run("clear")
										shell.run("CurentWebsite/WebPage")
										blankPage2 = fs.open("CurentWebsite/WebPage", "w")
										blankPage2.close()
										print("PRESS ENTER")
										read()
										displayMain()
										break
									end
								end
							end
						end
					end
				end
			end
			for i,v in ipairs(searchY) do
				if param3 == v then
					for i,v in ipairs(searchX) do
						if param2 == v then
							term.setCursorPos(4,19)
							term.write(": ")
							s = read()
							s = string.upper(s)
							if s == "startup" then
								shell.run("clear")
								print("CAN NOT RUN THE PROGRAM YOU ARE IN")
								os.sleep(2)
								displayMain()
							elseif fs.exists(s) or fs.exists("rom/programs/"..s) then
								shell.run("clear")
								shell.run(s)
								os.sleep(3)
								displayMain()
							else
								shell.run("clear")
								print("FILE DOES NOT EXIST")
								os.sleep(2)
								displayMain()
							end
						end
					end
				end
			end
		elseif param1 == 2 then
			break
		end
	end
end