Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- shell.run("clear")
- rednet.open("bottom")
- rom = peripheral.wrap("right")
- --
- black = colors.black
- red = colors.red
- green = colors.green
- white = colors.white
- blue = colors.blue
- bnorm = black
- tnorm = white
- brown = colors.brown
- cyan = colors.cyan
- orange = colors.orange
- yellow = colors.yellow
- pink = colors.pink
- purple = colors.purple
- lime = colors.lime
- function cbut(cx, cy, text, bcol, tcol)
- term.setCursorPos(cx, cy)
- term.setBackgroundColor(bcol)
- term.setTextColor(tcol)
- print(text)
- term.setBackgroundColor(bnorm)
- term.setTextColor(tnorm)
- end
- --
- function login()
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(4,4,"Bitte Disk einlegen", white, blue)
- evt, side = os.pullEvent("disk")
- cbut(4,6,"Bitte gebe dein PW ein", white,blue)
- term.setCursorPos(27,6)
- term.setBackgroundColor(white)
- term.setTextColor(blue)
- name = disk.getLabel("right")
- re = "/disk/" .. name
- lDatas = fs.open(re, "r")
- gName = lDatas.readLine(1)
- gPass = lDatas.readLine(2)
- gMoney = lDatas.readLine(4)
- pass = read("*")
- if pass == gPass then
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(4,4,"Willkommen " .. name,white,blue)
- if gMoney == 0.0 then
- cbut(4,5,"Ihr Guthaben betraegt 0",white,blue)
- else
- cbut(4,5,"Ihr Guthaben betraegt " .. gMoney,white,blue)
- end
- click1()
- else
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(4,4,"Falsches Password. Bitte versuch es noch einmal",white,blue)
- disk.eject("right")
- sleep(3)
- shell.run("1")
- end
- end
- function loading()
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," ",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," ",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," ",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," L",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," Lo",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," Loa",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," Load",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," Loadi",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," Loadin",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," Loading",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(10,7," ",cyan, blue)
- cbut(10,8," Loading ",cyan, blue)
- cbut(11,8," Loading ",green, blue)
- cbut(10,9," ",cyan, blue)
- sleep(0.4)
- end
- function regDisk()
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(4,4,"Bitte Namen eingeben", white, blue)
- term.setCursorPos(25,4)
- term.setBackgroundColor(white)
- term.setTextColor(blue)
- NewName = io.read()
- disk.setLabel("right", NewName)
- cbut(4,5,"Dein Accountname ist " .. NewName .. "!",white, blue)
- cbut(4,6,"Bitte waehle ein Password", white, blue)
- term.setCursorPos(31,6)
- term.setBackgroundColor(white)
- term.setTextColor(blue)
- NewPass = read("*")
- op = "/disk/" .. NewName
- sData = fs.open(op, "w")
- sData.writeLine(NewName)
- sData.writeLine(NewPass)
- sData.writeLine("Money:")
- sData.writeLine(0)
- sData.close()
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(4,7,"Daten erfasst und werden gespeichert einen Moment",white,blue)
- sleep(1)
- loading()
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(4,7,"Daten gespeichert",white,blue)
- sleep(1)
- disk.eject("right")
- end
- function reg()
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(2,2, "Zum Registrieren eine Disk einwerfen", white, blue)
- cbut(2,3, "Erhaeltlich bei Muzze77", white, blue)
- evt, side = os.pullEvent("disk")
- if rom.getLabel == nil then
- regDisk()
- end
- end
- function click()
- evt, but, x, y = os.pullEvent("mouse_click")
- if but == 1 then
- for mx = 4, 17, 1 do
- if mx == x then
- if y == 7 then
- cbut(4, 7," Registrieren ", green, blue)
- sleep(0.5)
- cbut(4, 7," Registrieren ", white, blue)
- reg()
- elseif y == 6 then
- cbut(4, 6," Einloggen ", green, blue)
- sleep(0.5)
- cbut(4, 6," Einloggen ", white, blue)
- login()
- end
- end
- end
- end
- end
- function saveMoney(money)
- rsData = fs.open(re, "r")
- rsName = rsData.readLine(1)
- rsPass = rsData.readLine(2)
- rsText = rsData.readLine(3)
- rsMoney = rsData.readLine(4)
- rsData.close()
- money1 = rsMoney + money
- sData = fs.open(re, "w")
- sData.writeLine(gName)
- sData.writeLine(gPass)
- sData.writeLine("Money:")
- sData.writeLine(money1)
- sData.close()
- cbut(2, 7, "Danke fuer Ihre Einzahlung", white, blue)
- disk.eject("right")
- sleep(3)
- end
- function click1()
- cbut(4,7," Einzahlen ",white, blue)
- cbut(4,6," Auszahlen ",white, blue)
- evt, but, x, y = os.pullEvent("mouse_click")
- if but == 1 then
- for mx = 5, 15, 1 do
- if mx == x then
- if y == 7 then
- getm = 0
- cbut(5,7," Einzahlen ",green, blue)
- sleep(0.4)
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(2,4,"Menge die Eingezahlt werden soll: ", white, blue)
- term.setCursorPos(36,4)
- term.setBackgroundColor(white)
- term.setTextColor(blue)
- mengen = io.read()
- cbut(36,4,menge, white, blue)
- menge1 = tonumber(menge)
- while getm ~= menge1 do
- term.setBackgroundColor(white)
- term.clearLine(6)
- term.clearLine(7)
- cbut(2, 7, "Noch " .. mengen .. " UU-Matter fehlen", white, blue)
- cbut(2, 6, "Bitte noetige menge Einzahlen", white, blue)
- ID, msg = rednet.receive()
- msg2 = tonumber(msg)
- menge2 = tonumber(mengen)
- if ID == 24043 then
- cbut(1,1,msg,white, blue)
- cbut(1,2,menge,white,blue)
- if msg2 >= menge2 then
- term.setBackgroundColor(white)
- term.clearLine(7)
- term.clearLine(6)
- cbut(2, 6, "Noch 0 UU-Matter fehlen", white, blue)
- sleep(0.5)
- rs.setOutput("back", true)
- sleep(1)
- rs.setOutput("back", false)
- saveMoney(msg)
- shell.run("1")
- elseif msg ~= menge then
- term.setBackgroundColor(white)
- term.clearLine(7)
- term.clearLine(6)
- got = msg
- put = menge - got
- cbut(2, 7, "Noch " .. put .. " UU-Matter fehlen", white, blue)
- cbut(2, 6, "Bitte noetige menge Einzahlen", white, blue)
- end
- end
- sleep(0.1)
- end
- end
- end
- end
- end
- for mx = 5, 15, 1 do
- if mx == x then
- if y == 6 then
- cbut(5,6," Auszahlen ",green, blue)
- sleep(0.4)
- lDate = fs.open(re, "r")
- lName = lDate.readLine(1)
- lPass = lDate.readLine(2)
- stMoney = lDate.readLine(3)
- lMoney = lDate.readLine(4)
- lDate.close()
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(2,3,"Sie können sich " .. lMoney .. " UU-Matter auszahlen lassen",white,blue)
- cbut(2,4,"Menge die Ausgezahlt werden soll: ", white, blue)
- term.setCursorPos(36,4)
- term.setBackgroundColor(white)
- term.setTextColor(blue)
- lmenge = io.read()
- ma = lmenge
- if lmenge > lMoney then
- cbut(2,5,"So viel besitzen SIE nicht",white, blue)
- sleep(3)
- disk.eject("right")
- click1()
- elseif lmenge <= lMoney then
- cbut(2,5,"Wird ausgezahlt einen Moment",white,blue)
- rsname = disk.getLabel("right")
- sleep(3)
- while lmenge ~= 0 do
- rs.setOutput("top", true)
- sleep(0.5)
- rs.setOutput("top", false)
- sleep(0.5)
- lmenge = lmenge - 1
- end
- nMoney = lMoney - ma
- sDate = fs.open(re,"w")
- sDate.writeLine(rsname)
- sDate.writeLine(pass)
- sDate.writeLine("Money:")
- sDate.writeLine(nMoney)
- sDate.close()
- disk.eject("right")
- cbut(2,6,"Immer fuer Sie da",white,blue)
- sleep(3)
- shell.run("1")
- end
- end
- end
- end
- end
- --
- term.setBackgroundColor(white)
- shell.run("clear")
- --
- while true do
- term.setBackgroundColor(white)
- shell.run("clear")
- cbut(4,4," BANK SYSTEM by MUZZE77",white, blue)
- cbut(4, 6," Einloggen ", white, blue)
- cbut(4, 7," Registrieren ", white, blue)
- click()
- end
Add Comment
Please, Sign In to add comment