Advertisement
Guest User

Untitled

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