Advertisement
Thecodeeasar

Ajan

Dec 8th, 2024
24
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.21 KB | None | 0 0
  1. -- Create the main GUI
  2. local ScreenGui = Instance.new("ScreenGui")
  3. local MainFrame = Instance.new("Frame")
  4. local TitleLabel = Instance.new("TextLabel")
  5. local AutoKyotoButton = Instance.new("TextButton")
  6. local PingButton = Instance.new("TextButton")
  7.  
  8. local plr = game.Players.LocalPlayer
  9. local chr = plr.Character or plr.CharacterAdded:Wait()
  10. local hum = chr:WaitForChild("Humanoid")
  11. local player = game.Players.LocalPlayer
  12. local character = player.Character or player.CharacterAdded:Wait()
  13. local humanoidRootPart = character:WaitForChild("HumanoidRootPart")
  14. local UserPing = game:GetService("Stats").Network.ServerStatsItem["Data Ping"] -- Real ping
  15.  
  16. -- Define the teleport distance
  17. local teleportDistance = 18.42
  18.  
  19. -- Function to teleport the player forward
  20. local function teleportForward()
  21. -- Get the direction the character is facing
  22. local forwardDirection = humanoidRootPart.CFrame.LookVector
  23.  
  24. -- Calculate the new position
  25. local newPosition = humanoidRootPart.Position + forwardDirection * teleportDistance
  26.  
  27. -- Set the new position
  28. humanoidRootPart.CFrame = CFrame.new(newPosition)
  29. end
  30.  
  31. ScreenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
  32.  
  33. -- GUI Styling (Smaller size)
  34. MainFrame.Parent = ScreenGui
  35. MainFrame.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
  36. MainFrame.Size = UDim2.new(0, 250, 0, 300) -- Smaller size
  37. MainFrame.Position = UDim2.new(0.5, -125, 0.5, -150)
  38. MainFrame.Active = true
  39. MainFrame.Draggable = true -- Draggable
  40.  
  41. TitleLabel.Parent = MainFrame
  42. TitleLabel.Text = "Cracked by wutdahell510"
  43. TitleLabel.Size = UDim2.new(1, 0, 0.2, 0)
  44. TitleLabel.Position = UDim2.new(0, 0, 0, 0)
  45. TitleLabel.TextScaled = true
  46. TitleLabel.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
  47. TitleLabel.TextColor3 = Color3.new(1, 1, 1)
  48. TitleLabel.BorderSizePixel = 0
  49.  
  50. -- Ping Button (will auto-detect ping)
  51. PingButton.Parent = MainFrame
  52. PingButton.Text = "Check Ping & Start"
  53. PingButton.BackgroundColor3 = Color3.new(0.3, 0.3, 0.3)
  54. PingButton.Size = UDim2.new(0.8, 0, 0.2, 0)
  55. PingButton.Position = UDim2.new(0.1, 0, 0.4, 0)
  56. PingButton.TextScaled = true
  57. PingButton.TextColor3 = Color3.new(1, 1, 1)
  58. PingButton.BorderSizePixel = 0
  59.  
  60. -- Auto Kyoto button (hidden initially)
  61. AutoKyotoButton.Parent = MainFrame
  62. AutoKyotoButton.BackgroundColor3 = Color3.new(0.2, 0.6, 0.2)
  63. AutoKyotoButton.Size = UDim2.new(0.8, 0, 0.2, 0)
  64. AutoKyotoButton.Position = UDim2.new(0.1, 0, 0.7, 0)
  65. AutoKyotoButton.Text = "Auto Kyoto"
  66. AutoKyotoButton.TextScaled = true
  67. AutoKyotoButton.Visible = false -- Only appears after ping check
  68. AutoKyotoButton.TextColor3 = Color3.new(1, 1, 1)
  69. AutoKyotoButton.BorderSizePixel = 0
  70.  
  71. -- Function to calculate the correct wait time based on ping (increased reductions)
  72. local function calculateWaitTime(ping)
  73. local baseWaitTime = 1.45 -- Original base wait time
  74. local adjustedWaitTime
  75.  
  76. if ping <= 50 then
  77. adjustedWaitTime = baseWaitTime * 0.65 -- 35% decrease for <= 50 ping
  78. elseif ping <= 100 then
  79. adjustedWaitTime = baseWaitTime * 0.75 -- 25% decrease for <= 100 ping
  80. elseif ping <= 150 then
  81. adjustedWaitTime = baseWaitTime * 0.85 -- 15% decrease for <= 150 ping
  82. elseif ping <= 200 then
  83. adjustedWaitTime = baseWaitTime * 0.95 -- 5% decrease for <= 200 ping
  84. elseif ping <= 250 then
  85. adjustedWaitTime = baseWaitTime * 1.05 -- 5% increase for <= 250 ping
  86. else
  87. adjustedWaitTime = baseWaitTime * 1.15 -- 15% increase for > 250 ping
  88. end
  89.  
  90. return adjustedWaitTime
  91. end
  92.  
  93. -- Roblox-style Notification Function
  94. local function showRobloxNotification(text)
  95. game.StarterGui:SetCore("SendNotification", {
  96. Title = "Cracked by wutdahell510",
  97. Text = text,
  98. Duration = 3, -- Stays for 3 seconds
  99. })
  100. end
  101.  
  102. -- Function to find the closest player
  103. local function findClosestPlayer()
  104. local closestDistance = math.huge
  105. local closestPlayer = nil
  106. for _, otherPlayer in pairs(game.Players:GetPlayers()) do
  107. if otherPlayer ~= plr and otherPlayer.Character and otherPlayer.Character:FindFirstChild("HumanoidRootPart") then
  108. local distance = (humanoidRootPart.Position - otherPlayer.Character.HumanoidRootPart.Position).magnitude
  109. if distance < closestDistance then
  110. closestDistance = distance
  111. closestPlayer = otherPlayer
  112. end
  113. end
  114. end
  115. return closestPlayer
  116. end
  117.  
  118. -- Function to teleport to the closest player
  119. local function teleportToClosestPlayer()
  120. local closestPlayer = findClosestPlayer()
  121. if closestPlayer and closestPlayer.Character and closestPlayer.Character:FindFirstChild("HumanoidRootPart") then
  122. humanoidRootPart.CFrame = closestPlayer.Character.HumanoidRootPart.CFrame
  123. end
  124. end
  125.  
  126. -- Ping Button click event
  127. PingButton.MouseButton1Click:Connect(function()
  128. local ping = UserPing:GetValue() -- Get actual ping from Roblox
  129. local waitTime = calculateWaitTime(ping)
  130.  
  131. -- Display Roblox notification about detected ping and wait time
  132. showRobloxNotification("Ping: " .. math.floor(ping) .. " ms | Wait Time: " .. waitTime .. "s")
  133.  
  134. -- Show Auto Kyoto button after ping check
  135. AutoKyotoButton.Visible = true
  136. end)
  137.  
  138. -- Function for Key Press Combo
  139. local function pressKey1()
  140. local tool = plr.Backpack:FindFirstChild("Flowing Water")
  141. if tool then
  142. tool.Parent = chr
  143. wait(1)
  144. tool.Parent = plr.Backpack
  145. end
  146. end
  147.  
  148. local function pressKey2()
  149. local tool = plr.Backpack:FindFirstChild("Lethal Whirlwind Stream")
  150. if tool then
  151. tool.Parent = chr
  152. wait(1)
  153. tool.Parent = plr.Backpack
  154. end
  155. end
  156.  
  157. -- Auto Kyoto button click event
  158. AutoKyotoButton.MouseButton1Click:Connect(function()
  159. local ping = UserPing:GetValue() -- Get ping again before execution
  160. local waitTime = calculateWaitTime(ping)
  161.  
  162. teleportForward() -- Teleport forward first
  163. wait(waitTime)
  164. teleportToClosestPlayer() -- Then teleport to the closest player
  165. pressKey2()
  166.  
  167. -- Show a notification that the combo was performed
  168. showRobloxNotification("Auto Kyoto combo performed!")
  169. end)
  170.  
  171. -- Initial Notification when GUI is loaded
  172. showRobloxNotification("Loaded by wutdahell510")
  173.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement