Advertisement
Guest User

Cool version

a guest
Jun 17th, 2018
80
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.06 KB | None | 0 0
  1. wait(.2)
  2. whitelist = {game.Players.LocalPlayer.Name,"Fren1","Fren2"} -- put admin names here
  3. banlist = {"noob","noob2"} -- put noob names here
  4. deletepath = game.Players.LocalPlayer.Character:FindFirstChild("Delete")
  5. deletepath2 = game.Players.LocalPlayer.Backpack:FindFirstChild("Delete")
  6. slock = false
  7.  
  8. function newtag(plr)
  9. admintag = Instance.new("BoolValue")
  10. admintag.Parent = game.Players[plr]
  11. admintag.Value = true
  12. admintag.Name = "admin"
  13. print("created admin tag for " .. plr)
  14. end
  15.  
  16. newtag(game.Players.LocalPlayer.Name)
  17.  
  18. game.Players.LocalPlayer.ChildRemoved:connect(function(obj)
  19. if obj.Name == "admin" then
  20. newtag(game.Players.LocalPlayer.Name)
  21. end
  22. end)
  23.  
  24. function adminexe(plr,msg)
  25. if plr:FindFirstChild("admin") then
  26.  
  27. local lower = string.lower(msg)
  28. local len = string.len(lower)
  29.  
  30. if string.find(lower,":kick ") then
  31. local name = string.gsub(lower,":kick ","")
  32. local player = nil
  33.  
  34. if name == "others" then
  35. for i,v in pairs(game.Players:GetChildren()) do
  36. if (not v:FindFirstChild("admin")) and v.Name ~= game.Players.LocalPlayer.Name then
  37. game.Workspace.Delete.delete:FireServer(v)
  38. end
  39. end
  40. else
  41.  
  42. names = game.Players:GetChildren()
  43.  
  44. for i,v in pairs(names) do
  45. strlower = string.lower(v.Name)
  46. sub = string.sub(strlower,1,#name)
  47.  
  48. if name == sub then
  49. player = v
  50. if player.Name ~= game.Players.LocalPlayer.Name then
  51. game.Workspace.Delete.delete:FireServer(player)
  52. end
  53. end
  54. end
  55. end
  56. end
  57.  
  58. if string.find(lower,":ban ") then
  59. local name = string.gsub(lower,":ban ","")
  60. local player = nil
  61. local plrname = nil
  62.  
  63. if name == "others" then
  64. for i,v in pairs(game.Players:GetChildren()) do
  65. if (not v:FindFirstChild("admin")) and v.Name ~= game.Players.LocalPlayer.Name then
  66. plrname = v.Name
  67. table.insert(banlist,(#banlist+1),plrname)
  68. game.Workspace.Delete.delete:FireServer(v)
  69. end
  70. end
  71. else
  72.  
  73. names = game.Players:GetChildren()
  74.  
  75. for i,v in pairs(names) do
  76. strlower = string.lower(v.Name)
  77. sub = string.sub(strlower,1,#name)
  78.  
  79. if name == sub then
  80. plrname = v.Name
  81. player = v
  82.  
  83. if player.Name ~= game.Players.LocalPlayer.Name then
  84. table.insert(banlist,(#banlist+1),plrname)
  85. game.Workspace.Delete.delete:FireServer(player)
  86. end
  87. end
  88.  
  89. end
  90.  
  91.  
  92. end
  93. end
  94.  
  95. if string.find(lower,":unban ") then
  96. local name = string.gsub(lower,":unban ","")
  97. local player = nil
  98. local plrname = nil
  99. local index = nil
  100.  
  101. if name == "all" then
  102.  
  103. for i,v in pairs(banlist) do
  104. table.remove(banlist,i)
  105. end
  106.  
  107. else
  108. names = banlist
  109.  
  110. for i,v in pairs(names) do
  111. strlower = string.lower(v)
  112. sub = string.sub(strlower,1,#name)
  113.  
  114. if name == sub then
  115. table.remove(banlist,i)
  116. end
  117. end
  118. end
  119. end
  120.  
  121. if lower == ":bans" then
  122. print("-------------------------")
  123.  
  124. for i,v in pairs(banlist) do
  125. print("Ban #" .. i .. " Player: " .. v)
  126. end
  127.  
  128. print("-------------------------")
  129. end
  130.  
  131. if lower == ":obby" then
  132. if game.Workspace.Terrain.GameFolder.Workspace.Obby then
  133. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Workspace.Obby)
  134. end
  135. end
  136.  
  137. if lower == ":removeobby" then
  138. if game.Workspace.Terrain.GameFolder.Workspace.Obby then
  139. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Workspace.Obby)
  140. end
  141. end
  142.  
  143. if lower == ":givers" then
  144. if game.Workspace.Terrain.GameFolder.Admin then
  145. local dividers = game.Workspace.Terrain.GameFolder.Workspace:FindFirstChild("Admin Dividers")
  146. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Admin.Pads)
  147. game.Workspace.Delete.delete:FireServer(dividers)
  148. end
  149. end
  150.  
  151. if lower == ":removegivers" then
  152. if game.Workspace.Terrain.GameFolder.Admin then
  153. local dividers2 = game.Workspace.Terrain.GameFolder.Workspace:FindFirstChild("Admin Dividers")
  154. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Admin.Pads)
  155. game.Workspace.Delete.delete:FireServer(dividers2)
  156. end
  157. end
  158.  
  159. if lower == ":regen" then
  160. if game.Workspace.Terrain.GameFolder.Admin then
  161. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Admin.Regen)
  162. end
  163. end
  164. if lower == ":removeregen" then
  165. if game.Workspace.Terrain.GameFolder.Admin then
  166. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Admin.Regen)
  167. end
  168. end
  169.  
  170. if lower == "clear" then
  171. for i,v in pairs(game.Workspace:GetChildren()) do
  172. if v:IsA("Part") then
  173. game.Workspace.Delete.delete:FireServer(v)
  174. end
  175. end
  176. end
  177.  
  178. if lower == ":slock on" then
  179. slock = true
  180. end
  181.  
  182. if lower == ":slock off" then
  183. slock = false
  184. end
  185.  
  186. if string.find(lower,":wl ") then
  187. local name = string.gsub(lower,":wl ","")
  188. local player = nil
  189. local plrname = nil
  190.  
  191. if name == "others" then
  192. for i,v in pairs(game.Players:GetChildren()) do
  193. if (not v:FindFirstChild("admin")) and v.Name ~= game.Players.LocalPlayer.Name then
  194. table.insert(whitelist,(#whitelist+1),v.Name)
  195. newtag(v.Name)
  196.  
  197. v.Chatted:connect(function(msg)
  198. adminexe(v,msg)
  199. end)
  200. end
  201. end
  202. else
  203.  
  204. names = game.Players:GetChildren()
  205.  
  206. for i,v in pairs(names) do
  207. strlower = string.lower(v.Name)
  208. sub = string.sub(strlower,1,#name)
  209.  
  210. if name == sub then
  211. newtag(v.Name)
  212. table.insert(whitelist,(#whitelist+1),v.Name)
  213.  
  214. v.Chatted:connect(function(msg)
  215. adminexe(v,msg)
  216. end)
  217. end
  218. end
  219. end
  220. end
  221.  
  222. if string.find(lower,":unwl ") then
  223. local name = string.gsub(lower,":unwl ","")
  224. local player = nil
  225. local plrname = nil
  226. local index = nil
  227.  
  228. if name == "others" then
  229. for i,v in pairs(whitelist) do
  230. for i,v in pairs(banlist) do
  231. if v ~= game.Players.LocalPlayer.Name then
  232. table.remove(whitelist,i)
  233. end
  234. end
  235.  
  236. if game.Workspace:FindFirstChild(v) then
  237.  
  238. if v.Name ~= game.Players.LocalPlayer.Name then
  239. if v:FindFirstChild("admin") then
  240. v.admin:Destroy()
  241. end
  242. end
  243. end
  244. end
  245. else
  246. names = whitelist
  247.  
  248. for i,v in pairs(names) do
  249. strlower = string.lower(v)
  250. sub = string.sub(strlower,1,#name)
  251.  
  252. if name == sub then
  253. table.remove(whitelist,i)
  254. end
  255. end
  256. end
  257. end
  258.  
  259. if lower == ":wls" then
  260. for i,v in pairs(whitelist) do
  261. print("Player #" .. i .. " Player: " .. v)
  262. end
  263. end
  264.  
  265. if lower == ":ruin" then
  266. house2 = game.Workspace.Terrain.GameFolder.Workspace:FindFirstChild("Simple House")
  267. house = house2:GetChildren()
  268. for i=1,#house,3 do
  269. game.Workspace.Delete.delete:FireServer(house[i])
  270. end
  271.  
  272. end
  273.  
  274. if lower == ":barriers" then
  275. if game.Workspace.Terrain.GameFolder.Workspace then
  276. epicheskiy = game.Workspace.Terrain.GameFolder.Workspace:FindFirstChild("Obby Box")
  277. game.Workspace.Delete.delete:FireServer(epicheskiy)
  278. end
  279. end
  280.  
  281. if lower == ":removebarriers" then
  282. if game.Workspace.Terrain.GameFolder.Workspace then
  283. epicheskiy = game.Workspace.Terrain.GameFolder.Workspace:FindFirstChild("Obby Box")
  284. game.Workspace.Delete.delete:FireServer(epicheskiy)
  285. end
  286. end
  287.  
  288. if lower == ":baseplate" then
  289. if game.Workspace.Terrain.GameFolder.Workspace.Baseplate then
  290. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Workspace.Baseplate)
  291. end
  292. end
  293.  
  294. if lower == ":removebaseplate" then
  295. if game.Workspace.Terrain.GameFolder.Workspace.Baseplate then
  296. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Workspace.Baseplate)
  297. end
  298. end
  299.  
  300. if lower == ":removehouse" then
  301. if game.Workspace.Terrain.GameFolder.Workspace then
  302. epicheskiy2 = game.Workspace.Terrain.GameFolder.Workspace:FindFirstChild("Basic House")
  303. game.Workspace.Delete.delete:FireServer(epicheskiy2)
  304. end
  305. end
  306. if lower == ":house" then
  307. if game.Workspace.Terrain.GameFolder.Workspace then
  308. epicheskiy2 = game.Workspace.Terrain.GameFolder.Workspace:FindFirstChild("Basic House")
  309. game.Workspace.Delete.delete:FireServer(epicheskiy2)
  310. end
  311. end
  312.  
  313. if lower == ":breakgame" then
  314. if game.Workspace.Terrain then
  315. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Workspace)
  316. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Admin)
  317. end
  318. end
  319.  
  320. if lower == ":endme" then
  321. if game.Players.LocalPlayer then
  322. game.Workspace.Delete.delete:FireServer(game.Players.LocalPlayer)
  323. end
  324. end
  325.  
  326. if lower == ":removegame" then
  327. if game.Workspace.Terrain then
  328. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Workspace)
  329. game.Workspace.Delete.delete:FireServer(game.Workspace.Terrain.GameFolder.Admin)
  330. end
  331. end
  332.  
  333. if lower == ":clear" then
  334. for i,v in pairs(game.Workspace:GetChildren()) do
  335. if not v:IsA("Model") or not v:IsA("Camera") or not v:IsA("Terrain") then
  336. game.Workspace.Delete.delete:FireServer(v)
  337. end
  338. end
  339. end
  340.  
  341. if string.find(lower,":cmds") then
  342. print("----------------COMMANDS-------------------")
  343. print("Selection options: Full Player Name, Abrreviated, Others")
  344. print('Example: ":ban others"')
  345. print()
  346. print(":cmds - I wonder what this does.")
  347. print(":ban - Prevents user from rejoining the server.")
  348. print(":unban -can use :unban all")
  349. print(":bans - Shows bans in console")
  350. print(":slock on - Turns serverlock on")
  351. print(":slock off - Turns server lock off")
  352. print(":kick - Removes player from the game")
  353. print(":wl")
  354. print(":unwl")
  355. print(":wls -outputs to console (F9)")
  356. print(":jumps - Removes obby at the start. (removejumps also works.)")
  357. print(":givers - Removes admin givers. (:removegivers also works.)")
  358. print(":clear --removes parts placed by players (Re-do the script after you run this. Also, use the respawn command to get unstuck.)")
  359. print(":ruin - ruins the house")
  360. print(":removehouse - removes house")
  361. print(":baseplate - Removes baseplate. (:removebaseplate also works.)")
  362. print(":barriers - Removes barriers around spawn (:removebarriers also works.)")
  363. print(":breakgame - Breaks everything. (:removegame also works incase you got used to the remove commands.)")
  364. print(":endme - Kicks you from the game. What an emo.")
  365. print()
  366. print('Executing "kick others/etc." wont kick those whitelisted, but if you single them out it will')
  367. print('If a user is whitelisted he/she will not be able to see commands on their screen with :cmds,')
  368. print('and the same goes for :bans and :wls, since the game is filtering enabled, however they will')
  369. print('be able to use commands if whitelisted')
  370. print('You can not be unwhitelisted or banned / kicked')
  371. print("-------------------------------------------")
  372. print("Made ALL BY BATH SALTYBOY")
  373. print("-------------------------------------------")
  374.  
  375.  
  376. end
  377. end
  378. end
  379.  
  380. game.Players.LocalPlayer.Chatted:connect(function(msg)
  381. adminexe(game.Players.LocalPlayer,msg)
  382. end)
  383.  
  384. if deletepath then
  385. game.Players.LocalPlayer.Character.Delete.CanBeDropped = true
  386.  
  387. drop = Instance.new("BillboardGui")
  388. drop.Parent = game.Players.LocalPlayer.PlayerGui
  389.  
  390. droplbl = Instance.new("TextLabel")
  391. droplbl.Parent = drop
  392. droplbl.Text = "Drop the delete tool to initialize commands"
  393. droplbl.BackgroundTransparency = 1
  394. droplbl.TextColor3 = Color3.new(200,0,0)
  395. droplbl.TextScaled = true
  396. droplbl.Size = UDim2.new(0,150,0,30)
  397. droplbl.Position = UDim2.new(0,400,0,400)
  398.  
  399. wait(2)
  400.  
  401. drop:Destroy()
  402. end
  403.  
  404. if deletepath2 then
  405. game.Players.LocalPlayer.Backpack.Delete.CanBeDropped = true
  406.  
  407. drop = Instance.new("BillboardGui")
  408. drop.Parent = game.Players.LocalPlayer.PlayerGui
  409.  
  410. droplbl = Instance.new("TextLabel")
  411. droplbl.Parent = drop
  412. droplbl.Text = "Drop the delete tool to initialize commands"
  413. droplbl.BackgroundTransparency = 1
  414. droplbl.TextColor3 = Color3.new(200,0,0)
  415. droplbl.TextScaled = true
  416. droplbl.Size = UDim2.new(0,150,0,30)
  417. droplbl.Position = UDim2.new(0,400,0,400)
  418.  
  419. wait(2)
  420.  
  421. drop:Destroy()
  422. end
  423.  
  424. game.Players.LocalPlayer.Backpack.ChildAdded:connect(function(tool)
  425. if tool.Name == "Delete" then
  426. wait(.1)
  427. tool.CanBeDropped = true
  428.  
  429. drop = Instance.new("BillboardGui")
  430. drop.Parent = game.Players.LocalPlayer.PlayerGui
  431.  
  432. droplbl = Instance.new("TextLabel")
  433. droplbl.Text = "Drop the delete tool to initialize commands"
  434. droplbl.BackgroundTransparency = 1
  435. droplbl.Parent = drop
  436. droplbl.TextColor3 = Color3.new(200,0,0)
  437. droplbl.TextScaled = true
  438. droplbl.Size = UDim2.new(0,150,0,30)
  439. droplbl.Position = UDim2.new(0,400,0,400)
  440.  
  441. wait(2)
  442.  
  443. drop:Destroy()
  444. end
  445. end)
  446.  
  447. function start(plr)
  448.  
  449. local found = false
  450. local banned = false
  451.  
  452. for i=1,#whitelist do
  453. if plr.Name == (whitelist[i]) then
  454. found = true
  455. end
  456. end
  457.  
  458. for i=1,#banlist do
  459. if plr.Name == banlist[i] then
  460. banned = true
  461. end
  462.  
  463. if banned == true then
  464. game.Workspace.Delete.delete:FireServer(plr)
  465. end
  466. end
  467. if found == false and slock == true then
  468. game.Workspace.Delete.delete:FireServer(plr)
  469. end
  470.  
  471. if found == true then
  472. newtag(plr.Name)
  473. plr.Chatted:connect(function(msg)
  474. adminexe(plr,msg)
  475. end)
  476. end
  477. end
  478. game.Players.PlayerAdded:connect(function(plr)
  479. start(plr)
  480. end)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement