Codes to download

Calculator.lua

--# Main

usedPi = false
isNumber1 = true
number = 0
number2 = 0
drawing = true
answernumber = 0
mute = true
operation = "nil"
owner = "Anatoly W."

displayMode(OVERLAY)
displayMode(FULLSCREEN)
supportedOrientations(WIDTH)

function setup()
    -- This are fir temporary control
    parameter.watch("pasteboard.text")
    parameter.watch("number")
    parameter.watch("number2")
    parameter.watch("answernumber")
    parameter.watch("mute")
    --[[
    TextPanel
    Use this subnames:
    
    txt.value
    txt.color
    txt.textsize
    
    ]]
    txt = TextPanel("Start writing number by typing")
    
    -- The Information Page
    information = Info()
    news = News()
    logo = Logo()
    pnl = Panel()
    
    -- The Main Tag
    currentpage = information
    
    --[[
    Buttons
    Use this subnames:
    
    x, y, name, color
    
    ]]
    button1 = Button("1", 75, 75, function()
        calculator(1)
    end)
    button2 = Button("2", 150, 75, function()
        calculator(2)
    end)
    button3 = Button("3", 225, 75, function()
        calculator(3)
    end)
    button4 = Button("4", 75, 150, function()
        calculator(4)
    end)
    button5 = Button("5", 150, 150, function()
        calculator(5)
    end)
    button6 = Button("6", 225, 150, function()
        calculator(6)
    end)
    button7 = Button("7", 75, 225, function()
        calculator(7)
    end)
    button8 = Button("8", 150, 225, function()
        calculator(8)
    end)
    button9 = Button("9", 225, 225, function()
        calculator(9)
    end)
    buttonPLUS = Button("+", 375, 75, function()
        calculator("ans", "+")
    end)
    buttonMINUS = Button("-", 375, 150, function()
        calculator("ans", "-")
    end)
    buttonMULTIPLIE = Button("•", 450, 75, function()
        calculator("ans", "*")
    end)
    buttonDIVIDE = Button(":", 450, 150, function()
        calculator("ans", "/")
    end)
    buttonPI = Button("PI", 225, 525, function()
        calculator(math.pi)
        usedPi = true
    end)
    copytext = Button("Copy", 750, 75, function()
        pasteboard.copy("I copied in the math programm by " .. owner .. " and the answer was '".. answernumber .. "'")
    end)
    answerbutton = Button("=", 525, 225, function()
        answer()
    end)
    button0 = Button("0", 525, 150, function()
        calculator(0)
    end)
    clearbutton = Button("CE", 450, 225, function()
        calculator("ce")
    end)
    button00 = Button("00", 525, 75, function()
        calculator(00)
    end)
    soundmute = Button("🔈", 675, 75, function()
        soundmuting()
    end)
    stepeni = Button("Pow", 75, 375, function()
        calculator("ans", "^2")
    end)
    korni = Button("Root", 150, 375, function()
        calculator("ans", "sqrt")
    end)
    ceil = Button("~", 825, 75, function()
        calculator("ans", "ceil")
    end)
    infobutton = ActivateButton("About", 675, 150, function()
        currentpage = information
    end)
    bugsbutton = ActivateButton("News", 750, 150, function()
        currentpage = news
    end)
    logobutton = ActivateButton("Logo", 825, 150, function()
        currentpage = logo
    end)
    abs = Button("|-5|", 225, 375, function()
        calculator("ans", "abs")
    end)
    homepagegithub = Button("Script (v1)", 675, 225, function()
        openURL("https://github.com/TokOut/calculator/tree/master/version-1-0", true)
    end, 150)
    panel = Button("Developer Panel", 75, 450, function()
        currentpage = pnl
    end, 225)
    secondgithubpage = Button("Main", 825, 225, function()
        openURL("https://github.com/TokOut/calculator/", true)
    end)
    div = Button("div", 75, 525, function()
        calculator("ans", "div")
    end)
    dot = Button(",", 375, 225, function()
        calculator("dot")
    end)
    mod = Button("mod", 150, 525, function()
        calculator("ans", "mod")
    end)
end

function draw()
    background(127, 127, 127, 255)
    button1:draw()
    button2:draw()
    button3:draw()
    button4:draw()
    button5:draw()
    button6:draw()
    button7:draw()
    button8:draw()
    button9:draw()
    button0:draw()
    buttonDIVIDE:draw()
    buttonMINUS:draw()
    buttonMULTIPLIE:draw()
    buttonPLUS:draw()
    buttonPI:draw()
    copytext:draw()
    txt:draw()
    answerbutton:draw()
    clearbutton:draw()
    soundmute:draw()
    button00:draw()
    stepeni:draw()
    korni:draw()
    ceil:draw()
    abs:draw()
    infobutton:draw()
    bugsbutton:draw()
    logobutton:draw()
    homepagegithub:draw()
    panel:draw()
    secondgithubpage:draw()
    div:draw()
    dot:draw()
    mod:draw()
    
    -- The information page
    
    fill(255, 255, 255, 255)
    rect(375, 375, 525, 225)
    fill(0, 0, 0, 255)
    currentpage:draw()
end

function touched(t)
    button1:touched(t)
    button2:touched(t)
    button3:touched(t)
    button4:touched(t)
    button5:touched(t)
    button6:touched(t)
    button7:touched(t)
    button8:touched(t)
    button9:touched(t)
    button0:touched(t)
    buttonMINUS:touched(t)
    buttonMULTIPLIE:touched(t)
    buttonPLUS:touched(t)
    buttonDIVIDE:touched(t)
    buttonPI:touched(t)
    copytext:touched(t)
    answerbutton:touched(t)
    clearbutton:touched(t)
    soundmute:touched(t)
    button00:touched(t)
    stepeni:touched(t)
    korni:touched(t)
    ceil:touched(t)
    infobutton:touched(t)
    bugsbutton:touched(t)
    logobutton:touched(t)
    abs:touched(t)
    homepagegithub:touched(t)
    panel:touched(t)
    secondgithubpage:touched(t)
    div:touched(t)
    dot:touched(t)
    mod:touched(t)
end
--# SodaActions
TextPanel = class()

function TextPanel:init(value)
    self.value = value
    self.color = color(183, 181, 181, 255)
    self.textsize = 50
end

function TextPanel:draw()
    fill(70, 70, 70, 255)
    rect(0, HEIGHT - 75, 1023.5, 75)
    fill(self.color)
    font("AcademyEngravedLetPlain")
    fontSize(self.textsize)
    text(self.value, WIDTH/2, HEIGHT - 50)
end

Button = class()

function Button:init(name, x, y, action, w)
    if x == nil or y == nil then
        x = 0
        y = 0
    end
    
    if name == nil then
        name = "Nil"
    end
    
    if action == nil then
        action = function() print("Using a Non-Function Button") end
    end
    
    if w == nil then
        w = 75
    end
    
    self.x = x
    self.y = y
    self.name = name
    self.action = action
    self.color = color(255, 255, 255, 255)
    self.textcolor = color(0, 0, 0, 255)
    self.w = w
end

function Button:draw()
    strokeWidth(1)
    fill(self.color)
    rect(self.x, self.y, self.w, 75)
    font("AmericanTypewriter")
    fontSize(25)
    textMode(CENTER)
    fill(self.textcolor)
    text(self.name, self.x + self.w/2, self.y + 35)
end

function Button:touched(t)
    if t.state == BEGAN and self:hit(vec2(t.y,t.x)) then
        if mute == false then
            sound("A Hero's Quest:Arrow Shoot 1")
        end
        self.color = color(187, 187, 187, 255)
        self.action()
    else
        self.color = color(255, 255, 255, 255)
    end
    
    if t.state == ENDED then
        self.color = color(255, 255, 255, 255)
    end
end

function Button:hit(p)
    local t = self.x + self.w
    local b = self.x - 1
    local l = self.y - 1
    local r = self.y + 75
    if p.x > l and p.x < r and p.y > b and p.y < t then
        return true
    end
    return false
end

ActivateButton = class()

function ActivateButton:init(name, x, y, action)
    if x == nil or y == nil then x = 0 y = 0 end
    if name == nil then name = "Nil" end
    if action == nil then action = function() print("Nil value for action!") end end
    
    self.x = x
    self.y = y
    self.name = name
    self.action = action
    self.color = color(255, 158, 0, 255)
    self.textcolor = color(0, 0, 0, 255)
end

function ActivateButton:draw()
    strokeWidth(1)
    fill(self.color)
    rect(self.x, self.y, 75, 75)
    font("AmericanTypewriter")
    fontSize(25)
    textMode(CENTER)
    fill(self.textcolor)
    text(self.name, self.x + 35, self.y + 35)
end

function ActivateButton:touched(t)
    if t.state == BEGAN and self:hit(vec2(t.y,t.x)) then
        if mute == false then
            sound(DATA, "ZgBAaT1ASEBAQEBAWkA+PW/XSj9lCNY+ZABAf0BAQEBAQEBA")
        end
        self.color = color(189, 255, 0, 255)
        self.action()
    else
        self.color = color(255, 158, 0, 255)
    end
    
    if t.state == ENDED then
        self.color = color(255, 158, 0, 255)
    end
end

function ActivateButton:hit(p)
    local t = self.x + 75
    local b = self.x - 1
    local l = self.y - 1
    local r = self.y + 75
    if p.x > l and p.x < r and p.y > b and p.y < t then
        return true
    end
        return false
end
--# CurrentPages
Panel = class()

function Panel:draw()
    if isNumber1 == true then isNumberBoalen = "true" else isNumberBoalen = "false" end
    if usedPi == true then PI = "" else PI = "not" end
    if mute == true then soundstate = "Off" else soundstate = "On" end
    fill(0, 0, 0, 255)
    font("AmericanTypewriter-Bold")
    fontSize(20)
    textMode(CORNER)
    text("Control Panel for Developers", 500, 565)
    fontSize(15)
    font("AmericanTypewriter")
    text("Number (1) is " .. number, 500, 550)
    text("Number (2) is " .. number2, 500, 535)
    text("Number (A) is " .. answernumber, 500, 520)
    text("Current Operation is << " .. operation .. ">>", 500, 495)
    text("Music is " .. soundstate, 500, 480)
    text("Extra", 500, 460)
    text("Number1 is now " .. isNumberBoalen, 500, 445)
    text("The Number Pi is currently " .. PI .. " used.", 500, 430)
end

Logo = class()

function Logo:draw()
    translate(637.5, 490)
    rotate(ElapsedTime*75)
    fill(48, 255, 0, 255)
    ellipse(5, 5, 220)
    fill(0, 255, 157, 255)
    rect(-58.5, -58.5, 130, 130)
    stroke(255, 255, 255, 255)
    strokeWidth(15)
    line(5, -45, 5, 56)
    line(55, 5, -45, 5)
    fill(0, 0, 0, 255)
    fontSize(100)
    translate(1, 1)
    rotate(ElapsedTime * 500)
    text("2 + 2")
    rotate(ElapsedTime * 250)
    text("10 + 10")
end

News = class()

function News:draw()
    fill(0, 0, 0, 255)
    font("AmericanTypewriter-Bold")
    fontSize(20)
    textMode(CORNER)
    text("News and Bugs", 590, 565)
    fontSize(15)
    font("AmericanTypewriter")
    -- Difference between one paragraph line - 15; new paragraph difference - 20
    text("NEW - Logo  is updated and with more effects and", 500, 540)
    text("the Control panels have been updated! 2.0!", 500, 525)
    text("FIXES - After answer taking an operation that", 500, 505)
    text("it resulted the second number of the op. Fixed!", 500, 490)
    text("NEW - Created more buttons.", 500, 470)
    text("SOON - Adding a new page for buttons, with buttons", 500, 450)
    text("Also will add more animation and set to MiniCode.", 500, 435)
end

Info = class()

function Info:draw()
    fill(0, 0, 0, 255)
    font("AmericanTypewriter-Bold")
    fontSize(20)
    textMode(CORNER)
    text("About "..owner, 590, 565)
    fontSize(15)
    font("AmericanTypewriter")
    text(owner .. " is an very new developer with Lua (Codea)", 500, 540)
    text("Born in Russia and live in Germany (EU). He came to", 500, 515)
    text("world at year 2003 in the 26th of the January.", 500, 500)
    text("This calculator is his first released project.", 500, 475)
    font("Baskerville-Italic")
    text("Quote: Nice to develop without mistakes which", 500, 450)
    text("got fixed, and are created with fun!", 500, 435)
end

