CreatorCodeHubREADME` runs the module against simulated Roblox services (redeem, purchases, portal outage, shutdown) and, with `--portal --key `, sends the captured requests to a real portal. ]] return nil ]]>Config your experience -> Secrets -> add a secret named "CreatorCodeHub" -- with your LIVE key from the portal, and turn on Game Settings -> Security -> "Allow HTTP Requests". -- Full guide: https://creatorcodehub.com/docs -- -- Privacy: the module never sends Roblox user IDs. Each player gets a random reference (GUID) stored in your -- own DataStore. The portal cannot link players across games. local Config={} -- ===== Connection (filled in automatically in your personal download) ===== Config.GameKey="" Config.PortalUrl="https://creatorcodehub.com" -- Name of the secret in the Creator Dashboard that holds your LIVE key. Config.SecretName="CreatorCodeHub" -- ===== Purchases ===== -- "auto" : dev products and game passes are tracked automatically (no code needed). Recommended. -- "receipt" : dev products only through CreatorCodeHub.WrapProcessReceipt / ReportReceipt (see README), -- game passes stay automatic. Use this if you want exact receipt data. Config.DevProducts="auto" -- ===== Built-in code button ===== -- Show the built-in "Codes" button and window. Set to false if you build your own UI (see README, "Own UI"). Config.ShowDefaultUI=true -- Text language: "auto" (player's Roblox language, English or German), "en" or "de". Config.Language="auto" Config.ButtonText="Codes" -- "BottomLeft" | "BottomRight" | "TopLeft" | "TopRight" Config.ButtonPosition="BottomLeft" -- Second row for free promo codes (only if you create promo codes in the portal). Config.ShowPromoCodes=false -- ===== Reward for entering a creator code (optional, recommended) ===== -- Called once per 7-day binding. Return true, "text shown to the player" when given; -- return false, "reason" if it can't be given right now (the module retries every 10 seconds). Config.CreatorCodeReward=nil -- Example: -- Config.CreatorCodeReward=function(player,code) -- local coins=player:FindFirstChild("leaderstats") and player.leaderstats:FindFirstChild("Coins") -- if not coins then return false,"Loading, try again in a moment." end -- coins.Value+=500 -- return true,"+500 coins" -- end -- Called after every successful creator code activation (for your own analytics). Optional. Config.OnCodeActivated=nil -- Rewards for free promo codes: map each reward type you use to a function returning ok, text. Config.PromoRewards={} -- Override single texts, e.g. Config.Texts.Activated = "Thanks for supporting {code}!" Config.Texts={} -- Seconds between two attempts of the same player. Config.Cooldown=4 -- DataStore for player references and bindings. Change only before your first launch. Config.DataStoreName="CreatorCodeHub_v1" return Config ]]>Service sets MarketplaceService.ProcessReceipt to your handler and reports -- granted dev product purchases (exact mode) -- Service.ReportReceipt(receiptInfo) -> report one granted dev product purchase yourself (own ProcessReceipt) -- Service.Redeem(player, code) -> ok:boolean, message:string (creator code; used by the built-in UI) -- Service.RedeemPromo(player, code) -> ok:boolean, message:string (free promo code) -- Service.GetActiveCode(player) -> string? (active creator code of this player) -- Service.GetRemainingDays(player) -> number -- Service.PromptCodeEntry(player) -> opens the built-in code window on that player's screen -- Service.CodeActivated -> BindableEvent:Event(player, code) local HttpService=game:GetService("HttpService") local DataStoreService=game:GetService("DataStoreService") local MarketplaceService=game:GetService("MarketplaceService") local Players=game:GetService("Players") local RunService=game:GetService("RunService") local ServerStorage=game:GetService("ServerStorage") local Config=require(script.Parent:WaitForChild("Config")) local Service={} Service.Version="2.1.0" local IS_STUDIO=RunService:IsStudio() local PORTAL=tostring(Config.PortalUrl or ""):gsub("/+$","") local COOLDOWN=tonumber(Config.Cooldown) or 4 local BINDING_DAYS=7 local FLUSH_INTERVAL=5 local FLUSH_BATCH=50 local QUEUE_CAP=1000 local RESOLVE_TTL_OK=300 local RESOLVE_TTL_FAIL=60 local function warnf(f,...) warn(("[CreatorCodeHub] "..f):format(...)) end local function isoNow(t) return os.date("!%Y-%m-%dT%H:%M:%SZ",t or os.time()) end local function bindingSeconds() return BINDING_DAYS*86400 end -- ===== Texts ===== local DEFAULT_TEXTS={ en={ InvalidCode="Invalid code", Throttled="Please wait a moment", Loading="Still loading, try again in a moment.", Unavailable="Not available right now, try again later.", Unreachable="Can't reach the code service, try again later.", ActiveSame="Already active, {days} days left.", ActiveOther="You can enter a new code in {days} days.", Unknown="Unknown creator code", NotMember="This code doesn't work in this game", Paused="This creator code is paused", SelfCode="You can't use your own code", Activated="{code} is active for {days} days. Thanks!", ActivatedReward="Active! Reward: {reward}", RewardPending="Active! Your reward follows shortly.", PromoReasons={unknown="Unknown code",inactive="Code no longer active",expired="Code expired",not_started="Code not valid yet",exhausted="Code used up",already_redeemed="Already redeemed",too_many_attempts="Too many attempts, try again tomorrow"}, PromoFallback="Couldn't redeem", RewardFailed="Reward failed", Redeemed="Redeemed: {reward}", -- Built-in UI Title="Codes", CreatorTitle="Creator code", CreatorText="Support a creator: your purchases count for them for 7 days.", CreatorButton="ACTIVATE", PromoTitle="Free code", PromoText="Redeem codes from videos and Discord.", PromoButton="REDEEM", Placeholder="ENTER CODE", ActiveLabel="Active: {code} ({days} days)", Connection="Connection failed, please try again", Busy="Previous request still running", Error="Something went wrong, try again later", }, de={ InvalidCode="Ungültiger Code", Throttled="Bitte kurz warten", Loading="Daten laden noch, gleich nochmal.", Unavailable="Gerade nicht verfügbar, später erneut.", Unreachable="Code-Dienst nicht erreichbar, später erneut.", ActiveSame="Schon aktiv, noch {days} Tage.", ActiveOther="Neuer Code erst in {days} Tagen möglich.", Unknown="Unbekannter Creator-Code", NotMember="Dieser Code gilt in diesem Spiel nicht", Paused="Dieser Creator-Code ist pausiert", SelfCode="Den eigenen Code kannst du nicht nutzen", Activated="{code} aktiv für {days} Tage. Danke!", ActivatedReward="Aktiv! Belohnung: {reward}", RewardPending="Aktiv! Deine Belohnung folgt gleich.", PromoReasons={unknown="Unbekannter Code",inactive="Code nicht mehr aktiv",expired="Code abgelaufen",not_started="Code noch nicht gültig",exhausted="Code schon zu oft eingelöst",already_redeemed="Schon eingelöst",too_many_attempts="Zu viele Versuche, morgen wieder"}, PromoFallback="Einlösen fehlgeschlagen", RewardFailed="Belohnung fehlgeschlagen", Redeemed="Eingelöst: {reward}", Title="Codes", CreatorTitle="Creator-Code", CreatorText="Unterstütze einen Creator: Deine Käufe zählen 7 Tage lang für ihn.", CreatorButton="AKTIVIEREN", PromoTitle="Gratis-Code", PromoText="Codes aus Videos und vom Discord hier einlösen.", PromoButton="EINLÖSEN", Placeholder="CODE EINGEBEN", ActiveLabel="Aktiv: {code} (noch {days} Tage)", Connection="Verbindung fehlgeschlagen, bitte erneut versuchen", Busy="Vorherige Anfrage läuft noch", Error="Fehler, bitte später erneut versuchen", }, } -- Language per player: Config.Language "auto" follows the player's Roblox language (German or English) local function langFor(player) local l=Config.Language if l=="de" or l=="en" then return l end local loc=player and tostring(player.LocaleId or "") or "" return loc:sub(1,2)=="de" and "de" or "en" end local function textsFor(lang) local base=DEFAULT_TEXTS[lang] or DEFAULT_TEXTS.en return setmetatable({},{__index=function(_,k) local v=type(Config.Texts)=="table" and Config.Texts[k] or nil if v~=nil then return v end return base[k] end}) end local TEXTS_BY_LANG={en=textsFor("en"),de=textsFor("de")} local function T(player) return TEXTS_BY_LANG[langFor(player)] end Service.TextsFor=T Service.Texts=TEXTS_BY_LANG[(Config.Language=="de" and "de") or "en"] Service.AllTexts=TEXTS_BY_LANG local function fill(template,vars) return (tostring(template):gsub("{(%w+)}",function(key) local v=vars[key] return v~=nil and tostring(v) or "" end)) end -- ===== Portal requests ===== local function sandboxKey() -- Personal download: StringValue "SandboxKey" inside this package (ServerScriptService is never sent to players) local v=script.Parent:FindFirstChild("SandboxKey") if not (v and v:IsA("StringValue") and v.Value~="") then v=ServerStorage:FindFirstChild("CreatorCodeHubSandboxKey") end if v and v:IsA("StringValue") and v.Value~="" then return v.Value end return nil end local function authHeaders() local headers={["Content-Type"]="application/json",["X-Module-Version"]=Service.Version} if type(Config.GameKey)=="string" and Config.GameKey~="" then headers["X-Game-Key"]=Config.GameKey end -- In Studio the sandbox key wins, so tests never create real earnings by accident. if IS_STUDIO then local key=sandboxKey() if key then headers.Authorization="Bearer "..key return headers end end local ok,secret=pcall(function() return HttpService:GetSecret(Config.SecretName) end) if ok and secret then headers.Authorization=secret:AddPrefix("Bearer ") return headers end return nil end -- -> ok:boolean, data:table|string, status:number? local function request(method,path,body) local headers=authHeaders() if not headers then return false,"no-key",nil end local ok,res=pcall(function() return HttpService:RequestAsync({Url=PORTAL..path,Method=method,Headers=headers,Body=body and HttpService:JSONEncode(body) or nil}) end) if not ok then return false,tostring(res),nil end local okJson,data=pcall(HttpService.JSONDecode,HttpService,res.Body or "") if not res.Success then return false,okJson and data or ("HTTP "..tostring(res.StatusCode)),res.StatusCode end return true,okJson and data or {},res.StatusCode end -- ===== Program (game settings from the portal) ===== -- Connection status for the built-in UI (shown to developers in Studio only): -- "connecting" | "ok" | "http_off" | "no_key" | "key_rejected" | "outdated" | "unreachable" local statusSink=nil Service.Status="connecting" local function setStatus(s) Service.Status=s if statusSink then pcall(statusSink,s) end end function Service._setStatusSink(fn) statusSink=fn pcall(fn,Service.Status) end local program=nil local function loadProgram() if not HttpService.HttpEnabled then warnf("HTTP requests are off. Turn on Game Settings -> Security -> 'Allow HTTP Requests', then restart.") setStatus("http_off") return false end local ok,data,status=request("GET","/api/v2/program",nil) if ok and type(data)=="table" and data.ok then program=data setStatus("ok") if tonumber(data.bindingDays) then BINDING_DAYS=tonumber(data.bindingDays) end local mode=data.sandbox and (data.testMode and "test mode" or "sandbox key") or "live" print(("[CreatorCodeHub] connected: %s (%s)"):format(tostring(data.game and data.game.name or Config.GameKey),mode)) return true end setStatus((data=="no-key" and "no_key") or (status==401 and "key_rejected") or (status==410 and "outdated") or "unreachable") if data=="no-key" then if IS_STUDIO then warnf("no test key found. Download your personal module from your game console on the portal and replace this folder.") else warnf("no live key: add a secret named '%s' with your live key (Creator Dashboard -> your experience -> Secrets).",Config.SecretName) end elseif status==401 then warnf("key rejected. Download your personal module again (Studio) or check the '%s' secret (live).",Config.SecretName) elseif status==410 then warnf("this module version is no longer supported, please download the current one from the portal") else warnf("portal not reachable (%s), retrying",tostring(status or data)) end return false end -- ===== Player records: reference + binding (your DataStore) ===== local store=nil if not IS_STUDIO then local okStore,s=pcall(function() return DataStoreService:GetDataStore(Config.DataStoreName) end) if okStore then store=s else warnf("DataStore unavailable: %s",tostring(s)) end end local function recordKey(uid) return "p_"..tostring(uid) end local function newRef() local ok,guid=pcall(function() return HttpService:GenerateGUID(false) end) if ok and type(guid)=="string" then return guid end -- Fallback in the same 8-4-4-4-12 hex format the portal expects local function hex(n) local t={} for i=1,n do t[i]=string.format("%x",math.random(0,15)) end return table.concat(t) end return hex(8).."-"..hex(4).."-"..hex(4).."-"..hex(4).."-"..hex(12) end local records={} -- [UserId] = {ref=string?, code=string?, since=number?, bonus="pending"|"granted"|nil} local loadState={} -- [UserId] = "loading" | "ready" | "memory" | "failed" local bonusBusy={} local lastTry={} function Service.GetActiveCode(player) local r=records[player.UserId] if not r or type(r.code)~="string" or type(r.since)~="number" then return nil end if os.time()-r.since>bindingSeconds() then return nil end return r.code end function Service.GetRemainingDays(player) local r=records[player.UserId] if not r or type(r.since)~="number" then return 0 end local rest=bindingSeconds()-(os.time()-r.since) return rest>0 and math.ceil(rest/86400) or 0 end local function publishAttributes(player) local code=Service.GetActiveCode(player) player:SetAttribute("CreatorCode",code) player:SetAttribute("CreatorCodeDays",code and Service.GetRemainingDays(player) or nil) end local tryBonus local function loadRecord(player) local uid=player.UserId if loadState[uid]=="loading" then return end if IS_STUDIO or not store then -- Studio never touches real DataStores: test bindings would otherwise block real players for 7 days. records[uid]=records[uid] or {ref=newRef()} loadState[uid]="memory" publishAttributes(player) return end loadState[uid]="loading" for attempt=1,4 do local ok,data=pcall(function() return store:GetAsync(recordKey(uid)) end) if player.Parent==nil then loadState[uid]=nil return end if ok then records[uid]=type(data)=="table" and data or {} loadState[uid]="ready" break end warnf("could not load player data (attempt %d): %s",attempt,tostring(data)) task.wait(4*attempt) end if loadState[uid]=="loading" then loadState[uid]="failed" end publishAttributes(player) if tryBonus then task.spawn(tryBonus,player) end end -- Atomic claim: only if there is no valid binding. -> "ok", record | "conflict", record | "error" local function claimBinding(player,code,withBonus) local uid=player.UserId local now=os.time() if loadState[uid]=="memory" then local r=records[uid] or {ref=newRef()} r.code=code r.since=now r.bonus=withBonus and "pending" or nil records[uid]=r return "ok",r end local result,conflict local ok,err=pcall(function() store:UpdateAsync(recordKey(uid),function(old) old=type(old)=="table" and old or {} result=nil conflict=nil if type(old.ref)~="string" then old.ref=newRef() end if type(old.since)=="number" and type(old.code)=="string" and os.time()-old.since<=bindingSeconds() then conflict=old return nil end old.code=code old.since=now old.bonus=withBonus and "pending" or nil result=old return old end) end) if conflict then return "conflict",conflict end if ok and result then return "ok",result end warnf("could not save binding: %s",tostring(err)) return "error",nil end -- Store bonus state for the current binding only (never for a newer one). local function persistBonus(player,r,value) if loadState[player.UserId]=="memory" then return true end local applied=false local ok=pcall(function() store:UpdateAsync(recordKey(player.UserId),function(old) applied=false if type(old)~="table" or old.since~=r.since or old.code~=r.code then return nil end old.bonus=value applied=true return old end) end) return ok and applied end -- ===== Event queue ===== local queue={redemptions={},purchases={}} local dropped=0 local function enqueue(kind,item) local list=queue[kind] if #list>=QUEUE_CAP then table.remove(list,1) dropped+=1 warnf("queue full, %d events dropped",dropped) end table.insert(list,item) end local flushing=false local function flush() if flushing or (#queue.redemptions==0 and #queue.purchases==0) then return end flushing=true local batch={sentAt=isoNow(),redemptions={},purchases={}} for i=1,math.min(FLUSH_BATCH,#queue.redemptions) do batch.redemptions[i]=queue.redemptions[i] end for i=1,math.min(FLUSH_BATCH,#queue.purchases) do batch.purchases[i]=queue.purchases[i] end local ok,res,status=request("POST","/api/v2/events",batch) if ok or status==400 then -- 400 = the portal rejected the batch format: retrying would block the queue forever if status==400 then warnf("portal rejected a batch: %s",HttpService:JSONEncode(res)) end for _=1,#batch.redemptions do table.remove(queue.redemptions,1) end for _=1,#batch.purchases do table.remove(queue.purchases,1) end end flushing=false end -- Unsent events at shutdown go to your DataStore and are sent by the next server. local SPILL_PREFIX="pending_" local function spillQueue() if IS_STUDIO or not store or (#queue.redemptions==0 and #queue.purchases==0) then return end local key=SPILL_PREFIX..tostring(os.time()).."_"..((game.JobId~="" and game.JobId or newRef()):gsub("-",""):sub(1,12)) local ok=pcall(function() store:SetAsync(key,{redemptions=queue.redemptions,purchases=queue.purchases}) end) -- Saved: drop from the queue so nothing is sent twice (the portal de-duplicates anyway) if ok then queue.redemptions={} queue.purchases={} end end local function recoverSpilled() if IS_STUDIO or not store then return end local ok,pages=pcall(function() return store:ListKeysAsync(SPILL_PREFIX) end) if not ok then return end local okPage,keys=pcall(function() return pages:GetCurrentPage() end) if not okPage then return end for _,info in ipairs(keys) do local key=info.KeyName local data -- Take ownership atomically: only one server reads and deletes a spilled queue. local okTake=pcall(function() data=store:RemoveAsync(key) end) if okTake and type(data)=="table" then for _,r in ipairs(data.redemptions or {}) do enqueue("redemptions",r) end for _,p in ipairs(data.purchases or {}) do enqueue("purchases",p) end end end end -- ===== Code check against the portal (cached) ===== local resolveCache={} local function resolve(code) local c=resolveCache[code] if c and os.clock()-c.at<(c.result.ok and RESOLVE_TTL_OK or RESOLVE_TTL_FAIL) then return c.result end local ok,data=request("POST","/api/v2/resolve",{code=code}) if not ok or type(data)~="table" then return nil end resolveCache[code]={at=os.clock(),result=data} return data end local function normalize(raw) if type(raw)~="string" then return nil end local code=string.upper(raw):gsub("%s+","") if #code<2 or #code>32 or not code:match("^[A-Z0-9_]+$") then return nil end return code end local function throttled(player,kind) local key=player.UserId..kind local last=lastTry[key] if last and os.clock()-last Security -> 'Allow HTTP Requests'.") end task.spawn(function() while not loadProgram() do task.wait(60) end end) task.spawn(recoverSpilled) for _,p in ipairs(Players:GetPlayers()) do task.spawn(loadRecord,p) end Players.PlayerAdded:Connect(loadRecord) Players.PlayerRemoving:Connect(function(p) local uid=p.UserId records[uid]=nil loadState[uid]=nil bonusBusy[uid]=nil lastTry[uid.."c"]=nil lastTry[uid.."p"]=nil end) MarketplaceService.PromptGamePassPurchaseFinished:Connect(function(player,passId,purchased) task.spawn(onGamePass,player,passId,purchased) end) MarketplaceService.PromptProductPurchaseFinished:Connect(function(userId,productId,purchased) task.spawn(onDevProductPrompt,userId,productId,purchased) end) task.spawn(function() while true do task.wait(FLUSH_INTERVAL) flush() end end) -- Pending rewards, failed loads, expiring bindings task.spawn(function() while true do task.wait(10) for _,p in ipairs(Players:GetPlayers()) do local r=records[p.UserId] if r and r.bonus=="pending" then task.spawn(tryBonus,p) end if loadState[p.UserId]=="failed" then task.spawn(loadRecord,p) end if p:GetAttribute("CreatorCode")~=Service.GetActiveCode(p) or (p:GetAttribute("CreatorCodeDays") or 0)~=(Service.GetActiveCode(p) and Service.GetRemainingDays(p) or 0) then publishAttributes(p) end end end end) game:BindToClose(function() local deadline=os.clock()+20 while (#queue.redemptions>0 or #queue.purchases>0) and os.clock()Loaderfalse0 server: (kind "creator"|"promo", code) -> {ok, message} -- Open (RemoteEvent) server -> client: open the code window (Service.PromptCodeEntry) -- and copies the ClientUI LocalScript to StarterPlayerScripts (unless Config.ShowDefaultUI = false). local ReplicatedStorage=game:GetService("ReplicatedStorage") local StarterPlayer=game:GetService("StarterPlayer") local Players=game:GetService("Players") local HttpService=game:GetService("HttpService") local folder=script.Parent local Config=require(folder:WaitForChild("Config")) local Service=require(folder:WaitForChild("Service")) local MAX_CODE_LENGTH=64 local shared=ReplicatedStorage:FindFirstChild("CreatorCodeHub") or Instance.new("Folder") shared.Name="CreatorCodeHub" shared.Parent=ReplicatedStorage local redeem=shared:FindFirstChild("Redeem") or Instance.new("RemoteFunction") redeem.Name="Redeem" redeem.Parent=shared local open=shared:FindFirstChild("Open") or Instance.new("RemoteEvent") open.Name="Open" open.Parent=shared Service._setOpenEvent(open) -- Connection status for the Studio hint in the built-in UI (players never see it) Service._setStatusSink(function(s) shared:SetAttribute("Status",s) end) -- One request per player at a time (two parallel promo redemptions could both succeed otherwise) local busy={} redeem.OnServerInvoke=function(player,kind,raw) local texts=Service.TextsFor(player) if (kind~="creator" and kind~="promo") or type(raw)~="string" or #raw>MAX_CODE_LENGTH then return {ok=false,message=texts.InvalidCode} end if kind=="promo" and Config.ShowPromoCodes~=true then return {ok=false,message=texts.InvalidCode} end local key=player.UserId if busy[key] then return {ok=false,message=texts.Busy} end busy[key]=true local ok,a,b=pcall(kind=="creator" and Service.Redeem or Service.RedeemPromo,player,raw) busy[key]=nil if not ok then warn(("[CreatorCodeHub] %s failed: %s"):format(kind,tostring(a))) return {ok=false,message=texts.Error} end return {ok=a==true,message=b} end Players.PlayerRemoving:Connect(function(p) busy[p.UserId]=nil end) -- Built-in UI: texts and settings travel as attributes on the copied LocalScript local ui=folder:FindFirstChild("ClientUI") if ui and Config.ShowDefaultUI~=false then -- Texts in both languages; the client picks by the player's Roblox language (Config.Language "auto") local texts={} for lang,set in pairs(Service.AllTexts) do texts[lang]={} for _,k in ipairs({"Title","CreatorTitle","CreatorText","CreatorButton","PromoTitle","PromoText","PromoButton","Placeholder","ActiveLabel","Connection"}) do texts[lang][k]=set[k] end end local copy=ui:Clone() copy:SetAttribute("Texts",HttpService:JSONEncode(texts)) copy:SetAttribute("Language",tostring(Config.Language or "auto")) copy:SetAttribute("ShowPromo",Config.ShowPromoCodes==true) copy:SetAttribute("ButtonText",tostring(Config.ButtonText or "Codes")) copy:SetAttribute("ButtonPosition",tostring(Config.ButtonPosition or "BottomLeft")) copy.Enabled=true copy.Parent=StarterPlayer:WaitForChild("StarterPlayerScripts") -- Players who joined before this line (rare, e.g. Studio play solo) get the UI in their PlayerGui for _,p in ipairs(Players:GetPlayers()) do local holder=Instance.new("ScreenGui") holder.Name="CreatorCodeHubLoader" holder.ResetOnSpawn=false local c=copy:Clone() c.Parent=holder holder.Parent=p:WaitForChild("PlayerGui") end end Service.Start() ]]>ClientUItrue32 then input.Text=string.sub(input.Text,1,32) end end) local submit=Instance.new("TextButton") submit.AnchorPoint=Vector2.new(1,0) submit.Position=UDim2.new(1,0,0,56) submit.Size=UDim2.fromOffset(86,38) submit.BackgroundColor3=Color3.fromRGB(83,157,229) submit.TextColor3=Color3.fromRGB(255,255,255) submit.Font=Enum.Font.GothamBold submit.TextSize=13 submit.Text=buttonText submit.Parent=row round(submit,UDim.new(0,8)) local status=label(row,{Position=UDim2.fromOffset(0,98),Size=UDim2.new(1,0,0,18),Font=Enum.Font.Gotham,TextSize=12,TextColor3=Color3.fromRGB(150,150,160),Text=""}) if kind=="creator" then local function refresh() local code=player:GetAttribute("CreatorCode") local days=player:GetAttribute("CreatorCodeDays") if code then desc.Text=(text("ActiveLabel","Active: {code} ({days} days)"):gsub("{code}",tostring(code)):gsub("{days}",tostring(days or ""))) else desc.Text=rowText end end refresh() player:GetAttributeChangedSignal("CreatorCode"):Connect(refresh) player:GetAttributeChangedSignal("CreatorCodeDays"):Connect(refresh) end local busy=false local function onSubmit() if busy or input.Text=="" then return end busy=true local previous=submit.Text submit.Text="..." local ok,result=pcall(function() return redeem:InvokeServer(kind,input.Text) end) busy=false submit.Text=previous if not ok or type(result)~="table" then status.Text=text("Connection","Connection failed, please try again") status.TextColor3=Color3.fromRGB(230,110,110) return end status.Text=tostring(result.message or "") status.TextColor3=result.ok and Color3.fromRGB(120,220,150) or Color3.fromRGB(230,110,110) if result.ok then input.Text="" end end submit.MouseButton1Click:Connect(onSubmit) input.FocusLost:Connect(function(enter) if enter then onSubmit() end end) end buildRow(1,"creator",text("CreatorTitle","Creator code"),text("CreatorText",""),text("CreatorButton","ACTIVATE")) if showPromo then buildRow(2,"promo",text("PromoTitle","Free code"),text("PromoText",""),text("PromoButton","REDEEM")) end -- Studio only: tell the developer what is missing (HTTP off, no key, ...). Players never see this. if game:GetService("RunService"):IsStudio() then local HINTS={ http_off="CreatorCodeHub: turn on Game Settings > Security > Allow HTTP Requests", no_key="CreatorCodeHub: no test key. Download your personal module in the portal console", key_rejected="CreatorCodeHub: key rejected. Download your personal module again", outdated="CreatorCodeHub: please download the current module from the portal", unreachable="CreatorCodeHub: portal not reachable, retrying", } local hint=Instance.new("TextLabel") hint.Name="StudioHint" hint.AnchorPoint=corner.anchor hint.Position=corner.pos+UDim2.fromOffset(corner.anchor.X==0 and 104 or -104,0) hint.Size=UDim2.fromOffset(360,44) hint.BackgroundColor3=Color3.fromRGB(120,30,30) hint.TextColor3=Color3.fromRGB(255,255,255) hint.Font=Enum.Font.GothamMedium hint.TextSize=12 hint.TextWrapped=true hint.Visible=false hint.Parent=gui round(hint,UDim.new(0,8)) local function refresh() local s=shared:GetAttribute("Status") hint.Text=HINTS[s] or "" hint.Visible=HINTS[s]~=nil end refresh() shared:GetAttributeChangedSignal("Status"):Connect(refresh) end local function setOpen(v) panel.Visible=v end toggle.MouseButton1Click:Connect(function() setOpen(not panel.Visible) end) close.MouseButton1Click:Connect(function() setOpen(false) end) openEvent.OnClientEvent:Connect(function() setOpen(true) end) ]]>