Box = script.Parent.FrameScreen
Button = script.Parent.OpenAndClose
akey = script.Parent.keya
wkey = script.parent.keyw
dkey = script.parent.keyd
skey = script.parent.keys
Player = game.Players.LocalPlayer
Mouse = Player:GetMouse()

OpenGUI = false
Image0 = false
Image1 = false
Image2 = false
Image3 = false
Box.Visible = false
Button.Text = "Open"



Button.MouseButton1Down:connect(function(open)
	if OpenGUI == false then
		Button.Text = "Close"
		Box.Visible = true
		OpenGUI = true
	elseif OpenGUI == true then
		Button.Text = "Open"
		Box.Visible = false
		OpenGUI = false
	end
end)

local function Key_Image0(key)
	if (key == "a") then
		if Image0 == false then
			akey.Visible = true
			Image0 = true
		elseif Image0 == true then
			akey.Visible = false
			Image0 = false
			wait(0.3)
			akey.Visible = true
			Image0 = true
		end
	end
end

local function Key_Image1(key)
	if (key == "w") then
		if Image1 == false then
			wkey.Visible = true
			Image1 = true
		elseif Image1 == true then
			wkey.Visible = false
			Image1 = false
			wait(0.3)
			wkey.Visible = true
			Image1 = true
		end
	end
end

local function Key_Image2(key)
	if (key == "d") then
		if Image2 == false then
			dkey.Visible = true
			Image2 = true
		elseif Image2 == true then
			dkey.Visible = false
			Image2 = false
			wait(0.3)
			dkey.Visible = true
			Image2 = true
		end
	end
end

local function Key_Image3(key)
	if (key == "s") then
		if Image3 == false then
			skey.Visible = true
			Image3 = true
		elseif Image3 == true then
			skey.Visible = false
			Image3 = false
			wait(0.3)
			skey.Visible = true
			Image3 = true
		end
	end
end

local function Key_OPEN_CLOSE(key)
	if (key == "q") then
		if OpenGUI == false then
			Box.Visible = true
			OpenGUI = true
		elseif OpenGUI == true then
			Box.Visible = false
			OpenGUI = false
		end
	end
end

Mouse.KeyDown:connect(Key_OPEN_CLOSE)
Mouse.KeyDown:connect(Key_Image0)
Mouse.KeyDown:connect(Key_Image1)
Mouse.KeyDown:connect(Key_Image2)