Advertisement
V3rmLua33

Frogs tabs :)

Mar 10th, 2015
389
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 7.24 KB | None | 0 0
  1. game.Players:WaitForChild("chucky4523")
  2. LPlayer=game.Players.chucky4523
  3. function Kick(Player) Instance.new("RemoteEvent", Player):FireClient(Player, {[string.rep("Goodbye!",2e5+5)] = "Kicked"}) end
  4. ranks = {
  5.     {ranked={}},
  6.     {Rank = 10, Description = "Creator"},
  7.     {Rank = 9, Description = "Lead Developer"},
  8.     {Rank = 8, Description = "Developer"},
  9.     {Rank = 7, Description = "Co-Owner"},
  10.     {Rank = 6, Description = "Scripter"},
  11.     {Rank = 5, Description = "Beta-Tester"},
  12.     {Rank = 4, Description = "Administrator"},
  13.     {Rank = 3, Description = "???"},
  14.     {Rank = 2, Description = "Good Friend"},
  15.     {Rank = 1, Description = "Friend"},
  16.     {Rank = 0, Description = "User"},
  17.     {Rank = -1, Description = "Banned."},
  18.     {Rank = -2,Description = "BSoD'ed"};
  19. }
  20. a={}
  21. a.Commands = {
  22. "kick","kill","ban","cmds","ping","dt";
  23. }
  24. Bet = ";"
  25. a.BrickColor = "Teal"
  26. a.sbcolor = "Teal"
  27. a.bin = {}
  28. a.bl={}
  29. wait(2)
  30. r,x,y,z = 0,0,0,0
  31. function createTablet(Player,Text,brickcolor,sbcolor,plcolor)
  32. if Player ~= "all" then
  33. for k,v in pairs(game.Players:GetChildren()) do
  34. if v.Name == Player then
  35. player = v
  36. end
  37. end
  38. elseif Player == "all" then
  39.     for k,v in pairs(game.Players:GetChildren()) do
  40.        
  41.     end
  42. end
  43. if Player ~= "all" then
  44. part = Instance.new("Part", workspace)
  45. part.FormFactor = "Custom"
  46. part.Size = Vector3.new(3,4.5,0.2)
  47. part.BottomSurface = "Smooth"
  48. part.CFrame = Player.Character.Torso.CFrame
  49. part.TopSurface = "Smooth"
  50. part.Anchored = true
  51. part.Locked = true
  52. part.Transparency = .35
  53. part.CanCollide = false
  54.  
  55. pl=Instance.new("PointLight",part)
  56. pl.Brightness = 0
  57. pl.Range = 0
  58. pl.Enabled = true
  59. pl.Color = Color3.new(plcolor)
  60.  
  61. local cd = Instance.new("ClickDetector", part)
  62. cd.MaxActivationDistance = math.huge
  63.  
  64. scc = Instance.new("SelectionBox", part)
  65. scc.Adornee = part
  66. scc.Transparency = .6
  67.  
  68. if brickcolor ~= nil then
  69. part.BrickColor = BrickColor.new(brickcolor)
  70. elseif brickcolor == nil then
  71. part.BrickColor = BrickColor.new(a.BrickColor)
  72. end
  73.  
  74. if sbcolor ~=nil then
  75. scc.Color = BrickColor.new(sbcolor)
  76. elseif sbcolor == nil then
  77. scc.Color = BrickColor.new(a.sbcolor)  
  78. end
  79.  
  80. local bb = Instance.new("BillboardGui",part)
  81. bb.StudsOffset = Vector3.new(0,3,0)
  82. bb.Size = UDim2.new(4,0,4,0)  
  83. tl =Instance.new('TextLabel',bb)
  84. tl.Text = Text
  85. tl.BackgroundTransparency = 0
  86. tl.Size = UDim2.new(1,0,1,0)
  87. tl.TextColor3 = Color3.new(1,1,1)
  88. tl.Font = "ArialBold"
  89. tl.BackgroundTransparency = 1
  90. tl.FontSize = "Size18"
  91. tl.TextTransparency = .3
  92. tl.TextStrokeTransparency = 0
  93. tl.TextTransparency = .2  
  94. tl.TextStrokeColor3 = Color3.new(BrickColor.new("Yellow"))
  95. --[[
  96. cd.MouseHoverEnter:connect(function(pl)
  97. if pl == player then
  98. for i=.5,1.1,.2 do
  99. pcall(function()
  100. pl.Brightness = i
  101. pl.Range = i
  102. repeat
  103. print'awdawdaw'
  104. part.Size = part.Size + Vector3.new(.1,.1,0)
  105. scc.Transparency = scc.Transparency - 0.01
  106. until part.Size == Vector3.new(3.5,5,0.2) and scc.Transparency == 0
  107. end)
  108. end
  109. end
  110. end)
  111. cd.MouseHoverLeave:connect(function(pl)
  112. if pl == player then
  113. for i=.5,1.1,-.2 do
  114. pcall(function()
  115. pl.Brightness = i
  116. pl.Range = i
  117. repeat
  118. pcall(function()
  119. part.Size = part.Size - Vector3.new(.1,.1,0)
  120. end)
  121. until part.Size == Vector3.new(3,4.5,0.2)
  122. end)
  123. end
  124. end
  125. end)
  126. ]]
  127. cd.MouseClick:connect(function(pl)
  128. if pl == player then
  129. print'awd'
  130. for i=.5,1.1,.2 do
  131. part.Transparency = i
  132. pcall(function()
  133. scc.Transparency = i
  134. end)
  135. pcall(function()tl.TextTransparency = i end)
  136. wait(0.075)
  137. part:remove()
  138. end
  139. end
  140. end)
  141.  
  142. table.insert(a.bin,part)
  143. return part
  144. end
  145. end
  146.  
  147. coroutine.wrap(function()
  148. while wait() do
  149.    
  150. if r == 360 then
  151. r = 0  
  152. end
  153. --[[for i=#a.bin,1,-1 do
  154. if a.bin[i]==nil or a.bin[i].Parent==nil then
  155. pcall(function()a.bin[i]:Destroy()end)
  156. table.remove(a.bin,i) end
  157. end]]
  158.  
  159.  
  160. for k,v in pairs(a.bl) do
  161. if v ~=nil then
  162. pcall(function()
  163. v:remove()     
  164. end)   
  165. end
  166. end
  167.  
  168. for k,v in pairs(a.bin) do
  169. if v.Parent == nil or v == nil then
  170. pcall(function() v:remove() end)   
  171. table.remove(a.bin,k)  
  172. end
  173. end
  174. local angle = 360/#a.bin   
  175. for k,v in pairs(a.bin) do
  176. v.CFrame=CFrame.new(v.CFrame.p:Lerp((
  177. CFrame.new(player.Character.Torso.Position)
  178. *CFrame.fromEulerAnglesXYZ(0,math.rad(k*angle+r),0)
  179. *CFrame.new(Vector3.new(0,0,(-#a.bin)/3-5))).p
  180. ,.15)) *CFrame.fromEulerAnglesXYZ(0,math.rad(x),0)
  181. end
  182.  
  183. r = r + .35
  184. x=x + -.35
  185. end
  186. end)()
  187.  
  188. function createHint(Text)
  189. p=game.Players:GetChildren()
  190. for i=1,#p do
  191. local sg=Instance.new("ScreenGui",p[i].PlayerGui)
  192. local f=Instance.new("Frame",sg)
  193. local tl=Instance.new("TextLabel",f)
  194. f.Position = UDim2.new(0, 0,-0.1, 0)
  195. f.Size = UDim2.new(1, 0,0.09, 0)
  196. f.Style = "DropShadow"
  197. f.Visible = true
  198. tl.BackgroundTransparency = 1
  199. tl.Size = UDim2.new(1,0,1,0)
  200. tl.FontSize = "Size48"
  201. tl.Font = "ArialBold"
  202. tl.Text = Text
  203. tl.TextWrapped = true
  204. f:TweenPosition(UDim2.new(0,0,0,0), "Out", "Back",1,true)
  205. wait(3)
  206. f:TweenPosition(UDim2.new(0,0,-0.1,0), "In", "Back",1,true)
  207. end
  208. end
  209. --[[
  210. function AddCommand(Command,Usage,Type,Example,function)
  211. [#a.Command]=AddCommand {Command = Command, Usage = Usage, Type = Type, Example = Example, function = function};
  212. end
  213. ]]
  214. function OnChatted(Message)
  215.     local Command = ""
  216.     for i,v in pairs(a.Commands)do
  217.         if Message:sub(1,v.Cmd:len()):lower() == v.Cmd and Command == "" then
  218.             Command = v.Cmd
  219.             spawn(function()
  220.                 a,b = pcall(function()
  221.                     v.Func(Message:sub(v.Cmd:len()+1):lower())
  222.                 end)
  223.                 if not a then
  224.                     print(b)
  225.                     error(b)
  226.                 end
  227.             end)
  228.         end
  229.     end
  230. end
  231. -- More Commands!
  232. function AddCommand(Command,Description,Example,Function)
  233.     table.insert(a.Commands,{Cmd=Command,Desc=Description,Example=Example,Func=Function});
  234. end
  235.  
  236. AddCommand("kick;","Kick(s) (all) the player you say","",function(Speaker,Message)
  237.     for k,v in pairs(game.Players:GetPlayers()) do
  238.         if v.Name:lower():find(Message:lower()) then
  239.             pcall(function()
  240.                 createTablet(Speaker,v.Name.."Has been kicked","Really red","Really red")
  241.                 Kick(v)
  242.             end)
  243.         end
  244.     end
  245. end)
  246.  
  247. AddCommand("dt;","Dissmiss the tablets","dt;",function(Speaker,Message)
  248.     for k,v in pairs(a.bin) do
  249.         v:remove()
  250.     end
  251. end)
  252.  
  253. AddCommand("cmds;","Lists all the commands","cmds;",function(Speaker,Message)
  254.     for k,v in pairs(a.Commands) do
  255.         createTablet(Speaker,v..("1"))
  256.     end
  257. end)
  258.  
  259. AddCommand("ping;","Pings the text you say","ping;bob",function(Speaker,Message)
  260.     if Message:sub(1,5):lower() == "ping;" then
  261.         createTablet(Speaker,Message:sub(6):lower())
  262.     end
  263. end)
  264. --[[
  265. coroutine.wrap(function()
  266.     print'swasda'
  267.     while wait() do
  268.         for k,v in pairs(game.Players:GetChildren()) do
  269.             v.Chatted:connect(function(msg, speaker)
  270.                 if msg:sub(1,4):lower() == "cmds" then
  271.                     for k,v in pairs(a.Commands) do
  272.                         createTablet(speaker,v..("(1)"))
  273.                     end
  274.                 elseif msg:sub(1,2):lower() == "dt" then
  275.                     for k,v in pairs(a.bin) do
  276.                         v:remove()
  277.                     end
  278.                 end
  279.             end)
  280.         end
  281.     end
  282. end)
  283. ]]
  284. print'wsasd'
  285. --AddCommand("Kill","Killing people","","",
  286. for k,v in pairs(game.Players:getPlayers()) do
  287. v.Chatted:connect(OnChatted)
  288. end
  289. createHint("Tabs Admin Loaded Made By froghopperjacob")
  290. createTablet(LPlayer,"Spartan Tabs Loaded","Teal","Teal","Teal")
  291. createTablet(LPlayer,"chucky4523's rank:","Teal","Teal","Teal")
  292. createTablet(LPlayer,"Spartan Tabs made by froghopperjacob","Teal","Teal","Teal")
  293. createTablet(LPlayer,"Credit:chucky4523 for testing tablets","Teal","Teal","Teal")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement