MOB - User Tool LITE VERSION (Privates Projekt)

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

--Minecraft Online Banking System (MOB System)

os.pullEvent = os.pullEventRaw

--SimSoft API

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

--Einstellungen Check

fscheck = fs.exists(".mob")

if fscheck == true then

	file = fs.open(".mob/settings","r")
	local fileData = {}
	local line = file.readLine()
	repeat
	table.insert(fileData,line)
	line = file.readLine()
	until line == nil
	file.close()

	sideofmodem = fileData[1]
	idofserver = fileData[2]

	idofserver = (idofserver+0)

	if sideofmodem == "left" or sideofmodem == "right" or sideofmodem == "front" or sideofmodem == "back" or sideofmodem == "top" or sideofmodem == "bottom" then

		--

	else

		local file = fs.open(".mob/settings","a")
		file.writeLine("back")
		file.writeLine("0")
		file.writeLine("")
		file.writeLine("1. Side of modem")
		file.writeLine("2. ID of main server")
		file.close()

	end

else

	local file = fs.open(".mob/settings","a")
    file.writeLine("back")
    file.writeLine("0")
	file.writeLine("")
	file.writeLine("1. Side of modem")
	file.writeLine("2. ID of main server")
    file.close()

	sideofmodem = "back"
	idofserver = 0

end

rednet.open(sideofmodem)

--MOB Funktionen

function MOBlogin(name, pass)

	msg = nil
	error = false
	guthaben = nil
	saveID = math.random(1, 99999999)


	rednet.send(idofserver, "login", saveID)

	serverID, msg = rednet.receive(saveID, 0.8)

	if msg == "login" then

		rednet.send(idofserver, name, saveID)
		rednet.send(idofserver, pass, saveID)

		serverID, msg = rednet.receive(saveID, 0.8)

		if msg == "true" then

			serverID, guthaben = rednet.receive(saveID, 0.8)

		else

			if msg == "error:wrong_format" then

				error = "wrong_format"

			else

				error = "wrong_pass"

			end

		end

	else

		error = "no_server_answer"

	end

end

--System


BC(1)

Clear()

BC(128)

CP(1,1)
write("                                                   ")
CP(1,2)
write("                                                   ")
CP(1,3)
write("                                                   ")

CP(2,2)
BC(128)
TC(1)

print("Minecraft Online Banking")

BC(1)

TC(128)

CP(2,8)
print("Username -")

CP(2,11)
print("MOB-Code -")

TC(512)

CP(13,8)
name = read()

CP(13,11)
pass = read("#")

TC(256)

CP(4,18)
print("Warte auf den Server...")

C = 0

while true do

	C = (C+1)

	MOBlogin(name, pass)

	if error == false then

		BC(1)
		TC(256)

		CP(4,18)

		print("Das Login war erfolgreich!          ")

		break

	elseif error == "wrong_format" then

		BC(1)
		TC(256)

		CP(4,18)

		print("Nutze fuer den Code nur Zahlen!")

		sleep(2)

		os.reboot()
		break

	elseif error == "wrong_pass" then

		BC(1)
		TC(256)

		CP(4,18)

		print("Username oder MOB-Code sind falsch!")

		sleep(2)

		os.reboot()
		break

	elseif error == "no_server_answer" then

		BC(1)
		TC(256)

		CP(4,18)

		print("Warte auf den Server... ("..(C+1).."/3)")

		if C == 3 then

			BC(1)
			TC(256)

			CP(4,18)

			print("Server hat nicht geantwortet!")

			sleep(2)

			os.reboot()
			break

		end

	end

end

function StandertAnzeigeLITE()

	BC(1)

	Clear()

	BC(128)

	CP(1,1)
	write("                                                   ")
	CP(1,2)
	write("                                                   ")
	CP(1,3)
	write("                                                   ")

	CP(2,2)
	BC(128)
	TC(1)

	print("Minecraft Online Banking")

end

