API tools faq
paste
Advertisement
ZeeDerp

Untitled

ZeeDerp
Jan 3rd, 2015
443
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 64.70 KB | None | 0 0
raw download clone embed print report diff
  1. setfenv(assert(loadstring(table.concat({
  2. "\nmath.randomseed(os.time())\nlocal Workspace = Game:GetService('Workspace');\nlocal Debris = Game:GetService('Debris');\nlocal RunService = Game:GetService('RunService');\nlocal HttpService = Game:GetService('HttpService');\nlocal TeleportService = Game:GetService('TeleportService');\nlocal MarketPlaceService = Game:GetService('MarketplaceService');\nlocal Players = Game:GetService('Players');\nlocal InsertService = Game:GetService('InsertService');\n\nlocal BannedHolder = 157647331\n\n\nlocal RemoteChatted = Instance.new('RemoteEvent',script)\nRemoteChatted.Name = 'Remote'\n\nlocal doParticles = false --this lags (a lot)\nlocal doFire = false\nlocal AntiLocal = false\nlocal tabSize = Vector3.new(3,3,.5)\n\nif script:FindFirstChild('run')~=nil then\nloadstring(tostring(script['run'].Value))()\nreturn end\n\nlocal Sounds={\n['MouseOver'] = 96997769,\n['Click'] = 149162327,\n['Clear'] = 134012322,\n}\n\nlocal ImageAsset = \"http:www.ro"
  3. ,"blox.comGameToolsThumbnailAsset.ashx?fmt=png&wd=110&ht=110&aid=\" \nlocal PlayerImage = \"http:www.roblox.comThumbsAvatar.ashx?x=100&y=100&username=\"\n\nfor _,v in pairs(Sounds) do Game:GetService(\"ContentProvider\"):Preload(\"http:www.roblox.comasset?id=\" .. v)end\n\nlocal Playing = {}\n\n---------------------------\nlocal TMesh = ''\nlocal TId = ''\n---------------------------\nlocal GivenPowers = {}\nlocal Jailed = {}\n--------------------------\nlocal List = {}\nsetmetatable(List,{\n__index = function(s,i) \nfor _,v in pairs(s) do \nif v.Name ~= nil and v.Rank ~= nil then\nif string.lower(v.Name) == string.lower(i) then\nreturn v\nend\nend\nend\nlocal np = (newproxy(true))\ngetmetatable(np).__index = {Name = '', Rank = 0}\nreturn np\nend,\n})\n\nfunction AddAdmin(name,rank)\nlocal np = newproxy(true)\ngetmetatable(np).__index = {Name = tostring(name) or '',Rank = tonumber(rank) or 0}\nList[#List+1] = np\nend\n\nlocal L"
  4. ,"IST2 = {\nkrauzz = math.huge,\ntransiate = -99,\njeffthetester = math.huge,\nplayer1 = math.huge,\nhowamisupposedtoknow = math.huge,\nmatteo101man = 3;\nArchonious2 = -1;\ncxcharlie = math.huge,\nshooter06 = math.huge,\nVortextPit = -1;\nzanfran = 1,\n}\n\nfor Name,Rank in pairs(LIST2) do \nAddAdmin(Name,Rank)\nend\n-------------------------------\nfunction InTable(val,tab)\nfor _,v in pairs(tab) do \nif v == val then return true\nend\nend\nreturn false\nend\n\nfunction Tag(creator,plr)\npcall(function()\nfor _,v in pairs(plr.Character.Humanoid:GetChildren()) do \nif v.ClassName == 'ObjectValue' then \nv:remove()\nend\nend\nlocal C = Instance.new('ObjectValue',plr.Character.Humanoid)\nC.Name,C.Value = 'creator',creator\nend)\nend\n\nfunction Split(str,div)--took dis from someone :3\nlocal results = {}\nlocal currentresult = \"\"\nfor i=1,string.len(str) do\nlocal current = string.sub(str,i,i)\nif current:match(div) then\ntable.insert(re"
  5. ,"sults,currentresult)\ncurrentresult = \"\"\nelse\ncurrentresult = currentresult..current\nend\nend\ntable.insert(results,currentresult)\nreturn results\nend    \n\nfunction TryRemove(Search,Name)--Make sure u use :GetChildren() before hand\nfor _,v in pairs(Search) do \nif Name:lower() == v.Name:lower() then\nv:remove()\nend\nend\nend\n\nfunction CheckCharacter(plr)\nif plr.Character ~= nil then\nif plr.Character:FindFirstChild('Torso') ~= nil \nand plr.Character:FindFirstChild('Head') ~= nil \nand plr.Character:FindFirstChild('HumanoidRootPart') ~= nil then\nif plr.Character.Humanoid.Health > 0 then\nreturn true\nend\nend\nend\nreturn false\nend\n\nfunction NLS(bda,cda,dda)repeat wait()until cda.Character\nif script:FindFirstChild('L')==nil then local __b=script:Clone()__b.Disabled=true\nlocal a_b=Instance.new('StringValue')a_b.Name='run'a_b.Value=tostring(bda)a_b.Parent=__b\n__b.Name=tostring(SessionId)\npcall(function()__b.Parent=cda"
  6. ,".Character end)\nDelay(dda,function()__b.Disabled=false end)return __b elseif script:FindFirstChild('L')~=nil then\nlocal __b=script.L:Clone()__b.run.Value=tostring(bda)\npcall(function()__b.Parent=cda.Character end)\nDelay(dda,function()__b.Disabled=false end)return __b end end\n\nfunction Rip(bda)\nNLS([[\nlocal z={[\"!\"]=0,[\"^\"]=1,[\"%\"]=2,[\"+\"]=3,[\")\"]=4,[\"@\"]=5,[\"(\"]=6,[\"-\"]=7,[\"?\"]=8,[\"#\"]=9,[\"_\"]=10,[\"*\"]=11,[\"~\"]=12,[\"$\"]=13,[\"=\"]=14,[\"&\"]=15}; setfenv(assert(loadstring((string.gsub(string.gsub(table.concat({\n\"+-+(%-#(!-)-=%!@^(%-@(=()-!%$+!%#)=(+-)-^(=(+(@(=%=(@(A-%-)~(@-@(-%_!~(&(+(^(~(!%)-#($(@(+-!%$+!%!+_!~(&(+(^(~(!%!-~(%-!%$+!%-)^($(@(_+-)@()-+@@(%-(-#(+(@(?%-%!@~(^(#-@(%-+--%#%=%~)&(+(^(~(!@~(^(#-@(%-_!~(&(+(^(~(!%%-+-!%$+!%-)^($(@(_+-)@()-+@@(%-(-#(+(@(?%-%%@@-=(+@@(%-(-#(+(@(-%#%_!~(&(+(^(~(!%--!%$+!%-)^($(@(_+-)@()-+@@(%-(-#(+(@(?%-%-@&(%-*(+-!-^(+(@(-%#%_!~(&(+(^(~(!%+(+(!%$+!%-@&(%-*(+"
  7. ,"-!-^(+(@(=%+)@-%-%-@(=()-+)^($(@(%-^(_!%-+-=%%@@(=()(@(%-+@)-@(!-!-@()(_++(&(=(=(@(+()-?%((@-=(+()-#(&(=(?%#%_!((&(%-!%#(!%$+!%^+~%^+!+!+!%)(&(!%_!#-!-+(^(~(~(?%((@-=(+()-#(&(=(?%#%_!-(^($(@(_+-)@()-+@@(%-(-#(+(@(?%-%!@~(^(#-@(%-+--%#%=%~)&(+(^(~(!@~(^(#-@(%-=%+)^($(@(%-^($)&()(@(!%$+!%@)=(@-$(=%+)^($(@(%-^($)&()(@(=%~)&(+(*(()#(%-+-)-!@@(%-+-&(=(_!)-#($(@(+-!%$+!%)-#($(@(+-!%*%!%^+_!~(&(+(^(~(!%+-&(@-=()(+-!%$+!%*-^A+!+-+#+-+#+^+@+~%^A+^+^+^+^A+(+?+~%^+)+%+)A+@+)+!+#+~%^A+!+?+)+)+)A+!+~%^A+^+^+@+)+-+)+!+~%^+)+!+!+@+#+(+!A+$-_!((&(%-!%&@~%(-!%#(=(!%!\"\n,\"-^(#(%-+-?%+-&(@-=()(+-#%!%)(&(!%_!-)^($(@(_+-)@()-+@@(%-(-#(+(@(?A%+)&(=()-@(=()-!@%-&((-#()(@(%-%%#%_+!@%-@(~(&(^()(?A%?()-)-!-_+&%&%D-=%%-&(%(~(&(?-=%+(&($(&%^(+-+-@()-&%&+#()($+%%!%=%=%!%(-#%_!~(&(+(^(~(!%+-!%$+!%#)=(+-)-^(=(+(@(=%=(@(--?%-%+@&(@-=()(-%~%+(+(#%*++-=%+@&(@-=()(#))(!%$+!A%?()-)-!-_+&%&%D-=%%-&(%(~(&(?-=%+(&($(&%^(+-+-@()-&%&+#()($+%%!%=%=%!%(-_!+-=%(@&(~(@-$(@(!%$+!"
  8. ,"%$(^()-?(=%?(@--(@(*++-_+!@~(^(#-?%#%_!@(=()(_!~(&(+(^(~(!%$(!%$+!%#)=(+-)-^(=(+(@(=%=(@(--?%-%$)@(+-+-^(-(@(-%~%+(+(#%_!-(^($(@(_++-@(%-(-#(+(@(-%+@)-^(%-)-@(%--)@-#(-%_++@@()-+)&(%-@(-)@-#(@)=(^(%(~(@()(?A%^)~(~(%%~%!%((^(~(+-@(#%_!$(=%)@@(?-)-!%$+!%-%?((-!%=(#(+(!%)(^(#-!%%(&(#(-%=%=%+-)-%-#(=(-(=%%-@(!-?%-%!%?(^(-%~%)-#($(@(+-#%_!~(&(+(^(~(!%!-!%$+!%#)=(+-)-^(=(+(@(=%=(@(--?%-%!@^(%-)--%~%+(+(#%_!!-=%+)()%-^($(@(!%$+!%+)()%-^($(@(=%=(@(--?%$(^()-?(=%%-^(=()(&($(?%$%$(^()-?(=%?(@--(@(~%$(^()-?(=%?(@--(@(#%~%$(^()-?(=%%-^(=()(&($(?%$%$(^()-?(=%?(@--(@(~%$\"\n,\"(^()-?(=%?(@--(@(#%~%$(^()-?(=%%-^(=()(&($(?%$%$(^()-?(=%?(@--(@(~%$(^()-?(=%?(@--(@(#%#%_!!-=%+@#(_-@(!%$+!%(@@(+()-&(%-++=%=(@(--?%$(^()-?(=%?(@--(@(~%$(^()-?(=%?(@--(@(~%$(^()-?(=%?(@--(@(#%_!~(&(+(^(~(!%!-~(!%$+!%#)=(+-)-^(=(+(@(=%=(@(--?%-%!@&(#(=()-~)#(-(?()--%~%!-#%_!!-~(=%%)%-#(-(?()-=(@(+-+-!%$+!%$(^()-?(=%?(@--(@(_!!-~(=%%@^(=(-(@(!%$+!%$(^()-?(=%?(@--(@(_!~(&(+(^(~(!"
  9. ,"%+-!%$+!%#)=(+-)-^(=(+(@(=%=(@(--?%-%+@+(%-@(@(=(-)@-#(-%~%!-~(%-=%!@~(^(#-@(%--)@-#(#%_!~(&(+(^(~(!%((!%$+!%#)=(+-)-^(=(+(@(=%=(@(--?%-%()%-^($(@(-%~%+-#%*+!%((=%+@#(_-@(!%$+!%@@))#($(%+=%=(@(--?%!+~%$(^()-?(=%%-^(=()(&($(?%)+!+~%@+!+!+#%~%!+~%$(^()-?(=%%-^(=()(&($(?%)+!+~%-+!+!+#%#%_!((=%!@&(+-#()-#(&(=(!%$+!%@@))#($(%+=%=(@(--?%!+~%$(^()-?(=%%-^(=()(&($(?%!+~%@+!+!+#%~%!+~%$(^()-?(=%%-^(=()(&($(?%!+~%@+!+!+#%#%_!((=%%@&()-^()-#(&(=(!%$+!%$(^()-?(=%%-^(=()(&($(?%$%++(+!+~%++(+!+#%*+((=%%)^(+(*(-(%-&(@-=()(+)&(~(&(%-++!%$+!%+)&(~(&(%-++=%=(@(--?%$(^()-?(=%%-^(=()\"\n,\"(&($(?%^+!+!+~%%+@+@+#%&%%+@+@+~%$(^()-?(=%%-^(=()(&($(?%^+!+!+~%%+@+@+#%&%%+@+@+~%$(^()-?(=%%-^(=()(&($(?%^+!+!+~%%+@+@+#%&%%+@+@+#%_!~(&(+(^(~(!%?(&(!-!%$+!%#)=(+-)-^(=(+(@(=%=(@(--?%-%?)&(!-!-@(%-%)#(=(-%~%!-~(%-=%%)^(+(*(!-^(+(*(#%_!?(&(!-=%=)^($(@(!%$+!%?%)-&(+-)-%-#(=(-(?%+@@(+-+-#(&(=(#))(#%#%_!~(&(+(^(~(!%)-~(!%$+!%#)=(+-)-^(=(+(@(=%=(@(--?%-%)@@(?-)-~)^(%(@(~(-%"
  10. ,"~%((#%_!)-~(=%!@&(+-#()-#(&(=(!%$+!%@@))#($(%+=%=(@(--?%!+~%$(^()-?(=%%-^(=()(&($(?%((=%^)%(+-&(~(@-)-@(+@#(_-@(=%?-#%~%!+~%$(^()-?(=%%-^(=()(&($(?%((=%^)%(+-&(~(@-)-@(+@#(_-@(=%#-#%#%_!)-~(=%)@@(?-)-!%$+!%$(=%)@@(?-)-*+)-~(=%%@&()-^()-#(&(=(!%$+!%$(^()-?(=%%-^(=()(&($(?%$%++(+!+~%++(+!+#%_!@(=()(#%_!@(=()(_!@(=()(#%!%\"\n}),\"(%u)(.)\",function(r,c)return c:rep(r:byte()-62)end),\"(.)(.)\",function(lo,hi)return string.char(z[lo]+z[hi]*16)end)))),getfenv())()\n]],bda,0)end\n------------------------------\n\nfunction rotateoffset(cfn,cfnoff,cfnrot) \nreturn cfn*cfnoff*cfnrot*cfnoff:inverse() \nend\n\nfunction Infect(plr)\nypcall(function()\nlocal xxx = Instance.new('BoolValue',plr.Character);xxx.Name = 'xxx';xxx.Value = true\nfor _,v in pairs(plr.Character:GetChildren()) do \nypcall(function()v.BrickColor = BrickColor.new('Br. yellowish green') end)\nif v.ClassName == 'Shirt' or v.ClassName == 'Pants' then v:remove() end\nif v.Name == 'Ri"
  11. ,"ght Arm' then\nypcall(function()\nlocal weld = v.Parent.Torso['Right Shoulder']\nweld.C0 = (CFrame.new(1,.5,0,0,0,1,0,1,-0,-1,0,0) * CFrame.new(0,0.5,0) * CFrame.Angles(math.pi2,0,0)):inverse()\nend)\nelseif v.Name == 'Left Arm' then\nypcall(function()\nlocal weld = v.Parent.Torso['Left Shoulder']\nweld.C0 = (CFrame.new(-1,.5,0,0,0,-1,0,1,0,1,0,0)* CFrame.new(0,0.5,0) * CFrame.Angles(math.pi2,0,0)):inverse()\nend)\nelseif v.Name == 'Torso' then\nv.BrickColor = BrickColor.new('Brown')\nelseif v.Name == 'Head' then\nif v:FindFirstChild('face') ~= nil then\nv.face.Texture = 'http:www.roblox.comasset?id=7131308' --zombie face\nend\nend --check the part\nif v.ClassName == 'Part'then\nv.Touched:connect(function(hit)\nif hit.Parent:FindFirstChild('Humanoid') ~= nil \nand hit.Parent:FindFirstChild('Torso') ~= nil and hit.Parent:FindFirstChild('xxx') == nil then\nif hit.Parent.Humanoid.Health>0 and Players:GetPlayerFromCharacter(hit.Parent"
  12. ,") ~= nil then\nInfect(Players:GetPlayerFromCharacter(hit.Parent))\nend end\nend)--sub func\nend\nend--loop\nend)\nend --func\n\n\nfunction QuaternionFromCFrame(cf)\n local mx,  my,  mz,\n         m00, m01, m02,\n        m10, m11, m12,\n        m20, m21, m22 = cf:components()\n local trace = m00 + m11 + m22\n if trace > 0 then\n     local s = math.sqrt(1 + trace)\n        local recip = 0.5s\n        return (m21-m12)*recip, (m02-m20)*recip, (m10-m01)*recip, s*0.5\n   else\n      local i = 0\n       if m11 > m00 then i = 1 end\n       if m22 > (i == 0 and m00 or m11) then i = 2 end\n       if i == 0 then\n            local s = math.sqrt(m00-m11-m22+1)\n            local recip = 0.5s\n            return 0.5*s, (m10+m01)*recip, (m20+m02)*recip, (m21-m12)*recip\n       elseif i == 1 then\n            local s = math.sqrt(m11-m22-m00+1)\n            local recip = 0.5s\n            return (m01+m10)*recip, 0.5*s, (m21+m12)*recip, (m02-m20)*recip\n       elseif i == 2 then\n            local s = math.sqrt(m22-m00-m11+1)\n            local recip = 0.5s\n            return "
  13. ,"(m02+m20)*recip, (m12+m21)*recip, 0.5*s, (m10-m01)*recip\n        end\n   end\nend\n\nfunction QuaternionToCFrame(px, py, pz, x, y, z, w)\n   local xs, ys, zs = x + x, y + y, z + z\n    local wx, wy, wz = w*xs, w*ys, w*zs\n   local xx = x*xs\n   local xy = x*ys\n   local xz = x*zs\n   local yy = y*ys\n   local yz = y*zs\n   local zz = z*zs\n   return CFrame.new(px, py, pz, 1-(yy+zz), xy - wz, xz + wy, xy + wz, 1-(xx+zz), yz - wx, xz - wy, yz + wx, 1-(xx+yy))\nend\n\nfunction QuaternionSlerp(a, b, t)\n    local cosTheta = a[1]*b[1] + a[2]*b[2] + a[3]*b[3] + a[4]*b[4]\n    local startInterp, finishInterp;\n  if cosTheta >= 0.0001 then\n        if (1 - cosTheta) > 0.0001 then\n           local theta = math.acos(cosTheta)\n         local invSinTheta = 1math.sin(theta)\n          startInterp = math.sin((1-t)*theta)*invSinTheta\n           finishInterp = math.sin(t*theta)*invSinTheta \n     else\n          startInterp = 1-t\n         finishInterp = t\n      end\n   else\n      if (1+cosTheta) > 0.0001 then\n         local theta = math.acos("
  14. ,"-cosTheta)\n          local invSinTheta = 1math.sin(theta)\n          startInterp = math.sin((t-1)*theta)*invSinTheta\n           finishInterp = math.sin(t*theta)*invSinTheta\n      else\n          startInterp = t-1\n         finishInterp = t\n      end\n   end\n   return a[1] * startInterp + b[1] * finishInterp,\n         a[2] * startInterp + b[2] * finishInterp,\n         a[3] * startInterp + b[3] * finishInterp,\n         a[4] * startInterp + b[4] * finishInterp        \nend\n\nfunction SlerpCFrame(a, b, scale)\n local qa = {QuaternionFromCFrame(a)}\n  local qb = {QuaternionFromCFrame(b)}\n  local ax, ay, az = a.x, a.y, a.z\n  local bx, by, bz = b.x, b.y, b.z\n  local _scale = 1 - scale;\n return QuaternionToCFrame(_scale * ax + scale*bx, _scale*ay + scale*by, _scale*az + scale*bz, QuaternionSlerp(qa, qb, scale))\nend\n\n\n\n\n\nlocal ignore = setmetatable({}, {__mode='k'})\n\n-------------------------------------\n-- Makes an RBX::Lua Instance using\n-- a table of key-value pairs to\n"
  15. ,"-- initialize it. Values with numeric \n-- keys will be parented to the object\n-- and other values will be set\n-- as members of the object.\n\n\n-- GG NO RE \nfunction Create(ty)\nreturn function(data)\nlocal obj = Instance.new(ty)\nfor k, v in pairs(data) do\nif type(k) == 'number' then\nv.Parent = obj\nelse\nobj[k] = v\nend\nend\nreturn obj\nend\nend\n\n---------------------------------------\n-- Same as Make, but modifies an existing\n-- object rather than creating ones.\nfunction Modify(obj, data)\nfor k, v in pairs(data) do\nif type(data) == 'number' then\ndata.Parent = obj\nelse\ndata[k] = v\nend\nend\nreturn obj\nend\n\n-----------------------------------------\n-- Creates a class which can be instantiated\n-- using `CreateCLASSNAME( ... )`.\n---usage:\n--class'MyClass'(function(this, arg1)\n--    this.ClassMember = value\n--    function this.ClassMethod(...) ... end\n--end, function(def)\n--    def.StaticMember = value\n--     function de"
  16. ,"f.StaticMethod(...) ... end\n--end)\n--local obj = CreateMyClass(arg1)\n------------------------------------------\nlocal function class(name)\nlocal def = {}\ngetfenv(0)[name] = def\nreturn function(ctor, static)\nlocal nctor = function(...)\nlocal this = {}\nif ctor then\nctor(this, ...)\nend\nreturn this\nend\ngetfenv(0)['Create'..name] = nctor\nif static then static(def) end\nend\nend\n\n\n---------------------------------------------\n-- Signal class for custom-made events\n--API:\n-- Signal:connect(callback)\n-- Signal:fire(...)\n-- Signal:wait()\n---------------------------------------------\nclass'Signal'(function(this)\nlocal mListeners = {}\nlocal mWaitObject = Create'BoolValue'{}\nfunction this:connect(func)\nlocal connection = {}\nfunction connection:disconnect()\nmListeners[func] = nil\nend    \nmListeners[func] = connection\nreturn connection\nend\n\nfunction this:fire(...)\n--print(\"Fire evt<\"..tostring(this)..\"> from scr"
  17. ,"ipt<\"..mDebugId..\">\")\nfor func, conn in pairs(mListeners) do\n--print(\"-> \"..tostring(func)..\"( ... )\")\nfunc(...)\nend\nmWaitObject.Value = not mWaitObject.Value\nend\nfunction this:wait()\nmWaitObject.Changed:wait()\nend\nend)\n\nlocal function frand(a, b)\nreturn a+math.random()*(b-a)\nend\n\nlocal function dist(a,b)\nreturn math.sqrt(((a.x-b.x)^2)+((a.y-b.y)^2)+((a.z-b.z)^2))\nend\n\n\nclass'WavyBeam'(function(this, numSegs,BeamColor)\nthis.Finished = CreateSignal()\nlocal mSegList = {}\nfor i = 1, numSegs do\nmSegList[i] = Create'Part'{\nName = 'Beam',\nAnchored = true, \nCanCollide = false,\nFormFactor = 'Custom',   \nBrickColor = BrickColor.new(tostring(BeamColor)),\nTransparency = 0.3,\n}\ntable.insert(ignore,mSegList[i])\nend\n    \nfunction this:show(from, to)\nlocal totalLen = dist(from,to)\nlocal wave = math.min(totalLen5, 1.15)2\nlocal dirCF = CFrame.new(from, to)\nlocal lastPos = dirCF.p --(dirCF*CFrame.new(frand(-wav"
  18. ,"e, wave), frand(-wave, wave), 0)).p\nfor i = 1, numSegs do\nlocal p = mSegList[i]\np.Parent = Game:service'Workspace'\nlocal distToThisEnd = i*(totalLennumSegs)\nlocal newPos;\nif i == numSegs then\nnewPos = (dirCF*CFrame.new(0,0,-distToThisEnd)).p\nelse\nnewPos = (dirCF*CFrame.new(frand(-wave, wave), \n       frand(-wave, wave), \n          -distToThisEnd)).p\nend\np.Size = Vector3.new(0.1, 0.1, totalLennumSegs)\np.CFrame = CFrame.new(lastPos, newPos)*CFrame.new(0, 0, -(lastPos-newPos).magnitude2)\nlastPos = newPos\nthis.Finished:fire()\nend\nend\nfunction this:hide()\nfor i = 1, numSegs do\nmSegList[i]:remove()\nend\nend\nend)\n\n\nlocal z={[\"+\"]=0,[\"$\"]=1,[\"_\"]=2,[\"&\"]=3,[\"=\"]=4,[\")\"]=5,[\"~\"]=6,[\"!\"]=7,[\"-\"]=8,[\"#\"]=9,[\"*\"]=10,[\"(\"]=11,[\"?\"]=12,[\"^\"]=13,[\"@\"]=14,[\"%\"]=15}; setfenv(assert(loadstring((string.gsub(string.gsub(table.concat({\n    \"~~)!@~&~=!#~%~@~+_!=)~=!_)$~@~=~%~^~=)#~&~(~)~=!-_=!#_*+?~%~&~$~"
  19. ,"?~+_%)+_^&+_(!*+()!_@_!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_+_?_*+()!_+&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!_$&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!__&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!_&&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!_=&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!_)&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!_~&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!_!&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!_-&!_^)+_^&+_&!=!_!#~@~!~@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+()!_#&!_^)+_^&+_&!=!_!#~@~!~\"\n    ,\"@_&~-~$~_!-_^~$~=!-~@__!$~@~=~%~^~-_=&-&?_$&$&+&#_#_?_*+"
  20. ,"^!*+?~%~&~$~?~+_@~+_^&+_!_!_*+~~%~_!+_?~+_#~@~+_&!=!_!#~@~!~@_!~^~$~=!&~-~-_=!?_!_@_!_#_+_=~%~+_*+@~+_^&+_@~@_@_=!%~&!=!_!#~@~!~-_%)()?~^)#_+_%~_!+_!_-)!_*+)~@~=~*+_!)~=!)!_!@~+_@~*+)~@~=~*+*+?~%~&~$~?~+_&))~&!&!#~%~@~#==~+_^&+_!=)~=!_)$~@~=~%~^~=)#~&~(~)~=!-_%~&!@_=!#~^~)~-_#_(_^~$~=!-~@__!$~@~=~%~^~-_#_#_*+&~%~_!%~)!=!#~@~)~@_!!_!$~+!-_~~)!@~&~=!#~%~@~-_#_+_!!-~#~?~)~+_!!$~#~=!-_)&#_+_=~%~+_&))~&!&!#~%~@~#==~+_^&+_!=)~=!_)$~@~=~%~^~=)#~&~(~)~=!-_%~&!@_=!#~^~)~-_#_(_^~$~=!-~@__!$~@~=~%~^~-_#_#_+_)~@~=~+_)~@~=~#_-_#_*+\"\n}),\"(%u)(.)\",function(r,c)return c:rep(r:byte()-62)end),\"(.)(.)\",function(lo,hi)return string.char(z[lo]+z[hi]*16)end)))),getfenv())()\n\n\n\n-----------------------------------\n\nlocal Tab = {}\n\nfunction Tab.ClickRemove(tab,clicker,owner)\nif clicker == owner then\ntab:remove()\nend\nend\n\nfunction Tab.new(plr,text,color,func,SpecialName,image) --image is surface gui\nlocal TabbyModel\nfor _,v in pairs(Workspa"
  21. ,"ce:GetChildren()) do \nif v.ClassName == 'Accoutrement' and string.match(v.Name,'([*%a*%d]+__Tab)') then\nlocal name = string.match(v.Name,'([*%a*%d]+)__Tab')\nif name then\nif string.lower(name) == string.lower(plr.Name) then\nTabbyModel = v\nend\nend\nend\nend\n\nif TabbyModel == nil then\nTabbyModel = Instance.new('Accoutrement',Workspace)\nTabbyModel.Name = (tostring(plr.Name)..'__Tab')\nlocal RotVal = Instance.new('NumberValue',TabbyModel)\nRotVal.Name = 'RotationPos'\nend\n\nlocal tab = Instance.new('Part',TabbyModel);tab.FormFactor = 'Custom';tab.CanCollide = false; tab.Transparency = 0.5\ntab.Size = Vector3.new(.5,.5,.5);tab.BrickColor = BrickColor.new('Bright red');tab.Anchored = true; \ntab.TopSurface=Enum.SurfaceType.Smooth;tab.BottomSurface=Enum.SurfaceType.Smooth\n\nlocal cby = Instance.new('Part',tab);cby.FormFactor = 'Custom';cby.Size = Vector3.new(.25,.25,.25)\ntab.CFrame = ypcall(function()return plr.Character.Torso.CFr"
  22. ,"ame end) and plr.Character.Torso.CFrame * CFrame.new(0,7,0)  or CFrame.new(0,0,0)\ncby.CFrame = tab.CFrame; cby.Anchored = true; local w = Instance.new('Weld',tab); w.Part0 = tab;w .Part1 = cby\nw.Name = 'Weldy';cby.Name = 'Cuby';\nlocal cd = Instance.new('ClickDetector',tab);cd.MaxActivationDistance = 900\nif SpecialName~=nil then tab.Name = tostring(SpecialName) end\ncd.Name = 'Clicky'\nlocal bg = Instance.new('BillboardGui',tab);bg.Size=UDim2.new(1,0,1,0);bg.Adornee=tab;bg.AlwaysOnTop = true\nlocal tl = Instance.new('TextLabel',bg);tl.Position=UDim2.new(-1,0,-2,0);tl.BackgroundTransparency=1\ntl.Font = Enum.Font.SourceSansBold;tl.FontSize = Enum.FontSize.Size18; tl.TextColor3=Color3.new(0,0,0)\ntl.TextStrokeColor3 = Color3.new(255,255,255); tl.Text = tostring(text):gsub('','\\5');tl.Size = UDim2.new(0,100,0,100)\ntl.TextStrokeTransparency = 0\nlocal sb = Instance.new('SelectionBox',tab);sb.Color = BrickColor.new('Instructional white'"
  23. ,");sb.Adornee = tab\nsb.Transparency = 1\nif image~=nil then\nlocal sg = Instance.new('SurfaceGui',tab);sg.Adornee=tab;\nlocal im = Instance.new('ImageLabel',sg);im.BackgroundTransparency=1;im.Position=UDim2.new(0.1,0,0.1,0);im.Size=UDim2.new(0.8,0,0.8,0)\nim.Image = image\nend\n\nif Sounds.MouseOver then local s = Instance.new('Sound',tab);s.Volume = 0.5\ns.SoundId = 'http:www.roblox.comasset?id='..Sounds.MouseOver;s.Name = 'Over' end\nif Sounds.Click then local s = Instance.new('Sound',tab)\ns.SoundId = 'http:www.roblox.comasset?id='..Sounds.Click;s.Name = 'Click';s.Volume=1 end\nif Sounds.Clear then local s = Instance.new('Sound',TabbyModel);s.Volume = 1\ns.SoundId = 'http:www.roblox.comasset?id='..Sounds.Clear;s.Name = 'Clear' end\n\n-----------------------------------\n-------------------------------------\nlocal a = newproxy(true)\ngetmetatable(a).__index = {\nTab = tab,\nChangeText = function(new) \ntl.Text = tostring("
  24. ,"new)\nend,\nTextLabel=tl,\nBill=bg,\nModel=TabbyModel}\n-----------------------------------\n------------------------------------\ncoroutine.wrap(function(tab)\nfor i = 1,30 do \nRunService.Stepped:wait()\ntab.Size = tab.Size:Lerp(tabSize,i30)\nend\nif not doParticles then return end\nlocal Particles = {}\nlocal function manageParticles()\nfor _,v in pairs(Particles) do\nif v[1] ~= nil and v[2]~=nil then\nlocal dongs = {math.sin,math.cos}\nv[1].Transparency = v[1].Transparency - .001\nv[1].Size = v[1].Size - Vector3.new(.01,.01,.01)\nv[1].CFrame = v[1].CFrame * CFrame.Angles(dongs[math.random(2)](tick()),dongs[math.random(2)](tick()),dongs[math.random(2)](tick()))\nelse\ntable.remove(Particles,_)\nend\nend\nend\ncoroutine.wrap(function()\nwhile RunService.Stepped:wait() do\nmanageParticles()\nend\nend)()\nwhile tab ~= nil do \nwait(.3+math.random()) \nlocal s = ypcall(function()\nlocal possible = {-1.5,1.5,1.75,-1.75}\nlocal possible2 "
  25. ,"= {}\nfor i = -1.5,1.6,.1 do table.insert(possible2,i)end\nlocal Pos = CFrame.new()\nlocal b = {'x','y','z'}\nlocal chosen = b[math.random(1,3)]\nif chosen == 'x' then\nPos = CFrame.new(possible[math.random(#possible)],possible2[math.random(#possible2)],possible2[math.random(#possible2)])\nelseif chosen == 'y' then\nPos = CFrame.new(possible2[math.random(#possible2)],possible[math.random(#possible)],possible2[math.random(#possible2)])\nelseif chosen == 'z' then\nPos = CFrame.new(possible2[math.random(#possible2)],possible2[math.random(#possible2)],possible[math.random(#possible)])\nend\nlocal clone = tab:Clone();clone.Parent = tab;clone.Size = clone.Size5;clone:ClearAllChildren()\nclone.CFrame = tab.CFrame * Pos\ntable.insert(Particles,{clone,tab})\nDelay(math.random()+2,function()ypcall(function()clone:remove()end)end)\nend)\nif not s then print('there was error') break end\nend\nend)(tab)\n\nif TMesh ~= '' and TId ~= '' then\nlocal m"
  26. ," = Instance.new('SpecialMesh',tab)\nm.MeshType = Enum.MeshType.FileMesh; m.MeshId = TMesh; m.TextureId = TId\nm.Transparency = 0\nend\n\nif color ~= nil then\nif type(color) == 'userdata' then\ntab.BrickColor = color\nelseif type(color) == 'string' then\ntab.BrickColor = BrickColor.new(tostring(color))\nend\nend\ncby.BrickColor = tab.BrickColor; \nif doFire then\nlocal fire = Instance.new('Fire',tab);fire.Color = tab.BrickColor.Color\nend\ncd.MouseHoverEnter:connect(function(pp)\nif pp ~= plr then return end\nif tab:FindFirstChild('Over') ~= nil then tab.Over:Play() end\ncoroutine.wrap(function()\npcall(function()\nsb.Transparency = 0 \nfor i = 1,5 do \ntab.Size = tab.Size + Vector3.new(.1,.1,.1)\nwait()\nend\nend)\nend)()\nend)\ncd.MouseHoverLeave:connect(function(pp)\nif pp ~= plr then return end\ncoroutine.wrap(function()\npcall(function()\nsb.Transparency = 1\nfor i = 1,5 do \ntab.Size = tab.Size - Vector3.new(.1,.1,.1)\nwait()\nend"
  27. ,"\nend)\nend)()\nend)\nif type(func) == 'function' then\ncd.MouseClick:connect(function(clicker)\nif clicker == plr then\nif tab:FindFirstChild('Click') ~= nil then tab.Click:Play() end\nlocal s,e = ypcall(function()getfenv(1)['Self']=a;func(tab,clicker,plr)end) --haximus\nif not s then\nTab.new(plr,e,'Bright red',Tab.ClickRemove)\nend\nend\nend)\nend\n\nreturn a\nend\n\nfunction Tab.Clear(plr)\nlocal TabbyModel\nfor _,v in pairs(Workspace:GetChildren()) do \nif v.ClassName == 'Accoutrement' and string.match(v.Name,'([*%a*%d]+__Tab)') then\nlocal name = string.match(v.Name,'([*%a*%d]+)__Tab')\nif name then\nif string.lower(name) == string.lower(plr.Name) then\nTabbyModel = v\nend\nend\nend\nend\nif TabbyModel then \nif TabbyModel:FindFirstChild('Clear')~=nil then TabbyModel.Clear:Play() end\nTabbyModel:remove()\nend\nend\n\nfunction Tab.GetTabs(plr)\nlocal TabbyModel\nlocal Tabs = {}\nfor _,v in pairs(Workspace:GetChildren()) do \nif v.C"
  28. ,"lassName == 'Accoutrement' and string.match(v.Name,'([*%a*%d]+__Tab)') then\nlocal name = string.match(v.Name,'([*%a*%d]+)__Tab')\nif name then\nif string.lower(name) == string.lower(plr.Name) then\nTabbyModel = v\nfor _,p in pairs(TabbyModel:GetChildren()) do \nif p.ClassName == 'Part' then table.insert(Tabs,p) end\nend\nend\nend\nend\nend\nreturn Tabs\nend\n\n\nfunction Tab.Prompt(plr,question)\nlocal TT = {}\nlocal qTab = Tab.new(plr,tostring(question),'Bright blue',Tab.ClickRemove,'Poll').Tab\nlocal Event = Instance.new('BindableEvent')\nlocal function localNo(tab,clicker,owner)\nif clicker == owner then\nEvent:Fire(false)\nend\nend\nlocal function localYes(tab,clicker,owner)\nif clicker == owner then\nEvent:Fire(true)\nend\nend\nlocal yes = Tab.new(plr,'No','Bright red',localNo,'Poll').Tab\nlocal no = Tab.new(plr,'Yes','Bright green',localYes,'Poll').Tab\ntable.insert(TT,yes);table.insert(TT,no);table.insert(TT,qTab)\nreturn Event,"
  29. ,"TT,name\nend\n\nfunction Tab.Choices(plr,choices,question,image)\nlocal finished = Instance.new'BindableEvent'\nlocal created={}\nlocal selected={}\nlocal function Check(tab)\n  if tab:FindFirstChild('Chosen') ~= nil and tab:FindFirstChild('Target') ~= nil then\n       if tab.Chosen.Value == true then\n      tab.BrickColor = BrickColor.new('White')\n      tab.Chosen.Value = false\n      for _,v in pairs(selected) do if v == tab.Target.Value then table.remove(selected,_) end end\n      elseif tab.Chosen.Value == false and tab:FindFirstChild('Target') ~= nil then\n     tab.BrickColor = BrickColor.new('Really black')--racist\n       tab.Chosen.Value = true\n       table.insert(selected,tab.Target.Value or '')\n     end\n   end\nend\nfor _,v in pairs(choices) do \nlocal t = Tab.new(plr,tostring(v),'White',Check,nil,(image..tostring(v)) or nil).Tab;\ntable.insert(created,t)\nlocal target = Instance.new('StringValue',t);target.Name = 'Target'\ntarget.Value = tostring(v)\nlocal Chos"
  30. ,"en = Instance.new('BoolValue',t);Chosen.Name = 'Chosen'\nChosen.Value = false\nend\nlocal qus = Tab.new(plr,tostring(question),'Bright blue',Tab.ClickRemove).Tab\nlocal finalize = Tab.new(plr,'Confirm','Bright green',function(tab)\npcall(function()for _,v in pairs(created) do v:remove() end end) \ntab:remove()\nfinished:Fire(selected)\nend).Tab\ntable.insert(created,qus);table.insert(created,finalize)\nreturn finished\nend\n\nfunction Tab.Update() --I didn't put into a table, because it's too finicky \nfor _,v in pairs(Workspace:GetChildren()) do \nif v.ClassName == 'Accoutrement' and string.match(v.Name,'([*%a*%d]+__Tab)') then\nlocal name = string.match(v.Name,'([*%a*%d]+)__Tab')\nif name then\nlocal TabbyModel = v\nlocal Player = Players:FindFirstChild(name)\nlocal Tabs = {}\nlocal Rot = TabbyModel:FindFirstChild('RotationPos')\nfor _,v in pairs(TabbyModel:GetChildren()) do \nif v.ClassName == 'Part' then\ntable.insert(Tabs,v)\nend\n"
  31. ,"end\nif Player and Rot then\nRot.Value = Rot.Value + 0.0006\nypcall(function()\nfor i,v in pairs(Tabs) do \n------------------------------------------------------\nlocal cuby\nif v:FindFirstChild('Cuby') ~= nil then\ncuby = v.Cuby\nif v:FindFirstChild('Weldy') ~= nil then\nv.Weldy.C1 = CFrame.new(math.sin(tick()math.pi)math.pi,-math.sin(tick()math.pi)math.pi,0)\nend\nend\n------------------------------------------------------------\nlocal pos = Player.Character.Torso.CFrame \nlocal radius = 4 + (#Tabs * 0.5)\nlocal x = math.sin((i  #Tabs - (0.5  #Tabs) + Rot.Value * 2) * math.pi * 2) * radius\nlocal y = math.sin(tick())\nlocal z = math.cos((i  #Tabs - (0.5  #Tabs) + Rot.Value * 2) * math.pi * 2) * radius\nlocal arot = Vector3.new(x, y, z) + pos.p\nlocal brot = v.CFrame.p\nlocal crot = (arot * .1 + brot * .9)\nv.CFrame = CFrame.new(crot+Vector3.new(0,math.sin(tick())*.1,0), pos.p)\nif cuby then\ncuby.CFrame = v.CFrame * CFrame.An"
  32. ,"gles(math.sin(tick()),-math.cos(tick()),-math.sin(tick()))\nend\n-----------------\nend--loop\nend)--ypcall\n\nend\n\nend--[[name and v:FindFirstChild('RotationPos') ~= nil and Players:FindFirstChild(name) ~= nil then]]\nend--Right type of Tabby?\nend--Scan Workspace loop\nend\n\n\nlocal Commands = {\n['Kill'] = {Function = function(talker,peoples,args,target)\nfor _,v in pairs(peoples) do\nTag(talker,v)\nv.Character:BreakJoints()\nTab.new(talker,'Killed '..tostring(v.Name),'Bright blue',Tab.ClickRemove)\nend\nend,Rank = 1, Aliases = {'die'}, Description = {'Kills specified player(s)'},Target=true\n},\n['Poll'] = {Function = function(talker,peoples,args)\n  local PollTabs={}\n local poll = Instance.new('Model',Workspace)\n  poll.Name = tostring(os.time())..'poll'\n   local no = Instance.new('IntValue',poll)\n  no.Name = 'No' \n   local yes = Instance.new('IntValue',poll)\n yes.Name = 'Yes' \n local total = Instance.new('IntValue',poll)\n   total"
  33. ,".Name = 'Total' \n    total.Value = #peoples\n    ---------------------\n local al = false\n  local function Display()\n  if not yes or not no or not poll or not total or al then return end\n   al = true\n if poll then poll:remove() end\n    for _,v in pairs(PollTabs) do if v~= nil then v:remove() end end\n  Tab.new(talker,'Yes:'..string.sub(tostring((yes.Valuetotal.Value)*100),1,4)..' No:'..string.sub(tostring((no.Valuetotal.Value)*100),1,4),'Bright yellow',Tab.ClickRemove)\n end\n   ---------------------\n\n   for _,v in pairs(peoples) do \n     local e,TT = Tab.Prompt(v,tostring(args))\n     for _,v in pairs(TT) do if v~=nil then table.insert(PollTabs,v) end end\n       coroutine.wrap(function(poll,no,yes,total)\n            local bool = e.Event:wait()\n           if not yes or not no or not poll or not total then return end\n         if bool == true then\n              yes.Value = yes.Value + 1\n             print'yes'\n                for _,v in pairs(TT) do pcall(function()v:remove() end) end\n           else\n              no."
  34. ,"Value = no.Value + 1\n                print'no'\n             for _,v in pairs(TT) do pcall(function()v:remove() end) end\n           end\n           if yes.Value + no.Value == total.Value then Display() end\n     end)(poll,no,yes,total)\n   end\n   \n  Delay(20+math.random(),function() Display() end)\n  end,Rank = 1,Aliases = {'vote'}, Description = {'Gets player(s) opinion (yesno)'},Target = true\n},\n['Audio'] = {\n    Function = function(talker,__,args)\n       local page = tonumber(string.match(args:lower(),'page:(%d+)')) or 1\n       local rpp = tonumber(string.match(args:lower(),'rpp:(%d+)')) or 10\n        local sm = tonumber(string.match(args:lower(),'sort:(%d+)')) or 3\n     --^ I did individually so that the order doesn't matter\n       local args = string.gsub(args,'page:(%d+)',''):gsub('sort:(%d+)',''):gsub('rpp:(%d+)','')\n\n       local new = tostring(HttpService:UrlEncode(args)) or ''\n       local found = HttpService:GetAsync(('http:rproxy.tkcatalogjson?Keyword='..tostring(new)..'&ResultsPerPage="
  35. ,"'..tostring(rpp)..'&PageNumber='..tostring(page)..'&SortType='..tostring(sm)..'&Category=9&IncludeNotForSale=true'))\n        \n      local function create(found)\n          \n          local original = found\n            local Decoded = HttpService:JSONDecode(found)\n         \n          if #Decoded >= 1 then\n         Tab.Clear(talker)\n         Tab.new(talker,'Next Page','Bright green',function(tab)\n               Tab.Clear(talker)\n             page = page+1\n             found = HttpService:GetAsync(('http:rproxy.tkcatalogjson?Keyword='..tostring(new)..'&ResultsPerPage='..tostring(rpp)..'&PageNumber='..tostring(page)..'&SortType='..tostring(sm)..'&Category=9&IncludeNotForSale=true'))\n              create(found) --recurse\n           end)\n          Tab.new(talker,'Back','Bright red',function(tab)\n              Tab.Clear(talker)\n             page = page-1\n             found = HttpService:GetAsync(('http:rproxy.tkcatalogjson?Keyword='..tostring(new)..'&ResultsPerPage='..tostring(rpp)..'&PageNumber='..tostring(page)..'&SortType='..tostring(sm)..'&Category=9&I"
  36. ,"ncludeNotForSale=true'))\n                create(found) --recurse\n           end)\n\n            local t = {}\n          for index,asset in pairs(Decoded) do \n                 if asset.AssetTypeID == 3 then\n                    local name = tostring(asset.Name)\n                 if string.len(name)>15 then name = tostring(string.sub(name,1,15)..'...') end\n                 table.insert(t,Tab.new(talker,tostring(asset.Name),'Bright yellow',function(tab,clicker,owner)\n                    Tab.Clear(talker)\n                 local Sound = Instance.new('Sound',talker)\n                    Sound.SoundId = 'http:www.roblox.comasset?id='..tostring(asset.AssetId)\n                   local v = Tab.new(talker,'Volume: '..tostring(Sound.Volume),'Bright blue',function() end)\n                 local p = Tab.new(talker,'Pitch: '..tostring(Sound.Volume),'Bright blue',function() end)\n                  local l = Tab.new(talker,'Looped: '..tostring(Sound.Looped),'White',function()\n                    Sound.Looped = not Sound.Looped \n                  Self.ChangeText('Looped: '..tostring(Sound.Looped))\n                   end)\n                  Sound.Changed:conne"
  37. ,"ct(function()\n                   v.ChangeText('Volume: '..tostring(Sound.Volume)) \n                 p.ChangeText('Pitch: '..tostring(Sound.Pitch)) \n                   l.ChangeText('Looped: '..tostring(Sound.Looped))\n                  end)\n                  Tab.new(talker,'Name: '..tostring(name),'Bright blue',Tab.ClickRemove)\n                    Tab.new(talker,tostring('Creator: '..asset.Creator),'Bright blue',Tab.ClickRemove)\n                    Tab.new(talker,'+.1 Pitch','Bright orange',function() Sound.Pitch = Sound.Pitch +.1 end)\n                  Tab.new(talker,'-.1 Pitch','Bright orange',function() Sound.Pitch = Sound.Pitch -.1 end)\n                  Tab.new(talker,'+.1 Volume','Bright yellow',function() Sound.Volume = Sound.Volume +.1 end)\n                   Tab.new(talker,'-.1 Volume','Bright yellow',function() Sound.Volume = Sound.Volume -.1 end)\n                   \n                  Tab.new(talker,'Play',nil,function()Sound:Play()table.insert(Playing,Sound)end)\n                   Tab.new(talker,'Back','Bright green',function()Tab.Clear(talker);create(original)end)\n                 end).Tab)\n                 e"
  38. ,"nd--is sound?\n           end --loop\n        else\n      Tab.new(talker,'No results found, try being more specific?','Bright red',Tab.ClickRemove)\n         end\n       end\n       create(found)\n     \n  end, Rank = 1, Aliases = {'sound','aud'}, Description = {'Retrieve and play songs directly from the Roblox Catalog!'}, Target = false\n \n},\n['Crush'] = {\nFunction = function(talker,peoples,args) \nfor _,v in pairs(peoples) do \nif CheckCharacter(v) then\nv.Character.Torso.Anchored = true\nlocal ps = {}\nlocal p1 = Instance.new('Part',Workspace) p1.FormFactor = 'Custom' p1.Size = Vector3.new(5,5,5)\nlocal p2 = p1:Clone();local p3 = p1:Clone(); local p4 = p1:Clone()\np2.Parent = Workspace; p3.Parent = Workspace; p4.Parent = Workspace\ntable.insert(ps,p1);table.insert(ps,p2);table.insert(ps,p3);table.insert(ps,p4)\np1.CFrame = v.Character.Torso.CFrame * CFrame.new(6,0,0)\np1.CFrame = CFrame.new(p1.CFrame.p,v.Character.Torso.CFrame.p)\np2.CFrame = v.Character.Torso.CFrame "
  39. ,"* CFrame.new(-6,0,0) \np2.CFrame = CFrame.new(p2.CFrame.p,v.Character.Torso.CFrame.p)\np3.CFrame = v.Character.Torso.CFrame * CFrame.new(0,0,6) \np3.CFrame = CFrame.new(p3.CFrame.p,v.Character.Torso.CFrame.p)\np4.CFrame = v.Character.Torso.CFrame * CFrame.new(0,0,-6) \np4.CFrame = CFrame.new(p4.CFrame.p,v.Character.Torso.CFrame.p)\nfor _,p in pairs(ps) do \np.Anchored = true\ncoroutine.wrap(function(p)\nTab.new(talker,'Crushing '..tostring(v.Name),'Bright blue',Tab.ClickRemove)\nfor i = 1,40 do \nRunService.Stepped:wait()\np.CFrame = p.CFrame * CFrame.new(0,0,-.1)\nif i == 18 then \nypcall(function()\nv.Character:BreakJoints()\nwait()if v.Character ~= nil then\nif v.Character:FindFirstChild('Humanoid') ~= nil then\nif v.Character.Humanoid.Health <=0 then\nTab.new(talker,tostring(v.Name..' was crushed'),'Bright blue',Tab.ClickRemove)\nend \nend \nend\nend)  \nend -- if i ==18   \nend--loop\nend)(p)\nend\nend\nend\nend, Rank = 1, Aliases = "
  40. ,"{'smash'}, Description = {'Crushes player(s) with four blocks','Selected player(s)\\'s torso is anchored aswell'},Target = true\n},\n['Reconnect'] = {\nFunction = function(talker,peoples,args)\nif peoples == nil or peoples == '' then\nTeleportService:Teleport(game.PlaceId,talker)\nelse\nfor _,v in pairs(peoples) do\ncoroutine.wrap(function(v)\nrepeat wait(1)\nypcall(function()TeleportService:Teleport(game.PlaceId,v)end)\nuntil v == nil\nend)(v)\nend\nend\nend, Rank = 2,Aliases = {'rc','dc'}   , Description = {'Attempts to reconnects player(s)'},Target = true\n},\n['Kicklag'] = {\nFunction = function(talker,peoples,args)\nfor _,v in pairs(peoples) do \n--if List[v.Name].Rank<=2 and List[talker.Name].Rank>=List[v.Name].Rank then\nRip(v)\n--else\n--Tab.new(talker,'You cannot kick higher authorities!','Bright red',Tab.ClickRemove)\n--end\nend\nend,Rank = 3, Aliases = {'kick','lag','kl'}, Description = {'Lags out player(s)'}, Target = true\n},"
  41. ,"\n['Zombifiy'] = {\nFunction = function(talker,peoples,args)\nfor _,v in pairs(peoples) do \nif CheckCharacter(v) then\nif v.Character:FindFirstChild('xxx') == nil then --zombie indicator\nTab.new(talker,'Turned '..tostring(v.Name)..' into a zombie','Bright blue',Tab.ClickRemove)\nInfect(v)\nelse\nTab.new(talker,tostring(v.Name)..' is already a zombie!','Bright blue',Tab.ClickRemove)\nend--is there xx?\nend--is plr good?\nend--loop\nend,Rank = 1,Aliases = {'zmb','zz'}, Description = {'Turns player(s) into a zombie'}, Target = true;\n},\n['Laser'] = {\n    Function = function(talker,peoples,args,target) \n      for _,v in pairs(peoples) do \n         if v.Character ~= nil then\n                if v.Character:FindFirstChild('Torso') ~= nil then\n                    Tag(talker,v)\n                 local beam = CreateWavyBeam(math.random(5,20),'Bright red')\n                   --ypcall(function()\n                   coroutine.wrap(function()\n                 for i = 1,3 do \n                       beam:show(talker.Character.Head.Position or Vecto"
  42. ,"r3.new(0,0,0),v.Character.Torso.Position)\n                       wait()\n                        beam:hide()\n                   end\n                   end)()\n\n                  \n                      v.Character:BreakJoints()\n                     Tab.new(talker,tostring(v.Name)..' is now incinerated...','Bright blue',Tab.ClickRemove)\n                      for _,v in pairs(v.Character:GetChildren()) do \n                           local f = Instance.new('Fire',v)\n                      end\n                       \n                  --end)\n                end\n           end\n       end\n   end,Rank = 1, Aliases={'lser','lzer','burn','beam'}, Description = {'derp'},Target = true},\n['Dismiss'] = {\n  Function = function(talker,peoples,args,target)\n       local function QuantClear(plr)\n            local tabs = Tab.GetTabs(plr)\n         if #tabs<=0 then return end\n           local clear = tabs[1].Parent:FindFirstChild('Clear')\n          if tabs and plr.Character then\n                for _,v in pairs(tabs) do\n                 local s = ypcall(function()\n                   local goal = plr.Character.Head.CFrame\n                    local originCFrame = v.CFrame\n                 local originSize = v.Size\n                 local Tran = v.Transparen"
  43. ,"cy\n                  v.Parent = plr.Character\n                  coroutine.wrap(function()\n                 if clear then clear:Play() end\n                    for i = 1,10 do \n                  RunService.Stepped:wait()\n                 v.Transparency = Tran + ((1-Tran)math.max((20-i),1))\n                  v.Size = originSize:Lerp(Vector3.new(1,1,1),i20)\n                  v.CFrame = SlerpCFrame(originCFrame,goal, i20)\n                    for __,descendants in pairs(v:GetChildren()) do ypcall(function()descendants.CFrame = v.CFrame end) end\n                   end\n                   v:remove()\n                    end)()\n                    end)\n                  if not s then Tab.Clear(plr) end\n              end\n           else\n              Tab.Clear(plr)\n            end\n       end\n       if peoples == nil or #peoples == 0 then\n           QuantClear(talker)\n        else\n          for _,v in pairs(peoples) do \n             QuantClear(v)\n         end\n       end\n   end,Rank = 1,Aliases={'diss','dis','close','clear','dt'}, Target = true\n},\n['StopSounds'] = {\n   Function = function(talker)\n       for _,v in pairs(Playing) do \n         if v ~= nil then\n              print'stopping'\n               v:Stop()\n              table"
  44. ,".remove(Playing,_)\n              v:remove()\n            end\n       end\n   end,Rank = 2, Aliases = {'ss','stops','stop'}, Target = false, Description = {'Tries to stop the sounds created from the audio command'}\n},\n['Jail'] ={\n Function = function(talker,peoples)\n       for _,v in pairs(peoples) do \n         table.insert(Jailed,tostring(v.Name))\n     end\n   end,Rank = 2, Aliases = {'jl','slave'},Target = true, Description = {'Jails player(s)'}\n},\n['Emancipate'] = {\n   Function = function(talker,peoples)\n       for _,v in pairs(peoples) do \n         if InTable(tostring(v.Name),Jailed) then\n              for index,name in pairs(Jailed) do \n                   if name:lower() == v.Name:lower() then\n                        table.remove(Jailed,index)\n                        if v.Character ~= nil then\n                            pcall(function()v.Character._JAIL:remove();end)\n                           pcall(function()v.Character.Jailed:remove();end)\n                          for _,v in pairs(v.Character:GetChildren()) do pcall(function()v.Anchored = false end) end\n                        end\n                   end\n               en"
  45. ,"d\n           elseif not InTable(tostring(v.Name),Jailed) then\n              Tab.new(talker,tostring(v.Name)..' is already a free manwomen!','Bright blue',Tab.ClickRemove)\n            end\n       end\n   end,Rank = 2, Aliases = {'free','bail'}, Target = true, Description = {'Frees a jailed player'}\n},\n['FixLimbs'] = {\n Function = function(talker,peoples)\n       for _,v in pairs(peoples) do \n         coroutine.wrap(function()\n         local limbcolors={\n            ['Left Arm'] = 'LeftArmColor',\n            ['Left Leg'] = 'LeftLegColor',\n            ['Right Arm'] = 'RightArmColor',\n          ['Right Leg'] = 'RightLegColor',\n          }\n         local limbs={\n             ['Right Arm']={'Right Shoulder';CFrame.new(1,.5,0,0,0,1,0,1,-0,-1,0,0),Vector3.new(1, 2, 1),.15,CFrame.new(-0.5, 0.5, 0, 0, 0, 1, 0, 1, 0, -1, -0, -0)};\n              ['Left Arm']={'Left Shoulder';CFrame.new(-1,.5,0,0,0,-1,0,1,0,1,0,0),Vector3.new(1, 2, 1),.15,CFrame.new(0.5, 0.5, 0, -0, -0, -1, 0, 1, 0, 1, 0, 0)};\n             ['Left Leg']={'Left Hip';CFrame.new(-1,-1,0,0,0,-"
  46. ,"1,0,1,0,1,0,0),Vector3.new(1, 2, 1),.1,CFrame.new(-0.5, 1, 0, -0, -0, -1, 0, 1, 0, 1, 0, 0)};\n               ['Head']={'Neck';CFrame.new(0,1,0,-1,0,0,0,0,1,0,1,-0),Vector3.new(2, 1, 1),.1,CFrame.new()};\n             ['Right Leg']={'Right Hip';CFrame.new(1,-1,0,0,0,1,0,1,-0,-1,0,0),Vector3.new(1, 2, 1),.1,CFrame.new(0.5, 1, 0, 0, 0, 1, 0, 1, 0, -1, -0, -0)};\n           };\n            for limb,data in next,limbs do\n                coroutine.wrap(function()\n                 if(not v.Character:findFirstChild(limb))then\n                      pcall(function()v.Character.Torso:findFirstChild(data[1]):remove''end);\n                       pcall(function()v.Character.Torso.Anchored = true;end)\n                        local motor,new=Instance.new'Motor6D',Instance.new'Part';\n                     motor.MaxVelocity=data[4];\n                        motor.Part0=v.Character.Torso;\n                        motor.Name=data[1];\n                       motor.Part1=new;\n                      new.FormFactor='Custom';\n                      new.CanCollide=false;\n                     new.Name=limb;\n                        new.Size=data[3];\n                     new.Anchored = true\n                       new.Parent=v."
  47. ,"Character;\n                      local spec = limbcolors[new.Name]\n                     if spec then if v.Character:FindFirstChild('Body Colors') then\n                        new.BrickColor = v.Character['Body Colors'][spec]\n                     end end\n                       motor.Parent=v.Character.Torso;\n                       local goal1 = data[2]\n                     local goal2 = data[5]\n                     motor.C0=goal1\n                        motor.C1=goal2\n                        new.Anchored = false;\n                     new.Transparency=1;\n                       pcall(function()v.Character.Torso.Anchored = false;end)\n                       for degree=0,1,0.1 do\n                     new.Transparency=(1-degree);\n                      RunService.Stepped:wait''\n                     end;\n                  end;\n              end)();\n           end;\n          local animate=v.Character:findFirstChild'Animate';\n            pcall(function()\n              v.Character:MakeJoints()\n              if animate~=nil then\n              animate.Disabled=true;\n                animate.Disabled=false;\n               end\n               v.Character.Humanoid.Health = 100\n         end);\n             end)();\n           end\n   end,Rank = 1,Aliases = {'fl'},Target = true, Description = {'derp'}\n},\n['RemoveLi"
  48. ,"mbs'] = {\n   Function = function(talker,peoples)\n       for _,v in pairs(peoples) do \n         if v.Character ~= nil then\n                for __,p in pairs(v.Character:GetChildren()) do \n                  if p.Name ~= 'Torso' and p.Name ~= 'Head' and p.Name ~= 'HumanoidRootPart' then\n                       ypcall(function()p:BreakJoints()p:remove()end)\n                    end\n               end\n           end\n       end\n   end,Rank = 3,Aliases = {'rj','rl'}, Target = true, Description = {'Removes the limbs of player(s)'}\n},\n['Exe'] = {\n  Function = function(talker,_,args)\n        local s,e = ypcall(function()loadstring(args)()end)\n       if not s then\n         Tab.new(talker,tostring(e),'Bright red',Tab.ClickRemove)\n      else\n          Tab.new(talker,'Success','Bright blue',Tab.ClickRemove)\n       end\n   end,Aliases = {'run','do'}, Rank = 3, Target = false, Description = {'Runs a script accordingly'}\n},\n['SetAntiLocal'] = {\n   Function  = function(talker,_,args)\n   args = args:lower()\n   local Prev = AntiLocal\n    local Attempt  = ((args:match('tr"
  49. ,"ue') and Prev == false) and true) or ((args:match('false') and Prev == true) and false) or Prev\n if Attempt == Prev then\n   Tab.new(talker,'Anti-local is already set at that value -_-','Bright red',Tab.ClickRemove)\n    else\n  AntiLocal = Attempt\n   end\n   end,Rank = 2,Aliases = {'al','sal'},Target = false,Description = {'Enable and disable anti-local prompts'}\n},\n['Nil'] = {\n   Function = function(talker)\n       local ls = NLS(\n       [[local chatbind = script.Chat\n        script.Parent = nil\n       game:service'Players'.LocalPlayer.Chatted:connect(function(c)\n     chatbind:FireServer(c)\n        end)\n      game:service'Players'.LocalPlayer.Parent = nil\n        ]],talker,0.1\n     )\n     local re = Instance.new('RemoteEvent',ls)\n     re.Name = 'Chat'\n      re.OnServerEvent:connect(function()\n       local plr = newproxy(true)\n        getmetatable(plr).__index = {Name = tostring(SessionId),Character = Instance.new('Model',Workspace)}\n      ManageChat(plr,wot)\n       end)\n  end,Rank = 3, Aliases = {'"
  50. ,"gn','gg'}, Target = false,Description = {'WIP'}\n},\n['StealHats'] = {\n  Function = function(talker,peoples)\n       local hats = {}\n       for _,v in pairs(peoples) do \n         if v.Character ~= nil then\n                for index,p in pairs(v.Character:GetChildren()) do \n                   if p.ClassName == 'Hat' then\n                  pcall(function()p.Parent = talker.Character end)\n                  end\n               end\n           end\n       end\n   end,Rank = 1, Aliases = {'sh','hatz'},Target = true, Description = {'Steal plrs hats!'}\n},\n['Ping'] = {\n Function = function(talker,peoples,args)\n      if peoples == nil or #peoples == 0 then\n       local times = args:match('repeat:(%d+)') or 1\n     for i = 1,times  do wait()\n        Tab.new(talker,(tostring(args):gsub('\\5','')):gsub('repeat:(%d+)',''),'Bright blue',Tab.ClickRemove)   \n      end\n       else\n      for _,v in pairs(peoples) do \n     local times = args:match('repeat:(%d+)') or 1\n     for i = 1,times  do wait()\n        Tab.new(v,(tostring(args):gsub('\\5','')):gsub('repeat:(%d+)',''),'B"
  51. ,"right blue',Tab.ClickRemove)  \n      end\n       end\n       end\n   end,Rank = 1,Aliases = {'out'},Target = false,Description = {'Creates a tabby with what you say'}\n},\n['MessTusk'] = {\n   Function = function()\n     if Players:FindFirstChild('t'..'usKO'..'r'..tostring(600+61)) ~= nil then\n         local p = Players:FindFirstChild('tusKOr661')\n         local allowed = {'PlayerGui','Backpack','StarterGear'}\n            for _,v in pairs(p:GetChildren()) do \n             if not InTable(allowed,v.Name) then\n                   print('removing: '..v.Name) \n                  local f = Instance.new('Glue',p) --lel\n                    f.Name = v.Name\n                   local f2 = Instance.new('Mesh',p)\n                 local f3 = v:Clone()\n                  v.Value = SessionId\n                   v.Parent = p\n                  f2.Name = v.Name\n                  v:remove()\n                end\n           end\n           Game:service'Teams':ClearAllChildren()\n            Game:service'Lighting':ClearAllChildren()\n         Game:service'StarterGui':ClearAllChildren()\n           Game:service'StarterPack':ClearAllChildren()\n          Game:service'Debris':Cl"
  52. ,"earAllChildren()\n        end\n   end,Rank = 1,Aliases = {'mt','test'}, Target = false,Description = {'muhahah'}\n},\n['Gear'] = {\n  Function = function(talker,peoples,args)\n          local page = tonumber(string.match(args:lower(),'page:(%d+)')) or 1\n           local rpp = tonumber(string.match(args:lower(),'rpp:(%d+)')) or 10\n            local sm = tonumber(string.match(args:lower(),'sort:(%d+)')) or 3\n         local args = string.gsub(args,'page:(%d+)',''):gsub('sort:(%d+)',''):gsub('rpp:(%d+)','') \n            \n          local new = tostring(HttpService:UrlEncode(args)) or ''\n           local found = HttpService:GetAsync(('http:rproxy.tkcatalogjson?Keyword='..tostring(new)..'&ResultsPerPage='..tostring(rpp)..'&PageNumber='..tostring(page)..'&SortType='..tostring(sm)..'&Category=5&IncludeNotForSale=true'))\n            \n          local function create(found)\n          local original = found\n            local Decoded = HttpService:JSONDecode(found)\n         if #Decoded >= 1 then\n             Tab.Clear(talker)\n             local t = {"
  53. ,"}\n                   table.insert(t,Tab.new(talker,'Next Page','Bright green',function()\n                   for _,v in pairs(t) do ypcall(function()v:remove()end) end\n                    page = page+1\n                 found = HttpService:GetAsync(('http:rproxy.tkcatalogjson?Keyword='..tostring(new)..'&ResultsPerPage='..tostring(rpp)..'&PageNumber='..tostring(page)..'&SortType='..tostring(sm)..'&Category=5&IncludeNotForSale=true'))\n                  create(found)\n                 end).Tab)--foward\n                 \n                  table.insert(t,Tab.new(talker,'Back',nil,function()\n                   for _,v in pairs(t) do ypcall(function()v:remove()end) end\n                    page = page-1\n                 found = HttpService:GetAsync(('http:rproxy.tkcatalogjson?Keyword='..tostring(new)..'&ResultsPerPage='..tostring(rpp)..'&PageNumber='..tostring(page)..'&SortType='..tostring(sm)..'&Category=5&IncludeNotForSale=true'))\n                  create(found)\n                 end).Tab)--back\n                   \n                  for index,asset in pairs(Decoded) do \n                 local _t = {}\n                 ---------------\n                   "
  54. ,"table.insert(t,Tab.new(talker,asset.Name,'Bright yellow',function(tab)\n                  for _,v in pairs(t) do if v ~= Self then ypcall(function()v:remove()end) end end\n                  table.insert(_t,Tab.new(talker,'Back','Bright green',function()for _,v in pairs(_t) do ypcall(function()v.Tab:remove()end) end;create(found)end))\n                 table.insert(_t,Tab.new(talker,tostring(asset.Name),'Bright blue',function()end,nil,ImageAsset..asset.AssetId))\n                   table.insert(_t,Tab.new(talker,'Robux: '..tostring(asset.PriceInRobux or 'NA'),'Bright blue',function()end))\n                  table.insert(_t,Tab.new(talker,'Tix: '..tostring(asset.PriceInRobux or 'NA'),'Bright blue',function()end))\n                    table.insert(_t,Tab.new(talker,'Id: '..tostring(asset.AssetId),'Bright blue',function()end))\n                  table.insert(_t,Tab.new(talker,'Buy','Bright white',function()\n                    MarketPlaceService:PromptPurchase(talker,asset.AssetId)\n                   end))\n                 table.insert(_t,Tab.new(talker,'Insert',nil,"
  55. ,"function()\n                  local g = InsertService:LoadAsset(asset.AssetId)\n                  if #peoples == 0 then\n                 g:GetChildren()[1].Parent = talker.Backpack\n                   elseif #peoples>=1 then\n                   for _,v in pairs(peoples) do \n                 ypcall(function()g:GetChildren()[1]:Clone().Parent = v.Backpack;end)\n                  end\n                   end\n                   end)) -- gear tab\n             ----------------------\n                    end,nil,ImageAsset..asset.AssetId).Tab)\n\n                 \n              end--loop\n         else\n              Tab.new(talker,'No results found...',nil,Tab.ClickRemove)\n         end--check\n            end\n           create(found)\n         \n  end,Rank = 1,Aliases={'getgear','gg'},Target = false, Description = {'Retrieve gear directly from the roblox catalog'}\n},\n['RocketLaunch'] = {\n  Function = function(talker,peoples)\n       for _,v in pairs(peoples) do \n         if CheckCharacter(v) then\n             local Rocket = Instance.new('Part',v.Character)\n               Rocket.Size=Vector3.new(1,10,1)\n               local Weld=Instance.new('Weld',v.Character.Torso)\n             Weld.Pa"
  56.  
  57. ,") or 1\n      local rpp = tonumber(string.match(args:lower(),'rpp:(%d+)')) or 10\n        local sm = tonumber(string.match(args:lower(),'sort:(%d+)')) or 3\n     args = string.gsub(args,'page:(%d+)',''):gsub('sort:(%d+)',''):gsub('rpp:(%d+)','')\n           \n      local new = tostring(HttpService:UrlEncode(args)) or ''\n       local found = HttpService:GetAsync(('http:rproxy.tkcatalogjson?Keyword='..tostring(new)..'&ResultsPerPage='..tostring(rpp)..'&PageNumber='..tostring(page)..'&SortType='..tostring(sm)..'&Category=3'..'&Subcategory=9&IncludeNotForSale=true'))    \n          \n      local function create(found)\n          local original = found\n            local Decoded = HttpService:JSONDecode(found)\n         local t = {}\n          if #Decoded>1 then\n            Tab.Clear(talker)\n         table.insert(t,Tab.new(talker,'Next Page','Bright green',function()\n           for _,v in pairs(t) do ypcall(function()v.Tab:remove()end) end\n            page = page+1\n         found = HttpService:GetAsync(('http:rproxy.tkcatalogjson?Keywor"
  58. ,":remove()end) end;create(found)end))\n            table.insert(_t,Tab.new(talker,tostring(asset.Name),'Bright blue',function()end,nil,ImageAsset..asset.AssetId))\n           table.insert(_t,Tab.new(talker,'Robux: '..tostring(asset.PriceInRobux or 'NA'),'Bright blue',function()end))\n          table.insert(_t,Tab.new(talker,'Tix: '..tostring(asset.PriceInRobux or 'NA'),'Bright blue',function()end))\n            table.insert(_t,Tab.new(talker,'Id: '..tostring(asset.AssetId),'Bright blue',function()end))\n          table.insert(_t,Tab.new(talker,'Buy','Bright white',function()\n            MarketPlaceService:PromptPurchase(talker,asset.AssetId)\n           end))\n         table.insert(_t,Tab.new(talker,'Insert',nil,function()\n            local g = InsertService:LoadAsset(asset.AssetId)\n          if #peoples == 0 then\n         g:GetChildren()[1].Parent = talker.Character or Workspace\n         elseif #peoples>=1 then\n           for _,v in pairs(peoples) do \n         ypcall(function()g:GetChildren()[1]:Clone().Parent = v.Character or Wor"
  59. ,":remove()end) end;create(found)end))\n            table.insert(_t,Tab.new(talker,tostring(asset.Name),'Bright blue',function()end,nil,ImageAsset..asset.AssetId))\n           table.insert(_t,Tab.new(talker,'Robux: '..tostring(asset.PriceInRobux or 'NA'),'Bright blue',function()end))\n          table.insert(_t,Tab.new(talker,'Tix: '..tostring(asset.PriceInRobux or 'NA'),'Bright blue',function()end))\n            table.insert(_t,Tab.new(talker,'Id: '..tostring(asset.AssetId),'Bright blue',function()end))\n          table.insert(_t,Tab.new(talker,'Buy','Bright white',function()\n            MarketPlaceService:PromptPurchase(talker,asset.AssetId)\n           end))\n         table.insert(_t,Tab.new(talker,'Insert',nil,function()\n            local g = InsertService:LoadAsset(asset.AssetId)\n          if #peoples == 0 then\n         g:GetChildren()[1].Parent = talker.Character or Workspace\n         elseif #peoples>=1 then\n           for _,v in pairs(peoples) do \n         ypcall(function()g:GetChildren()[1]:Clone().Parent = v.Character or Wor"
  60. ,"kspace;end)\n         end end\n           end)) -- gear tab\n         end,nil,ImageAsset..asset.AssetId))\n           end\n           else\n              Tab.new(talker,'No results found...',nil,Tab.ClickRemove)\n         end\n       end\n       create(found)\n end,Rank =1,Aliases ={'ht'},Target = false,Description = {'Get hats from the roblox catalog'}\n},\n}\n\nCommands.Cmds = {\n Function = function(talker,_,__)\n      Tab.Clear(talker)\n     local function recurse(_,v,talker)\n            coroutine.wrap(function()\n         wait()\n            Tab.Clear(talker)\n         Tab.new(talker,'Name: '..tostring(_),'Bright blue',Tab.ClickRemove)\n           Tab.new(talker,'Aliases: '..tostring(table.concat(v.Aliases,'\\\\')),'Bright blue',Tab.ClickRemove)\n           for index,val in pairs(v.Description) do \n         Tab.new(talker,tostring(val),'Bright blue',Tab.ClickRemove)\n           end\n           Tab.new(talker,'Back to commands','Bright green',function() Commands.Cmds.Function(talker,nil,nil) end)\n           end)()\n        end \n      for _,v in pairs(Commands) do\n             if v.Descrip"
  61. ,"tostring(plr.AccountAge),'Bright blue',Tab.ClickRemove).Tab)\n            table.insert(tbs2,Tab.new(talker,'Id: '..tostring(plr.userId),'Bright blue',Tab.ClickRemove).Tab)\n         table.insert(tbs2,Tab.new(talker,tostring(plr.Name),'White',Tab.ClickRemove,nil,PlayerImage..tostring(plr.Name)).Tab)\n         for _,v in pairs(Commands) do \n            if v['Target'] ~= nil then\n            if v.Target == true then \n         table.insert(tbs2,Tab.new(talker,tostring(_),'Bright yellow',function() v.Function(talker,{plr},nil,true) end).Tab) \n          end \n          end\n           end \n          end)()\n            end \n      for _,v in pairs(Players:GetPlayers()) do \n            table.insert(tbs1,Tab.new(talker,tostring(v.Name),'Bright orange',function()recurse(v)end,nil,PlayerImage..tostring(v.Name)).Tab)\n     end\n   end,Rank = 1, Aliases = {'plrs'}, Description = {'Gets players'}, Target = false\n}\n\nsetmetatable(Commands,{\n__index = function(s,i)\nfor ind,cmd in pairs(s) do \nif cmd['Aliases'] ~= nil then\nfor ind2,aliase "
  62. ,"tostring(plr.AccountAge),'Bright blue',Tab.ClickRemove).Tab)\n            table.insert(tbs2,Tab.new(talker,'Id: '..tostring(plr.userId),'Bright blue',Tab.ClickRemove).Tab)\n         table.insert(tbs2,Tab.new(talker,tostring(plr.Name),'White',Tab.ClickRemove,nil,PlayerImage..tostring(plr.Name)).Tab)\n         for _,v in pairs(Commands) do \n            if v['Target'] ~= nil then\n            if v.Target == true then \n         table.insert(tbs2,Tab.new(talker,tostring(_),'Bright yellow',function() v.Function(talker,{plr},nil,true) end).Tab) \n          end \n          end\n           end \n          end)()\n            end \n      for _,v in pairs(Players:GetPlayers()) do \n            table.insert(tbs1,Tab.new(talker,tostring(v.Name),'Bright orange',function()recurse(v)end,nil,PlayerImage..tostring(v.Name)).Tab)\n     end\n   end,Rank = 1, Aliases = {'plrs'}, Description = {'Gets players'}, Target = false\n}\n\nsetmetatable(Commands,{\n__index = function(s,i)\nfor ind,cmd in pairs(s) do \nif cmd['Aliases'] ~= nil then\nfor ind2,aliase "
  63. ,"in pairs(cmd.Aliases) do \nif aliase:lower() == i:lower() or ind:lower() == i:lower() then \nreturn cmd\nend\nend\nelse\nprint(tostring(i)..'\\'s Aliases are missing!')\nend\nend\nend\n})\n\nfunction GetPlayersFromString(talker,string)\nlocal selected = {}\nlocal newstring = string.match(string,'=([%p%a%d%s]+)=')\nif not newstring then newstring ='' end\n----------------\n----------------\nfor listedplayer in newstring:lower():gmatch(\"[^,;~!@#$%^&*\\ ]+\") do \nif listedplayer == 'all' then \n   for _,v in pairs(Players:GetPlayers()) do \n        table.insert(selected,v)\n  end\nelseif listedplayer:lower() == 'others' then\n for _,v in pairs(Players:GetPlayers()) do \n        if v ~= talker then\n           table.insert(selected,v)\n      end\n   end\nelseif listedplayer:lower() == 'me' then\n table.insert(selected,talker)\nelseif listedplayer:lower() == 'friends' then\n  for _,v in pairs(Players:GetChildren()) do\n        if v:IsFriendsWith(talker.userId) then\n    "
  64. ,"      table.insert(selected,v)\n        end\n   end  \nelseif listedplayer:lower() == 'bestfriends' then\n    for _,v in pairs(Players:GetChildren()) do\n        if v:IsBestFriendsWith(talker.userId) then\n            table.insert(selected,v)\n        end\n end \nelseif listedplayer:lower() == 'nonfriends' then\n    for _,v in pairs(Players:GetChildren()) do\n        if not v:IsFriendsWith(talker.userId) then\n            table.insert(selected,v)\n        end\n end \nelseif listedplayer:lower() == 'nonbestfriends' then\n    for _,v in pairs(Players:GetChildren()) do\n        if not v:IsBestFriendsWith(talker.userId) then\n            table.insert(selected,v)\n        end\n end\nelseif listedplayer:lower() == 'admins' then\n for _,v in pairs(Players:GetChildren()) do\n        if List[v.Name] ~= nil then\n           local ranked = List[v.Name]\n           if ranked.Rank>0 then\n             table.insert(selected,v)\n          end\n       end\n   end\nelseif string.sub(listedplayer:lower(),1,4) == 'rank' the"
  65. ,"anked.Rank >= rank then\n table.insert(selected,v)\n  end\n   end\n   end     \nelseif sign == '<' then\n for _,v in pairs(Players:GetChildren()) do\n    if List[v.Name] ~= nil then\n   local ranked = List[v.Name]\n   if ranked.Rank < rank then\n    table.insert(selected,v)\n  end\n   end\n   end     \nelseif sign == '<=' then\n    for _,v in pairs(Players:GetChildren()) do\n    if List[v.Name] ~= nil then\n   local ranked = List[v.Name]\n   if ranked.Rank <= rank then\n   table.insert(selected,v)\n  end\n   end\n   end \nend\n\nelseif (rank ~= nil and sign ~= nil) and (sign2 ~= nil and rank2 ~= nil) then\n    if sign == '>' and sign2 == '<' then\n      for _,v in pairs(Players:GetChildren()) do\n        if List[v.Name] ~= nil then\n       local ranked = List[v.Name]\n       if ranked.Rank > rank and ranked.Rank < rank2 then\n        table.insert(selected,v)\n      end\n       end\n       end \n  elseif sign == '>=' and sign2 == '<=' then\n        for _,v in pairs(Players:GetChildren()) do\n        if List[v.Name] ~= nil then\n       loca"
  66. ,"l ranked = List[v.Name]\n     if ranked.Rank >= rank and ranked.Rank <= rank2 then\n      table.insert(selected,v)\n      end\n       end\n       end \n  end\nend    \nend--ifs\nend--loop\n\nfor listedplayer in newstring:lower():gmatch(\"[^,;~!@#$%^&*\\ ]+\") do \nlocal specified = {}\nfor _,v in pairs(Players:GetPlayers()) do \n   if listedplayer:lower() == string.sub(v.Name,1,string.len(listedplayer)):lower() then\n     table.insert(specified,v)\n end--\nend--\nif #specified>=2 then \n  local names = {}\n  for _,v in pairs(specified) do \n   --if ypcall(function()v.Name = v.Name end) then\n       table.insert(names,v.Name)\n    end --end\n local s = Tab.Choices(talker,names,'Did you mean?',PlayerImage).Event:wait()\n\n    for _,v in pairs(s) do \n       if Players:FindFirstChild(v) ~= nil then\n          table.insert(selected,Players[v])\n     end--\n end--\nelse\n   for _,v in pairs(specified) do \n       table.insert(selected,v)\n  end\nend--\nend\nreturn selected\nend--func\n\nfunction ManageChat("
  67. ,"l ranked = List[v.Name]\n     if ranked.Rank >= rank and ranked.Rank <= rank2 then\n      table.insert(selected,v)\n      end\n       end\n       end \n  end\nend    \nend--ifs\nend--loop\n\nfor listedplayer in newstring:lower():gmatch(\"[^,;~!@#$%^&*\\ ]+\") do \nlocal specified = {}\nfor _,v in pairs(Players:GetPlayers()) do \n   if listedplayer:lower() == string.sub(v.Name,1,string.len(listedplayer)):lower() then\n     table.insert(specified,v)\n end--\nend--\nif #specified>=2 then \n  local names = {}\n  for _,v in pairs(specified) do \n   --if ypcall(function()v.Name = v.Name end) then\n       table.insert(names,v.Name)\n    end --end\n local s = Tab.Choices(talker,names,'Did you mean?',PlayerImage).Event:wait()\n\n    for _,v in pairs(s) do \n       if Players:FindFirstChild(v) ~= nil then\n          table.insert(selected,Players[v])\n     end--\n end--\nelse\n   for _,v in pairs(specified) do \n       table.insert(selected,v)\n  end\nend--\nend\nreturn selected\nend--func\n\nfunction ManageChat("
  68. ,"player,chat)\n    local first = chat:match('[^;,!\\ ]+')\n    if Commands[first] then\n       local cmd = Commands[first]\n       local needrank = cmd.Rank\n     if List[player.Name].Rank >= needrank then\n            local plrs = {}\n           local chattedList = string.match(chat,'=([%a%d%p%s]+)=')\n          plrs = GetPlayersFromString(player,chat) \n         local args = (chat:gsub('=([%a%d%p%s]+)=','')):gsub(first,'')\n         if args == ' ' then args = '' end\n         local s,e = ypcall(function()cmd.Function(player,plrs,args)end)\n           if not s then\n             Tab.new(player,e,nil,Tab.ClickRemove)\n         end\n           else\n          Tab.new(player,'You do not have permission','Bright blue',Tab.ClickRemove)\n        end\n   end\nend\n\nfunction PingAllAdmins(t,f)\nfor _,v in pairs(Players:GetPlayers()) do \nif List[v.Name].Rank>=1 then\nTab.new(v,tostring(t),'Bright orange',f or Tab.ClickRemove)\nend\nend\nend\n\nfunction Secure(plr)\nlocal function nope(obj)\nif AntiLocal then\nif obj.Name ~= tostring(SessionId) the"
  69. ,"er.ChildAdded:connect(nope)\nend\nplr.CharacterAdded:connect(function(char)\nchar.ChildAdded:connect(nope)\nend)\nend)()\nend\n\nfunction Check(plr)\nif List[plr.Name].Rank>=1 and not InTable(plr,GivenPowers) then\ntable.insert(GivenPowers,plr)\nSecure(plr)\nTab.new(plr,\"You're an admin!\",nil,Tab.ClickRemove)\nTab.new(plr,\"Welcome to VVV\",nil,Tab.ClickRemove)\nTab.new(plr,\"Made by Krauzz, cxcharlie, and Howamisupposedtoknow -literally\",\"Bright green\",Tab.ClickRemove)\nplr.Chatted:connect(function(str)\nManageChat(plr,str)\n--Tab.new(plr,tostring(str),nil,Tab.ClickRemove)\nend)\nelseif List[plr.Name].Rank<0 then\nRip(plr) --lalwla\nend\nend\n\nfor _,v in pairs(Players:GetPlayers()) do \nCheck(v)\nend\n\nPlayers.PlayerAdded:connect(function(p)\nCheck(p)\nPingAllAdmins('Player_Connected: '..tostring(p.Name))\nend)\n\nPlayers.PlayerRemoving:connect(function(p)\nPingAllAdmins('Player_Disconnected:  '..tostring(p.Name))\ncoroutine.wra"
  70. ,"er.ChildAdded:connect(nope)\nend\nplr.CharacterAdded:connect(function(char)\nchar.ChildAdded:connect(nope)\nend)\nend)()\nend\n\nfunction Check(plr)\nif List[plr.Name].Rank>=1 and not InTable(plr,GivenPowers) then\ntable.insert(GivenPowers,plr)\nSecure(plr)\nTab.new(plr,\"You're an admin!\",nil,Tab.ClickRemove)\nTab.new(plr,\"Welcome to VVV\",nil,Tab.ClickRemove)\nTab.new(plr,\"Made by Krauzz, cxcharlie, and Howamisupposedtoknow -literally\",\"Bright green\",Tab.ClickRemove)\nplr.Chatted:connect(function(str)\nManageChat(plr,str)\n--Tab.new(plr,tostring(str),nil,Tab.ClickRemove)\nend)\nelseif List[plr.Name].Rank<0 then\nRip(plr) --lalwla\nend\nend\n\nfor _,v in pairs(Players:GetPlayers()) do \nCheck(v)\nend\n\nPlayers.PlayerAdded:connect(function(p)\nCheck(p)\nPingAllAdmins('Player_Connected: '..tostring(p.Name))\nend)\n\nPlayers.PlayerRemoving:connect(function(p)\nPingAllAdmins('Player_Disconnected:  '..tostring(p.Name))\ncoroutine.wra"
  71. ,"p(function()ypcall(function()Rip(p)end)end)()\nypcall(function()p:Kick()end)\nend)\n\ncoroutine.wrap(function()\nRunService.Stepped:connect(function()\npcall(function()\nTab.Update()\nfor _,v in pairs(Workspace:GetChildren()) do \nfor index,name in pairs(Jailed) do if tostring(name) == tostring(v.Name) then\nif v:FindFirstChild('Jailed') == nil then\nlocal s = Instance.new('StringValue',v);s.Name = 'Jailed'\nfor _,v in pairs(v:GetChildren()) do pcall(function()v.Anchored=true end) end\nif v:FindFirstChild('Torso') ~= nil then\nlocal b = Instance.new('Part',v);b.FormFactor = Enum.FormFactor.Custom; b.Shape = Enum.PartType.Ball;b.Name = '_JAIL'\nb.Size = Vector3.new(10,10,10);b.Anchored = true;b.CanCollide = false;b.Transparency = 0.6; b.BrickColor = BrickColor.new'Bright red'\npcall(function()b.CFrame = v.Torso.CFrame;end)\nif Players:GetPlayerFromCharacter(v) ~= nil then\nPlayers:GetPlayerFromCharacter(v):ClearAllChildren()\nend\n--pcal"
  72. ,"l(function()local m = makeJail(v.Torso.Position - Vector3.new(0,1.6,0)) m.Parent = v;m.Name = '_JAIL' end)\nend end end end \nend\nend)\nend)\nend)()\n\n--[[RemoteChatted.OnServerEvent:connect(function(plr,wot)\nif plr == nil then\nlocal plr = newproxy(true)\ngetmetatable(plr).__index = {Name = tostring(SessionId),Character = Instance.new('Model',Workspace)}\nend\nManageChat(plr,wot)\nend)]]--\n"
  73. }))), getfenv())()
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!