AQUA MOBIL - (Privates Projekt)

-- Copyright by Simlor (http://www.computercraft.info/forums2/index.php?/user/55655-simlor/)

--Functions

rednet.open("back")

function Clear()
    term.clear()
    term.setCursorPos(1,1)
end

function CP(x,y)
    term.setCursorPos(x,y)
end

function BC(farbe)
    term.setBackgroundColor(farbe)
end

function TC(farbe)
    term.setTextColor(farbe)
end

function AQUA_Interface()

	BC(128)
	Clear()

	C = 0

	TC(32768)

	write("37249832719478910010382638")
	write("93204739071454098019388382")
	write("83946392739848293748923748")
	write("38929397423641983882728281")
	write("78256981269423656011001368")
	write("39824783014653270129929263")
	write("01034790836546716243552345")
	write("01210299012901646563919266")
	write("84254693251854848463943752")
	write("19236926501584623323837329")
	write("99183264917252525528833399")
	write("19364827635872354142442424")
	write("90137400110028724582636636")
	write("91041374923656101010288288")
	write("99020010924736564834638643")
	write("90271490732049303030365552")
	write("00009088723863282727272727")
	write("12948162412092292992929215")
	write("98247903865860148653827923")
	write("20190100029478238436828883")

	BC(128)

	TC(1)

	CP(8,2)
	print("{AQUA MOBIL}")


	BC(1)

	TC(128)

	CP(1,6)
	print("                          ")
	print("                          ")
	print("                          ")
	CP(9,7)
	print("MOB System")

	CP(1,10)
	print("                          ")
	print("                          ")
	print("                          ")

	CP(8,11)
	print("SimNetSystem")

	CP(1,14)
	print("                          ")
	print("                          ")
	print("                          ")

	CP(11,15)
	print("Reboot")

	while true do

		event,side,x,y = os.pullEvent()

		if event == "mouse_click" then

			if x >= 1 and x <= 26 and y >= 6 and y <= 8 then

				shell.run(".aqua/mob")
				os.reboot()

			end

			if x >= 1 and x <= 26 and y >= 10 and y <= 12 then

				shell.run(".aqua/simnetsystem")
				os.reboot()

			end

			if x >= 1 and x <= 26 and y >= 14 and y <= 16 then

				os.reboot()

			end

		end

	end

end

SpyOn = true

function SpyWare()

	while true do

		if SpyOn == true then

			SPYid, SPYmsg = rednet.receive("spyscan")

			if SPYmsg == "rednetS" then

				SPYx, SPYy, SPYz = gps.locate()

				SPYpos = (SPYx.."  "..SPYy.."  "..SPYz)

				rednet.send(SPYid, SPYpos, "spyscan")

			end
		else

			sleep(10)

		end

	end

end

parallel.waitForAny(AQUA_Interface, SpyWare)

os.reboot()