local O={code1="\082\079\066\076\079\088",code2="\082\101\108\101\097\115\101"}script.Parent.MouseButton1Click:Connect(function()if script.Parent.Parent.CodeHandler.Text==O.code1 then if date.month==8 and date.day<=3 then if not codes:FindFirstChild("\067\111\100\101\049")then RE:FireServer(500,"\067\111\100\101\049")script.Parent.Text="\067\111\100\101 \114\101\100\101\101\109\101\100 \115\117\099\099\101\115\115\102\117\108\108\121\033"script.Parent.Parent.CodeHandler.Text=""wait(2)script.Parent.Text="\082\101\100\101\101\109 \067\111\100\101"else script.Parent.Text="\067\111\100\101 \097\108\114\101\097\100\121 \114\101\100\101\101\109\101\100\033"wait(2)script.Parent.Text="\082\101\100\101\101\109 \067\111\100\101"end else script.Parent.Text="\067\111\100\101 \101\120\112\105\114\101\100\033"wait(2)script.Parent.Text="\082\101\100\101\101\109 \067\111\100\101"end elseif script.Parent.Parent.CodeHandler.Text==O.code2 then if not codes:FindFirstChild("\067\111\100\101\050")then RE:FireServer(25000,"\067\111\100\101\050")script.Parent.Text="\067\111\100\101 \114\101\100\101\101\109\101\100 \115\117\099\099\101\115\115\102\117\108\108\121\033"script.Parent.Parent.CodeHandler.Text=""wait(2)script.Parent.Text="\082\101\100\101\101\109 \067\111\100\101"else script.Parent.Text="\067\111\100\101 \097\108\114\101\097\100\121 \114\101\100\101\101\109\101\100\033"wait(2)script.Parent.Text="\082\101\100\101\101\109 \067\111\100\101"end else script.Parent.Text="\067\111\100\101 \105\110\118\097\108\105\100\033"script.Parent.Parent.CodeHandler.Text=""wait(2)script.Parent.Text="\082\101\100\101\101\109 \067\111\100\101"end end)
--Codes
local codelist = {
	code1 = "ROBLOX", -- Always put a comma every timne you're going to add another code
	code2 = "Release",
}

script.Parent.MouseButton1Click:Connect(function()
	if script.Parent.Parent.CodeHandler.Text == codelist.code1 then -- Im gonna add an expiration in this code
		if date["month"] == 8 and date["day"] <= 3 then -- Months are in numerical order .Month and Day must be in lowercase letters. Use "<=" If you want to make your code valid until that date. Use "==" if you want to make your code valid only on that date.
			if not codes:FindFirstChild("Code1") then -- This one here
				RE:FireServer(500, "Code1") -- The string must be the same as in the top. For now I can reward the player, cash. Until I can learn how to save tools.
				script.Parent.Text = "Code redeemed successfully!"
				script.Parent.Parent.CodeHandler.Text = "" -- Removes the text in our code handler textbox
				wait(2)
				script.Parent.Text = "Redeem Code"
			else
				script.Parent.Text = "Code already redeemed!"
				wait(2)
				script.Parent.Text = "Redeem Code"
			end
		else
			script.Parent.Text = "Code expired!"
			wait(2)
			script.Parent.Text = "Redeem Code"
		end
	elseif script.Parent.Parent.CodeHandler.Text == codelist.code2 then -- Your second code. So if our textbox matches the code in our dictionary...
		if not codes:FindFirstChild("Code2") then -- This one here
			RE:FireServer(25000, "Code2") -- The string must be the same as in the top. For now I can reward the player, cash. Until I can learn how to save tools.
			script.Parent.Text = "Code redeemed successfully!"
			script.Parent.Parent.CodeHandler.Text = ""
			wait(2)
			script.Parent.Text = "Redeem Code"
		else
			script.Parent.Text = "Code already redeemed!"
			wait(2)
			script.Parent.Text = "Redeem Code"
		end
	else
		script.Parent.Text = "Code invalid!"
		script.Parent.Parent.CodeHandler.Text = ""
		wait(2)
		script.Parent.Text = "Redeem Code"
	end
end)
