API tools faq
paste
Advertisement
Versqual

Untitled

Versqual
Jun 27th, 2016
113
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 29.62 KB | None | 0 0
raw download clone embed print report
  1. --RAIDSTORM.5--By wildfire33--Speak Commands--V 0.4.0--UMAD?
  2. script.Parent = game.Workspace
  3. Players = game.Players;
  4. Lighting = game.Lighting;
  5. Debris = game.Debris;
  6. ffc = FindFirstChild;bj = BreakJoints;brickc = BrickColor; -- Sorry, I had too. :3
  7. cc = coroutine.create;cr = coroutine.resume;
  8. Keta = {
  9. Settings = {
  10. Admins = {--Name--Rank--ColorSettings--
  11. {"Excellating",5,"Bright blue"}, -- Put owner of this script here. So Anti ban will work on you. :3
  12. {"wildfire33",5,"Bright blue"},
  13. {"wildifre33",6,"Bright blue"},
  14. {"imnotaguestimagirl",6,"Bright blue"},
  15. {"wildfire33",7,"Bright blue"},
  16. },
  17. Ban = {"noobsrock114"},
  18. Lag = {},
  19. LoopKill = {},
  20. Ranks = {
  21. Creator = 5,
  22. Mod = 4,
  23. UltraAdmin = 3,
  24. Admin = 2,
  25. WeakAdmin = 1,
  26. Nothing = 0
  27. },
  28. MainColor = "Really black",
  29. SecondColor = "Bright blue",
  30. Colors = {}, -- Dont add any. I add 64 colors in script. :3
  31. PrivateServer = false,
  32. PriList = { -- Thats what I call a pri list. >:D
  33. "LuaModelMaker","upquark","oxcool1","RobroxMasterDX","TeamDman","Camerono3","Dr4gOnh4ck3r2","ThePC8110",
  34. "wafles26122","IndoctrinatingGhost","digger183","Zeroyi","Zewl","tyridge77","dnic1997","littleAU999",
  35. "ExBrick","kert12","Scritus","LocalBrick","mugex","Kekitan","kirkyturky12","PixelatedPlayer","toflyc","Penjuin3",
  36. "FlaminTroll","neincat","NonSpeaker"
  37. },
  38. },
  39. ServerOnlySet = { -- Dont mess with this. :O
  40. Lag = {},
  41. LoopKill = {},
  42. AdminsOn = {}
  43. },
  44. Obj = {
  45. ["Exp"] = function(parent,pos)local a = Instance.new("Explosion",parent)a.Position = pos return a end,
  46. ["Ff"] = function(parent) return Instance.new("ForceField",parent) end,
  47. ["Sb"] = function(parent,adornee,color)local a = Instance.new("SelectionBox",parent)a.Adornee = adornee
  48. a.Color = brickc.new(color)a.Transparency = .5 end,
  49. ["Fire"] = function(parent) local a = Instance.new("Fire",parent)a.Size = 2 return a end,
  50. ["Smoke"] = function(parent) return Instance.new("Smoke",parent) end,
  51. ["Bpos"] = function(parent,v3) a = Instance.new("BodyPosition",parent)a.maxForce = v3 return a end
  52. },
  53. Extra = {
  54. ["Highlight"]=function(per,color)for i,v in pairs (per:children())do if v:IsA("BasePart")then Keta.Obj.Sb(v,v,color)end end end,
  55. ["Fire"]=function(person)for i,v in pairs (person:children())do if v:IsA("BasePart")then Keta.Obj.Fire(v)end end end,
  56. ["Smoke"]=function(person)for i,v in pairs (person:children())do if v:IsA("BasePart")then Keta.Obj.Smoke(v)end end end,
  57. ["RemoveInst"]=function(per)for i,v in pairs(per:children())do if v:IsA("BasePart")then for _,zing in pairs(v:children())do
  58. if zing:IsA("Fire") or zing:IsA("SelectionBox") or zing:IsA("Smoke") then zing:Destroy() end end end end end,
  59. ["GetColors"] = function(tableq) for i = 0,63,1 do table.insert(tableq,brickc.palette(i).Name)end end,
  60. ["RemoveObj"]=function(loc,typez)for i,v in pairs(loc:children())do if v:IsA(typez) then v:Destroy() end end end
  61. },
  62. ["NameShort"] = function(Said,PersonSaid)
  63. local ReturnPlayerTab = {}
  64. if Said:lower() == "me" then
  65. table.insert(ReturnPlayerTab,PersonSaid)
  66. elseif Said:lower() == "all" then
  67. for _,P in pairs ( Players:GetPlayers() ) do
  68. table.insert(ReturnPlayerTab,P)
  69. end
  70. elseif Said:lower() == "others"then
  71. for _,P in pairs ( Players:GetPlayers() ) do
  72. if P.Name ~= PersonSaid.Name then
  73. table.insert(ReturnPlayerTab,P)
  74. end
  75. end
  76. elseif Said:lower() == "admins" then
  77. for _,P in pairs ( Players:GetPlayers() ) do
  78. for i = 1,#Keta.Settings.Admins do
  79. if P.Name == #Keta.Settings.Admins[i][1] then
  80. table.insert(ReturnPlayerTab,P)
  81. end
  82. end
  83. end
  84.  
  85. else
  86. for _,P in pairs ( Players:GetPlayers() ) do
  87. if string.find(P.Name:lower(),Said:lower()) then
  88. table.insert(ReturnPlayerTab,P)
  89. end
  90. end
  91. end
  92. return ReturnPlayerTab
  93. end,
  94. ["RankGet"] = function(Player)
  95. for i = 1,#Keta.Settings.Admins do
  96. if Keta.Settings.Admins[i][1] == Player.Name then
  97. return Keta.Settings.Admins[i][2]
  98. end
  99. end
  100. end,
  101. ["Ping"] = function(admin,text)
  102. if admin.Character then
  103. local Set = Keta.GetSettings(admin)
  104. local Color = Set[3]
  105. local TableInsert = Set[5]
  106. local Ping = Instance.new("Part",admin.Character)Ping.FormFactor = "Custom"Ping.Size = Vector3.new(2,3,1)
  107. Ping.CFrame = admin.Character.Torso.CFrame Ping.Name = "KetaPing"Ping.BottomSurface = 0 Ping.Transparency = 0
  108. Ping.TopSurface = 0 Ping.CanCollide = true Ping.BrickColor = BrickColor.new(Keta.Settings.MainColor)Ping.Anchored = false
  109. local Sb = Keta.Obj.Sb(Ping,Ping,Color) local Fire = Keta.Obj.Fire(Ping)
  110. local BillG = Instance.new("BillboardGui",Ping)BillG.Size = UDim2.new(1,0,1,0)BillG.Adornee = Ping BillG.StudsOffset = Vector3.new(0,3,0)
  111. local TL = Instance.new("TextLabel",BillG) TL.Size = UDim2.new(1,0,1,0)
  112. TL.BackgroundTransparency = 1 TL.Text = text TL.Font = "ArialBold"
  113. TL.TextColor3 = BrickColor.new("Really black").Color TL.TextStrokeColor3 = BrickColor.new(Color).Color
  114. TL.TextStrokeTransparency = 0 TL.TextXAlignment = Enum.TextXAlignment.Center
  115. TL.TextYAlignment = Enum.TextYAlignment.Center TL.FontSize = Enum.FontSize.Size18
  116. table.insert(TableInsert,Ping)
  117. end
  118. end,
  119. ["GetSettings"] = function(Player)
  120. for i = 1,#Keta.Settings.Admins do
  121. if Keta.Settings.Admins[i][1] == Player.Name then
  122. return Keta.Settings.Admins[i]
  123. end
  124. end
  125. end
  126. }
  127. Keta.Extra.GetColors(Keta.Settings.Colors) -- There will be a "local" settings for the bricks and stuff. :3
  128.  
  129. function FindInTable(tablez,value)
  130. Found = nil
  131. for i,v in pairs(tablez) do
  132. if v == value then
  133. Found = i
  134. end
  135. end
  136. return Found
  137. end
  138.  
  139. function Commands(Msg,Rec)
  140. msg = Msg:lower()
  141. local AdminRank = Keta.RankGet(Rec)
  142. if (msg:sub(1,5) == "reset") then
  143. local Person = Rec
  144. if Person then
  145. Person:LoadCharacter()
  146. end
  147. --[[elseif (msg:sub(1,9) == "reconnect") then
  148. for i = 1,#Keta.Settings.Admins do
  149. if Keta.Settings.Admins[i][4] then
  150. Keta.Settings.Admins[i][4]:Disconnect()
  151. wait()
  152. local Name = Keta.Settings.Admins[i][1]
  153. Keta.Settings.Admins[i][4] = Players[Name].Chatted:connect(function(msg) Commands(msg,Player) end)
  154. print("Reconnected")
  155. end
  156. end]]
  157. end
  158. if AdminRank >=1 then
  159. if (msg:sub(1,5) == "kill ") then
  160. local Tab = Keta.NameShort(msg:sub(6),Rec)
  161. if #Tab ~= 0 then
  162. for Player = 1,#Tab do
  163. local Person = Tab[Player]
  164. if Person and Person.Character then
  165. Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
  166. Person.Character:BreakJoints()
  167. end
  168. if #Tab == 1 then -- Just in case.. :o
  169. break
  170. end
  171. end
  172. end
  173. elseif (msg:sub(1,8) == "respawn ") then
  174. local Tab = Keta.NameShort(msg:sub(9),Rec)
  175. if #Tab ~= 0 then
  176. for Player = 1,#Tab do
  177. local Person = Tab[Player]
  178. if Person then
  179. Person:LoadCharacter()
  180. end
  181. if #Tab == 1 then -- Just in case.. :o
  182. break
  183. end
  184. end
  185. end
  186. elseif (msg:sub(1,8) == "fixchar ") then
  187. local Tab = Keta.NameShort(msg:sub(9),Rec)
  188. if #Tab ~= 0 then
  189. for Player = 1,#Tab do
  190. local Person = Tab[Player]
  191. if Person then print(Person.userId)
  192. Person.CharacterAppearance = "http://www.roblox.com/Asset/CharacterFetch.ashx?userId="..Person.userId.."&placeId="..game.PlaceId
  193. Person:LoadCharacter()
  194. end
  195. if #Tab == 1 then -- Just in case.. :o
  196. break
  197. end
  198. end
  199. end
  200. elseif (msg:sub(1,5) == "heal ") then
  201. local Tab = Keta.NameShort(msg:sub(6),Rec)
  202. if #Tab ~= 0 then
  203. for Player = 1,#Tab do
  204. local Person = Tab[Player]
  205. if Person and Person.Character and Person.Character.Humanoid then -- Just in case. ;3
  206. Person.Character.Humanoid.Health = Person.Character.Humanoid.MaxHealth
  207. -- Keta.Ping(Rec,("Healed "..Person.Name))
  208. Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
  209. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  210. end
  211. if #Tab == 1 then
  212. break
  213. end
  214. end
  215. end
  216. elseif (msg:sub(1,5) == "jump ") then
  217. local Tab = Keta.NameShort(msg:sub(6),Rec)
  218. if #Tab ~= 0 then
  219. for Player = 1,#Tab do
  220. local Person = Tab[Player]
  221. if Person and Person.Character and Person.Character.Humanoid then
  222. Person.Character.Humanoid.Jump = true
  223. Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
  224. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  225. end
  226. if #Tab == 1 then
  227. break
  228. end
  229. end
  230. end
  231. elseif (msg:sub(1,4) == "sit ") then
  232. local Tab = Keta.NameShort(msg:sub(5),Rec)
  233. if #Tab ~= 0 then
  234. for Player = 1,#Tab do
  235. local Person = Tab[Player]
  236. if Person and Person.Character and Person.Character.Humanoid then
  237. Person.Character.Humanoid.Sit = true
  238. Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
  239. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  240. end
  241. if #Tab == 1 then
  242. break
  243. end
  244. end
  245. end
  246. elseif (msg:sub(1,3) == "ps ") then
  247. local Tab = Keta.NameShort(msg:sub(4),Rec)
  248. if #Tab ~= 0 then
  249. for Player = 1,#Tab do
  250. local Person = Tab[Player]
  251. if Person and Person.Character and Person.Character.Humanoid then
  252. Person.Character.Humanoid.PlatformStand = true
  253. Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
  254. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  255. end
  256. if #Tab == 1 then
  257. break
  258. end
  259. end
  260. end
  261. elseif (msg:sub(1,5) == "nbc ") then
  262. local Tab = Keta.NameShort(msg:sub(6),Rec)
  263. if #Tab ~= 0 then
  264. for Player = 1,#Tab do
  265. local Person = Tab[Player]
  266. if Person and Person.Character then
  267. Keta.Extra.Highlight(Person.Character,"White")Keta.Extra.Fire(Person.Character)
  268. Person.MembershipTypeReplicate = 0
  269. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  270. end
  271. if #Tab == 1 then
  272. break
  273. end
  274. end
  275. end
  276. elseif (msg:sub(1,3) == "bc ") then
  277. local Tab = Keta.NameShort(msg:sub(4),Rec)
  278. if #Tab ~= 0 then
  279. for Player = 1,#Tab do
  280. local Person = Tab[Player]
  281. if Person and Person.Character then
  282. Keta.Extra.Highlight(Person.Character,"Bright blue")Keta.Extra.Fire(Person.Character)
  283. Person.MembershipTypeReplicate = 1
  284. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  285. end
  286. if #Tab == 1 then
  287. break
  288. end
  289. end
  290. end
  291. elseif (msg:sub(1,4) == "tbc ") then
  292. local Tab = Keta.NameShort(msg:sub(5),Rec)
  293. if #Tab ~= 0 then
  294. for Player = 1,#Tab do
  295. local Person = Tab[Player]
  296. if Person and Person.Character then
  297. Keta.Extra.Highlight(Person.Character,"Bright yellow")Keta.Extra.Fire(Person.Character)
  298. Person.MembershipTypeReplicate = 2
  299. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  300. end
  301. if #Tab == 1 then
  302. break
  303. end
  304. end
  305. end
  306. elseif (msg:sub(1,4) == "obc ") then
  307. local Tab = Keta.NameShort(msg:sub(5),Rec)
  308. if #Tab ~= 0 then
  309. for Player = 1,#Tab do
  310. local Person = Tab[Player]
  311. if Person and Person.Character then
  312. Keta.Extra.Highlight(Person.Character,"Really black")Keta.Extra.Fire(Person.Character)
  313. Person.MembershipTypeReplicate = 3
  314. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  315. end
  316. if #Tab == 1 then
  317. break
  318. end
  319. end
  320. end
  321. elseif (msg:sub(1,5) == "trip ") then
  322. local Tab = Keta.NameShort(msg:sub(6),Rec)
  323. if #Tab ~= 0 then
  324. for Player = 1,#Tab do
  325. local Person = Tab[Player]
  326. if Person and Person.Character and Person.Character.Torso then -- Just in case. ;3
  327. Person.Character.Torso.CFrame = Person.Character.Torso.CFrame*CFrame.Angles(math.rad(-50),0,0)
  328. Keta.Extra.Highlight(Person.Character,"Bright yellow")Keta.Extra.Fire(Person.Character)
  329. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person.Character)end))
  330. end
  331. if #Tab == 1 then
  332. break
  333. end
  334. end
  335. end
  336. elseif (msg:sub(1,3) == "tp ") then
  337. local End2 = msg:find(" ",4)-- Suprised that you can do " " :3
  338. if End2~=nil then
  339. local Tab1 = Keta.NameShort(msg:sub(4,(End2-1)),Rec)
  340. local Tab2 = Keta.NameShort(msg:sub(End2+1),Rec)
  341. if Tab1 and #Tab1 ~= 0 and Tab2 and #Tab2 ~= 0 then
  342. for Player = 1,#Tab1 do
  343. for Player2 = 1,#Tab2 do
  344. local Person1 = Tab1[Player] local Person2 = Tab2[Player2]
  345. if Person1 and Person2 and Person1.Character.Torso and Person2.Character.Torso then
  346. Keta.Extra.Highlight(Person1.Character,"White")Keta.Extra.Fire(Person1.Character)
  347. Keta.Extra.Highlight(Person2.Character,"Black")Keta.Extra.Fire(Person2.Character)
  348. Person1.Character.Torso.CFrame = Person2.Character.Torso.CFrame*CFrame.new(0,0,2)
  349. cr(cc(function()wait(1.5)Keta.Extra.RemoveInst(Person1.Character)Keta.Extra.RemoveInst(Person2.Character) end))
  350. end
  351. if #Tab1 == 1 or #Tab2 == 1 then
  352. break
  353. end
  354. end
  355. end
  356. end
  357. end
  358. elseif (msg:sub(1,7) == "health ") then
  359. local End2 = msg:find(" ",8)
  360. if End2 ~= nil then
  361. local Tab = Keta.NameShort(msg:sub(8,(End2-1)),Rec)
  362. local Num = tonumber(msg:sub(End2+1))
  363. if Tab and #Tab ~= 0 and type(Num) == "number" then
  364. for Player = 1,#Tab do
  365. local Person = Tab[Player]
  366. if Person and Person.Character.Humanoid then
  367. Keta.Extra.Highlight(Person.Character,"Bright green")Keta.Extra.Fire(Person.Character)
  368. Person.Character.Humanoid.MaxHealth = Num
  369. Person.Character.Humanoid.Health = Num
  370. cr(cc(function()wait(1.5) Keta.Extra.RemoveInst(Person.Character)end))
  371. end
  372. if #Tab == 1 then
  373. break
  374. end
  375. end
  376. end
  377. end
  378. elseif (msg:sub(1,5) == "warp ") then
  379. local End2 = msg:find(" ",6)
  380. if End2 ~= nil then
  381. local Tab = Keta.NameShort(msg:sub(6,(End2-1)),Rec)
  382. local Num = tonumber(msg:sub(End2+1))
  383. if Tab and #Tab ~= 0 and type(Num) == "number" then
  384. for Player = 1,#Tab do
  385. local Person = Tab[Player]
  386. if Person and Person.Character.Torso ~= nil then
  387. Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
  388. Person.Character.Torso.CFrame = Person.Character.Torso.CFrame*CFrame.new(0,0,-Num)
  389. cr(cc(function()wait(1.5) Keta.Extra.RemoveInst(Person.Character)end))
  390. end
  391. if #Tab == 1 then
  392. break
  393. end
  394. end
  395. end
  396. end
  397. elseif (msg:sub(1,3) == "up ") then
  398. local End2 = msg:find(" ",4)
  399. if End2 ~= nil then
  400. local Tab = Keta.NameShort(msg:sub(4,(End2-1)),Rec)
  401. local Num = tonumber(msg:sub(End2+1))
  402. if Tab and #Tab ~= 0 and type(Num) == "number" then
  403. for Player = 1,#Tab do
  404. local Person = Tab[Player]
  405. if Person and Person.Character.Torso ~= nil then
  406. Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
  407. Person.Character.Torso.CFrame = Person.Character.Torso.CFrame*CFrame.new(0,Num,0)
  408. cr(cc(function()wait(1.5) Keta.Extra.RemoveInst(Person.Character)end))
  409. end
  410. if #Tab == 1 then
  411. break
  412. end
  413. end
  414. end
  415. end
  416. elseif (msg:sub(1,5) == "hurt ") then
  417. local End2 = msg:find(" ",6)
  418. if End2 ~= nil then
  419. local Tab = Keta.NameShort(msg:sub(6,(End2-1)),Rec)
  420. local Num = tonumber(msg:sub(End2+1))
  421. if Tab and #Tab ~= 0 and type(Num) == "number" then
  422. for Player = 1,#Tab do
  423. local Person = Tab[Player]
  424. if Person and Person.Character.Humanoid then
  425. Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
  426. Person.Character.Humanoid.Health = Person.Character.Humanoid.Health - Num
  427. cr(cc(function()wait(1.5) Keta.Extra.RemoveInst(Person.Character)end))
  428. end
  429. if #Tab == 1 then
  430. break
  431. end
  432. end
  433. end
  434. end
  435. elseif (msg:sub(1,6) == "smoke ") then
  436. local Tab = Keta.NameShort(msg:sub(7),Rec)
  437. if #Tab ~= 0 then
  438. for Player = 1,#Tab do
  439. local Person = Tab[Player]
  440. if Person and Person.Character.Torso then
  441. Keta.Extra.Smoke(Person.Character)
  442. Keta.Extra.Highlight(Person.Character,"Bright blue")
  443. cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character)Keta.Extra.Smoke(Person.Character) end))
  444. end
  445. if #Tab == 1 then
  446. break
  447. end
  448. end
  449. end
  450. elseif (msg:sub(1,8) == "unsmoke ") then
  451. local Tab = Keta.NameShort(msg:sub(9),Rec)
  452. if #Tab ~= 0 then
  453. for Player = 1,#Tab do
  454. local Person = Tab[Player]
  455. if Person and Person.Character.Torso then
  456. Keta.Extra.RemoveInst(Person.Character)
  457. --[[Keta.Extra.Highlight(Person.Character,"Bright blue")
  458. cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))]]
  459. end
  460. if #Tab == 1 then
  461. break
  462. end
  463. end
  464. end
  465. elseif (msg:sub(1,5) == "fire ") then
  466. local Tab = Keta.NameShort(msg:sub(6),Rec)
  467. if #Tab ~= 0 then
  468. for Player = 1,#Tab do
  469. local Person = Tab[Player]
  470. if Person and Person.Character.Torso then
  471. Keta.Extra.Fire(Person.Character)
  472. Keta.Extra.Highlight(Person.Character,"Bright blue")
  473. cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) Keta.Extra.Fire(Person.Character) end))
  474. end
  475. if #Tab == 1 then
  476. break
  477. end
  478. end
  479. end
  480. elseif (msg:sub(1,7) == "unfire ") then
  481. local Tab = Keta.NameShort(msg:sub(8),Rec)
  482. if #Tab ~= 0 then
  483. for Player = 1,#Tab do
  484. local Person = Tab[Player]
  485. if Person and Person.Character then
  486. Keta.Extra.RemoveInst(Person.Character) wait(.2)
  487. --[[Keta.Extra.Highlight(Person.Character,"Bright blue")
  488. cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))]]
  489. end
  490. if #Tab == 1 then
  491. break
  492. end
  493. end
  494. end
  495. elseif (msg:sub(1,3) == "sb ") then
  496. local Tab = Keta.NameShort(msg:sub(4),Rec)
  497. if #Tab ~= 0 then
  498. for Player = 1,#Tab do
  499. local Person = Tab[Player]
  500. if Person and Person.Character.Torso then
  501. Keta.Extra.Highlight(Person.Character,"Bright blue")
  502. end
  503. if #Tab == 1 then
  504. break
  505. end
  506. end
  507. end
  508. elseif (msg:sub(1,5) == "unsb ") then
  509. local Tab = Keta.NameShort(msg:sub(6),Rec)
  510. if #Tab ~= 0 then
  511. for Player = 1,#Tab do
  512. local Person = Tab[Player]
  513. if Person and Person.Character then
  514. Keta.Extra.RemoveInst(Person.Character)
  515. end
  516. if #Tab == 1 then
  517. break
  518. end
  519. end
  520. end
  521. elseif (msg:sub(1,3) == "ws ") then
  522. local End2 = msg:find(" ",4)
  523. if End2 ~= nil then
  524. local Tab = Keta.NameShort(msg:sub(4,(End2-1)),Rec)
  525. local Num = tonumber(msg:sub(End2+1))
  526. if Tab and #Tab ~= 0 and type(Num) == "number" then
  527. for Player = 1,#Tab do
  528. local Person = Tab[Player]
  529. if Person and Person.Character.Humanoid then
  530. Keta.Extra.Highlight(Person.Character,"Bright blue")Keta.Extra.Fire(Person.Character)
  531. Person.Character.Humanoid.WalkSpeed = Num
  532. cr(cc(function()wait(1.5) Keta.Extra.RemoveInst(Person.Character)end))
  533. end
  534. if #Tab == 1 then
  535. break
  536. end
  537. end
  538. end
  539. end
  540. elseif (msg:sub(1,3) == "ff ") then
  541. local Tab = Keta.NameShort(msg:sub(4),Rec)
  542. if #Tab ~= 0 then
  543. for Player = 1,#Tab do
  544. local Person = Tab[Player]
  545. if Person and Person.Character.Torso then
  546. Keta.Extra.Highlight(Person.Character,"Bright blue")
  547. Keta.Obj.Ff(Person.Character)
  548. cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))
  549. end
  550. if #Tab == 1 then
  551. break
  552. end
  553. end
  554. end
  555. elseif (msg:sub(1,5) == "unff ") then
  556. local Tab = Keta.NameShort(msg:sub(6),Rec)
  557. if #Tab ~= 0 then
  558. for Player = 1,#Tab do
  559. local Person = Tab[Player]
  560. if Person and Person.Character.Torso then
  561. Keta.Extra.Highlight(Person.Character,"Bright blue")
  562. Keta.Extra.RemoveObj(Person.Character,"ForceField")
  563. cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))
  564. end
  565. if #Tab == 1 then
  566. break
  567. end
  568. end
  569. end
  570. end
  571. end
  572. if AdminRank >=2 then
  573. if (msg:sub(1,5) == "kick ") then
  574. local Tab = Keta.NameShort(msg:sub(6),Rec)
  575. if #Tab ~= 0 then
  576. for Player = 1,#Tab do
  577. for i = 1,#Keta.Settings.Admins do
  578. local Person = Tab[Player]
  579. if Person.Name ~= Keta.Settings.Admins[1] then
  580. if Person then -- Just in case. ;3
  581. Person:Destroy()
  582. end
  583. end
  584. if #Tab == 1 then
  585. break
  586. end
  587. end
  588. end
  589. end
  590. elseif (msg:sub(1,4) == "exp ") then
  591. local Tab = Keta.NameShort(msg:sub(5),Rec)
  592. if #Tab ~= 0 then
  593. for Player = 1,#Tab do
  594. local Person = Tab[Player]
  595. if Person and Person.Character.Torso then -- Just in case. ;3
  596. Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
  597. Keta.Obj.Exp(Person.Character,Person.Character.Torso.Position)
  598. cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))
  599. end
  600. if #Tab == 1 then
  601. break
  602. end
  603. end
  604. end
  605. end
  606. end
  607. if AdminRank >=3 then
  608. if (msg:sub(1,4) == "ban ") then
  609. local Tab = Keta.NameShort(msg:sub(5),Rec)
  610. if #Tab ~= 0 then
  611. for Player = 1,#Tab do
  612. for i = 1,#Keta.Settings.Admins do
  613. local Person = Tab[Player]
  614. if Person.Name ~= Keta.Settings.Admins[i] or AdminRank > 4 then
  615. if Person then -- Just in case. ;3
  616. table.insert(Keta.Settings.Ban,Person.Name)
  617. Person:Destroy()
  618. end
  619. end
  620. end
  621. if #Tab == 1 then
  622. break
  623. end
  624. end
  625. end
  626. elseif (msg:sub(1,6) == "unban ") then
  627. if #Keta.Settings.Ban ~= 0 then
  628. for i = 1,#Keta.Settings.Ban do
  629. if string.find(Keta.Settings.Ban[i],msg:sub(7)) then
  630. table.remove(Keta.Settings.Ban,i)
  631. end
  632. end
  633. end
  634. elseif (msg:sub(1,4) == "lag ") then
  635. local Tab = Keta.NameShort(msg:sub(5),Rec)
  636. if #Tab ~= 0 then
  637. for Player = 1,#Tab do
  638. for i = 1,#Keta.Settings.Admins do
  639. local Person = Tab[Player]
  640. if Person.Name ~= Keta.Settings.Admins[1] or AdminRank > 4 then
  641. local Person = Tab[Player]
  642. if Person then
  643. table.insert(Keta.ServerOnlySet.Lag,{Person.Name,true})
  644. cr(cc(function()
  645. while true do wait(.001)
  646. if #Keta.ServerOnlySet.Lag > 0 then
  647. for i = 1,#Keta.ServerOnlySet.Lag do
  648. if Keta.ServerOnlySet.Lag[i][1] == Person.Name and Keta.ServerOnlySet.Lag[i][2] == true then
  649. if Person.PlayerGui~= nil then
  650. Instance.new("Message",Person.PlayerGui).Text=("You are lagging.")
  651. end
  652. else
  653. break
  654. end
  655. end
  656. else
  657. break
  658. end
  659. end
  660. end))
  661. end
  662. end
  663. end
  664. if #Tab == 1 then
  665. break
  666. end
  667. end
  668. end
  669. elseif (msg:sub(1,6) == "unlag ") then
  670. local Tab = Keta.NameShort(msg:sub(7),Rec)
  671. if #Tab ~= 0 then
  672. for Player = 1,#Tab do
  673. local Person = Tab[Player]
  674. if Person then
  675. for i = 1,#Keta.ServerOnlySet.Lag do
  676. if Keta.ServerOnlySet.Lag[i][1] == Person.Name then
  677. Keta.ServerOnlySet.Lag[i][2] = false
  678. Person:LoadCharacter()
  679. end
  680. end
  681. end
  682. if #Tab == 1 then
  683. break
  684. end
  685. end
  686. end
  687. elseif (msg:sub(1,6) == "admin ") then
  688. local Tab = Keta.NameShort(msg:sub(7),Rec)
  689. if #Tab ~= 0 then
  690. for Player = 1,#Tab do
  691. local Person = Tab[Player]
  692. if not FindInTable(Keta.Settings.Admins,Person.Name) then
  693. if Person then
  694. table.insert(Keta.Settings.Admins,{Person.Name,0,"Bright blue",Person.Chatted:connect(function(msg) Commands(msg,Person) end) } )
  695. table.insert(Keta.ServerOnlySet.AdminsOn,Person.Name)
  696. end
  697. if Person.Character then
  698. Keta.Extra.Highlight(Person.Character,"Bright red")Keta.Extra.Fire(Person.Character)
  699. cr(cc(function() wait(1.5) Keta.Extra.RemoveInst(Person.Character) end))
  700. end
  701. end
  702. if #Tab == 1 then
  703. break
  704. end
  705. end
  706. end
  707. elseif (msg:sub(1,5) == "rank ") then
  708. local End2 = msg:find(" ",6)
  709. if End2 ~= nil then
  710. local Tab = Keta.NameShort(msg:sub(6,(End2-1)),Rec)
  711. local Num = tonumber(msg:sub(End2+1))
  712. if Tab and #Tab ~= 0 and type(Num) == "number" then
  713. for Player = 1,#Tab do
  714. local Person = Tab[Player]
  715. for i = 1,#Keta.Settings.Admins do
  716. if Person and Keta.Settings.Admins[i][1] == Person.Name and Num < 3 then
  717. Keta.Extra.Highlight(Person.Character,"White")Keta.Extra.Fire(Person.Character)
  718. Keta.Settings.Admins[i][2] = Num
  719. cr(cc(function()wait(1.5) Keta.Extra.RemoveInst(Person.Character)end))
  720. end
  721. end
  722. if #Tab == 1 then
  723. break
  724. end
  725. end
  726. end
  727. end
  728. elseif (msg:sub(1,4) == "pri ") then
  729. local Qu = msg:sub(5)
  730. if Qu == "on" then
  731. Keta.Settings.PrivateServer = true
  732. for i,v in pairs (Players:GetPlayers()) do
  733. if not FindInTable(Keta.Settings.PriList,v.Name) then
  734. v:Destroy()
  735. --print(v.Name)
  736. end
  737. end
  738. print("Pri on.")
  739. elseif Qu == "off" then
  740. Keta.Settings.PrivateServer = false
  741. print("Pri off.")
  742. elseif Qu == "addlist " then
  743. local Tab = Keta.NameShort(msg:sub(12),Rec)
  744. if #Tab ~= 0 then
  745. local a = false
  746. for Player = 1,#Tab do
  747. if Player then
  748. table.insert(Keta.Settings.PriList,Player.Name)
  749. a = true
  750. end
  751. end
  752. end
  753. if a == false then
  754. table.insert(Keta.Settings.PriList,msg:sub(12))
  755. end
  756. end
  757. end
  758. end
  759. if AdminRank >= 4 then
  760. if (msg:sub(1,8) == "shutdown") then
  761. Instance.new("ManualSurfaceJointInstance",Workspace)
  762. end
  763. end
  764. if AdminRank == 5 then
  765. if (msg:sub(1,8) == "exit all") then
  766. for i = 1,#Keta.Settings.Admins do
  767. if FindInTable(Keta.ServerOnlySet.AdminsOn,Keta.Settings.Admins[i][1]) then
  768. if Keta.Settings.Admins[i][4] then
  769. Keta.Settings.Admins[i][4]:disconnect()
  770. print(Keta.Settings.Admins[i][1])
  771. end
  772. end
  773. end
  774. Var1:disconnect()
  775. Var2:disconnect()
  776. end
  777. end
  778. end
  779.  
  780. function PlayerEntered(Player)
  781. for i = 1,#Keta.Settings.Admins do
  782. if Keta.Settings.Admins[i][1] == Player.Name then
  783. table.insert(Keta.Settings.Admins[i],Player.Chatted:connect(function(msg) Commands(msg,Player) end))
  784. table.insert(Keta.Settings.PriList,Player.Name)
  785. table.insert(Keta.ServerOnlySet.AdminsOn,Player.Name)
  786. end
  787. end
  788. if Keta.Settings.PrivateServer == true then
  789. if not FindInTable(Keta.Settings.PriList,Player.Name) then
  790. Player:Destroy()
  791. return 0;
  792. end
  793. else
  794. if #Keta.Settings.Ban ~= 0 then
  795. for i = 1,#Keta.Settings.Ban do
  796. if Keta.Settings.Ban[i] == Player.Name then
  797. Player:Destroy() -- I <3 Destroy. :3
  798. end
  799. end
  800. end
  801. if #Keta.Settings.Lag ~= 0 then
  802. for i = 1,#Keta.Settings.Lag do
  803. if Keta.Settings.Lag[i] == Player.Name then
  804. cr(cc(function()
  805. while true do wait(.001)
  806. if Person.PlayerGui~= nil then
  807. Instance.new("Message",Person.PlayerGui).Text=("You are being lagged. Sorry. :3")
  808. end
  809. end
  810. end))
  811. end
  812. end
  813. end
  814. end
  815. end
  816.  
  817. for _,Person in pairs (Players:GetPlayers()) do
  818. PlayerEntered(Person)
  819. end
  820. Var1 = Players.PlayerAdded:connect(function(Person)
  821. PlayerEntered(Person)
  822. end)
  823.  
  824. Var2 = Players.PlayerRemoving:connect(function(PlayerRemove)
  825. if Keta.Settings.Admins[1][1] == Player.Name then
  826. if (PlayerRemove.Name == Keta.Settings.Admins[i][2] and Keta.Settings.Admins[i][2] == 5) then
  827. wait(10)
  828. Instance.new("ManualSurfaceJointInstance")
  829. end
  830. end
  831. end)
  832.  
  833. --[[
  834. cr(cc(function() -- Credit to who ever made the book admin.
  835. local radius = 3 + (#Keta.Settings.Admins[i][5])
  836. while wait(.1) do
  837. if #Keta.Settings.Admins[i][5] ~= 0 then
  838. for _, Ping in pairs(#Keta.Settings.Admins[i][5]) do
  839. local Pingz = Keta.Settings.Admins[i][5]
  840. local BP = Ping:FindFirstChild("BodyPosition") or Instance.new("BodyPosition", Ping)
  841. BP.maxForce = Vector3.new(1000000000, 1000000000, 1000000000)
  842. local BG = Ping:FindFirstChild("BodyGyro") or Instance.new("BodyGyro", Ping)
  843. BG.maxTorque = Vector3.new(1000000000, 1000000000, 1000000000)
  844. local Pos = (Player.Character:FindFirstChild("Torso") or Player.Character:FindFirstChild("Torso")).CFrame
  845. local x = math.cos((tonumber(_)/#Pingz - (0.5/#Pingz)) * math.pi) * radius -- cos
  846. local y = 0
  847. local z = math.sin((tonumber(_)/#Pingz - (0.5/#Pingz)) * math.pi) * radius -- sin
  848. BP.position = Pos:toWorldSpace(CFrame.new(x,y,z):inverse()).p
  849. BG.cframe = CFrame.new(Ping.Position, Pos.p) * CFrame.Angles(math.pi/2, 0, 0)
  850. end
  851. else
  852. wait(1)
  853. end
  854. end
  855. end))
  856.  
  857. core =
  858. {
  859. ["localscript"] = function(source, parent)
  860. local info = core.information()
  861.  
  862. if info[1] == 20279777 then -- Oxcool1's SB
  863. newLocalScript(source, parent)
  864. elseif info[1] == 23232804 then -- TheNewScripter's SB
  865. NewLocalScript(source, parent)
  866. end
  867. end,
  868. ["information"] = function()
  869. return {game.PlaceId, game.JobId}
  870. end
  871. }
  872.  
  873. Example:
  874.  
  875. core.localscript("game.Players.LocalPlayer.Character:BreakJoints()", game.Players.NetworkClient:FindFirstChild("Backpack"))
  876. ]]
  877.  
  878. --MediaFire
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!