Scripting Helpers is winding down operations and is now read-only. More info→
Ad
Log in to vote
0

Im making a keylock and I can't find out whats wrong?

Asked by 6 years ago

Its not the best way to do it, but its the way I did it. There's no errors, the only thing that works is the close:

local Keys = script.Parent.Parent.KeysFrame
local zero = Keys.zero
local one = Keys.one
local two = Keys.two
local three = Keys.three
local four = Keys.four
local five = Keys.five
local six = Keys.six
local seven = Keys.seven
local eight = Keys.eight
local nine = Keys.nine
local x = Keys.x
local finish = Keys.finish
local no1Txt = script.Parent.N1.Text
local no2Txt = script.Parent.N2.Text
local no3Txt = script.Parent.N3.Text
local no4Txt = script.Parent.N4.Text
local no1Crct = 1
local no2Crct = 9
local no3Crct = 5
local no4Crct = 3
local no1Correct = false
local no2Correct = false
local no3Correct = false
local no4Correct = false


zero.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "0"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "0"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "0"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "0"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end

end)

one.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "1"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "1"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "1"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "1"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

two.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "2"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "2"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "2"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "2"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

three.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "3"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "3"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "3"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "3"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

four.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "4"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "4"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "4"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "4"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

five.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "5"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "5"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "5"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "5"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

six.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "6"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "6"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "6"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "6"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

seven.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "7"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "7"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "7"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "7"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

eight.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "8"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "8"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "8"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "8"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

nine.MouseButton1Click:Connect(function()
    if script.Parent.Value.Value == 1 then
        no1Txt = "9"
    elseif script.Parent.Value.Value == 2 then
        no2Txt = "9"
    elseif script.Parent.Value.Value == 3 then
        no3Txt = "9"
    elseif script.Parent.Value.Value == 4 then
        no4Txt = "9"
    end
    script.Parent.Value.Value = script.Parent.Value.Value + 1
    if script.Parent.Value.Value == 5 then
        script.Parent.Value.Value = 1
    end
end)

x.MouseButton1Click:Connect(function()
    script.Parent.Parent.Visible = false
    no1Txt = "0"
    no2Txt = "0"
    no3Txt = "0"
    no4Txt = "0"
end)

finish.MouseButton1Click:Connect(function()
    if no1Crct == no1Txt then
        no1Correct = true
    end
    if no2Crct == no2Txt then
        no2Correct = true
    end
    if no3Crct == no3Txt then
        no3Correct = true
    end
    if no4Crct == no4Txt then
        no4Correct = true
    end

    if no1Correct and no2Correct and no3Correct and no4Correct == true then
        script.Parent.AllCorrect.Value = true
        no1Txt = "0"
        no2Txt = "0"
        no3Txt = "0"
        no4Txt = "0"

    else
        no1Txt = "0"
        no2Txt = "0"
        no3Txt = "0"
        no4Txt = "0"
        wait(.1)
        no1Txt = " "
        no2Txt = " "
        no3Txt = " "
        no4Txt = " "
        wait(.1)
        no1Txt = "0"
        no2Txt = "0"
        no3Txt = "0"
        no4Txt = "0"
        script.Parent.Value.Value = 1
    end
end)



thanks!

Answer this question