Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --SimNetSystem by Simlor (http://www.computercraft.info/forums2/index.php?/user/55655-simlor/)
- rednet.open("back") --back,front,top,left,right
- userList = {"Simlor", "Tim"}
- passList = {"abc", "123"}
- --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
- --LoginAbfrage
- function LoginAbfrage()
- print("")
- TC(16)
- print("Login gestartet...")
- eingabeP = ""
- eingabeU = ""
- name = false
- pass = false
- rednet.send(SucherID, "login", SaveID)
- oldSucherID = SucherID
- SucherID, eingabeU, SaveID = rednet.receive(SaveID, 0.2)
- SucherID, eingabeP, SaveID = rednet.receive(SaveID, 0.2)
- if eingabeU == "" or eingabeU == nil or eingabeP == "" or eingabeP == nil then
- rednet.send(oldSucherID, "false", SaveID)
- TC(16384)
- print("")
- print("Fehler beim Login")
- LogWriter("--------------------------------")
- LogWriter("")
- LogWriter("Anfrage : Login")
- LogWriter("SucherID: "..oldSucherID)
- LogWriter("Ergebnis: Login aufgrund fehlender Login Daten fehlgeschlagen")
- LogWriter("")
- Feedback = false
- else
- TC(16)
- print("")
- print("Login Daten")
- print("-----------")
- print("")
- print("SucherID: "..SucherID)
- print("SaveID : "..SaveID)
- print("name : "..eingabeU)
- print("pass : "..eingabeP)
- C = 0
- while true do
- C = (C+1)
- if userList[C] == eingabeU and not (name == true) then
- name = true
- if passList[C] == eingabeP and not (pass == true) then
- pass = true
- end
- end
- if name == true and pass == true then
- Feedback = true
- TC(32)
- print("")
- print("Login Daten waren korrekt")
- LogWriter("--------------------------------")
- LogWriter("")
- LogWriter("Anfrage : Login")
- LogWriter("SucherID: "..SucherID)
- LogWriter("username: "..eingabeU)
- LogWriter("passwort: "..eingabeP)
- LogWriter("Ergebnis: Login war erfolgreich")
- LogWriter("")
- break
- end
- if C == (table.getn(userList)) then
- Feedback = false
- rednet.send(SucherID, "false", SaveID)
- TC(16384)
- print("")
- print("Login Daten waren nicht korrekt")
- LogWriter("--------------------------------")
- LogWriter("")
- LogWriter("Anfrage : Login")
- LogWriter("SucherID: "..SucherID)
- LogWriter("username: "..eingabeU)
- LogWriter("passwort: "..eingabeP)
- LogWriter("Ergebnis: Login aufgrund falscher Login Daten fehlgeschlagen")
- LogWriter("")
- break
- end
- end
- end
- end
- --Text Funktion
- function TextAbfrage(num)
- rednet.send(SucherID, "text", SaveID)
- if num == 1 then
- Text = {
- "TestLog",
- "-------",
- "",
- "20:15: Hangover 3"
- }
- elseif num == 2 then
- Text = {
- "Fake"
- }
- end
- C = 0
- while true do
- C = (C+1)
- rednet.send(SucherID, Text[C], SaveID)
- if (table.getn(Text)) == C then
- rednet.send(SucherID, "end", SaveID)
- TC(32)
- print("")
- print("Text wurde uebertragen")
- LogWriter("--------------------------------")
- LogWriter("")
- LogWriter("Anfrage : Text")
- LogWriter("SucherID: "..SucherID)
- LogWriter("Ergebnis: Wurde erfolgreich uebertragen")
- LogWriter("")
- break
- end
- end
- end
- --System
- BC(32768)
- Clear()
- TC(16)
- print("SimTestServer")
- while true do
- print("")
- TC(16)
- print("Warte auf eine Anfrage...")
- SaveID = nil
- eingabe = nil
- SucherID = 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
- TC(16)
- print("")
- print("Es wurde eine Anfrage gestellt.")
- print("")
- print("SucherID: "..SucherID)
- print("Anfrage : "..eingabe)
- print("SaveID : "..SaveID)
- if eingabe == "connect" then
- rednet.send(SucherID, "connect", SaveID)
- --Alle Commands
- rednet.send(SucherID, "server_shutdown", SaveID)
- rednet.send(SucherID, "log", SaveID)
- rednet.send(SucherID, "end", SaveID)
- --END Alle Commands
- TC(32)
- print("")
- print("Anfrage wurde erfolgreich bearbeitet")
- LogWriter("--------------------------------")
- LogWriter("")
- LogWriter("Anfrage : connect")
- LogWriter("SucherID: "..SucherID)
- LogWriter("Ergebnis: Anfrage wurde erfolgreich bearbeitet")
- LogWriter("")
- --Ab hier folgen die Beispiel Commands:
- elseif eingabe == "server_shutdown" then
- LoginAbfrage()
- if Feedback == true then
- LogWriter("--------------------------------")
- LogWriter("")
- LogWriter("Anfrage : server_shutdown")
- LogWriter("SucherID: "..SucherID)
- LogWriter("Ergebnis: Server wird abgeschaltet")
- LogWriter("")
- rednet.send(SucherID, "true", SaveID)
- os.shutdown()
- end
- elseif eingabe == "log" then
- TextAbfrage(1)
- TC(32)
- print("")
- print("Anfrage erfolgreich bearbeitet")
- --END der Beispiel Command Liste
- else
- TC(16384)
- print("")
- print("Es gab einen Fehler")
- end
- end
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement