Аа ээ крч тот кто шарит за програмирование мне надо сделать что-то типо продажи 1 валюта Noobs вторая Money когда продаёшь Noobs то те тип давали Money есть код я хз почему неработает вот сам код : local Sell = workspace:WaitForChild("Sell")
local function SellMoney(plr)
local leaderstats = plr:FindFirstChild("leaderstats")
if leaderstats then
if leaderstats.Points.Value > 0 then
leaderstats.Money.Value = leaderstats.Money.Value + leaderstats.Points.Value
leaderstats.Points.Value = 0
end
end
end
local deb = true
Sell.Touched:Connect(function(hit)
local plr = game.Players:GetPlayerFromCharacter(hit.Parent)
if plr then
if deb == true then
deb = false
SellMoney(plr)
wait(0.5)
deb = true
end
end
end)
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;
procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;
begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.