Advertisement
SigmaSkibidiBradku

game stealer V3

Oct 13th, 2024 (edited)
27
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.45 KB | None | 0 0
  1. local plr = game.Players.LocalPlayer
  2. local czekanie = 0
  3. local MainString = ""
  4. local textLenght = 1000000
  5. local brakuje
  6. local HttpService = game:GetService("HttpService")
  7.  
  8. local screenGui = Instance.new("ScreenGui",plr.PlayerGui)
  9. screenGui.IgnoreGuiInset = true
  10. screenGui.DisplayOrder = math.huge
  11.  
  12. local scrolingFrame = Instance.new("ScrollingFrame",screenGui)
  13. scrolingFrame.Size = UDim2.new(0.184, 0,0.411, 0)
  14. scrolingFrame.AutomaticCanvasSize = Enum.AutomaticSize.Y
  15. scrolingFrame.Position = UDim2.new(0, 0,0.129, 0)
  16. local list = Instance.new("UIListLayout",scrolingFrame)
  17. local cloneButton = Instance.new("TextButton",screenGui)
  18. cloneButton.Size = UDim2.new(0.184, 0,0.08, 0)
  19. cloneButton.Position = UDim2.new(0, 0,0.539, 0)
  20. cloneButton.BackgroundColor3 = Color3.new(0.333333, 1, 0)
  21. cloneButton.TextScaled = true
  22. cloneButton.Text = "Clone Game"
  23. if game.ReplicatedStorage:FindFirstChild("MainFolder") then
  24. game.ReplicatedStorage.MainFolder:Destroy()
  25. end
  26. local MainFolder
  27.  
  28.  
  29.  
  30.  
  31. local activated = false
  32. local objects
  33. cloneButton.MouseButton1Up:Connect(function()
  34. if activated then return else activated = true end
  35. brakuje = {}
  36. MainFolder = Instance.new("Folder",game.ReplicatedStorage)
  37. MainFolder.Name = "MainFolder"
  38. CreateFoldersFUNCTION()
  39. objects = MainFolder:GetDescendants()
  40. wait(1)
  41. ChangeNamesFUNCTION()
  42. wait(1)
  43. CreatingLocFUNCTION()
  44. wait(1)
  45. CloneFUNCTION()
  46. MainFolder:Destroy()
  47. wait(1)
  48. createButtonsFUNCTION()
  49. wait(1)
  50. activated = false
  51. cloneButton.Text = "Clone Game"
  52. end)
  53.  
  54. local function createFolder(obj,name)
  55. local newFolder = Instance.new("Folder",MainFolder)
  56. newFolder.Name = name or obj.Name
  57. for i,child in pairs(obj:GetChildren()) do
  58. if child.Archivable == false then
  59. child.Archivable = true
  60. local ChangeArchivable = Instance.new("RayValue",child)
  61. ChangeArchivable.Name = "ChangeArchivable"
  62. end
  63. local success, result = pcall(function()
  64. local klon = child:Clone()
  65. klon.Parent = newFolder
  66. end)
  67.  
  68. if not success then
  69. warn("twożenie folderu: "..result)
  70. end
  71. end
  72. end
  73. function CreateFoldersFUNCTION()
  74. cloneButton.Text = "Creating folders"-------------------------------------------
  75.  
  76. createFolder(game.Lighting)
  77. createFolder(plr.PlayerGui,"CurrentGui")
  78. createFolder(game.StarterGui)
  79. createFolder(game.ReplicatedStorage)
  80. createFolder(workspace)
  81. wait(0.5)
  82. cloneButton.Text = "Succes1"--------------------------------------------------
  83. end
  84.  
  85. local function filterText(text)
  86. text = string.gsub(text,"?","?1")
  87. text = string.gsub(text,"ChangeArchivable","?2")
  88. text = string.gsub(text,"#","?3")
  89. text = string.gsub(text,"*","?4")
  90. text = string.gsub(text,"MainFolder","?5")
  91. text = string.gsub(text,"_","?6")
  92. text = string.gsub(text,":","?7")
  93. text = string.gsub(text," ","?8")
  94. return text
  95. end
  96. function ChangeNamesFUNCTION()
  97. cloneButton.Text = "Changing names"-------------------------------------------
  98. local saveAmount = #objects
  99. for i,child in pairs(objects) do
  100. child.Name = filterText(child.Name).."#"..i
  101. cloneButton.Text = "Changing names "..i.."/"..saveAmount
  102. if czekanie >= 500 then task.wait() czekanie = 0 else czekanie+= 1 end
  103. end
  104.  
  105. cloneButton.Text = "Succes2"--------------------------------------------------
  106. end
  107. function CreatingLocFUNCTION()
  108. local iloscOBJ = #objects
  109. local function returnLoc(obj)
  110. local toReturn = ""
  111.  
  112. local current = obj.Parent
  113. while current.Name ~= "MainFolder" do
  114. toReturn = current.Name.."*"..toReturn
  115. current = current.Parent
  116. end
  117. return toReturn
  118. end
  119. local lokalizacje = {}
  120. for i,child in pairs(objects) do
  121. local success, result = pcall(function()
  122. local loc = Instance.new("StringValue")
  123. loc.Name = "Loc"
  124. loc.Parent = child
  125. loc.Value = returnLoc(child)
  126. table.insert(lokalizacje,loc)
  127. end)
  128. if not success then
  129. warn(child,result)
  130. end
  131. if czekanie >= 500 then
  132. czekanie = 0
  133. task.wait()
  134. cloneButton.Text = "Addod Localizations ("..i.."/"..iloscOBJ..")"
  135. else czekanie += 1 end
  136. end
  137. cloneButton.Text = "Succes3"--------------------------------------------------
  138. end
  139. local function CodeObject(object)
  140. if object:IsA("Pose") then
  141. return ""
  142. end
  143. local codeddStr = ""
  144. local success, result = pcall(function()
  145. codeddStr = "c:"..object.ClassName
  146. codeddStr = codeddStr .. "_n:"..tostring(object.Name)
  147. codeddStr = codeddStr .. "_l:"..tostring(object.Loc.Value)
  148. if object:IsA("BasePart") then--------------------------------------------------------------------------
  149. codeddStr = codeddStr .. "_Bp:"..tostring(object.Position.X.."="..object.Position.Y.."="..object.Position.Z)
  150. codeddStr = codeddStr .. "_Bs:"..tostring(object.Size.X.."="..object.Size.Y.."="..object.Size.Z)
  151. codeddStr = codeddStr .. "_Bc:"..tostring(object.Color.R.."="..object.Color.G.."="..object.Color.B)
  152. codeddStr = codeddStr .. "_Br:"..tostring(object.Orientation.X.."="..object.Orientation.Y.."="..object.Orientation.Z)
  153. if object.Transparency ~= 0 then
  154. codeddStr = codeddStr .. "_Bt:"..tostring(object.Transparency)
  155. end
  156. if object.CastShadow ~= true then
  157. codeddStr = codeddStr .. "_Bcs:"
  158. end
  159. if object.CanCollide ~= true then
  160. codeddStr = codeddStr .. "_Bcc:"
  161. end
  162. if object.CanTouch ~= true then
  163. codeddStr = codeddStr .. "_Bct:"
  164. end
  165. if object.CanQuery ~= true then
  166. codeddStr = codeddStr .. "_Bcq:"
  167. end
  168. if object.Material ~= Enum.Material.Plastic then
  169. codeddStr = codeddStr .. "_Bm:" ..tostring(object.Material.Value)
  170. end
  171. if object.Anchored == false then
  172. codeddStr = codeddStr .. "_Ba:"
  173. end
  174. if not object:IsA("WedgePart") and not object:IsA("MeshPart") and not object:IsA("CornerWedgePart") and object.Shape.Value ~= 1 then
  175. codeddStr = codeddStr .. "_Bs:" ..tostring(object.Shape.Value)
  176. end
  177.  
  178. if object.BackSurface.Value ~= 0 then------------------surfaces
  179. codeddStr = codeddStr .. "_Bbs:" ..tostring(object.BackSurface.Value)
  180. end
  181. if object.BottomSurface.Value ~= 0 then
  182. codeddStr = codeddStr .. "_Bbts:" ..tostring(object.BottomSurface.Value)
  183. end
  184. if object.FrontSurface.Value ~= 0 then
  185. codeddStr = codeddStr .. "_Bfs:" ..tostring(object.FrontSurface.Value)
  186. end
  187. if object.LeftSurface.Value ~= 0 then
  188. codeddStr = codeddStr .. "_Bls:" ..tostring(object.LeftSurface.Value)
  189. end
  190. if object.RightSurface.Value ~= 0 then
  191. codeddStr = codeddStr .. "_Brs:" ..tostring(object.RightSurface.Value)
  192. end
  193. if object.TopSurface.Value ~= 0 then
  194. codeddStr = codeddStr .. "_Bts:" ..tostring(object.TopSurface.Value)
  195. end
  196. elseif object:IsA("Decal") then-------------------------------------------------------------------
  197. if object.Texture ~= nil or object.Texture ~= "" then
  198. codeddStr = codeddStr .. "_Dt:" ..tostring(string.gsub(object.Texture,":","?1"))
  199. end
  200. if object.Face ~= 5 then
  201. codeddStr = codeddStr .. "_Df:" ..tostring(object.Face.Value)
  202. end
  203. if object.Transparency ~= 0 then
  204. codeddStr = codeddStr .. "_Dtr:" ..tostring(object.Face.Value)
  205. end
  206. if object.ZIndex ~= 1 then
  207. codeddStr = codeddStr .. "_Dz:" ..tostring(object.Face.Value)
  208. end
  209. elseif object:IsA("Attachment") then-------------------------------------------------------------------
  210. codeddStr = codeddStr .. "_Ap:"..tostring((object.Position.X).."="..(object.Position.Y).."="..(object.Position.Z))
  211. codeddStr = codeddStr .. "_Ar:"..tostring((object.Orientation.X).."="..(object.Orientation.Y).."="..(object.Orientation.Z))
  212. codeddStr = codeddStr .. "_Ax:"..tostring((object.Axis.X).."="..(object.Axis.Y).."="..(object.Axis.Z))
  213. codeddStr = codeddStr .. "_Asx:"..tostring((object.SecondaryAxis.X).."="..(object.SecondaryAxis.Y).."="..(object.SecondaryAxis.Z))
  214.  
  215. codeddStr = codeddStr .. "_Awp:"..tostring((object.WorldPosition.X).."="..(object.WorldPosition.Y).."="..(object.WorldPosition.Z))
  216. codeddStr = codeddStr .. "_Awr:"..tostring((object.WorldOrientation.X).."="..(object.WorldOrientation.Y).."="..(object.WorldOrientation.Z))
  217. codeddStr = codeddStr .. "_Awx:"..tostring((object.WorldAxis.X).."="..(object.WorldAxis.Y).."="..(object.WorldAxis.Z))
  218. codeddStr = codeddStr .. "_Awsx:"..tostring((object.WorldSecondaryAxis.X).."="..(object.WorldSecondaryAxis.Y).."="..(object.WorldSecondaryAxis.Z))
  219.  
  220. if object.Visible ~= false then
  221. codeddStr = codeddStr .. "_Av:" ..tostring(object.Visible)
  222. end
  223. elseif object:IsA("ValueBase") then-------------------------------------------------------------------
  224. if object:IsA("BoolValue") and object.Value ~= false then
  225. codeddStr = codeddStr .. "_Vb:"
  226. elseif object:IsA("BrickColorValue") then
  227. codeddStr = codeddStr .. "_Vbc:"..object.Value.Number
  228. elseif object:IsA("CFrameValue") then
  229. codeddStr = codeddStr .. "_Vcf:"..tostring((object.Value.Position.X).."="..(object.Value.Position.Y).."="..(object.Value.Position.Z).."="..(object.Value.Rotation.X).."="..(object.Value.Rotation.Y).."="..(object.Value.Rotation.Z))
  230. elseif object:IsA("Color3Value") then
  231. codeddStr = codeddStr .. "_Vc:"..tostring(object.Value.R.."="..object.Value.G.."="..object.Value.B)
  232. elseif object:IsA("IntValue") or object:IsA("NumberValue") then
  233. codeddStr = codeddStr .. "_V:"..object.Value
  234. elseif object:IsA("Vector3Value") then
  235. codeddStr = codeddStr .. "_V3:"..tostring((object.Value.X).."="..(object.Value.Y).."="..(object.Value.Z))
  236. elseif object:IsA("StringValue") then
  237. codeddStr = codeddStr .. "_V:"..filterText(object.Value)
  238.  
  239. end
  240.  
  241. else
  242. if brakuje[object.ClassName] then
  243. brakuje[object.ClassName] += 1
  244.  
  245. else
  246. brakuje[object.ClassName] = 1
  247. end
  248.  
  249. end
  250. codeddStr = codeddStr.." "
  251. end)
  252. if not success then
  253. warn(result)
  254. end
  255.  
  256. return codeddStr
  257. end
  258. local MainString
  259.  
  260. function CloneFUNCTION()
  261. local stringParts = {} -- Utwórz pustą tablicę do przechowywania fragmentów stringa.
  262. local iloscOBJ = #objects
  263.  
  264. for i, child in pairs(objects) do
  265. table.insert(stringParts, CodeObject(child)) -- Dodaj fragment stringa z CodeObject do tablicy.
  266.  
  267. if czekanie >= 500 then
  268. czekanie = 0
  269. task.wait()
  270. cloneButton.Text = "Copying game (" .. i .. "/" .. iloscOBJ .. ")"
  271. else
  272. czekanie = czekanie + 1
  273. end
  274. end
  275.  
  276. cloneButton.Text = "łączenie textu w jeden string"
  277. MainString = table.concat(stringParts) -- Połącz wszystkie fragmenty stringa w tablicy w jeden string.
  278. cloneButton.Text = "Succes4"
  279. end
  280.  
  281.  
  282. function createButtonsFUNCTION()
  283. print(MainString)
  284. writefile("GameCopy.txt",MainString)
  285. cloneButton.Text = "Succes5"
  286. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement