cluaupp 1.4.1 → 1.5.1

package/examples/game/libs/Ward/init.luau

@@ -0,0 +1,211 @@
+--!native
+--!optimize 2
+--!strict
+-- Ward — server anti-cheat primitives. Rate-limit remotes, cap packet size,
+-- strike on speed/teleport. Does not write Keep; Keep stays server-only.
+-- cluaupp: spawn grace / ignore falls / no Studio kick unless KickInStudio
+
+local Players = game:GetService("Players")
+local RunService = game:GetService("RunService")
+
+local Spark = require(script.Parent.Spark)
+
+local DEFAULT_KICK = 8
+local DEFAULT_RATE = 40
+local DEFAULT_BURST = 80
+local MAX_PACKET = 24 * 1024
+local MAX_SPEED = 220
+local MAX_TELEPORT = 80
+local SPAWN_GRACE = 3
+local MIN_DT = 1 / 30
+local FLOOD_AT = 80
+
+local Ward = {}
+Ward.OnStrike = Spark.new()
+Ward.KickAt = DEFAULT_KICK
+Ward.KickInStudio = false
+Ward.FloodAt = FLOOD_AT
+Ward.MaxPacketBytes = MAX_PACKET
+Ward.MaxSpeed = MAX_SPEED
+Ward.MaxTeleport = MAX_TELEPORT
+
+type Bucket = {
+	tokens: number,
+	last: number,
+	maxPerSec: number,
+	burst: number,
+}
+
+type Record = {
+	strikes: number,
+	buckets: { [string]: Bucket },
+	lastPos: Vector3?,
+	graceUntil: number,
+	reasons: { [string]: number },
+	denied: { [string]: number },
+}
+
+local records: { [Player]: Record } = {}
+local watching = false
+
+local function rec(player: Player): Record
+	local row = records[player]
+	if not row then
+		row = {
+			strikes = 0,
+			buckets = {},
+			lastPos = nil,
+			graceUntil = 0,
+			reasons = {},
+			denied = {},
+		}
+		records[player] = row
+	end
+	return row
+end
+
+function Ward.Allow(player: Player, channel: string, maxPerSec: number?, burst: number?): boolean
+	if not RunService:IsServer() then
+		return true
+	end
+	if typeof(player) ~= "Instance" or not player:IsA("Player") or player.Parent == nil then
+		return false
+	end
+	if typeof(channel) ~= "string" or channel == "" then
+		return false
+	end
+	local rate = maxPerSec or DEFAULT_RATE
+	local cap = burst or math.max(rate * 2, DEFAULT_BURST)
+	local now = os.clock()
+	local row = rec(player)
+	local bucket = row.buckets[channel]
+	if not bucket then
+		bucket = {
+			tokens = cap,
+			last = now,
+			maxPerSec = rate,
+			burst = cap,
+		}
+		row.buckets[channel] = bucket
+	end
+	local elapsed = math.max(now - bucket.last, 0)
+	bucket.last = now
+	bucket.tokens = math.min(bucket.burst, bucket.tokens + elapsed * bucket.maxPerSec)
+	if bucket.tokens < 1 then
+		local denied = (row.denied[channel] or 0) + 1
+		row.denied[channel] = denied
+		if denied >= Ward.FloodAt then
+			row.denied[channel] = 0
+			Ward.Strike(player, "rate:" .. channel)
+		end
+		return false
+	end
+	row.denied[channel] = 0
+	bucket.tokens -= 1
+	return true
+end
+
+function Ward.Packet(player: Player, bytes: number, maxBytes: number?): boolean
+	if not RunService:IsServer() then
+		return true
+	end
+	local cap = maxBytes or Ward.MaxPacketBytes
+	if typeof(bytes) ~= "number" or bytes ~= bytes or bytes < 0 or bytes > cap then
+		Ward.Strike(player, "packet")
+		return false
+	end
+	return true
+end
+
+function Ward.Strike(player: Player, reason: string): number
+	if not RunService:IsServer() then
+		return 0
+	end
+	if typeof(player) ~= "Instance" or not player:IsA("Player") or player.Parent == nil then
+		return 0
+	end
+	local row = rec(player)
+	row.strikes += 1
+	local label = if typeof(reason) == "string" and reason ~= "" then reason else "unknown"
+	row.reasons[label] = (row.reasons[label] or 0) + 1
+	Ward.OnStrike:Fire(player, label, row.strikes)
+	local studio = RunService:IsStudio()
+	if row.strikes >= Ward.KickAt and (not studio or Ward.KickInStudio == true) then
+		player:Kick("Movement or traffic rejected")
+	end
+	return row.strikes
+end
+
+function Ward.Grace(player: Player, seconds: number)
+	if typeof(player) ~= "Instance" or not player:IsA("Player") then
+		return
+	end
+	local hold = if typeof(seconds) == "number" and seconds > 0 then seconds else 1.5
+	rec(player).graceUntil = os.clock() + hold
+end
+
+function Ward.Clear(player: Player)
+	records[player] = nil
+end
+
+function Ward.Strikes(player: Player): number
+	local row = records[player]
+	return if row then row.strikes else 0
+end
+
+local function bindSpawnGrace(player: Player)
+	Ward.Grace(player, SPAWN_GRACE)
+	player.CharacterAdded:Connect(function()
+		local row = rec(player)
+		row.lastPos = nil
+		Ward.Grace(player, SPAWN_GRACE)
+	end)
+end
+
+function Ward.WatchMovement()
+	if watching or not RunService:IsServer() then
+		return
+	end
+	watching = true
+	RunService.Heartbeat:Connect(function(dt: number)
+		if dt <= 0 then
+			return
+		end
+		local step = math.max(dt, MIN_DT)
+		local now = os.clock()
+		for _, player in Players:GetPlayers() do
+			local character = player.Character
+			local root = character and character:FindFirstChild("HumanoidRootPart")
+			if not (root and root:IsA("BasePart")) then
+				rec(player).lastPos = nil
+				continue
+			end
+			local row = rec(player)
+			local pos = root.Position
+			if row.lastPos and now >= row.graceUntil then
+				local delta = pos - row.lastPos
+				local dist = delta.Magnitude
+				local horizontal = Vector3.new(delta.X, 0, delta.Z).Magnitude
+				local falling = delta.Y < 0 and horizontal < Ward.MaxTeleport
+				local speed = dist / step
+				if not falling and dist > Ward.MaxTeleport and speed > Ward.MaxSpeed then
+					Ward.Strike(player, "speed")
+					root.CFrame = CFrame.new(row.lastPos)
+					pos = row.lastPos
+				end
+			end
+			row.lastPos = pos
+		end
+	end)
+	for _, player in Players:GetPlayers() do
+		bindSpawnGrace(player)
+	end
+	Players.PlayerAdded:Connect(bindSpawnGrace)
+	Players.PlayerRemoving:Connect(Ward.Clear)
+end
+
+function Ward.Start()
+	Ward.WatchMovement()
+end
+
+return Ward

