Computercraft Banque client

function tclear()
    term.clear()
    term.setCursorPos(1,1)
end
function stop()
    term.clear()
    term.setCursorPos(1,1)
    print("FAIT")
    print("APPUYER SUR UNE TOUCHE POUR CONTINUER")
    sleep(1)
    local paus=os.pullEvent()
end
--==================================
local modem = peripheral.wrap("top")
local tx = 0 --id serveur
local rx = 1 --indentifiant serveur pour rep
local corect = "lol" --mot de passe
local ok = "2"
term.clear()
term.setCursorPos(1,1)
modem.open(rx)
--==================================
while true do
    ok = "2"
    while ok ~= "1" do --mot de passe
        tclear()
        print("MOT DE PASSE :")
        m = read("*")
        if m == corect then
            ok = "1"
        end
    end
    --==================================
    tclear()
    print("BIENVENUE")
    print("=====================")
    print("| 1) VOIR UN COMPTE |")
    print("| 2) CREE UN COMPTE |")
    print("=====================")
    input = read()
    --==================================

    if input == "1" then
        tclear()
        print("NOM DU JOUEUR :")
        input = read()
        local path = "disk/"..input
        modem.transmit(tx,rx,{path,"start"})
        tclear()
        print("PATIENTER")
        local input,s,f,r,rep = os.pullEvent("modem_message")

        if rep ~= "error" then
            tclear()
            print(rep," OR(S)")
            print("=======================")
            print("| 1) AJOUTER SOMME    |")
            print("| 2) RETIRER SOMME    |")
            print("| 3) TRANSFERER SOMME |")
            print("| 4) QUITTER          |")
            print("=======================")
            input = read()

            if input == "1" then --add
                tclear()
                print("AJOUTER QUEL SOMME :")
                input =read()
                modem.transmit(tx,rx,{path,"add",input})
                stop()
            end
            if input == "2" then --take
                tclear()
                print("RETIRER QUEL SOMME :")
                input =read()
                modem.transmit(tx,rx,{path,"take",input})
                stop()
            end
            if input == "3" then -- transf
                tclear()
                print("JOUEUR CIBLE :")
                cible = read()
                local ciblep = "disk/"..cible
                tclear()
                print("PATIENTER")
                modem.transmit(tx,rx,{ciblep,"start"})
                local input,s,f,r,rep = os.pullEvent("modem_message")
                tclear()
                if rep ~= "error" then
                    print("SOMME A TRANSFERER :")
                    input = read()
                    modem.transmit(tx,rx,{path,"transf",input,ciblep})
                    stop()
                else
                    tclear()
                    print("LE COMPTE N'EXISTE PAS")
                    print("APPUYER SUR UNE TOUCHE POUR CONTINUER")
                    sleep(1)
                    local paus=os.pullEvent()
                end
            end
        else
            tclear()
            print("LE COMPTE N'EXISTE PAS")
            print("APPUYER SUR UNE TOUCHE POUR CONTINUER")
            sleep(1)
            local paus=os.pullEvent()
        end
    end
    if input == "2" then
        tclear()
        print("Nom du joueur :")
        input = read()
        local path = "disk/"..input
        modem.transmit(tx,rx,{path,"new"})
        stop()
    end
end