BankSystem2.0

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