package/examples/game/out/ReplicatedStorage/Shared/Constants/Datas/TemplateData.luau

@@ -0,0 +1,29 @@
+--!nonstrict
+-- cluaupp-source: ReplicatedStorage/Shared/Constants/Datas/TemplateData.clh
+-- Compiled by CL++ — C++ × Luau
+
+-- cluaupp: Roster.new / GetService ReplicatedStorage / self.janitor
+
+export type PlayerTemplate = {
+	Currencies: Currencies,
+	Rebirths: number,
+	Rank: number,
+	Inventory: PlayerInventory,
+	Trade: PlayerTrade,
+	Settings: PlayerSettings,
+	Codes: PlayerCodes,
+}
+
+const function PlayerTemplate()
+	return {
+		Currencies = { Coins = 0, Gems = 0 },
+		Rebirths = 0,
+		Rank = 0,
+		Inventory = { Slots = 20 },
+		Trade = { DayKey = nil, TradesToday = 0, LastTradeAt = 0, ActiveTradeId = nil },
+		Settings = { GameMusic = 100, Effects = 100 },
+		Codes = { RedeemedCount = 0 },
+	}
+end
+
+return PlayerTemplate

package/examples/game/out/ReplicatedStorage/Shared/Constants/Datas/TemplateData.luau.map.json

@@ -0,0 +1,13 @@
+{
+	"version": 1,
+	"file": "TemplateData.luau",
+	"sourceRoot": "C:/Users/gtofr/OneDrive/Documentos/GitHub/Cluaupp/examples/game",
+	"sources": [
+		"ReplicatedStorage/Shared/Constants/Datas/TemplateData.clh"
+	],
+	"mappings": "AAAA",
+	"cluaupp": {
+		"source": "ReplicatedStorage/Shared/Constants/Datas/TemplateData.clh",
+		"generated": "out/ReplicatedStorage/Shared/Constants/Datas/TemplateData.luau"
+	}
+}

package/examples/game/out/ReplicatedStorage/Shared/Net/Net.luau

@@ -0,0 +1,83 @@
+--!native
+--!optimize 2
+--!strict
+-- cluaupp-source: ReplicatedStorage/Shared/Net/Net.flare
+-- Generated by Cluaupp Flare from ReplicatedStorage/Shared/Net/Net.flare
+-- Do not edit. Change the .flare schema and run cluaupp build.
+
+-- cluaupp: Roster.new / GetService ReplicatedStorage / self.janitor
+
+local ReplicatedStorage = game:GetService("ReplicatedStorage")
+local Flare = require(ReplicatedStorage.CluauppLibs.Flare)
+
+local session = Flare.open(script)
+
+-- packet Ready (#1)
+local function writeReady(cursor)
+	return cursor
+end
+
+local function readReady(cursor)
+	return
+end
+
+local Ready = session.packet({
+	id = 1,
+	from = "client",
+	reliable = true,
+	write = writeReady,
+	read = readReady,
+})
+
+-- packet Welcome (#2)
+local function writeWelcome(cursor, userId, clock)
+	Flare.writei32(cursor, userId)
+	Flare.writef64(cursor, clock)
+	return cursor
+end
+
+local function readWelcome(cursor)
+	local userId = Flare.readi32(cursor)
+	local clock = Flare.readf64(cursor)
+	return userId, clock
+end
+
+local Welcome = session.packet({
+	id = 2,
+	from = "server",
+	reliable = true,
+	write = writeWelcome,
+	read = readWelcome,
+})
+
+-- query Session (#1)
+local function writeSessionReq(cursor)
+	return cursor
+end
+
+local function readSessionReq(cursor)
+	return
+end
+
+local function writeSessionRes(cursor, value)
+	Flare.writei32(cursor, value)
+	return cursor
+end
+
+local function readSessionRes(cursor)
+	return Flare.readi32(cursor)
+end
+
+local Session = session.query({
+	id = 1,
+	writeReq = writeSessionReq,
+	readReq = readSessionReq,
+	writeRes = writeSessionRes,
+	readRes = readSessionRes,
+})
+
+return {
+	Ready = Ready,
+	Welcome = Welcome,
+	Session = Session,
+}

package/examples/game/out/ReplicatedStorage/Shared/Net/Net.luau.map.json

@@ -0,0 +1,13 @@
+{
+	"version": 1,
+	"file": "Net.luau",
+	"sourceRoot": "C:/Users/gtofr/OneDrive/Documentos/GitHub/Cluaupp/examples/game",
+	"sources": [
+		"ReplicatedStorage/Shared/Net/Net.flare"
+	],
+	"mappings": "AAAA",
+	"cluaupp": {
+		"source": "ReplicatedStorage/Shared/Net/Net.flare",
+		"generated": "out/ReplicatedStorage/Shared/Net/Net.luau"
+	}
+}

package/examples/game/out/ServerScriptService/Boot/DataBoot.server.luau

@@ -0,0 +1,18 @@
+--!nonstrict
+-- cluaupp-source: ServerScriptService/Boot/DataBoot.server.clpp
+-- Compiled by CL++ — C++ × Luau
+
+-- cluaupp: Roster.new / GetService ReplicatedStorage / self.janitor
+
+const ReplicatedStorage = game:GetService("ReplicatedStorage")
+
+const Keep = require(ReplicatedStorage.CluauppLibs.Keep)
+const TemplateData = require(ReplicatedStorage.Shared.Constants.Datas.TemplateData)
+
+-- DataBoot.server.clpp:6
+const function init()
+	local playerData: PlayerTemplate = TemplateData()
+	Keep.Server:Init({ Template = playerData, StoreName = "PlayerData", UseMock = true })
+end
+
+init()

package/examples/game/out/ServerScriptService/Boot/DataBoot.server.luau.map.json

@@ -0,0 +1,13 @@
+{
+	"version": 1,
+	"file": "DataBoot.server.luau",
+	"sourceRoot": "C:/Users/gtofr/OneDrive/Documentos/GitHub/Cluaupp/examples/game",
+	"sources": [
+		"ServerScriptService/Boot/DataBoot.server.clpp"
+	],
+	"mappings": "AAAA",
+	"cluaupp": {
+		"source": "ServerScriptService/Boot/DataBoot.server.clpp",
+		"generated": "out/ServerScriptService/Boot/DataBoot.server.luau"
+	}
+}

package/examples/game/out/ServerScriptService/Configuration/ServerConfig.luau

@@ -0,0 +1,14 @@
+--!nonstrict
+-- cluaupp-source: ServerScriptService/Configuration/ServerConfig.clp
+-- Compiled by CL++ — C++ × Luau
+
+-- cluaupp: Roster.new / GetService ReplicatedStorage / self.janitor
+
+const STORE_NAME: string = "PlayerData"
+
+const USE_MOCK_IN_STUDIO: boolean = true
+
+return {
+	STORE_NAME = STORE_NAME,
+	USE_MOCK_IN_STUDIO = USE_MOCK_IN_STUDIO,
+}

package/examples/game/out/ServerScriptService/Configuration/ServerConfig.luau.map.json

@@ -0,0 +1,13 @@
+{
+	"version": 1,
+	"file": "ServerConfig.luau",
+	"sourceRoot": "C:/Users/gtofr/OneDrive/Documentos/GitHub/Cluaupp/examples/game",
+	"sources": [
+		"ServerScriptService/Configuration/ServerConfig.clp"
+	],
+	"mappings": "AAAA",
+	"cluaupp": {
+		"source": "ServerScriptService/Configuration/ServerConfig.clp",
+		"generated": "out/ServerScriptService/Configuration/ServerConfig.luau"
+	}
+}

package/examples/game/out/ServerScriptService/Handlers/Guard.server.luau

@@ -0,0 +1,15 @@
+--!nonstrict
+-- cluaupp-source: ServerScriptService/Handlers/Guard.server.clpp
+-- Compiled by CL++ — C++ × Luau
+
+const ReplicatedStorage = game:GetService("ReplicatedStorage")
+const Ward = require(ReplicatedStorage.CluauppLibs.Ward)
+
+-- cluaupp: Roster.new / GetService ReplicatedStorage / self.janitor
+
+-- Guard.server.clpp:5
+const function init()
+	Ward.Start()
+end
+
+init()

package/examples/game/out/ServerScriptService/Handlers/Guard.server.luau.map.json

@@ -0,0 +1,13 @@
+{
+	"version": 1,
+	"file": "Guard.server.luau",
+	"sourceRoot": "C:/Users/gtofr/OneDrive/Documentos/GitHub/Cluaupp/examples/game",
+	"sources": [
+		"ServerScriptService/Handlers/Guard.server.clpp"
+	],
+	"mappings": "AAAA",
+	"cluaupp": {
+		"source": "ServerScriptService/Handlers/Guard.server.clpp",
+		"generated": "out/ServerScriptService/Handlers/Guard.server.luau"
+	}
+}

package/examples/game/out/ServerScriptService/Handlers/PlayerHandler.server.luau

@@ -0,0 +1,50 @@
+--!nonstrict
+-- cluaupp-source: ServerScriptService/Handlers/PlayerHandler.server.clpp
+-- Compiled by CL++ — C++ × Luau
+
+-- cluaupp: Roster.new / GetService ReplicatedStorage / self.janitor
+
+const ReplicatedStorage = game:GetService("ReplicatedStorage")
+
+const Janitor = require(ReplicatedStorage.CluauppLibs.Sweep)
+local __cluauppSweep = nil
+const Keep = require(ReplicatedStorage.CluauppLibs.Keep)
+
+-- PlayerHandler.server.clpp:5
+const function BindLeaderstats(player: Player)
+	local data = Keep.Server:WaitFor(player)
+
+	if player:FindFirstChild("leaderstats") ~= nil then
+		return
+	end
+
+	local leaderstats: Folder = Instance.new("Folder")
+	leaderstats.Parent = player
+	leaderstats.Name = "leaderstats"
+	local coins: IntValue = Instance.new("IntValue")
+	coins.Parent = leaderstats
+	coins.Name = "Coins"
+	coins.Value = data:Get(Keep.Server.Paths.Currencies.Coins) -- initial value; not a Changed event
+end
+
+-- PlayerHandler.server.clpp:17
+const function init()
+	if not __cluauppSweep then
+		__cluauppSweep = Janitor.new()
+	end
+
+	local __janitor = __cluauppSweep
+	local players: Players = game:GetService("Players")
+
+	for _, player in players:GetPlayers() do
+		BindLeaderstats(player)
+	end
+
+	__janitor:Add(players.PlayerAdded:Connect(BindLeaderstats), "Disconnect")
+	game:BindToClose(function()
+		__janitor:Cleanup()
+		__janitor:Destroy()
+	end)
+end
+
+init()

package/examples/game/out/ServerScriptService/Handlers/PlayerHandler.server.luau.map.json

@@ -0,0 +1,13 @@
+{
+	"version": 1,
+	"file": "PlayerHandler.server.luau",
+	"sourceRoot": "C:/Users/gtofr/OneDrive/Documentos/GitHub/Cluaupp/examples/game",
+	"sources": [
+		"ServerScriptService/Handlers/PlayerHandler.server.clpp"
+	],
+	"mappings": "AAAA",
+	"cluaupp": {
+		"source": "ServerScriptService/Handlers/PlayerHandler.server.clpp",
+		"generated": "out/ServerScriptService/Handlers/PlayerHandler.server.luau"
+	}
+}

package/examples/game/out/StarterPlayer/StarterCharacterScripts/Character/CharacterReady.client.luau

@@ -0,0 +1,12 @@
+--!nonstrict
+-- cluaupp-source: StarterPlayer/StarterCharacterScripts/Character/CharacterReady.client.clpp
+-- Compiled by CL++ — C++ × Luau
+
+-- cluaupp: Roster.new / GetService ReplicatedStorage / self.janitor
+
+-- CharacterReady.client.clpp:4
+const function init()
+	print("character local ready")
+end
+
+init()

package/examples/game/out/StarterPlayer/StarterCharacterScripts/Character/CharacterReady.client.luau.map.json

@@ -0,0 +1,13 @@
+{
+	"version": 1,
+	"file": "CharacterReady.client.luau",
+	"sourceRoot": "C:/Users/gtofr/OneDrive/Documentos/GitHub/Cluaupp/examples/game",
+	"sources": [
+		"StarterPlayer/StarterCharacterScripts/Character/CharacterReady.client.clpp"
+	],
+	"mappings": "AAAA",
+	"cluaupp": {
+		"source": "StarterPlayer/StarterCharacterScripts/Character/CharacterReady.client.clpp",
+		"generated": "out/StarterPlayer/StarterCharacterScripts/Character/CharacterReady.client.luau"
+	}
+}

package/examples/game/out/StarterPlayer/StarterPlayerScripts/Controllers/DataController.client.luau

@@ -0,0 +1,16 @@
+--!nonstrict
+-- cluaupp-source: StarterPlayer/StarterPlayerScripts/Controllers/DataController.client.clpp
+-- Compiled by CL++ — C++ × Luau
+
+-- cluaupp: Roster.new / GetService ReplicatedStorage / self.janitor
+
+const ReplicatedStorage = game:GetService("ReplicatedStorage")
+
+const Keep = require(ReplicatedStorage.CluauppLibs.Keep)
+
+-- DataController.client.clpp:5
+const function init()
+	Keep.Client:Init()
+end
+
+init()

package/examples/game/out/StarterPlayer/StarterPlayerScripts/Controllers/DataController.client.luau.map.json

@@ -0,0 +1,13 @@
+{
+	"version": 1,
+	"file": "DataController.client.luau",
+	"sourceRoot": "C:/Users/gtofr/OneDrive/Documentos/GitHub/Cluaupp/examples/game",
+	"sources": [
+		"StarterPlayer/StarterPlayerScripts/Controllers/DataController.client.clpp"
+	],
+	"mappings": "AAAA",
+	"cluaupp": {
+		"source": "StarterPlayer/StarterPlayerScripts/Controllers/DataController.client.clpp",
+		"generated": "out/StarterPlayer/StarterPlayerScripts/Controllers/DataController.client.luau"
+	}
+}

package/examples/game/src/ReplicatedStorage/Shared/Net/Net.clh

@@ -0,0 +1,26 @@
+#pragma once
+// cluaupp generated — do not edit. Change the .flare schema and run cluaupp build.
+// Generated by Cluaupp Flare from ReplicatedStorage/Shared/Net/Net.flare
+// Tag + params in the .flare file. This header is IntelliSense; runtime is the generated .luau.
+
+struct NetReady {
+	void FireServer();
+	RBXScriptConnection Connect(func fn);
+};
+
+struct NetWelcome {
+	void Fire(Player player, int userId, double clock);
+	void FireAll(int userId, double clock);
+	RBXScriptConnection Connect(func fn);
+};
+
+struct NetSession {
+	int Invoke();
+	void On(func fn);
+};
+
+struct Net {
+	NetReady Ready;
+	NetWelcome Welcome;
+	NetSession Session;
+};

package/examples/game/src/ReplicatedStorage/Shared/Net/Net.flare

@@ -0,0 +1,5 @@
+opt name = Net
+
+packet Ready() from Client
+packet Welcome(i32 userId, f64 clock) from Server
+query Session() -> i32

package/examples/game/src/ServerScriptService/Boot/DataBoot.server.clpp

@@ -1,10 +1,10 @@
 #pragma strict
 #include <clpp/roblox.clh>
 #include <clpp/libs/keep.clh>
-#include "../../ReplicatedStorage/Shared/Constants/Datas/TemplateData.clh"
+import { PlayerTemplate } from "../../ReplicatedStorage/Shared/Constants/Datas/TemplateData.clh";
 
 void init() {
-	PlayerTemplate playerData;
+	PlayerTemplate playerData = PlayerTemplate();
 	Keep.Server.Init(DataServiceOptions {
 		.Template = playerData,
 		.StoreName = "PlayerData",

package/examples/game/src/ServerScriptService/Handlers/PlayerHandler.server.clpp

@@ -3,7 +3,7 @@
 #include <clpp/libs/keep.clh>
 
 void BindLeaderstats(Player player) {
-	Data data = Keep.Server.WaitFor(player);
+	auto data = Keep.Server.WaitFor(player);
 	if (player.FindFirstChild("leaderstats") != null) {
 		return;
 	}

package/examples/game/stylua.toml

@@ -0,0 +1,9 @@
+# cluaupp roblox luau
+syntax = "Luau"
+column_width = 120
+line_endings = "Unix"
+indent_type = "Tabs"
+indent_width = 4
+quote_style = "AutoPreferDouble"
+call_parentheses = "Always"
+collapse_simple_statement = "Never"