function StandertAnzeige()

	StandertAnzeigeLITE()

	BC(256)

	CP(1,5)
	write("                                                   ")
	CP(1,6)
	write("                                                   ")
	CP(1,7)
	write("                                                   ")

	BC(512)

	CP(1,9)
	write("                                                   ")
	CP(1,10)
	write("                                                   ")
	CP(1,11)
	write("                                                   ")

	CP(1,13)
	write("                                                   ")
	CP(1,14)
	write("                                                   ")
	CP(1,15)
	write("                                                   ")

	TC(1)

	if error == false then

		BC(256)

		CP(1,6)
		write("                                                   ")

		CP(2,6)
		print("Guthaben - "..guthaben.." MO$")

	else

		BC(16384)

		CP(1,5)
		write("                                                   ")
		CP(1,6)
		write("                                                   ")
		CP(1,7)
		write("                                                   ")

		CP(4,6)
		print("Es gab einen Fehler :/")

	end

	BC(512)

	CP(2,14)
	print("Abmelden")

	CP(2,10)
	print("Ueberweisung durchfuehren")


end

w, h = term.getSize()

while true do

	StandertAnzeige()

	event, side, x, y = os.pullEvent()
	if event == "mouse_click" then

		if x >= 1 and x <= w and y >= 5 and y <= 7 then

			if error == false then

				BC(256)

			else

				BC(16384)

			end

			CP(1,6)
			write("                                                   ")

			CP(4,6)
			print("Lade neu...")

			sleep(0.2)

			MOBlogin(name, pass)

		end

		if x >= 1 and x <= w and y >= 13 and y <= 15 then

			os.reboot()

		end

		if x >= 1 and x <= w and y >= 9 and y <= 11 then

			StandertAnzeigeLITE()

			BC(1)

			TC(128)

			CP(2,8)
			print("Senden zum Konto - ")

			CP(2,10)
			print("Menge zum Senden - ")

			TC(1)

			BC(32)

			CP(2,12)
			print("             ")
			CP(2,13)
			print("    Senden   ")
			CP(2,14)
			print("             ")

			BC(16384)

			CP(2,16)
			print("             ")
			CP(2,17)
			print("  Abbrechen  ")
			CP(2,18)
			print("             ")

			TC(512)
			BC(1)

			zukontosenden = nil
			mengezusenden = nil

			CP(21, 8)
			zukontosenden = read()

			CP(21, 10)
			mengezusenden = read()

			while true do

				event, side, x, y = os.pullEvent()
				if event == "mouse_click" then

					if x >= 2 and x <= 14 and y >= 12 and y <= 14 then

						CP(4,18)
						BC(1)
						TC(256)

						print("Sende Daten...")

						msg = nil
						error = false
						guthaben = nil
						saveID = math.random(1, 99999999)

						rednet.send(idofserver, "trans", saveID)

						serverID, msg = rednet.receive(saveID, 0.8)

						if msg == "trans" then

							rednet.send(idofserver, name, saveID)
							rednet.send(idofserver, pass, saveID)

							serverID, msg = rednet.receive(saveID, 0.8)

							if msg == "true" then

								rednet.send(idofserver, zukontosenden, saveID)
								rednet.send(idofserver, mengezusenden, saveID)

								msg = nil

								serverID, msg = rednet.receive(saveID, 0.8)

								if msg == "true" then

									CP(4,18)
									BC(1)
									TC(256)

									print("Erfolgreich abgeschlossen!")

									sleep(1)

									break

								elseif msg == "error:big_deal" then

									CP(4,18)
									BC(1)
									TC(256)

									print("Es gab einen Fehler bei der Menge!")

									sleep(1)

									break

								elseif msg == "error:wrong_account" then

									CP(4,18)
									BC(1)
									TC(256)

									print("Das Konto wurde nicht gefunden!")

									sleep(1)

									break

								else

									CP(4,18)
									BC(1)
									TC(256)

									print("Es gab einen Fehler!")

									sleep(1)

									break

								end

							else

								if msg == "error:wrong_format" then

									CP(4,18)
									BC(1)
									TC(256)

									print("Es gab einen Fehler!")

									sleep(1)

									break

								else

									CP(4,18)
									BC(1)
									TC(256)

									print("Es gab einen Fehler!")

									sleep(1)

									break

								end

							end

						else

							CP(4,18)
							BC(1)
							TC(256)

							print("Der Server antwortet nicht!")

							sleep(1)

							break

						end

					end

					if x >= 2 and x <= 14 and y >= 16 and y <= 18 then

						break

					end

				end

			end

			MOBlogin(name, pass)

		end

	end

end