Thesisa

(TG101) Sword Fighting Tournament ;DarkSteel Chathook

Jul 19th, 2020
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.05 KB | None | 0 0
  1. players = game:GetService("Players"):GetPlayers()
  2. LocalPlayer = game:GetService("Players").LocalPlayer
  3. admins = {"Gaikokan"}
  4. table.insert(admins, LocalPlayer.Name)
  5. delay = false
  6. botname = ""
  7. botver = ""
  8. delaysec = 1
  9. cmdsec = 6
  10. announcement = true
  11. script = ""
  12. game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("["..botname.."]: "..botver.." Loaded!","All")
  13. mainhook = [[
  14. for _, player in pairs(players) do
  15.  
  16. ]]
  17. mainchat = [[
  18. local function shortcutsay()
  19. if Target == "me" then
  20. Target = player.Name
  21. elseif Target == "random" then
  22. repeat
  23. Target = players[math.random(1, #players)].Name
  24. until Target ~= player.Name
  25. end
  26. if playername == "me" then
  27. playername = player.Name
  28. elseif playername == "random" then
  29. repeat
  30. playername = players[math.random(1, #players)].Name
  31. until playername ~= player.Name
  32. end
  33. if TP1 == "me" then
  34. TP1 = player.Name
  35. elseif TP1 == "random" then
  36. repeat
  37. TP1 = players[math.random(1, #players)].Name
  38. until TP1 ~= player.Name
  39. end
  40. end
  41. local function fefix()
  42. local a1 = Instance.new("Model", workspace)
  43. local a2 = Instance.new("Part", a1)
  44. a2.CanCollide = true
  45. a2.Anchored = true
  46. a2.CFrame = CFrame.new(10000, 10000, 10000)
  47. a2.Name = "Torso"
  48. local a3 = Instance.new("Humanoid", a1)
  49. a3.MaxHealth = 100;a3.Health = 100
  50. LocalPlayer.Character = a1
  51. a3.Health = 0
  52. end
  53. player.Chatted:connect(function(msg)
  54. players = game:GetService("Players"):GetPlayers()
  55.  
  56. ]]
  57. mainscript = [[
  58. for i = 1, #admins do
  59. if player.Name == admins[i] then
  60. if msg:sub(1, 1) == ";" then
  61. wait()
  62. if delay == false then
  63. --functions
  64. if msg:sub(1, 9) == ";cmds" then
  65. game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("["..botname.."]: ;darksteel, ;sadsword, ;upgrades, ;reach, ;jugg, ;cool, ;autoregen, ;goto","All")
  66. end
  67. if msg:sub(1, 11) == ";darksteel" then
  68. game.ReplicatedStorage.GiveSword:InvokeServer("SuperKatana", game.Players.LocalPlayer.Name)
  69. end
  70. if msg:sub(1, 10) == ";sadsword" then
  71. game.ReplicatedStorage.GiveSword:InvokeServer("SadSword", game.Players.LocalPlayer.Name)
  72. end
  73. if msg:sub(1, 13) == ";upgrades" then
  74. game.ReplicatedStorage.GiveSword:InvokeServer("Medikit") -- "Medikit" upgrade
  75. game.ReplicatedStorage.ModifyAtribute:InvokeServer("Walk1", 1) -- "20 Walkspeed" upgrade
  76. --game.ReplicatedStorage.ModifyAtribute:InvokeServer("Health1", 1) -- "120 Health" upgrade (I left this one commented out because the second health upgrade overrides it)
  77. game.ReplicatedStorage.ModifyAtribute:InvokeServer("Damage1", 1) -- "110% Damage" upgrade
  78. game.ReplicatedStorage.ModifyAtribute:InvokeServer("Health1", 2) -- "140 Health" upgrade
  79. game.ReplicatedStorage.ModifyAtribute:InvokeServer("Better6", 1) -- "Bounce Back" upgrade
  80. game.ReplicatedStorage.ModifyAtribute:InvokeServer("Immunity1", 1) -- "DH health immunity" upgrade
  81. game.ReplicatedStorage.ModifyAtribute:InvokeServer("Invis1", 1) -- "5 second invisibility" upgrade
  82. end
  83. if msg:sub(1, 6) == ";reach" then
  84. for i,v in pairs(game:GetService'Players'.LocalPlayer.Character:GetChildren())do
  85. if v:isA("Tool") then
  86. a=Instance.new("SelectionBox",v.Handle)
  87. a.Adornee=v.Handle
  88. v.Handle.Size=Vector3.new(0.5,0.5,60)
  89. v.GripPos=Vector3.new(0,0,0)
  90. game.Players.LocalPlayer.Character.Humanoid:UnequipTools()
  91. end
  92. end
  93. end
  94. if msg:sub(1, 9) == ";jugg" then
  95. game.ReplicatedStorage.SetRoundPicked:InvokeServer("Round6")
  96. end
  97. if msg:sub(1, 5) == ";goto" then
  98. playername = msg:sub(7, #msg)
  99. LocalPlayer.Character:MoveTo(game:GetService("Players")[playername].Character.Torso.Position)
  100. end
  101. if msg:sub(1, 8) == ";cool" then
  102. game.ReplicatedStorage.GiveSword:InvokeServer("SadSword", game.Players.LocalPlayer.Name)
  103. game.ReplicatedStorage.GiveSword:InvokeServer("SuperKatana", game.Players.LocalPlayer.Name)
  104. for i,v in pairs(game.Players.LocalPlayer.Backpack:GetChildren()) do
  105. if v:IsA("Tool") then
  106. v.Parent = game.Players.LocalPlayer.Character
  107. end
  108. end
  109. end
  110. if msg:sub(1, 10) == ";autoregen" then
  111. game.Players.LocalPlayer.Character.Humanoid.Name = 1
  112. local l = game.Players.LocalPlayer.Character["1"]:Clone()
  113. l.Parent = game.Players.LocalPlayer.Character
  114. l.Name = "Humanoid"
  115. wait(0.1)
  116. game.Players.LocalPlayer.Character["1"]:Destroy()
  117. game.Workspace.CurrentCamera.CameraSubject = game.Players.LocalPlayer.Character
  118. game.Players.LocalPlayer.Character.Animate.Disabled = true
  119. wait(0.1)
  120. game.Players.LocalPlayer.Character.Animate.Disabled = false
  121. game.Players.LocalPlayer.Character.Humanoid.DisplayDistanceType = "None"
  122. end
  123. --cmd delay
  124. delay = true
  125. wait(delaysec)
  126. delay = false
  127. else
  128. game.ReplicatedStorage.DefaultChatSystemChatEvents.SayMessageRequest:FireServer("["..botname.."]: You must wait "..delaysec.." seconds before running another command!","All")
  129. end
  130. end
  131. end
  132. end
  133. ]]
  134. mainchatfix = [[
  135.  
  136. end)
  137. ]]
  138. mainfix = [[
  139.  
  140. end
  141. ]]
  142. mainnew = [[
  143. game:GetService("Players").PlayerAdded:connect(function(player)
  144. players = game:GetService("Players"):GetPlayers()
  145. player.Chatted:connect(function(msg)
  146.  
  147. ]]
  148. mainrunner = mainhook..mainchat..mainscript..mainchatfix..mainfix
  149. mainnewfix = mainnew..mainscript..mainchatfix..mainchatfix
  150. loadstring(mainrunner)()
  151. loadstring(mainnewfix)()
Add Comment
Please, Sign In to add comment