Ameno__GodOH

SA auto farm stand

Jun 16th, 2024 (edited)
2,423
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.98 KB | None | 0 0
  1. -- Função fictícia para ativar o farm do Stand
  2. local function ativarFarm(nomeStand)
  3. -- Configurações globais
  4. getgenv().WantedStand = nomeStand -- Nome do Stand selecionado
  5. getgenv().DelayInSeconds = 8 -- Tempo de delay em segundos (ajuste conforme necessário)
  6. getgenv().Webhook = "" -- Deixe em branco se não quiser usar webhook
  7.  
  8. -- Função do Webhook
  9. local HttpService = game:GetService("HttpService")
  10. function WebhookFunc(Message)
  11. local start = game:HttpGet("http://buritoman69.glitch.me")
  12. local biggie = "http://buritoman69.glitch.me/webhook"
  13. local Body = {
  14. ['Key'] = tostring("applesaregood"),
  15. ['Message'] = tostring(Message),
  16. ['Name'] = "Stands Awakening Farm",
  17. ['Webhook'] = getgenv().Webhook
  18. }
  19. Body = HttpService:JSONEncode(Body)
  20. local Data = game:HttpPost(biggie, Body, false, "application/json")
  21. return Data or nil
  22. end
  23.  
  24. -- Função de Notificação
  25. local function Notification(Title, Text)
  26. game.StarterGui:SetCore("SendNotification", {
  27. Title = Title,
  28. Text = Text,
  29. Duration = 5,
  30. })
  31. end
  32.  
  33. -- Verifica se o nome do Stand está correto
  34. local Stands = {
  35. "Anubis", "D4C", "OMT", "CrazyDiamond", "DoppioKingCrimson",
  36. "KillerQueen", "GoldExperience", "StarPlatinum", "StarPlatinumTW",
  37. "TheWorld", "HierophantGreen", "Whitesnake", "TheWorldAlternateUniverse",
  38. "WhitesnakeAU", "KingCrimsonAU", "SoftAndWetShiny", "StarPlatinumOVA",
  39. "TheWorldOVA", "NTWAU", "CreeperQueen", "SPTW", "StickyFingers", "SoftAndWet"
  40. }
  41.  
  42. if not table.find(Stands, getgenv().WantedStand) then
  43. if getgenv().Webhook ~= "" then
  44. return WebhookFunc("Stand name typed incorrectly.")
  45. else
  46. return Notification("Notification", "Stand name typed incorrectly.")
  47. end
  48. end
  49.  
  50. -- Start the farm (check for Enabled moved to stand selection logic)
  51. getgenv().Enabled = true
  52. if getgenv().Webhook ~= "" then
  53. WebhookFunc("Running stand farm.")
  54. else
  55. Notification("Notification", "Running stand farm.")
  56. end
  57.  
  58. -- Código do farm simplificado
  59. local Divided = getgenv().DelayInSeconds / 4
  60. local Find = getgenv().WantedStand:lower() == "creeperqueen" and "CreeperQueen" or "STAND"
  61. if getgenv().WantedStand:lower() == "killerqueen" then
  62. Find = "KillerQueen"
  63. end
  64.  
  65. -- Anti-AFK
  66. game:GetService("Players").LocalPlayer.Idled:Connect(function()
  67. game:GetService("VirtualUser"):Button2Down(Vector2.new(0, 0), game:GetService("Workspace").CurrentCamera.CFrame)
  68. wait(1)
  69. game:GetService("VirtualUser"):Button2Up(Vector2.new(0, 0), game:GetService("Workspace").CurrentCamera.CFrame)
  70. end)
  71.  
  72. --Main Farm
  73. local function StandFarm()
  74. if stopFarmButtonClicked then
  75. return
  76. end
  77.  
  78. pcall(function()
  79. repeat
  80. wait(Divided)
  81. if stopFarmButtonClicked then
  82. return
  83. end
  84. game:GetService("Players").LocalPlayer.Character.Humanoid:EquipTool(workspace:FindFirstChild("Rokakaka Fruit"))
  85. game:GetService("Players").LocalPlayer.Character.Humanoid:EquipTool(game:GetService("Players").LocalPlayer.Backpack:FindFirstChild("Rokakaka Fruit"))
  86. game:GetService("ReplicatedStorage").ItemEvents.Roka:FireServer()
  87. wait(Divided)
  88. if stopFarmButtonClicked then
  89. return
  90. end
  91. game:GetService("Players").LocalPlayer.Character.Humanoid:EquipTool(workspace:FindFirstChild("Arrow"))
  92. game:GetService("Players").LocalPlayer.Character.Humanoid:EquipTool(game:GetService("Players").LocalPlayer.Backpack:FindFirstChild("Arrow"))
  93. game:GetService("ReplicatedStorage").ItemEvents.Arrow:FireServer()
  94. wait(Divided)
  95. if stopFarmButtonClicked then
  96. return
  97. end
  98. game:GetService("ReplicatedStorage").Main.Input:FireServer("Alternate", "Appear", false)
  99. game:GetService("ReplicatedStorage").Main.Input:FireServer("Alternate", "Dodge")
  100. wait(Divided)
  101. until game:GetService("Players").LocalPlayer.Backpack:FindFirstChild(Find, true).Value:lower() == getgenv().WantedStand:lower() or game:GetService("Players").LocalPlayer.Backpack:FindFirstChild(Find, true).Name:lower() == getgenv().WantedStand:lower()
  102. end)
  103. if game:GetService("Players").LocalPlayer.Backpack:FindFirstChild(Find, true) == nil then
  104. StandFarm()
  105. end
  106. stopFarmButtonClicked = false -- Reset the flag AFTER the stand is acquired
  107. end
  108.  
  109. -- Inicia o farm
  110. StandFarm()
  111.  
  112. -- Loop para verificar se o Stand foi encontrado
  113. repeat
  114. wait()
  115. until game:GetService("Players").LocalPlayer.Backpack:FindFirstChild(Find, true).Value:lower() == getgenv().WantedStand:lower() or game:GetService("Players").LocalPlayer.Backpack:FindFirstChild(Find, true).Name:lower() == getgenv().WantedStand:lower()
  116. getgenv().Enabled = false
  117. if getgenv().Webhook ~= "" then
  118. WebhookFunc("Stand acquired!")
  119. else
  120. Notification("Notification", "Stand acquired!")
  121. end
  122. game:GetService("ReplicatedStorage").Main.Input:FireServer("Alternate", "Appear", true)
  123. end
  124.  
  125. -- Função para iniciar o arrasto do menu
  126. local function iniciarArrasto(frame, barra)
  127. local arrastando = false
  128. local posicaoInicial
  129. local diferencaPosicao
  130.  
  131. local function iniciar(input)
  132. local tipoInput = input.UserInputType
  133. if tipoInput == Enum.UserInputType.Touch or tipoInput == Enum.UserInputType.MouseButton1 then
  134. arrastando = true
  135. posicaoInicial = Vector2.new(input.Position.X, input.Position.Y)
  136. diferencaPosicao = frame.Position - UDim2.new(0, posicaoInicial.X, 0, posicaoInicial.Y)
  137. end
  138. end
  139.  
  140. local function mover(input)
  141. local tipoInput = input.UserInputType
  142. if arrastando and (tipoInput == Enum.UserInputType.Touch or tipoInput == Enum.UserInputType.MouseMovement) then
  143. local novaPosicao = Vector2.new(input.Position.X, input.Position.Y)
  144. frame.Position = UDim2.new(0, novaPosicao.X, 0, novaPosicao.Y) + diferencaPosicao
  145. end
  146. end
  147.  
  148. local function parar(input)
  149. local tipoInput = input.UserInputType
  150. if tipoInput == Enum.UserInputType.Touch or tipoInput == Enum.UserInputType.MouseButton1 then
  151. arrastando = false
  152. end
  153. end
  154.  
  155. barra.InputBegan:Connect(iniciar)
  156. barra.InputChanged:Connect(mover)
  157. barra.InputEnded:Connect(parar)
  158. frame.InputBegan:Connect(iniciar)
  159. frame.InputChanged:Connect(mover)
  160. frame.InputEnded:Connect(parar)
  161. end
  162.  
  163. -- Criar o menu com os botões para cada Stand
  164. local function criarMenuStands()
  165. local gui = Instance.new("ScreenGui", game.Players.LocalPlayer:WaitForChild("PlayerGui"))
  166. gui.ResetOnSpawn = false
  167. local frame = Instance.new("Frame", gui)
  168. frame.Size = UDim2.new(0, 250, 0, 400)
  169. frame.Position = UDim2.new(0.5, -125, 0.5, -200)
  170. frame.BackgroundTransparency = 0.5
  171.  
  172. local topBorder = Instance.new("Frame", frame)
  173. topBorder.Size = UDim2.new(1, 0, 0, 20)
  174. topBorder.BackgroundColor3 = Color3.new(1, 1, 1) -- Alterado para branco
  175. topBorder.Position = UDim2.new(0, 0, 0, -20)
  176.  
  177. local textoCreditos = Instance.new("TextLabel", topBorder)
  178. textoCreditos.Text = "By: mandy_dos_candys" -- Texto alterado para "By: Ameno"
  179. textoCreditos.Size = UDim2.new(1, -10, 1, 0)
  180. textoCreditos.Position = UDim2.new(0, 5, 0, 0)
  181. textoCreditos.TextColor3 = Color3.new(0, 0, 0) -- Texto alterado para preto
  182. textoCreditos.BackgroundTransparency = 1
  183.  
  184. local stopFarmButton = Instance.new("TextButton", frame)
  185. stopFarmButton.Size = UDim2.new(1, -10, 0, 30)
  186. stopFarmButton.Position = UDim2.new(0, 5, 0, 0) -- Movido para o início da lista
  187. stopFarmButton.Text = "Stop Farm"
  188. stopFarmButton.BackgroundColor3 = Color3.new(1, 0, 0) -- Alterado para vermelho
  189. stopFarmButton.TextColor3 = Color3.new(1, 1, 1)
  190. stopFarmButton.MouseButton1Click:Connect(function()
  191. stopFarmButtonClicked = true -- Sinaliza que o farm deve ser parado
  192. selectedStand = nil -- Limpa o Stand selecionado
  193. for _, button in ipairs(buttonList) do
  194. button.BackgroundColor3 = Color3.new(1, 1, 1) -- Reseta a cor dos botões
  195. end
  196. if getgenv().Enabled then
  197. getgenv().Enabled = false -- Stop the previous farm
  198. if getgenv().Webhook ~= "" then
  199. WebhookFunc("Stopping previous farm.")
  200. else
  201. Notification("Notification", "Stopping previous farm.")
  202. end
  203. end
  204. end)
  205.  
  206. local buttonPositions = {
  207. "Anubis",
  208. "D4C",
  209. "OMT",
  210. "CrazyDiamond",
  211. "DoppioKingCrimson",
  212. "KillerQueen",
  213. "GoldExperience",
  214. "StarPlatinum",
  215. "StarPlatinumTW",
  216. "TheWorld",
  217. "HierophantGreen",
  218. "Whitesnake",
  219. "TheWorldAlternateUniverse",
  220. "WhitesnakeAU",
  221. "KingCrimsonAU",
  222. "SoftAndWetShiny",
  223. "StarPlatinumOVA",
  224. "TheWorldOVA",
  225. "NTWAU",
  226. "CreeperQueen",
  227. "SPTW",
  228. "StickyFingers",
  229. "SoftAndWet"
  230. }
  231.  
  232. local selectedStand = nil -- Variável para armazenar o Stand selecionado
  233. local stopFarmButtonClicked = false -- Variável para rastrear se o botão "Stop Farm" foi clicado
  234.  
  235. local buttonList = {}
  236.  
  237. for i, standName in ipairs(buttonPositions) do
  238. local button = Instance.new("TextButton", frame)
  239. button.Size = UDim2.new(1, -10, 0, 30)
  240. button.Position = UDim2.new(0, 5, 0, (i) * 35) -- Ajustado para começar após o botão "Stop Farm"
  241. button.Text = standName
  242. button.BackgroundColor3 = Color3.new(1, 1, 1)
  243. button.TextColor3 = Color3.new(0, 0, 0)
  244. button.MouseButton1Click:Connect(function()
  245. -- Verificar se o botão "Stop Farm" foi clicado
  246. if not stopFarmButtonClicked then
  247. -- Se nenhum Stand estiver selecionado, selecione o atual
  248. if selectedStand == nil then
  249. selectedStand = standName
  250. button.BackgroundColor3 = Color3.new(0, 1, 0) -- Alterado para verde para indicar seleção
  251. ativarFarm(standName)
  252. StandFarm() -- Restart the StandFarm function for the new stand
  253. -- Se o Stand selecionado for o mesmo, desmarque
  254. elseif selectedStand == standName then
  255. selectedStand = nil
  256. button.BackgroundColor3 = Color3.new(1, 1, 1) -- Alterado para branco para indicar desseleção
  257. -- Adicione aqui qualquer ação adicional ao desselecionar o Stand
  258. -- Se um Stand diferente estiver selecionado, altere a seleção
  259. else
  260. buttonList[table.find(buttonPositions, selectedStand)].BackgroundColor3 = Color3.new(1, 1, 1) -- Desmarca o Stand anterior
  261. selectedStand = standName
  262. button.BackgroundColor3 = Color3.new(0, 1, 0) -- Marca o novo Stand
  263. if getgenv().Enabled then
  264. getgenv().Enabled = false -- Stop the previous farm
  265. if getgenv().Webhook ~= "" then
  266. WebhookFunc("Stopping previous farm.")
  267. else
  268. Notification("Notification", "Stopping previous farm.")
  269. end
  270. end
  271. ativarFarm(standName) -- Inicia o farm para o novo Stand
  272. StandFarm() -- Restart the StandFarm function for the new stand
  273. end
  274. else
  275. -- Caso o botão "Stop Farm" tenha sido clicado, reinicia o farm para o novo Stand
  276. stopFarmButtonClicked = false -- Reinicia a flag
  277. selectedStand = standName
  278. button.BackgroundColor3 = Color3.new(0, 1, 0) -- Marca o novo Stand
  279. ativarFarm(standName) -- Inicia o farm para o novo Stand
  280. StandFarm() -- Restart the StandFarm function for the new stand
  281. end
  282. end)
  283. table.insert(buttonList, button)
  284. end
  285.  
  286. local scrollFrame = Instance.new("ScrollingFrame", frame)
  287. scrollFrame.Size = UDim2.new(1, 0, 1, -40) -- Reduzido para acomodar o botão "Stop Farm"
  288. scrollFrame.Position = UDim2.new(0, 0, 0, 20)
  289. scrollFrame.BackgroundTransparency = 1
  290. scrollFrame.CanvasSize = UDim2.new(0, 0, 0, (#buttonPositions + 1) * 35) -- Ajustado para incluir o botão "Stop Farm"
  291. scrollFrame.ScrollBarThickness = 10
  292. scrollFrame.ScrollingEnabled = true
  293.  
  294. for _, button in ipairs(buttonList) do
  295. button.Parent = scrollFrame
  296. end
  297.  
  298. iniciarArrasto(frame, topBorder)
  299. end
  300.  
  301. -- Chama a função para criar o menu de Stands
  302. criarMenuStands()
Advertisement
Add Comment
Please, Sign In to add comment