SimNetSystem SimVerteiler - (Privat Project)

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

rednet.open("back") --back,front,top,left,right

--Funktionen

--Clear

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


--Set Cursorposition

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


--Set Background Color

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


--Set Text Color

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

--Log System

function LogWriter(nachricht)

	local file = fs.open("SimNetSystem/log","a")
	file.writeLine(nachricht)
	file.close()

end

--System


BC(32768)
Clear()

TC(16)

print("SimVerteiler")
print("------------")

while true do

	TC(16)
	print("")
	print("Warte auf eine Anfrage...")

	SucherID = nil
	eingabe = nil
	SaveID = nil

	SucherID, eingabe, SaveID = rednet.receive()

	if SucherID == nil or eingabe == nil or SaveID == nil then --Blockliste

		TC(16384)
		print("")
		print("Es wurde ein falsche Anfrage gestellt.")

		LogWriter("--------------------------------")
		LogWriter("")
		LogWriter("Anfrage : Allgemein")
		LogWriter("SucherID: "..SucherID)
		LogWriter("Ergebnis: Es fehlen bestimmte Anfrage-Daten")
		LogWriter("")

	else

		if eingabe == "connect" then

			TC(16)
			print("")
			print("Es wurde eine Anfrage gestellt.")
			print("")
			print("SucherID: "..SucherID)
			print("Anfrage : "..eingabe)
			print("SaveID  : "..SaveID)

			rednet.send(SucherID, "connect", SaveID)

			eingabe = nil

			SucherID, eingabe = rednet.receive(SaveID, 1)

			if eingabe == nil then

				TC(16384)
				print("")
				print("Anfrage verloren")

				LogWriter("--------------------------------")
				LogWriter("")
				LogWriter("Anfrage : connect")
				LogWriter("SucherID: "..SucherID)
				LogWriter("Ergebnis: Anfrage verloren")
				LogWriter("")

			else

				TC(16)
				print("")
				print("Die Anfrage sucht nach dem Server:")
				print("")
				TC(512)
				print("'"..eingabe.."'")

				if eingabe == "PowerNet" then

					rednet.send(SucherID, "0", SaveID)

					TC(32)
					print("")
					print("Anfrage wurde erfolgreich beantwortet")

					LogWriter("--------------------------------")
					LogWriter("")
					LogWriter("Anfrage : connect")
					LogWriter("SucherID: "..SucherID)
					LogWriter("SN      : "..eingabe)
					LogWriter("Ergebnis: Anfrage wurde erfolgreich beantwortet")
					LogWriter("")

				else

					rednet.send(SucherID, "false", SaveID)

					TC(16384)
					print("")
					print("SN wurde nicht im Speicher gefunden")
					print("Anfrage wurde nicht erfolgreich beantwortet")

					LogWriter("--------------------------------")
					LogWriter("")
					LogWriter("Anfrage : connect")
					LogWriter("SucherID: "..SucherID)
					LogWriter("SN      : "..eingabe)
					LogWriter("Ergebnis: SN wurde nicht im Speicher gefunden")
					LogWriter("")


				end
			end
		end


		if eingabe == "getlist" then

			rednet.send(SucherID, "getlist", SaveID)

			TC(16)
			print("")
			print("Es wurde eine Anfrage gestellt.")
			print("")
			print("SucherID: "..SucherID)
			print("Anfrage : "..eingabe)
			print("SaveID  : "..SaveID)

			print("")
			print("Die Server Liste wird gesendet...")

			rednet.send(SucherID, "PowerNet", SaveID) --Beispiel


			--
			rednet.send(SucherID, "end", SaveID) --Ende

			TC(32)
			print("")
			print("Die Liste wurde uebertragen")

			LogWriter("--------------------------------")
			LogWriter("")
			LogWriter("Anfrage : getlist")
			LogWriter("SucherID: "..SucherID)
			LogWriter("Ergebnis: Die Liste wurde uebertragen")
			LogWriter("")

		end
	end
end