Combine 2 Programms

--This Computer will stay at Trading Townspawn
--x:-7864 y:68 z:13718
--MInecraft(1.4.7) Tekkit Lite Modepack
--ServerIP: server.lycodon.com

os.loadAPI("ocs/apis/sensor")
mon = peripheral.wrap("back")
term.setBackgroundColor(32768)
term.setCursorPos(1,1)
term.clear()

function calc_color(color)
    return math.pow(2, color - 1)
end

function msg(gap, line, color, groundb, text)
    term.setBackgroundColor(calc_color(groundb))
    term.setCursorPos(gap,line)
    term.setTextColor(calc_color(color))
    text = term.write(text)
end

function clear()
    for yPos = 7,17 do
        msg(1,yPos,16,16,"                                                   ")
    end
    msg(01,19,08,16,"                                                        ")
end

function getS()
    for v, k  in pairs(s) do
        if k.Name == "ME Wireless Access Point" then
            target = v
        end
    end
    sleep(0.5)
    return target
end

Adjustable_Emitter_Amount = 0


while true do
    sen = sensor.wrap("bottom")
    for targetName,targetInfo in pairs(sen.getTargets()) do     --detect targets
        name = targetName
        if targetInfo.Name == "Player" then                     --detect if target is a player
            if fs.exists("Users/" ..name) == false then         --create user
                file = fs.open("Users/" .. name, "w")
                file.write("Adjustabel Emitter= 0\n")
                file.write("Amaranthine Dust= 0\n")
                file.write("Azure Dust= 0\n")
                file.write("Iridescent Dust= 0\n")
                file.write("Shiny Ingot= 0\n")
                file.write("Tungsten Ore= 0")
                file.close()
            end

            file = fs.open("local-name", "w")                               --name local speichern
            file.write(name)
            file.close()

            msg(01,01,02,16," Account: "..name)                             --überschrift
            msg(01,02,08,16,"---------------------------------------------------")

            clear()
            msg(06,07,01,15,"                  ")   msg(30,07,01,15,"                ")
            msg(06,08,01,15,"  deposit items   ")   msg(30,08,01,15," withdraw items ")
            msg(06,09,01,15,"                  ")   msg(30,09,01,15,"                ")

            msg(14,04,06,16,"$$$                   $$$")
            msg(18,04,05,16,"Trading-City Bank")
            msg(18,05,01,16,"~~~~~~~~~~~~~~~~~")
            msg(02,13,09,16,"After 1 year offline, your account will be")
            msg(02,14,09,16,"deleted, along with all your things!")
            msg(02,15,09,16,"Save your valuable items here so you can")
            msg(02,16,09,16,"get them back even after a player reset.")

            msg(01,18,08,16,"---------------------------------------------------")

            local event, button, X, Y = os.pullEvent("mouse_click")
            if X >= 06 and X <= 23 and Y >= 07 and Y <= 09 then                                 --deposit money
                clear()
                sleep(0.5)

                msg(02,07,01,16,"Insertable Items:")
                msg(02,08,09,16,"-> Adjustable Emitters     -> Azure Dust")
                msg(02,09,09,16,"-> Tungste Ore             -> Amaranthine Dust")
                msg(02,10,09,16,"-> Shiny Ingot             -> Iridescent Dust")

                msg(02,13,09,16,"Insert all items on the left and then")
                msg(02,14,09,16,"confirm here with the red button.")
                msg(02,15,09,16,"Your items will remain saved until")
                msg(02,16,09,16,"you retrieve them.")

                msg(40,13,01,15,"          ")
                msg(40,14,01,15," confirm  ")
                msg(40,15,01,15,"          ")

                msg(47,19,16,01," back")

                local event, button, X, Y = os.pullEvent("mouse_click")
                if X >= 40 and X <= 49 and Y >= 13 and Y <= 15 then     --confirm button
                    sen = sensor.wrap("top")
                    s = sen.getTargets()

                    --fs.delete("List")
                    file = fs.open("Local_List", "w")
                    file.close()

                    function getS()
                        for v, k in pairs(s) do
                            if k.Name == "ME Wireless Access Point" then
                                target = v
                            end
                        end
                        sleep(0.5)
                        return target
                    end

                    target = getS()
                    if target then
                        s1 = sen.getTargetDetails(target)
                        print("Eingeworfene Items:")
                        for _, item in pairs(s1.Items) do
                            local displayName = item.Name or "Unknown Item"
                            local size = item.Size or 0
                            local file = fs.open("Local_List", "a")
                            file.write(displayName .. "= " .. size .. "\n")
                            file.close()

                            print(displayName .. " = " .. size .. "\n")
                        end
                    end


                    -- Funktion zum Lesen der Datei und Extrahieren der Informationen
                    function ladeItems()
                        local datei = fs.open("Local_List", "r")  -- Datei im Lesemodus öffnen

                        if not datei then
                            print("Fehler: Datei konnte nicht geöffnet werden.")
                            return
                        end

                        -- Tabelle zum Speichern der Iteminformationen
                        local items = {}

                        -- Schleife durch jede Zeile der Datei
                        repeat
                        local zeile = datei.readLine()  -- Eine Zeile aus der Datei lesen
                        if zeile then
                          -- Trenne den Itemnamen und die Menge anhand des Gleichheitszeichens
                            local itemName, menge = zeile:match("([^=]+)%s*=%s*(%d+)")
                            if itemName and menge then
                                items[itemName] = tonumber(menge)
                            else
                                print("Fehlerhafte Zeile in der Datei: " .. zeile)
                            end
                        end
                        until not zeile

                        datei.close()  -- Datei schließen

                        return items
                    end

                    -- Beispielaufruf der Funktion
                    local itemTabelle = ladeItems()

                    -- Beispiel: Verwendung der abgerufenen Informationen
                    if itemTabelle then
                        Local_AEs_Amount = itemTabelle["Adjustable Emitter"]
                        --Local_Amaranthine_Amount = itemTabelle["Amaranthine Dust"]
                        --Local_Azure_Amount = itemTabelle["Azure Dust"]
                        --Local_Iridescent_Amount = itemTabelle["Iridescent Dust"]
                        Local_Shiny_Amount = itemTabelle["Shiny Ingot"]
                        Local_Tungsten_Amount = itemTabelle["Tungsten Ore"]
                    end

                    if not Local_AEs_Amount then
                        Local_AEs_Amount = 0
                    end
                    --if not Local_Amaranthine_Amount then
                    --  Local_Amaranthine_Amount = 0
                    --end
                    --if not Local_Azure_Amount then
                    --    Local_Azure_Amount = 0
                    --end
                    --if not Local_Iridescent_Amount then
                    --    Local_Iridescent_Amount = 0
                    --end
                    if not Local_Shiny_Amount then
                        Local_Shiny_Amount = 0
                    end
                    if not Local_Tungsten_Amount then
                        Local_Tungsten_Amount = 0
                    end
                    --------------------------------------------------------------------------

                    -- Funktion zum Lesen der Datei und Extrahieren der Informationen
                    file = fs.open("local-name", "r")                               --name local speichern
                    name = file.readLine()
                    file.close()
                    --name = "MagmaLP"
                    function ladeItems()
                        local datei = fs.open("Users/" .. name, "r")  -- Datei im Lesemodus öffnen

                        if not datei then
                            print("Fehler: Datei konnte nicht geöffnet werden.")
                            return
                        end

                        -- Tabelle zum Speichern der Iteminformationen
                        local items = {}

                        -- Schleife durch jede Zeile der Datei
                        repeat
                            local zeile = datei.readLine()  -- Eine Zeile aus der Datei lesen
                            if zeile then
                                -- Trenne den Itemnamen und die Menge anhand des Gleichheitszeichens
                                local itemName, menge = zeile:match("([^=]+)%s*=%s*(%d+)")
                                if itemName and menge then
                                  items[itemName] = tonumber(menge)
                                else
                                    print("Fehlerhafte Zeile in der Datei: " .. zeile)
                                end
                            end
                        until not zeile

                        datei.close()  -- Datei schließen

                        return items
                    end

                    -- Beispielaufruf der Funktion
                    local itemTabelle = ladeItems()

                    -- Beispiel: Verwendung der abgerufenen Informationen
                    if itemTabelle then
                        AEs_Amount = itemTabelle["Adjustable Emitter"]
                        --Amaranthine_Amount = itemTabelle["Amaranthine Dust"]
                        --Azure_Amount = itemTabelle["Azure Dust"]
                        --Iridescent_Amount = itemTabelle["Iridescent Dust"]
                        Shiny_Amount = itemTabelle["Shiny Ingot"]
                        Tungsten_Amount = itemTabelle["Tungsten Ore"]
                    end

                    New_AEs_Amount = AEs_Amount + Local_AEs_Amount
                    --New_Amaranthine_Amount = Amaranthine_Amount + Local_Amaranthine_Amount
                    --New_Azure_Amount = Azure_Amount + Local_Azure_Amount
                    --New_Iridescent_Amount = Iridescent_Amount + Local_Iridescent_Amount
                    New_Shiny_Amount = Shiny_Amount + Local_Shiny_Amount
                    New_Tungsten_Amount = Tungsten_Amount + Local_Tungsten_Amount

                    fs.delete("Local_List")
                    fs.delete("Users/" .. name)
                    file = fs.open("Users/" .. name, "w")
                    file.close()

                    local file = fs.open("Users/" .. name, "a")
                    file.write("Adjustable Emitter= " .. New_AEs_Amount .. "\n")
                    --file.write("Amaranthine Dust= " .. New_Amaranthine_Amount .. "\n")
                    --file.write("Azure Dust= " .. New_Azure_Amount .. "\n")
                    --file.write("Iridescent Dust= " .. New_Iridescent_Amount .. "\n")
                    file.write("Shiny Ingot= " .. New_Shiny_Amount .. "\n")
                    file.write("Tungsten Ore= " .. New_Tungsten_Amount .. "\n")
                    file.close()

                    print(" ")
                    print("addierte Werte:")
                    print("AEs:", New_AEs_Amount)
                    --print("Amaranthine:", New_Amaranthine_Amount)
                    --print("Azure:", New_Azure_Amount)
                    --print("Iridescent:",New_Iridescent_Amount)
                    print("Shiny:", New_Shiny_Amount)
                    print("Tungsten:", New_Tungsten_Amount)
                end
            end
        end
    end
    sleep(15)
    os.reboot()
end