--# Functionality

--[[
    The Functionality of our calculator
    
    Made by TokOut
    Born: 26/01/2003
    Made since: 27/11/2015
    Made till: Updating by calculator updates or 14/12
]]
function calculator(key, key2)
        if key == "ce" then
            number = 0
            number2 = 0
            operation = "nil"
            isNumber1 = true
            usedPi = false
            txt.value = "0"
            drawing = false
        end
    
        if key == "ans" then
            print("Answer Status")
            number2 = number
            operation = key2
        
            if key2 == "+" then
                txt.value = number .. " + "
            elseif key2 == "-" then
                txt.value = number .. " - "
            elseif key2 == "*" then
                txt.value = number .. " • "
            elseif key2 == "/" then
                txt.value = number .. " : "
            elseif key2 == "^2" then
                txt.value = number .. " ^ "
            elseif key2 == "sqrt" then
                txt.value = number .. " rooted with "
            elseif key2 == "ceil" then
                answer()
            elseif key2 == "abs" then
                answer()
            elseif key2 == "div" then
                txt.value = number .. " div "
            elseif key2 == "mod" then
                txt.value = number .. " mod "
            end
            drawing = false
            isNumber1 = false
            number = 0
            usedPi = false
        end
    
    if key == "dot" then
        if isNumber1 == true then
            -- true
            txt.value = txt.value .. "."
            number = number .. "."
        else
            -- false
            txt.value = txt.value .. "."
            number = number .. "."
        end
        drawing = false
    end
    
    if drawing == true then
        if isNumber1 == true then
            if usedPi == false then
                if number == 0 then
                    number = key
                    txt.value = number
                else
                    number = number .. key
                    txt.value = number
                end
            else
                number = 0
                usedPi = false
            end
        end
    
        if isNumber1 == false then
            if usedPi == false then
                if number == 0 then
                    number = key
                    txt.value = txt.value .. key
                else
                    number = number .. key
                    txt.value = txt.value .. key
                end
            else
                number = 0
                number2 = 0
                isNumber1 = true
                txt.value = "Error"
                usedPi = false
            end
        end
    end
    drawing = true
end

function answer()
    if operation == "+" then
        answernumber = number2 + number
        txt.value = txt.value .. " = " .. answernumber
    elseif operation == "-" then
        answernumber = number2 - number
        txt.value = txt.value .. " = " .. answernumber
    elseif operation == "/" then
        answernumber = number2 / number
        txt.value = txt.value .. " = " .. answernumber
    elseif operation == "*" then
        answernumber = number2 * number
        txt.value = txt.value .. " = " .. answernumber
    elseif operation == "^2" then
        answernumber = math.pow(number2, number)
        txt.value = txt.value .. " = " .. answernumber
    elseif operation == "sqrt" then
        answernumber = math.sqrt(number2, number)
        txt.value = txt.value .. " = " .. answernumber
    elseif operation == "ceil" then
        txt.value = txt.value .. " ~~ " .. math.ceil(number2)
        answernumber = math.ceil(number2)
    elseif operation == "abs" then
        if number2 >= 1 then
            txt.value = "|" .. number2 .. "| = " .. 0 - math.abs(number2)
            answernumber = 0 - math.abs(number2)
        elseif number2 <= -1 then
            txt.value = "|" .. number2 .. "| = " .. math.abs(number2)
            answernumber = math.abs(number2)
        else
            -- Only 0
            txt.value = "0 (Actually its funny but 0 = 0)"
            number = 0
            number2 = 0
            pasteboard.copy("In the math project by " .. owner .. ", I found out, that 0 = 0")
        end
    elseif operation == "div" then
        answernumber = number2/number
        answernumber = math.floor(answernumber)
        txt.value = txt.value .. " = " .. answernumber
    elseif operation == "mod" then
        -- Actually bugging
        answernumber = number2/number
        answernumber = answernumber - math.floor(answernumber)
        txt.value = txt.value .. " = " .. answernumber
    end
    if mute == false then
        sound("Game Sounds One:Bell 2")
    end
    number = answernumber
    number2 = 0
    answernumber = 0
    usedPi = false
    isNumber1 = true
    operation = "nil"
end

function soundmuting()
    if mute == true then
        mute = false
    else
        mute = true
    end
end