dd

--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)
    mon.setBackgroundColor(calc_color(groundb))
    mon.setCursorPos(gap,line)
    mon.setTextColor(calc_color(color))
    text = mon.write(text)
end

function clear()
    for yPos = 3,30 do
        msg(1,yPos,16,16,"                                                   ")
    end
end

while true do
    sen = sensor.wrap("bottom")
    for targetName,targetInfo in pairs(s.getTargets()) do   	--detect targets
        if targetInfo.Name == "Player" then						--detect if target is a player
            if fs.exists("AEs/" ..name) == false then        	--create user
                file = fs.open("AEs/" ..name.. "/", "w")
                file.write(0.0)
                file.close()
                file = fs.open("HVs/" ..name.. "/", "w")
                file.write(0.0)
                file.close()
                file = fs.open("Tungsten/" ..name.. "/", "w")
                file.write(0.0)
                file.close()
                file = fs.open("Azure/" ..name.. "/", "w")
                file.write(0.0)
                file.close()
                file = fs.open("Amaranthine/" ..name.. "/", "w")
                file.write(0.0)
                file.close()
                file = fs.open("Iridescent/" ..name.. "/", "w")
                file.write(0.0)
                file.close()
            end

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

            msg(01,01,06,16,"< Welcome "..name.." >")   							--überschrift
            msg(01,02,04,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(02,13,09,16,"Trading-City Bank")
            msg(02,15,09,16,"After 1 year offline, your account will be")
            msg(02,16,09,16,"deleted, along with all your things!")
            msg(02,17,09,16,"Save your valuable items here so you can")
            msg(02,18,09,16,"get them back even after a player reset.")

            local event, button, X, Y = os.pullEvent("mouse_click")
            if X >= 06 and X <= 23 and Y >= 07 and Y <= 09 then                                 --deposit money
                for a = 3,20 do
                    for b = 1,50 do
                        msg(b,a,16,16," ")
                    end
                end
                sleep(0.5)
                msg(02,06,01,15,"                                                 ")
                msg(02,07,01,15," click here to see a list of all sellable items  ")
                msg(02,08,01,15,"                                                 ")

                msg(02,12,09,16,"Throw in all items on the left and confirm with")
                msg(02,13,09,16,"the button below. The money is stored permanently ")
                msg(02,14,09,16,"until you buy something with it.")

                msg(40,16,01,15,"          ")
                msg(40,17,01,15," confirm  ")   msg(32,17,01,16,"----->")
                msg(40,18,01,15,"          ")

                msg(01,19,16,01,"back")
			end
        end
    end
    sleep(0.5)
end