Mercury-2
/
2013
mirror of https://github.com/tp-link-extender/2013.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Remove compiled versions of corescripts

This commit is contained in:
Lewin Kelly 2023-05-18 01:35:37 +01:00
parent a86f7e0999
commit a93f5ef15e
28 changed files with 0 additions and 5671 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

271
processed/107893730.lua
View File

@ -1,271 +0,0 @@
print'[Mercury]: Loaded corescript 107893730'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end while not Game do wait(0.1)end while not game:GetService
'MarketplaceService'do wait(0.1)end while not game:FindFirstChild'CoreGui'do
wait(0.1)end while not game.CoreGui:FindFirstChild'RobloxGui'do wait(0.1)end
local b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z=nil,game:GetService
'ContentProvider'.BaseUrl:lower(),nil,nil,nil,nil,nil,nil,nil,false,nil,false,
true,nil,false,nil,0.3,UDim2.new(0.5,-330,0.5,-200),UDim2.new(0.5,-330,1,25),nil
,false,nil,450,{},nil z=function(A)return'http://www.roblox.com/Asset/?id='..
tostring(A)end local A=z'42557901'table.insert(y,A)local B=z'104651457'table.
insert(y,B)local C=z'104651515'table.insert(y,C)local D=z'104651532'table.
insert(y,D)local E=z'104651592'table.insert(y,E)local F=z'104651639'table.
insert(y,F)local G=z'104651665'table.insert(y,G)local H=z'104651707'table.
insert(y,H)local I=z'104651733'table.insert(y,I)local J=z'104651761'table.
insert(y,J)local K=z'102481431'table.insert(y,K)local L=z'102481419'table.
insert(y,L)local M,N,O,P,Q,R,S,T,U,V,W='Buy','Take','An Error Occurred',
'in-game purchases are disabled','Roblox is performing maintenance',
'Your purchase of itemName succeeded!',
[[Your purchase of itemName failed because errorReason. Your account has not been charged. Please try again soon.]]
,[[Would you like to buy 'itemName' for currencyType currencyAmount?]],
"Would you like to take the assetType 'itemName' for FREE?",
[[Your balance of Robux or Tix will not be affected by this transaction.]],nil W
=function()local X=string.gsub(c,'http','https')X=string.gsub(X,'www','api')
return X end local X X=function()if not b then b=LoadLibrary'RbxUtility'end
return b end local Y Y=function()for Z=1,#y do game:GetService'ContentProvider':
Preload(y[Z])end end local Z Z=function()e=nil f=nil g=nil h=nil i=nil d=nil j=
nil k=false end local _ _=function()q.PurchasingFrame.Visible=false v=false end
local aa aa=function()return q:TweenPosition(t,Enum.EasingDirection.Out,Enum.
EasingStyle.Quad,r,true,function()game.GuiService:RemoveCenterDialog(q)_()q.
Visible=false p=false end)end local ab ab=function(...)local ac,ad,ae={...},
select('#',...),q.BodyFrame:GetChildren()for af=1,#ae do if ae[af]:IsA
'GuiButton'then ae[af].Visible=false for ag=1,ad do if ae[af]==ac[ag]then ae[af]
.Visible=true break end end end end end local ac ac=function(ad)aa()if m then
game:GetService'MarketplaceService':SignalPromptProductPurchaseFinished(game.
Players.LocalPlayer.userId,i,ad)else game:GetService'MarketplaceService':
SignalPromptPurchaseFinished(game.Players.LocalPlayer,e,ad)end return Z()end
local ad ad=function(ae)k=false if ae then local af=string.gsub(R,'itemName',
tostring(d['Name']))q.BodyFrame.ItemPreview.ItemDescription.Text=af ab(q.
BodyFrame.OkPurchasedButton)return _()else return ac(ae)end end local ae ae=
function()return d and d['IsForSale']==true and d['IsPublicDomain']==true end
local af af=function(ag)q.TitleLabel.Text=ag q.TitleBackdrop.Text=ag end local
ag ag=function(ah)if 1==ah then return'Image'elseif 2==ah then return'T-Shirt'
elseif 3==ah then return'Audio'elseif 4==ah then return'Mesh'elseif 5==ah then
return'Lua'elseif 6==ah then return'HTML'elseif 7==ah then return'Text'elseif 8
==ah then return'Hat'elseif 9==ah then return'Place'elseif 10==ah then return
'Model'elseif 11==ah then return'Shirt'elseif 12==ah then return'Pants'elseif 13
==ah then return'Decal'elseif 16==ah then return'Avatar'elseif 17==ah then
return'Head'elseif 18==ah then return'Face'elseif 19==ah then return'Gear'elseif
21==ah then return'Badge'elseif 22==ah then return'Group Emblem'elseif 24==ah
then return'Animation'elseif 25==ah then return'Arms'elseif 26==ah then return
'Legs'elseif 27==ah then return'Torso'elseif 28==ah then return'Right Arm'elseif
29==ah then return'Left Arm'elseif 30==ah then return'Left Leg'elseif 31==ah
then return'Right Leg'elseif 32==ah then return'Package'elseif 33==ah then
return'YouTube Video'elseif 34==ah then return'Game Pass'elseif 0==ah then
return'Product'else return''end end local ah ah=function(ai)if ai==Enum.
CurrencyType.Tix then return'Tix'else return'R$'end end local ai ai=function(aj)
local ak=''if not i then i=d['ProductId']end if ae()then ak=string.gsub(U,
'itemName',tostring(d['Name']))ak=string.gsub(ak,'assetType',tostring(ag(d[
'AssetTypeId'])))af(N)else ak=string.gsub(T,'itemName',tostring(d['Name']))ak=
string.gsub(ak,'currencyType',tostring(ah(f)))ak=string.gsub(ak,'currencyAmount'
,tostring(g))af(M)end q.BodyFrame.ItemPreview.ItemDescription.Text=ak if m then
q.BodyFrame.ItemPreview.Image=c..'thumbs/asset.ashx?assetid='..tostring(d[
'IconImageAssetId'])..'&x=100&y=100&format=png'else q.BodyFrame.ItemPreview.
Image=c..'thumbs/asset.ashx?assetid='..tostring(e)..'&x=100&y=100&format=png'end
end local aj aj=function(ak,al)if f==Enum.CurrencyType.Default or f==Enum.
CurrencyType.Robux then if(ak~=nil)and ak~=0 then g=ak f=Enum.CurrencyType.Robux
else g=al f=Enum.CurrencyType.Tix end elseif f==Enum.CurrencyType.Tix then if(al
~=nil)and al~=0 then g=al f=Enum.CurrencyType.Tix else g=ak f=Enum.CurrencyType.
Robux end else return false end if not(g~=nil)then return false end return true
end local ak ak=function()local al local am,an=pcall(function()al=game:
HttpGetAsync(tostring(W())..'currency/balance')end)if not am then print(
'Get player balance failed because',an)return nil end if al==''then return nil
end al=X().DecodeJSON(al)return al end local al al=function(am)if Enum.
MembershipType.None==am then return 0 elseif Enum.MembershipType.BuildersClub==
am then return 1 elseif Enum.MembershipType.TurboBuildersClub==am then return 2
elseif Enum.MembershipType.OutrageousBuildersClub==am then return 3 else return-
1 end end local am am=function()k=true return game:GetService'GuiService':
OpenBrowserWindow(tostring(c)..'Upgrades/Robux.aspx')end local an an=function(ao
,ap)if ae()then q.BodyFrame.AfterBalanceButton.Text=V return true,false end
local aq if f==Enum.CurrencyType.Robux then aq='robux'elseif f==Enum.
CurrencyType.Tix then aq='tickets'end if not aq then return false end local ar=
tonumber(ao[aq])if not ar then return false end local as=ar-g if not ap then if
as<0 and aq=='robux'then if not(o~=nil)then o=q.BodyFrame.AfterBalanceButton.
MouseButton1Click:connect(am)end q.BodyFrame.AfterBalanceButton.Text='You need '
..tostring(ah(f))..' '..tostring(-as)..
' more to buy this, click here to purchase more.'return true,true elseif as<0
and aq=='tickets'then q.BodyFrame.AfterBalanceButton.Text='You need '..tostring(
-as)..' '..tostring(ah(f))..' more to buy this item.'return true,true end end if
o then o:disconnect()o=nil end q.BodyFrame.AfterBalanceButton.Text=
'Your balance after this transaction will be '..tostring(ah(f))..' '..tostring(
as)..'.'return true,false end local ao ao=function()local ap,aq,ar,as=false,
false,nil,false if m then local at as=pcall(function()at=Game:HttpGetAsync(
tostring(W())..'marketplace/productDetails?productid='..tostring(i))end)if as
then d=X().DecodeJSON(at)end else as=pcall(function()d=game:GetService
'MarketplaceService':GetProductInfo(e)end)end if not(d~=nil)or not as then ar=
[[In-game sales are temporarily disabled. Please try again later.]]return true,
nil,nil,true,ar end if not m then if not e then print
'current asset id is nil, this should always have a value'return false end if e
<=0 then print[[current asset id is negative, this should always be positive]]
return false end local at as,at=pcall(function()ap=game:HttpGetAsync(W()..
'ownership/hasAsset?userId='..tostring(game.Players.LocalPlayer.userId)..
'&assetId='..tostring(e))end)if not as then print(
'could not tell if player owns asset because',at)return false end if ap==true or
ap=='true'then ar='You already own this item.'return true,nil,nil,true,ar end
end q.BodyFrame.AfterBalanceButton.Visible=true if type(d)~='table'then d=X().
DecodeJSON(d)end if not d then ar=
'Could not get product info. Please try again later.'return true,nil,nil,true,ar
end if d['IsForSale']==false and d['IsPublicDomain']==false then ar=
'This item is no longer for sale.'return true,nil,nil,true,ar end if not aj(
tonumber(d['PriceInRobux']),tonumber(d['PriceInTickets']))then ar=
[[We could retrieve the price of the item correctly. Please try again later.]]
return true,nil,nil,true,ar end local at=ak()if not at then ar=
'Could not retrieve your balance. Please try again later.'return true,nil,nil,
true,ar end if tonumber(d['MinimumMembershipLevel'])>al(game.Players.LocalPlayer
.MembershipType)then aq=true end local au,av=an(at,aq)if aq then q.BodyFrame.
AfterBalanceButton.Active=true return true,av,aq,false end if d[
'ContentRatingTypeId']==1 then if game.Players.LocalPlayer:GetUnder13()then ar=
[[Your account is under 13 so purchase of this item is not allowed.]]return true
,nil,nil,true,ar end end if(d['IsLimited']==true or d['IsLimitedUnique']==true)
and(d['Remaining']==''or d['Remaining']==0 or not(d['Remaining']~=nil))then ar=
[[All copies of this item have been sold out! Try buying from other users on the website.]]
return true,nil,nil,true,ar end if not au then ar=
[[Could not update your balance. Please check back after some time.]]return true
,nil,nil,true,ar end q.BodyFrame.AfterBalanceButton.Active=true return true,av
end local ap ap=function(aq)if k then local ar,as=ao()if ar and as then local at
=1000 while(at>0 or aq)and as and k and ar do wait(0.1)ar,as=ao()at=at-1 end end
if ar and not as then return ab(q.BodyFrame.BuyButton,q.BodyFrame.CancelButton,q
.BodyFrame.AfterBalanceButton)end end end local aq aq=function()return Game:
GetService'GuiService':OpenBrowserWindow(tostring(c)..
'Upgrades/BuildersClubMemberships.aspx')end local ar ar=function()return ad(
false)end local as as=function()local at,au,av,aw,ax=ao()if at then ai()if aw
and ax then q.BodyFrame.ItemPreview.ItemDescription.Text=ax q.BodyFrame.
AfterBalanceButton.Visible=false end game.GuiService:AddCenterDialog(q,Enum.
CenterDialogType.ModalDialog,function()q.Visible=true if ae()then ab(q.BodyFrame
.FreeButton,q.BodyFrame.CancelButton,q.BodyFrame.AfterBalanceButton)elseif av
then q.BodyFrame.AfterBalanceButton.Text=
[[You require an upgrade to your Builders Club membership to purchase this item. Click here to upgrade.]]
if not l then l=q.BodyFrame.AfterBalanceButton.MouseButton1Click:connect(
function()if q.BodyFrame.AfterBalanceButton.Text==
[[You require an upgrade to your Builders Club membership to purchase this item. Click here to upgrade.]]
then return aq()end end)end ab(q.BodyFrame.BuyDisabledButton,q.BodyFrame.
CancelButton,q.BodyFrame.AfterBalanceButton)elseif au then ab(q.BodyFrame.
BuyDisabledButton,q.BodyFrame.CancelButton,q.BodyFrame.AfterBalanceButton)elseif
aw then ab(q.BodyFrame.BuyDisabledButton,q.BodyFrame.CancelButton)else ab(q.
BodyFrame.BuyButton,q.BodyFrame.CancelButton)end q:TweenPosition(s,Enum.
EasingDirection.Out,Enum.EasingStyle.Quad,r,true)if at and au and not n then k=
true return ap(true)end end,function()q.Visible=false end)return q else return
ar()end end local at at=function(au)local av=game:GetService'InsertService':
LoadAsset(au)if not av then return nil end if av:IsA'Tool'then return av end
local aw=av:GetChildren()for ax=1,#aw do if aw[ax]:IsA'Tool'then return aw[ax]
end end return nil end local au au=function(av)local aw='Item'if d then aw=d[
'Name']end local ax=string.gsub(S,'itemName',tostring(aw))if av then ax=string.
gsub(ax,'errorReason',tostring(P))else ax=string.gsub(ax,'errorReason',tostring(
Q))end q.BodyFrame.ItemPreview.ItemDescription.Text=ax q.BodyFrame.ItemPreview.
Image=A ab(q.BodyFrame.OkButton)af(O)return _()end local av av=function()v=true
return Spawn(function()local aw=0 while v do local ax=0 while ax<8 do w[ax+1].
Image='http://www.roblox.com/Asset/?id='..(function()if ax==aw or ax==(aw+1)%8
then return'45880668'else return'45880710'end end)()ax=ax+1 end aw=(aw+1)%8
wait(6.666666666666666E-2)end end)end local aw aw=function()av()q.
PurchasingFrame.Visible=true end local ax ax=function(ay)if ay==Enum.
CurrencyType.Robux or ay==Enum.CurrencyType.Default then return 1 elseif ay==
Enum.CurrencyType.Tix then return 2 end end local ay ay=function(az)aw()local aA
,aB,aC=tick(),'none',nil if m then aC=W()..
'marketplace/submitpurchase?productId='..tostring(i)..'&currencyTypeId='..
tostring(ax(f))..'&expectedUnitPrice='..tostring(g)..'&placeId='..tostring(Game.
PlaceId)else aC=W()..'marketplace/purchase?productId='..tostring(i)..
'&currencyTypeId='..tostring(ax(f))..'&purchasePrice='..tostring(g)..
'&locationType=Game'..'&locationId='..tostring(Game.PlaceId)end local aD,aE=
pcall(function()aB=game:HttpPostAsync(aC,'RobloxPurchaseRequest')end)print(
'doAcceptPurchase success from ypcall is ',aD,'reason is',aE)if(tick()-aA)<1
then wait(1)end if aB=='none'or not(aB~=nil)or aB==''then print(
'did not get a proper response from web on purchase of',e,i)au()return end aB=X(
).DecodeJSON(aB)if aB then if aB['success']==false then if aB['status']~=
'AlreadyOwned'then print('web return response of fail on purchase of',e,i)au(aB[
'status']=='EconomyDisabled')return end end else print(
'web return response of non parsable JSON on purchase of',e)au()return end if h
and aD and e and tonumber(d['AssetTypeId'])==19 then local aF=at(tonumber(e))if
aF then aF.Parent=game.Players.LocalPlayer.Backpack end end if m then if not aB[
'receipt']then print(
[[tried to buy productId, but no receipt returned. productId was]],i)au()return
end return Game:GetService'MarketplaceService':SignalClientPurchaseSuccess(
tostring(aB['receipt']),game.Players.LocalPlayer.userId,i)else return ad(aD)end
end local az az=function(aA,aB,aC)local aD=a('Frame','Spinner',{Size=aA,Position
=aB,BackgroundTransparency=1,ZIndex=10,Parent=aC})w={}local aE=1 while aE<=8 do
local aF=a('ImageLabel','Spinner'..tostring(aE),{Size=UDim2.new(0,16,0,16),
Position=UDim2.new(0.5+0.3*math.cos(math.rad(45*aE)),-8,0.5+0.3*math.sin(math.
rad(45*aE)),-8),BackgroundTransparency=1,ZIndex=10,Image=
'http://www.roblox.com/Asset/?id=45880710',Parent=aD})w[aE]=aF aE=aE+1 end end
local aA aA=function(aB,aC,aD,aE)return a(aD,aB,{Font=Enum.Font.ArialBold,
TextColor3=Color3.new(0.8509803921568627,0.8509803921568627,0.8509803921568627),
TextWrapped=true,Text=aC,BackgroundTransparency=1,BorderSizePixel=0,FontSize=aE}
)end local aB aB=function(aC)return a('ImageButton',aC,{Size=UDim2.new(0,153,0,
46)})end local aC aC=function(aD)k=false if aD then aa()if j then local aE=false
if(tostring(j['isValid'])):lower()=='true'then aE=true end Game:GetService
'MarketplaceService':SignalPromptProductPurchaseFinished(tonumber(j['playerId'])
,tonumber(j['productId']),aE)else print
'Something went wrong, no currentServerResponseTable'end return Z()else local aE
=string.gsub(R,'itemName',tostring(d['Name']))q.BodyFrame.ItemPreview.
ItemDescription.Text=aE ab(q.BodyFrame.OkPurchasedButton)return _()end end local
aD aD=function()q=a('Frame','PurchaseFrame',{Size=UDim2.new(0,660,0,400),
Position=t,Visible=false,BackgroundColor3=Color3.new(0.5529411764705883,
0.5529411764705883,0.5529411764705883),BorderColor3=Color3.new(0.8,0.8,0.8),
Parent=game.CoreGui.RobloxGui,a('Frame','BodyFrame',{Size=UDim2.new(1,0,1,-60),
Position=UDim2.new(0,0,0,60),BackgroundColor3=Color3.new(0.2627450980392157,
0.2627450980392157,0.2627450980392157),BorderSizePixel=0,ZIndex=8})})local aE=q.
BodyFrame do local aF=aA('TitleLabel','Buy Item','TextLabel',Enum.FontSize.
Size48)aF.ZIndex=8 aF.Size=UDim2.new(1,0,0,60)do local aG=aF:Clone()aG.Name=
'TitleBackdrop'aG.TextColor3=Color3.new(0.12549019607843137,0.12549019607843137,
0.12549019607843137)aG.BackgroundTransparency=0 aG.BackgroundColor3=Color3.new(
0.21176470588235294,0.3764705882352941,0.6705882352941176)aG.Position=UDim2.new(
0,0,0,-2)aG.ZIndex=8 aG.Parent=q end aF.Parent=q end local aF=90 do local aG=aB
'CancelButton'aG.Position=UDim2.new(0.5,aF/2,1,-120)aG.BackgroundTransparency=1
aG.BorderSizePixel=0 aG.Parent=aE aG.Modal=true aG.ZIndex=8 aG.Image=E aG.
MouseButton1Down:connect(function()aG.Image=F end)aG.MouseButton1Up:connect(
function()aG.Image=E end)aG.MouseLeave:connect(function()aG.Image=E end)aG.
MouseButton1Click:connect(ar)end local aG=aB'BuyButton'aG.Position=UDim2.new(0.5
,-153-(aF/2),1,-120)aG.BackgroundTransparency=1 aG.BorderSizePixel=0 aG.Image=B
aG.ZIndex=8 aG.MouseButton1Down:connect(function()aG.Image=C end)aG.
MouseButton1Up:connect(function()aG.Image=B end)aG.MouseLeave:connect(function()
aG.Image=B end)aG.Parent=aE do local aH=aG:Clone()aH.Name='BuyDisabledButton'aH.
AutoButtonColor=false aH.Visible=false aH.Active=false aH.Image=D aH.ZIndex=8 aH
.Parent=aE end local aH=aG:Clone()aH.BackgroundTransparency=1 aH.Name=
'FreeButton'aH.Visible=false aH.ZIndex=8 aH.Image=I aH.MouseButton1Down:connect(
function()aH.Image=J end)aH.MouseButton1Up:connect(function()aH.Image=I end)aH.
MouseLeave:connect(function()aH.Image=I end)aH.Parent=aE local aI=aG:Clone()aI.
Name='OkButton'aI.BackgroundTransparency=1 aI.Visible=false aI.Position=UDim2.
new(0.5,-aI.Size.X.Offset/2,1,-120)aI.Modal=true aI.Image=G aI.ZIndex=8 aI.
MouseButton1Down:connect(function()aI.Image=H end)aI.MouseButton1Up:connect(
function()aI.Image=G end)aI.MouseLeave:connect(function()aI.Image=G end)aI.
Parent=aE do local aJ=aI:Clone()aJ.ZIndex=8 aJ.Name='OkPurchasedButton'aJ.
MouseButton1Down:connect(function()aJ.Image=H end)aJ.MouseButton1Up:connect(
function()aJ.Image=G end)aJ.MouseLeave:connect(function()aJ.Image=G end)aJ.
Parent=aE aJ.MouseButton1Click:connect(function()if m then return aC(true)else
return ac(true)end end)end aI.MouseButton1Click:connect(function()return ad(
false)end)aG.MouseButton1Click:connect(function()return ay(Enum.CurrencyType.
Robux)end)aH.MouseButton1Click:connect(function()return ay(false)end)local aJ=a(
'ImageLabel','ItemPreview',{BackgroundColor3=Color3.new(0.12549019607843137,
0.12549019607843137,0.12549019607843137),BorderColor3=Color3.new(
0.5529411764705883,0.5529411764705883,0.5529411764705883),Position=UDim2.new(0,
30,0,20),Size=UDim2.new(0,180,0,180),ZIndex=9,Parent=aE})do local aK=aA(
'ItemDescription',
[[Would you like to buy the 'itemName' for currencyType currencyAmount?]],
'TextLabel',Enum.FontSize.Size24)aK.Position=UDim2.new(1,20,0,0)aK.Size=UDim2.
new(0,410,1,0)aK.ZIndex=8 aK.Parent=aJ end do local aK=aA('AfterBalanceButton',
'Place holder text ip sum lorem dodo ashs','TextButton',Enum.FontSize.Size24)aK.
AutoButtonColor=false aK.TextColor3=Color3.new(0.8705882352941177,
0.23137254901960785,0.11764705882352941)aK.Position=UDim2.new(0,5,1,-55)aK.Size=
UDim2.new(1,-10,0,50)aK.ZIndex=8 aK.Parent=aE end local aK,aL=a('Frame',
'PurchasingFrame',{Size=UDim2.new(1,0,1,0),BackgroundColor3=Color3.new(0,0,0),
BackgroundTransparency=0.2,BorderSizePixel=0,ZIndex=9,Visible=false,Active=true,
Parent=q}),aA('PurchasingLabel','Purchasing...','TextLabel',Enum.FontSize.Size48
)aL.Size=UDim2.new(1,0,1,0)aL.ZIndex=10 aL.Parent=aK return az(UDim2.new(0,50,0,
50),UDim2.new(0.5,-25,0.5,30),aL)end local aE aE=function(aF)end local aF aF=
function(aG)end local aG aG=function(aH)if aH then return aE(q)else return aF(q)
end end local aH aH=function(aI,aJ,aK,aL,aM)if not q then aD()end if aI==game.
Players.LocalPlayer then if p then return end p=true e=aJ i=aM f=aL h=aK m=(i~=
nil)return as()end end local aI aI=function(aJ)if not aJ then print
'Server response table was nil, cancelling purchase'au()return end if aJ[
'playerId']and tonumber(aJ['playerId'])==game.Players.LocalPlayer.userId then j=
aJ return aC(false)end end Y()game:GetService'MarketplaceService'.
PromptProductPurchaseRequested:connect(function(aJ,aK,aL,aM)return aH(aJ,nil,aL,
aM,aK)end)Game:GetService'MarketplaceService'.PromptPurchaseRequested:connect(
function(aJ,aK,aL,aM)return aH(aJ,aK,aL,aM,nil)end)Game:GetService
'MarketplaceService'.ServerPurchaseVerification:connect(function(aJ)return aI(aJ
)end)if n then Game:GetService'GuiService'.BrowserWindowClosed:connect(function(
)return ap(false)end)end Game.CoreGui.RobloxGui.Changed:connect(function()local
aJ=game.CoreGui.RobloxGui.AbsoluteSize.Y<=x if aJ and not u then aG(true)elseif
not aJ and u then aG(false)end u=aJ end)u=game.CoreGui.RobloxGui.AbsoluteSize.Y
<=x if u then return aG(true)end

52
processed/152908679.lua
View File

@ -1,52 +0,0 @@
print'[Mercury]: Loaded corescript 152908679'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b,c,d,e,f,g,h,i,j,k=Game:GetService
'ContextActionService',Game:GetService'UserInputService'.TouchEnabled,{},{},nil,
nil,'http://www.banland.xyz/asset/?id=97166756',
'http://www.banland.xyz/asset/?id=97166444',{},{UDim2.new(0,123,0,70),UDim2.new(
0,30,0,60),UDim2.new(0,180,0,160),UDim2.new(0,85,0,-25),UDim2.new(0,185,0,-25),
UDim2.new(0,185,0,260),UDim2.new(0,216,0,65)}local l=#k do local m=Game:
GetService'ContentProvider'm:Preload(h)m:Preload(i)end while not Game.Players do
wait()end while not Game.Players.LocalPlayer do wait()end local m m=function()if
not f and c then f=a('ScreenGui','ContextActionGui',{a('Frame',
'ContextButtonFrame',{BackgroundTransparency=1,Size=UDim2.new(0.3,0,0.5,0),
Position=UDim2.new(0.7,0,0.5,0)})})end end local n n=function(o,p,q)if p.
UserInputType==Enum.UserInputType.Touch then o.Image=h return b:CallFunction(q,
Enum.UserInputState.Begin)end end local o o=function(p,q,r)if q.UserInputType==
Enum.UserInputType.Touch then p.Image=h return b:CallFunction(r,Enum.
UserInputState.Change)end end local p p=function(q,r,s)q.Image=i if r.
UserInputType==Enum.UserInputType.Touch and r.UserInputState==Enum.
UserInputState.End then return b:CallFunction(s,Enum.UserInputState.End,r)end
end local q q=function()return Game:GetService'GuiService':GetScreenResolution()
.y<=320 end local r r=function(s,t)local u,v=a('ImageButton',
'ContextActionButton',{BackgroundTransparency=1,Size=UDim2.new((function()if q()
then return 0,90,0,90 else return 0,70,0,70 end end)()),Active=true,Image=i,
Parent=g}),nil Game:GetService'UserInputService'.InputEnded:connect(function(w)j
[w]=nil end)u.InputBegan:connect(function(w)if j[w]then return end if w.
UserInputState==Enum.UserInputState.Begin and not(v~=nil)then v=w return n(u,w,s
)end end)u.InputChanged:connect(function(w)if j[w]or v~=w then return end return
o(u,w,s)end)u.InputEnded:connect(function(w)if j[w]or v~=w then return end v=nil
j[w]=true return p(u,w,s)end)local w=a('ImageLabel','ActionIcon',{Position=UDim2
.new(0.175,0,0.175,0),Size=UDim2.new(0.65,0,0.65,0),BackgroundTransparency=1})if
t['image']and type(t['image'])=='string'then w.Image=t['image']end w.Parent=u
local x=a('TextLabel','ActionTitle',{Size=UDim2.new(1,0,1,0),
BackgroundTransparency=1,Font=Enum.Font.SourceSansBold,TextColor3=Color3.new(1,1
,1),TextStrokeTransparency=0,FontSize=Enum.FontSize.Size18,TextWrapped=true,Text
=''})if t['title']and type(t['title'])=='string'then x.Text=t['title']end x.
Parent=u return u end local s s=function(t,u)local v,w=r(t,u),nil for x=1,#e do
if e[x]=='empty'then w=x break end end if not w then w=#e+1 end if w>l then
return end e[w]=v d[t]['button']=v v.Position=k[w]v.Parent=g if f and not(f.
Parent~=nil)then f.Parent=Game.Players.LocalPlayer.PlayerGui end end local t t=
function(u)if not d[u]then return end local v=d[u]['button']if v then v.Parent=
nil for w=1,#e do if e[w]==v then e[w]='empty'break end end v:Destroy()end d[u]=
nil end local u u=function(v,w,x)if d[v]then t(v)end d[v]={x}if w and c then m()
return s(v,x)end end b.BoundActionChanged:connect(function(v,w,x)if d[v]and x
then do local y=d[v]['button']if y then if w=='image'then y.ActionIcon.Image=x[w
]elseif w=='title'then y.ActionTitle.Text=x[w]elseif w=='position'then y.
Position=x[w]end end end end end)b.BoundActionAdded:connect(function(v,w,x)
return u(v,w,x)end)b.BoundActionRemoved:connect(function(v,w)return t(v)end)b.
GetActionButtonEvent:connect(function(v)if d[v]then return b:
FireActionButtonFoundSignal(v,d[v]['button'])end end)local v=b:
GetAllBoundActionInfo()for w,x in pairs(v)do u(w,x['createTouchButton'],x)end

104
processed/153556783.lua
View File

@ -1,104 +0,0 @@
print'[Mercury]: Loaded corescript 153556783'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end while not Game do wait()end while not Game:FindFirstChild
'Players'do wait()end while not Game.Players.LocalPlayer do wait()end while not
Game:FindFirstChild'CoreGui'do wait()end while not Game.CoreGui:FindFirstChild
'RobloxGui'do wait()end local b=Game:GetService'UserInputService'local c=pcall(
function()return b:IsLuaTouchControls()end)if not c then script:Destroy()end
local d,e=Game:GetService'GuiService':GetScreenResolution(),nil e=function()
return d.y<=320 end local f,g=Game.Players.LocalPlayer,120 if e()then g=70 end
local h,i,j,k,l='rbxasset://textures/ui/TouchControlsSheet.png',5,0.92,{},90 if
e()then l=70 end local m,n,o={},nil,0.007 local p,q,r,s=o*16,0.03,0.2,nil Game:
GetService'ContentProvider':Preload(h)local t t=function(u,v)local w,x=v.x-u.x,v
.y-u.y return math.sqrt(w*w+x*x)end local u u=function(v,w)return UDim2.new(0,v.
x-w.AbsoluteSize.x/2,0,v.y-w.AbsoluteSize.y/2)end local v v=function(w,x,y)local
z,A,B=math.sin(y),math.cos(y),w B=Vector2.new(B.x-x.x,B.y-x.y)local C,D=B.x*A-B.
y*z,B.x*z+B.y*A B=Vector2.new(C+x.x,D+x.y)return B end local w w=function(x,y)
return x.x*y.x+x.y*y.y end local x x=function(y,z,A)local B=Vector2.new(z.
Position.X.Offset+z.AbsoluteSize.x/2,z.Position.Y.Offset+z.AbsoluteSize.y/2)
local C=t(A,B)if C>(g/2)then local D=Vector2.new(A.x-B.x,A.y-B.y)local E=D.unit
if E.x==math.nan or E.x==math.inf then E=Vector2.new(0,E.y)end if E.y==math.nan
or E.y==math.inf then E=Vector2.new(E.x,0)end local F=B+(E*(g/2))y.Position=u(F,
y)else y.Position=u(A,y)end return Vector2.new(y.Position.X.Offset-z.Position.X.
Offset,y.Position.Y.Offset-z.Position.Y.Offset)end local y y=function(z,A,B)
local C=Vector2.new(A.Position.X.Offset+A.AbsoluteSize.x/2,A.Position.Y.Offset+A
.AbsoluteSize.y/2)if t(B,C)>g/2 then local D=Vector2.new(z.Position.X.Offset+z.
AbsoluteSize.x/2,z.Position.Y.Offset+z.AbsoluteSize.y/2)local E,F=Vector2.new(B.
x-D.x,B.y-D.y).unit,Vector2.new(D.x-C.x,D.y-C.y)local G,H=F.unit,Vector2.new(B.x
-D.x,B.y-D.y)local I=(G.x*E.y)-(G.y*E.x)local J=math.atan2(I,w(G,E))local K=J*
math.min(H.magnitude/F.magnitude,1)if math.abs(K)>0.00001 then local L=v(C,D,K)A
.Position=u(Vector2.new(L.x,L.y),A)end A.Position=UDim2.new(0,A.Position.X.
Offset+H.x,0,A.Position.Y.Offset+H.y)end z.Position=u(B,z)local D,E=Vector2.new(
z.Position.X.Offset,z.Position.Y.Offset),Vector2.new(A.Position.X.Offset,A.
Position.Y.Offset)if t(D,E)>g/2 then local F=(E-D).unit*g/2 A.Position=UDim2.
new(0,D.x+F.x,0,D.y+F.y)end return Vector2.new(z.Position.X.Offset-A.Position.X.
Offset,z.Position.Y.Offset-A.Position.Y.Offset)end local z z=function(A)return(
math.abs(A.x)>i)or(math.abs(A.y)>i)end local A A=function(B,C,D)local E=a(
'Frame','ThumbstickFrame',{Active=true,Size=UDim2.new(0,g,0,g),Position=B,
BackgroundTransparency=1})a('ImageLabel','InnerThumbstick',{Image=h,
ImageRectOffset=Vector2.new(220,0),ImageRectSize=Vector2.new(111,111),
BackgroundTransparency=1,Size=UDim2.new(0,g/2,0,g/2),Position=UDim2.new(0,E.Size
.X.Offset/2-g/4,0,E.Size.Y.Offset/2-g/4),ZIndex=2,Parent=E})local F,G,H,I,J=a(
'ImageLabel','OuterThumbstick',{Image=h,ImageRectOffset=Vector2.new(0,0),
ImageRectSize=Vector2.new(220,220),BackgroundTransparency=1,Size=UDim2.new(0,g,0
,g),Position=B,Parent=Game.CoreGui.RobloxGui}),nil,nil,nil,nil J=function(K)if G
then return end if K==s then return end if K==n then return end if K.
UserInputType~=Enum.UserInputType.Touch then return end G=K table.insert(k,G)E.
Position=u(G.Position,E)F.Position=E.Position H=b.TouchMoved:connect(function(L)
if L==G then local M if D then M=x(E,F,Vector2.new(L.Position.x,L.Position.y))
else M=y(E,F,Vector2.new(L.Position.x,L.Position.y))end if C then return C(M,F.
Size.X.Offset/2)end end end)I=b.TouchEnded:connect(function(L)if L==G then if C
then C(Vector2.new(0,0),1)end I:disconnect()H:disconnect()E.Position=B F.
Position=B for M,N in pairs(k)do if N==G then table.remove(k,M)break end end G=
nil end end)end b.Changed:connect(function(K)if K=='ModalEnabled'then do local L
=not b.ModalEnabled E.Visible=L F.Visible=L end end end)E.InputBegan:connect(J)
return E end local B B=function(C)local D,E,F,G=nil,nil,f.MoveCharacter,nil G=
function(H,I)if f then if z(H)then D=H E=I if H.magnitude/I>j then I=H.magnitude
-1 end return F(f,H,I)else D=Vector2.new(0,0)E=1 return F(f,D,E)end end end
local H=UDim2.new(0,g/2,1,-g*1.75)if e()then H=UDim2.new(0,(g/2)-10,1,-g-20)end
local I=A(H,G,false)I.Name='CharacterThumbstick'I.Parent=C local J J=function()
if f and F and D and E then return F(f,D,E)end end return J end local C C=
function(D)local E,F,G=a('ImageButton','JumpButton',{BackgroundTransparency=1,
Image=h,ImageRectOffset=Vector2.new(176,222),ImageRectSize=Vector2.new(174,174),
Size=UDim2.new(0,l,0,l),Position=UDim2.new(1,(function()if e()then return-(l*
2.25),1,-l-20 else return-(l*2.75),1,-l-120 end end)())}),f.JumpCharacter,nil G=
function()while n do if f then F(f)end wait(1.6666666666666665E-2)end end E.
InputBegan:connect(function(H)if H.UserInputType~=Enum.UserInputType.Touch then
return end if n then return end if H==s then return end for I,J in pairs(m)do if
J==H then return end end n=H E.ImageRectOffset=Vector2.new(0,222)E.ImageRectSize
=Vector2.new(174,174)return G()end)E.InputEnded:connect(function(H)if H.
UserInputType~=Enum.UserInputType.Touch then return end E.ImageRectOffset=
Vector2.new(176,222)E.ImageRectSize=Vector2.new(174,174)if H==n then table.
insert(m,n)n=nil end end)b.InputEnded:connect(function(H)for I,J in pairs(m)do
if J==H then table.remove(m,I)break end end end)b.Changed:connect(function(H)if
H=='ModalEnabled'then E.Visible=not b.ModalEnabled end end)E.Parent=D end local
D D=function(E)if E==n then return true end for F,G in pairs(m)do if E==G then
return true end end return false end local E E=function(F)for G,H in pairs(k)do
if F==H then return true end end return false end local F F=function(G,H)local I
,J,K,L,M,N,O,P,Q,R=nil,false,b.RotateCamera,-1,false,nil,b.ZoomCamera,{},nil,nil
R=function()s=nil J=false I=nil end local S S=function()P={}N=nil M=false Q:
Destroy()Q=nil end local T T=function(U,V)if Q~=nil then Q:Destroy()end Q=a(
'Frame','PinchFrame',{BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),Parent=G}
)Q.InputChanged:connect(function(W)if not M then S()return end R()if not(N~=nil)
then if W==U then N=(W.Position-V.Position).magnitude U=W elseif W==V then N=(W.
Position-U.Position).magnitude V=W end else local X=0 if W==U then X=(W.Position
-V.Position).magnitude U=W elseif W==V then X=(W.Position-U.Position).magnitude
V=W end if X~=0 then local Y=X-N if Y~=0 then O(b,(Y*q))end N=X end end end)
return Q.InputEnded:connect(function(W)if W==U or W==V then return S()end end)
end local U U=function(V)if#P<1 then table.insert(P,V)L=tick()M=false elseif#P==
1 then M=((tick()-L)<=r)if M then table.insert(P,V)return T(P[1],P[2])else P={}
end end end G.InputBegan:connect(function(V)if V.UserInputType~=Enum.
UserInputType.Touch then return end if D(V)then return end local W=E(V)if not W
then U(V)end if not(s~=nil)and not W then s=V I=Vector2.new(s.Position.x,s.
Position.y)end end)b.InputChanged:connect(function(V)if V.UserInputType~=Enum.
UserInputType.Touch then return end if s~=V then return end local W=Vector2.new(
s.Position.x,s.Position.y)local X=(I-W)*o if not J and(X.magnitude>p)then J=true
I=W end if J and(I~=W)then K(b,X)H()I=W end end)return b.InputEnded:connect(
function(V)if s==V or not(s~=nil)then R()end for W,X in pairs(P)do if X==V then
table.remove(P,W)end end end)end local G G=function()local H=a('Frame',
'TouchControlFrame',{Size=UDim2.new(1,0,1,0),BackgroundTransparency=1,Parent=
Game.CoreGui.RobloxGui})local I=B(H)C(H)F(H,I)return b.ProcessedEvent:connect(
function(J,K)if not K then return end if J==s and J.UserInputState==Enum.
UserInputState.Begin then s=nil end end)end return G()

197
processed/157877000.lua
View File

@ -1,197 +0,0 @@
print'[Mercury]: Loaded corescript 157877000'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b=script.Parent:FindFirstChild'ControlFrame'or
script.Parent local c,d,e,f=a('Frame','DevConsoleContainer',{Parent=b,
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.9,Position=UDim2.
new(0,100,0,10),Size=UDim2.new(0.5,20,0.5,20),Visible=false}),a(
'BindableFunction','ToggleDevConsole',{Parent=b}),false,nil f=function()if e
then return end e=true local g,h,i,j=1,2,1000,Vector2.new(245,180)local k,l,m,n,
o,p,q,r,s,t,u,v,w=g,{},{},0,0,true,true,true,true,false,0,0,a('Frame','Body',{
Parent=c,BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.5,Position=
UDim2.new(0,0,0,21),Size=UDim2.new(1,0,1,-25),a('ImageButton','ResizeButton',{
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.5,Position=UDim2.
new(1,-20,1,-20),Size=UDim2.new(0,20,0,20),a('ImageLabel','ImageLabel',{
BackgroundTransparency=1,Position=UDim2.new(0,6,0,6),Size=UDim2.new(0.8,0,0.8,0)
,Rotation=135,Image='http://www.roblox.com/Asset?id=151205813'})}),a(
'TextButton','LocalConsole',{BackgroundColor3=Color3.new(0,0,0),
BackgroundTransparency=0.6,Position=UDim2.new(0,7,0,5),Size=UDim2.new(0,90,0,20)
,Font='SourceSansBold',FontSize=Enum.FontSize.Size14,Text='Local Console',
TextColor3=Color3.new(1,1,1),TextYAlignment=Enum.TextYAlignment.Center}),a(
'TextButton','ServerConsole',{BackgroundColor3=Color3.new(0,0,0),
BackgroundTransparency=0.8,Position=UDim2.new(0,102,0,5),Size=UDim2.new(0,90,0,
17),Font='SourceSansBold',FontSize=Enum.FontSize.Size14,Text='Server Console',
TextColor3=Color3.new(1,1,1),TextYAlignment=Enum.TextYAlignment.Center})})local
x=a('Frame','OptionsHolder',{Parent=w,BackgroundColor3=Color3.new(0,0,0),
BackgroundTransparency=1,Position=UDim2.new(0,220,0,0),Size=UDim2.new(1,-255,0,
24),ClipsDescendants=true})local y,z=a('Frame','OptionsBar',{Parent=x,
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=1,Position=UDim2.new(0
,-250,0,4),Size=UDim2.new(0,234,0,18),a('TextButton','ErrorToggleButton',{
BackgroundColor3=Color3.new(0,0,0),BorderColor3=Color3.new(1,0,0),Position=UDim2
.new(0,115,0,0),Size=UDim2.new(0,18,0,18),Font='SourceSansBold',FontSize=Enum.
FontSize.Size14,Text='',TextColor3=Color3.new(1,0,0),a('Frame','CheckFrame',{
BackgroundColor3=Color3.new(1,0,0),BorderColor3=Color3.new(1,0,0),Position=UDim2
.new(0,4,0,4),Size=UDim2.new(0,10,0,10)})}),a('TextButton','InfoToggleButton',{
BackgroundColor3=Color3.new(0,0,0),BorderColor3=Color3.new(0.4,0.5,1),Position=
UDim2.new(0,65,0,0),Size=UDim2.new(0,18,0,18),Font='SourceSansBold',FontSize=
Enum.FontSize.Size14,Text='',TextColor3=Color3.new(0.4,0.5,1),a('Frame',
'CheckFrame',{BackgroundColor3=Color3.new(0.4,0.5,1),BorderColor3=Color3.new(0.4
,0.5,1),Position=UDim2.new(0,4,0,4),Size=UDim2.new(0,10,0,10)})}),a('TextButton'
,'OutputToggleButton',{BackgroundColor3=Color3.new(0,0,0),BorderColor3=Color3.
new(1,1,1),Position=UDim2.new(0,40,0,0),Size=UDim2.new(0,18,0,18),Font=
'SourceSansBold',FontSize=Enum.FontSize.Size14,Text='',TextColor3=Color3.new(1,1
,1),a('Frame','CheckFrame',{BackgroundColor3=Color3.new(1,1,1),BorderColor3=
Color3.new(1,1,1),Position=UDim2.new(0,4,0,4),Size=UDim2.new(0,10,0,10)})}),a(
'TextButton','WarningToggleButton',{BackgroundColor3=Color3.new(0,0,0),
BorderColor3=Color3.new(1,0.6,0.4),Position=UDim2.new(0,90,0,0),Size=UDim2.new(0
,18,0,18),Font='SourceSansBold',FontSize=Enum.FontSize.Size14,Text='',TextColor3
=Color3.new(1,0.6,0.4),a('Frame','CheckFrame',{BackgroundColor3=Color3.new(1,0.6
,0.4),BorderColor3=Color3.new(1,0.6,0.4),Position=UDim2.new(0,4,0,4),Size=UDim2.
new(0,10,0,10)})}),a('TextButton','WordWrapToggleButton',{BackgroundColor3=
Color3.new(0,0,0),BorderColor3=Color3.new(0.8,0.8,0.8),Position=UDim2.new(0,215,
0,0),Size=UDim2.new(0,18,0,18),Font='SourceSansBold',FontSize=Enum.FontSize.
Size14,Text='',TextColor3=Color3.new(0.8,0.8,0.8),a('Frame','CheckFrame',{
BackgroundColor3=Color3.new(0.8,0.8,0.8),BorderColor3=Color3.new(0.8,0.8,0.8),
Position=UDim2.new(0,4,0,4),Size=UDim2.new(0,10,0,10),Visible=false})}),a(
'TextLabel','Filter',{BackgroundTransparency=1,Position=UDim2.new(0,0,0,0),Size=
UDim2.new(0,40,0,18),Font='SourceSansBold',FontSize=Enum.FontSize.Size14,Text=
'Filter',TextColor3=Color3.new(1,1,1)}),a('TextLabel','WordWrap',{
BackgroundTransparency=1,Position=UDim2.new(0,150,0,0),Size=UDim2.new(0,50,0,18)
,Font='SourceSansBold',FontSize=Enum.FontSize.Size14,Text='Word Wrap',TextColor3
=Color3.new(1,1,1)})}),a('Frame','ScrollBar',{Parent=w,BackgroundColor3=Color3.
new(0,0,0),BackgroundTransparency=0.9,Position=UDim2.new(1,-20,0,26),Size=UDim2.
new(0,20,1,-50),Visible=false,a('ImageButton','Down',{BackgroundColor3=Color3.
new(0,0,0),BackgroundTransparency=0.5,Position=UDim2.new(0,0,1,-20),Size=UDim2.
new(0,20,0,20),a('ImageLabel','ImageLabel',{BackgroundTransparency=1,Position=
UDim2.new(0,3,0,3),Size=UDim2.new(0,14,0,14),Rotation=180,Image=
'http://www.roblox.com/Asset?id=151205813'})}),a('ImageButton','Up',{
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.5,Position=UDim2.
new(0,0,0,0),Size=UDim2.new(0,20,0,20),a('ImageLabel','ImageLabel',{
BackgroundTransparency=1,Position=UDim2.new(0,3,0,3),Size=UDim2.new(0,14,0,14),
Image='http://www.roblox.com/Asset?id=151205813'})})})local A,B=a('Frame',
'ScrollArea',{Parent=z,BackgroundTransparency=1,Position=UDim2.new(0,0,0,23),
Size=UDim2.new(1,0,1,-46),a('ImageButton','Handle',{BackgroundColor3=Color3.new(
0,0,0),BackgroundTransparency=0.5,Position=UDim2.new(0,0,0.2,0),Size=UDim2.new(0
,20,0,40),a('ImageLabel','ImageLabel',{BackgroundTransparency=1,Position=UDim2.
new(0,0,0.5,-8),Rotation=180,Size=UDim2.new(1,0,0,16),Image=
'http://www.roblox.com/Asset?id=151205881'})})}),a('Frame','TextBox',{Parent=w,
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.6,Position=UDim2.
new(0,2,0,26),Size=UDim2.new(1,-4,1,-28),ClipsDescendants=true})local C,D,E,F,G,
H,I,J,K,L,M,N=a('Frame','TextHolder',{Parent=B,BackgroundTransparency=1,Position
=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,1,0)}),a('ImageButton','OptionsButton',{
Parent=w,BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=1,Position=
UDim2.new(0,200,0,2),Size=UDim2.new(0,20,0,20),a('ImageLabel','ImageLabel',{
BackgroundTransparency=1,Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,1,0),
Rotation=0,Image='http://www.roblox.com/Asset?id=152093917'})}),a('Frame',
'TitleBar',{Parent=c,BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=
0.5,Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,0,20),a('ImageButton',
'CloseButton',{BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.5,
Position=UDim2.new(1,-20,0,0),Size=UDim2.new(0,20,0,20),a('ImageLabel',{
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=1,Position=UDim2.new(0
,3,0,3),Size=UDim2.new(0,14,0,14),Image=
'http://www.roblox.com/Asset?id=151205852'})}),a('TextButton','TextButton',{
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.5,Position=UDim2.
new(0,0,0,0),Size=UDim2.new(1,-23,1,0),Text=''}),a('TextLabel','TitleText',{
BackgroundTransparency=1,Position=UDim2.new(0,0,0,0),Size=UDim2.new(0,185,0,20),
Font='SourceSansBold',FontSize=Enum.FontSize.Size18,TextColor3=Color3.new(1,1,1)
,Text='Roblox Developer Console',TextYAlignment=Enum.TextYAlignment.Top})}),nil,
nil,nil,nil,nil,nil,false,false,nil N=function()F=nil G=nil H=nil I=nil J=nil K=
nil L=false M=false end local O O=function(P,Q)if not F then return end local R=
Vector2.new(P,Q-F)c.Position=UDim2.new(0,G.X+R.X,0,G.Y+R.Y)end E.TextButton.
MouseButton1Down:connect(function(P,Q)F=Vector2.new(P,Q)G=c.AbsolutePosition end
)E.TextButton.MouseButton1Up:connect(N)local P P=function(Q,R)if not H then
return end local S=Vector2.new(Q,R-H)c.Size=UDim2.new(0,math.max(I.X+S.X,j.X),0,
math.max(I.Y+S.Y,j.Y))end c.Body.ResizeButton.MouseButton1Down:connect(function(
Q,R)H=Vector2.new(Q,R)I=c.AbsoluteSize end)c.Body.ResizeButton.MouseButton1Up:
connect(N)E.CloseButton.MouseButton1Down:connect(function()c.Visible=false end)c
.TitleBar.CloseButton.MouseButton1Up:connect(N)local Q,R,S=true,false,nil S=
function()if R then return end R=true repeat v=v+(function()if Q then return-1
else return 1 end end)()local T=v/5 local U=T*T*(3-(2*T))D.ImageLabel.Rotation=U
*5*9 y.Position=UDim2.new(0,(U*5*50)-250,0,4)wait()if(v<=0 and Q)or(v>=5 and not
Q)then R=false end until not R end D.MouseButton1Down:connect(function()Q=not Q
return S()end)local T T=function()if k==g then n=math.min(math.max(n,0),u-c.Body
.TextBox.AbsoluteSize.Y)C.Size=UDim2.new(1,0,0,u)elseif k==h then o=math.min(
math.max(o,0),u-c.Body.TextBox.AbsoluteSize.Y)C.Size=UDim2.new(1,0,0,u)end local
U=c.Body.TextBox.AbsoluteSize.Y/C.AbsoluteSize.Y if U>=1 then c.Body.ScrollBar.
Visible=false c.Body.TextBox.Size=UDim2.new(1,-4,1,-28)if k==g or k==h then C.
Position=UDim2.new(0,0,1,0-u)end else c.Body.ScrollBar.Visible=true c.Body.
TextBox.Size=UDim2.new(1,-25,1,-28)local V,W=1-U,nil if k==g then W=n/C.
AbsoluteSize.Y elseif k==h then W=o/C.AbsoluteSize.Y end local X,Y=math.max(0,V-
W),math.max(A.AbsoluteSize.Y*U,21)local Z=Y/A.AbsoluteSize.Y local _=(1-Z)/(1-U)
local aa=X*_ local ab=math.min(A.AbsoluteSize.Y*aa,A.AbsoluteSize.Y-Y)A.Handle.
Size=UDim2.new(1,0,0,Y)A.Handle.Position=UDim2.new(0,0,0,ab)C.Position=UDim2.
new(0,0,1,0-u+(function()if k==g then return n elseif k==h then return o end end
)())end end local aa aa=function(ab)if k==g then n=n+ab elseif k==h then o=o+ab
end return T()end local ab ab=function()local U,V=C:GetChildren(),nil if k==g
then V=l elseif k==h then V=m end local W=0 for X=1,#U do U[X].Visible=false end
for X=1,#V do local Y,Z=nil,false if X>#U then Y=a('TextLabel','Message',{Parent
=C,BackgroundTransparency=1,TextXAlignment='Left',Size=UDim2.new(1,0,0,14),
FontSize='Size10',ZIndex=1})Z=true else Y=U[X]end if(s or V[X].Type~=Enum.
MessageType.MessageOutput)and(r or V[X].Type~=Enum.MessageType.MessageInfo)and(q
or V[X].Type~=Enum.MessageType.MessageWarning)and(p or V[X].Type~=Enum.
MessageType.MessageError)then do Y.TextWrapped=t Y.Size=UDim2.new(0.98,0,0,2000)
Y.Parent=c Y.Text=tostring(V[X].Time)..' -- '..tostring(V[X].Message)Y.Size=
UDim2.new(0.98,0,0,Y.TextBounds.Y)Y.Position=UDim2.new(0,5,0,W)Y.Parent=C W=W+Y.
TextBounds.Y end if Z then if(k==g and n>0)or(k==h and o>0)then aa(Y.TextBounds.
Y)end end Y.Visible=true Y.TextColor3=Color3.new((function()if V[X].Type==Enum.
MessageType.MessageError then return 1,0,0 elseif V[X].Type==Enum.MessageType.
MessageInfo then return 0.4,0.5,1 elseif V[X].Type==Enum.MessageType.
MessageWarning then return 1,0.6,0.4 else return 1,1,1 end end)())end end u=W
end local U,V=false,nil V=function()if U then return end Delay(0.1,function()U=
false return ab()end)U=true end local W,X=0,nil X=function()if L then return end
L=true wait(0.6)W=W+1 while L and W<2 do wait()aa(12)end W=W-1 end local Y Y=
function()if M then return end M=true wait(0.6)W=W+1 while M and W<2 do wait()
aa(-12)end W=W-1 end c.Body.ScrollBar.Up.MouseButton1Click:connect(function()
return aa(10)end)c.Body.ScrollBar.Up.MouseButton1Down:connect(function()aa(10)
return X()end)c.Body.ScrollBar.Up.MouseButton1Up:connect(N)c.Body.ScrollBar.Down
.MouseButton1Down:connect(function()aa(-10)return Y()end)c.Body.ScrollBar.Down.
MouseButton1Up:connect(N)local Z Z=function(_,ac)if not J then return end local
ad,ae,af=(Vector2.new(_,ac-J)).Y,1-(c.Body.TextBox.AbsoluteSize.Y/C.AbsoluteSize
.Y),A.AbsoluteSize.Y-A.Handle.AbsoluteSize.Y local ag=math.max(math.min(ad,af),0
-af)local ah,ai=ag/af,(ae*C.AbsoluteSize.Y)local aj=ai*ah if k==g then n=K-aj
elseif k==h then o=K-aj end end A.Handle.MouseButton1Down:connect(function(ac,ad
)J=Vector2.new(ac,ad)if k==g then K=n elseif k==h then K=o end end)A.Handle.
MouseButton1Up:connect(N)local ac ac=function(ad,ae,af)local ag,ah=ad.
AbsolutePosition,ad.AbsoluteSize if ae<ag.X or ae>ag.X+ah.X or af<ag.y or af>ag.
y+ah.y then return false end return true end local ad ad=function(ae)if ae<10
then return'0'..tostring(ae)else return ae end end local ae,af='%s:%s:%s',nil af
=function(ag)local ah=ag-os.time()+math.floor(tick())local ai=ah%86400 local aj=
math.floor(ai/3600)ai=ai-(aj*3600)local _=math.floor(ai/60)ai=ai-(_*60)local ak,
al,am=ad(aj),ad(_),ad(ai)return ae:format(ak,al,am)end y.ErrorToggleButton.
MouseButton1Down:connect(function()p=not p y.ErrorToggleButton.CheckFrame.
Visible=p V()return T()end)y.WarningToggleButton.MouseButton1Down:connect(
function()q=not q y.WarningToggleButton.CheckFrame.Visible=q V()return T()end)y.
InfoToggleButton.MouseButton1Down:connect(function()r=not r y.InfoToggleButton.
CheckFrame.Visible=r V()return T()end)y.OutputToggleButton.MouseButton1Down:
connect(function()s=not s y.OutputToggleButton.CheckFrame.Visible=s V()return T(
)end)y.WordWrapToggleButton.MouseButton1Down:connect(function()t=not t y.
WordWrapToggleButton.CheckFrame.Visible=t V()return T()end)local ag ag=function(
ah,ai,aj)l[#l+1]={Message=ah,Time=af(aj),Type=ai}while#l>i do table.remove(l,1)
end V()return T()end local ah ah=function(ai,aj,ak)m[#m+1]={Message=ai,Time=af(
ak),Type=aj}while#m>i do table.remove(m,1)end V()return T()end c.Body.
LocalConsole.MouseButton1Click:connect(function()if k==h then k=g local ai,aj=c.
Body.LocalConsole,c.Body.ServerConsole ai.Size=UDim2.new(0,90,0,20)aj.Size=UDim2
.new(0,90,0,17)ai.BackgroundTransparency=0.6 aj.BackgroundTransparency=0.8 if
game:FindFirstChild'Players'and game.Players['LocalPlayer']then local ak=game.
Players.LocalPlayer:GetMouse()O(ak.X,ak.Y)P(ak.X,ak.Y)Z(ak.X,ak.Y)end V()return
T()end end)c.Body.LocalConsole.MouseButton1Up:connect(N)local ai=false c.Body.
ServerConsole.MouseButton1Click:connect(function()if not ai then ai=true game:
GetService'LogService':RequestServerOutput()end if k==g then k=h local aj,ak=c.
Body.LocalConsole,c.Body.ServerConsole ak.Size=UDim2.new(0,90,0,20)aj.Size=UDim2
.new(0,90,0,17)ak.BackgroundTransparency=0.6 aj.BackgroundTransparency=0.8 if
game:FindFirstChild'Players'and game.Players['LocalPlayer']then local al=game.
Players.LocalPlayer:GetMouse()O(al.X,al.Y)P(al.X,al.Y)Z(al.X,al.Y)end V()return
T()end end)c.Body.ServerConsole.MouseButton1Up:connect(N)if game:FindFirstChild
'Players'and game.Players['LocalPlayer']then local aj=game.Players.LocalPlayer:
GetMouse()aj.Move:connect(function()if not c.Visible then return end local ak=
game.Players.LocalPlayer:GetMouse()O(ak.X,ak.Y)P(ak.X,ak.Y)Z(ak.X,ak.Y)V()return
T()end)aj.Button1Up:connect(N)aj.WheelForward:connect(function()if not c.Visible
then return end if ac(c,aj.X,aj.Y)then return aa(10)end end)aj.WheelBackward:
connect(function()if not c.Visible then return end if ac(c,aj.X,aj.Y)then return
aa(-10)end end)end A.Handle.MouseButton1Down:connect(function()return T()end)
local aj=game:GetService'LogService':GetLogHistory()for ak=1,#aj do ag(aj[ak].
message,aj[ak].messageType,aj[ak].timestamp)end local ak=game:GetService
'LogService'ak.MessageOut:connect(function(al,am)return ag(al,am,os.time())end)
ak.ServerMessageOut:connect(ah)return ak end local aa=false d.OnInvoke=function(
)if aa then return end aa=true f()c.Visible=not c.Visible aa=false end

28
processed/36868950.lua
View File

@ -1,28 +0,0 @@
print'[Mercury]: Loaded corescript 36868950'local a=script.Parent:FindFirstChild
'ControlFrame'if not a then return end local b b=function(c,d,e)if not(e~=nil)
then e=d d=nil end local f=Instance.new(c)if d then f.Name=d end local g for h,i
in pairs(e)do if type(h)=='string'then if h=='Parent'then g=i else f[h]=i end
elseif type(h)=='number'and type(i)=='userdata'then i.Parent=f end end f.Parent=
g return f end local c,d,e,f=a:FindFirstChild'BottomLeftControl',a:
FindFirstChild'BottomRightControl',b('TextLabel','ToolTip',{Text='',Font=Enum.
Font.ArialBold,FontSize=Enum.FontSize.Size12,TextColor3=Color3.new(1,1,1),
BorderSizePixel=0,ZIndex=10,Size=UDim2.new(2,0,1,0),Position=UDim2.new(1,0,0,0),
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=1,TextTransparency=1,
TextWrap=true,b('BoolValue','inside',{Value=false})}),nil f=function(g)local h=
0.1 g.Parent.MouseEnter:connect(function()if g:FindFirstChild'inside'then g.
inside.Value=true wait(1.2)if g.inside.Value then while g.inside.Value and g.
BackgroundTransparency>0 do g.BackgroundTransparency=g.BackgroundTransparency-h
g.TextTransparency=g.TextTransparency-h wait()end end end end)local i i=function
(j)j.inside.Value=false j.BackgroundTransparency=1 j.TextTransparency=1 end g.
Parent.MouseLeave:connect(function()return i(g)end)return g.Parent.
MouseButton1Click:connect(function()return i(g)end)end local g g=function(h)if
not(h~=nil)then h=c:FindFirstChild'SettingsButton'end local i=e:clone()i.
RobloxLocked=true i.Text='Settings/Leave Game'i.Position=UDim2.new(0,0,0,-18)i.
Size=UDim2.new(0,120,0,20)i.Parent=h f(i)return i end wait(5)local h=c:
GetChildren()for i=1,#h do if h[i].Name=='Exit'then do local j=e:clone()j.
RobloxLocked=true j.Text='Leave Place'j.Position=UDim2.new(0,0,-1,0)j.Size=UDim2
.new(1,0,1,0)j.Parent=h[i]f(j)end elseif h[i].Name=='SettingsButton'then g(h[i])
end end local i=d:GetChildren()for j=1,#i do if(i[j].Name:find'Camera'~=nil)then
do local k=e:clone()k.RobloxLocked=true k.Text='Camera View'if i[j].Name:find
'Zoom'then k.Position=UDim2.new(-1,0,-1.5)else k.Position=UDim2.new(0,0,-1.5,0)
end k.Size=UDim2.new(2,0,1.25,0)k.Parent=i[j]f(k)end end end

34
processed/37801172.lua
View File

@ -1,34 +0,0 @@
print'[Mercury]: Loaded corescript 37801172'local a,b=game:GetService
'ScriptContext',false pcall(function()b=game:GetService'UserInputService'.
TouchEnabled end)a:AddCoreScript(60595695,a,
'/Libraries/LibraryRegistration/LibraryRegistration')local c c=function(d,e)
while not d:FindFirstChild(e)do d.ChildAdded:wait()end end a=game:GetService
'ScriptContext'a:AddCoreScript(59002209,a,'CoreScripts/Sections')c(game:
GetService'CoreGui','RobloxGui')local d=game:GetService'CoreGui':FindFirstChild
'RobloxGui'if not b then a:AddCoreScript(36868950,d,'CoreScripts/ToolTip')a:
AddCoreScript(46295863,d,'CoreScripts/Settings')else a:AddCoreScript(153556783,d
,'CoreScripts/TouchControls')end a:AddCoreScript(39250920,d,
'CoreScripts/MainBotChatScript')a:AddCoreScript(48488451,d,
'CoreScripts/PopupScript')a:AddCoreScript(48488398,d,
'CoreScripts/NotificationScript')a:AddCoreScript(97188756,d,
'CoreScripts/ChatScript')a:AddCoreScript(107893730,d,
'CoreScripts/PurchasePromptScript')if not b or d.AbsoluteSize.Y>600 then a:
AddCoreScript(48488235,d,'CoreScripts/PlayerListScript')else delay(5,function()
if d.AbsoluteSize.Y>=600 then return a:AddCoreScript(48488235,d,
'CoreScripts/PlayerListScript')end end)end if game.CoreGui.Version>=3 and game.
PlaceId~=130815926 then a:AddCoreScript(53878047,d,
'CoreScripts/BackpackScripts/BackpackBuilder')c(d,'CurrentLoadout')c(d,
'Backpack')local e=d.Backpack if game.CoreGui.Version>=7 then a:AddCoreScript(
89449093,e,'CoreScripts/BackpackScripts/BackpackManager')end a:AddCoreScript(
89449008,e,'CoreScripts/BackpackScripts/BackpackGear')a:AddCoreScript(53878057,d
.CurrentLoadout,'CoreScripts/BackpackScripts/LoadoutScript')if game.CoreGui.
Version>=8 then a:AddCoreScript(-1,e,
'CoreScripts/BackpackScripts/BackpackWardrobe')end end local e=not not game.
Workspace:FindFirstChild'PSVariable'if e then a:AddCoreScript(64164692,game.
Players.LocalPlayer,'BuildToolManager')end game.Workspace.ChildAdded:connect(
function(f)if f.Name=='PSVariable'and f:IsA'BoolValue'then e=true return a:
AddCoreScript(64164692,game.Players.LocalPlayer,'BuildToolManager')end end)if b
then a:AddCoreScript(152908679,d,'CoreScripts/ContextActionTouch')c(d,
'ControlFrame')c(d.ControlFrame,'BottomLeftControl')d.ControlFrame.
BottomLeftControl.Visible=false c(d.ControlFrame,'TopLeftControl')d.ControlFrame
.TopLeftControl.Visible=false end

392
processed/38037265.lua
View File

@ -1,392 +0,0 @@
<roblox xmlns:xmime="http://www.w3.org/2005/05/xmlmime" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="http://www.roblox.com/roblox.xsd" version="4">
<External>null</External>
<External>nil</External>
<Item class="Script" referent="RBX0">
<Properties>
<bool name="Disabled">false</bool>
<Content name="LinkedSource"><null></null></Content>
<string name="Name">Health</string>
<ProtectedString name="Source">function waitForChild(parent, childName)
local child = parent:findFirstChild(childName)
if child then return child end
while true do
child = parent.ChildAdded:wait()
if child.Name==childName then return child end
end
end
-- declarations
local Figure = script.Parent
local Head = waitForChild(Figure, &quot;Head&quot;)
local Humanoid = waitForChild(Figure, &quot;Humanoid&quot;)
local regening = false
-- regeneration
function regenHealth()
if regening then return end
regening = true
while Humanoid.Health &lt; Humanoid.MaxHealth do
local s = wait(1)
local health = Humanoid.Health
if health &gt; 0 and health &lt; Humanoid.MaxHealth then
local newHealthDelta = 0.01 * s * Humanoid.MaxHealth
health = health + newHealthDelta
Humanoid.Health = math.min(health,Humanoid.MaxHealth)
end
end
if Humanoid.Health &gt; Humanoid.MaxHealth then
Humanoid.Health = Humanoid.MaxHealth
end
regening = false
end
Humanoid.HealthChanged:connect(regenHealth)
</ProtectedString>
<bool name="archivable">true</bool>
</Properties>
</Item>
<Item class="Script" referent="RBX1">
<Properties>
<bool name="Disabled">false</bool>
<Content name="LinkedSource"><null></null></Content>
<string name="Name">HealthScript v3.1</string>
<ProtectedString name="Source">local HealthGUI_prototype = script:FindFirstChild(&quot;HealthGUI&quot;)
local lastHealth = 100
local lastHealth2 = 100
local maxWidth = 0.96
local humanoid = script.Parent.Humanoid
if (humanoid == nil) then
print(&quot;ERROR: no humanoid found in &apos;HealthScript v3.1&apos;&quot;)
end
function CreateGUI()
local p = game.Players:GetPlayerFromCharacter(humanoid.Parent)
HealthGUI_prototype.Parent = p.PlayerGui
end
function UpdateGUI(health)
tray = HealthGUI_prototype.tray
local width = (health / humanoid.MaxHealth) * maxWidth
local height = 0.83
local lastX = tray.bar.Position.X.Scale
local x = 0.019 + (maxWidth - width)
local y = 0.1
tray.bar.Position = UDim2.new(x,0,y, 0)
tray.bar.Size = UDim2.new(width, 0, height, 0)
-- If more than 1/4 health, bar = green. Else, bar = red.
if( (health / humanoid.MaxHealth) &gt; 0.25 ) then
tray.barRed.Size = UDim2.new(0, 0, 0, 0)
else
tray.barRed.Position = tray.bar.Position
tray.barRed.Size = tray.bar.Size
tray.bar.Size = UDim2.new(0, 0, 0, 0)
end
if ( (lastHealth - health) &gt; (humanoid.MaxHealth / 10) ) then
lastHealth = health
if humanoid.Health ~= humanoid.MaxHealth then
delay(0,function()
AnimateHurtOverlay()
end)
delay(0,function()
AnimateBars(x, y, lastX, height)
end)
end
else
lastHealth = health
end
end
function HealthChanged(health)
UpdateGUI(health)
if ( (lastHealth2 - health) &gt; (humanoid.MaxHealth / 10) ) then
lastHealth2 = health
else
lastHealth2 = health
end
end
function AnimateBars(x, y, lastX, height)
tray = HealthGUI_prototype.tray
local width = math.abs(x - lastX)
if( x &gt; lastX ) then
x = lastX
end
tray.bar2.Position = UDim2.new(x,0, y, 0)
tray.bar2.Size = UDim2.new(width, 0, height, 0)
tray.bar2.BackgroundTransparency = 0
local GBchannels = 1
local j = 0.2
local i_total = 30
for i=1,i_total do
-- Increment Values
if (GBchannels &lt; 0.2) then
j = -j
end
GBchannels = GBchannels + j
if (i &gt; (i_total - 10)) then
tray.bar2.BackgroundTransparency = tray.bar2.BackgroundTransparency + 0.1
end
tray.bar2.BackgroundColor3 = Color3.new(1, GBchannels, GBchannels)
wait(0.02)
end
end
function AnimateHurtOverlay()
-- Start:
-- overlay.Position = UDim2.new(0, 0, 0, -22)
-- overlay.Size = UDim2.new(1, 0, 1.15, 30)
-- Finish:
-- overlay.Position = UDim2.new(-2, 0, -2, -22)
-- overlay.Size = UDim2.new(4.5, 0, 4.65, 30)
overlay = HealthGUI_prototype.hurtOverlay
overlay.Position = UDim2.new(-2, 0, -2, -22)
overlay.Size = UDim2.new(4.5, 0, 4.65, 30)
-- Animate In, fast
local i_total = 2
local wiggle_total = 0
local wiggle_i = 0.02
for i=1,i_total do
overlay.Position = UDim2.new( (-2 + (2 * (i/i_total)) + wiggle_total/2), 0, (-2 + (2 * (i/i_total)) + wiggle_total/2), -22 )
overlay.Size = UDim2.new( (4.5 - (3.5 * (i/i_total)) + wiggle_total), 0, (4.65 - (3.5 * (i/i_total)) + wiggle_total), 30 )
wait(0.01)
end
i_total = 30
wait(0.03)
-- Animate Out, slow
for i=1,i_total do
if( math.abs(wiggle_total) &gt; (wiggle_i * 3) ) then
wiggle_i = -wiggle_i
end
wiggle_total = wiggle_total + wiggle_i
overlay.Position = UDim2.new( (0 - (2 * (i/i_total)) + wiggle_total/2), 0, (0 - (2 * (i/i_total)) + wiggle_total/2), -22 )
overlay.Size = UDim2.new( (1 + (3.5 * (i/i_total)) + wiggle_total), 0, (1.15 + (3.5 * (i/i_total)) + wiggle_total), 30 )
wait(0.01)
end
-- Hide after we&apos;re done
overlay.Position = UDim2.new(10, 0, 0, 0)
end
CreateGUI()
humanoid.HealthChanged:connect(HealthChanged)
humanoid.Died:connect(function() HealthChanged(0) end)</ProtectedString>
<bool name="archivable">true</bool>
</Properties>
<Item class="GuiMain" referent="RBX2">
<Properties>
<string name="Name">HealthGUI</string>
<bool name="archivable">true</bool>
</Properties>
<Item class="ImageLabel" referent="RBX3">
<Properties>
<bool name="Active">false</bool>
<Color3 name="BackgroundColor3">4290164919</Color3>
<float name="BackgroundTransparency">1</float>
<Color3 name="BorderColor3">4279970357</Color3>
<int name="BorderSizePixel">1</int>
<bool name="Draggable">false</bool>
<Content name="Image"><url>http://www.roblox.com/asset/?id=34854607</url></Content>
<string name="Name">hurtOverlay</string>
<UDim2 name="Position">
<XS>2</XS>
<XO>0</XO>
<YS>0</YS>
<YO>-22</YO>
</UDim2>
<UDim2 name="Size">
<XS>1</XS>
<XO>0</XO>
<YS>1.1500001</YS>
<YO>30</YO>
</UDim2>
<token name="SizeConstraint">0</token>
<bool name="Visible">true</bool>
<int name="ZIndex">1</int>
<bool name="archivable">true</bool>
</Properties>
</Item>
<Item class="Frame" referent="RBX4">
<Properties>
<bool name="Active">false</bool>
<Color3 name="BackgroundColor3">4285215356</Color3>
<float name="BackgroundTransparency">1</float>
<Color3 name="BorderColor3">4279970357</Color3>
<int name="BorderSizePixel">1</int>
<bool name="Draggable">false</bool>
<string name="Name">tray</string>
<UDim2 name="Position">
<XS>0.5</XS>
<XO>-44</XO>
<YS>1</YS>
<YO>-26</YO>
</UDim2>
<UDim2 name="Size">
<XS>0</XS>
<XO>170</XO>
<YS>0</YS>
<YO>18</YO>
</UDim2>
<token name="SizeConstraint">2</token>
<token name="Style">0</token>
<bool name="Visible">true</bool>
<int name="ZIndex">1</int>
<bool name="archivable">true</bool>
</Properties>
<Item class="ImageLabel" referent="RBX5">
<Properties>
<bool name="Active">false</bool>
<Color3 name="BackgroundColor3">4294967295</Color3>
<float name="BackgroundTransparency">1</float>
<Color3 name="BorderColor3">4279970357</Color3>
<int name="BorderSizePixel">1</int>
<bool name="Draggable">false</bool>
<Content name="Image"><url>http://www.roblox.com/asset/?id=35238000</url></Content>
<string name="Name">bkg</string>
<UDim2 name="Position">
<XS>0</XS>
<XO>0</XO>
<YS>0</YS>
<YO>0</YO>
</UDim2>
<UDim2 name="Size">
<XS>1</XS>
<XO>0</XO>
<YS>1</YS>
<YO>0</YO>
</UDim2>
<token name="SizeConstraint">0</token>
<bool name="Visible">true</bool>
<int name="ZIndex">1</int>
<bool name="archivable">true</bool>
</Properties>
</Item>
<Item class="ImageLabel" referent="RBX6">
<Properties>
<bool name="Active">false</bool>
<Color3 name="BackgroundColor3">4294967295</Color3>
<float name="BackgroundTransparency">1</float>
<Color3 name="BorderColor3">4279970357</Color3>
<int name="BorderSizePixel">1</int>
<bool name="Draggable">false</bool>
<Content name="Image"><url>http://www.roblox.com/asset/?id=35238036</url></Content>
<string name="Name">barRed</string>
<UDim2 name="Position">
<XS>0.0189999994</XS>
<XO>0</XO>
<YS>0.100000001</YS>
<YO>0</YO>
</UDim2>
<UDim2 name="Size">
<XS>0</XS>
<XO>0</XO>
<YS>0</YS>
<YO>0</YO>
</UDim2>
<token name="SizeConstraint">0</token>
<bool name="Visible">true</bool>
<int name="ZIndex">1</int>
<bool name="archivable">true</bool>
</Properties>
</Item>
<Item class="Frame" referent="RBX7">
<Properties>
<bool name="Active">false</bool>
<Color3 name="BackgroundColor3">4294967295</Color3>
<float name="BackgroundTransparency">1.00000012</float>
<Color3 name="BorderColor3">4279970357</Color3>
<int name="BorderSizePixel">0</int>
<bool name="Draggable">false</bool>
<string name="Name">bar2</string>
<UDim2 name="Position">
<XS>0.0189999994</XS>
<XO>0</XO>
<YS>0.100000001</YS>
<YO>0</YO>
</UDim2>
<UDim2 name="Size">
<XS>0.192000002</XS>
<XO>0</XO>
<YS>0.829999983</YS>
<YO>0</YO>
</UDim2>
<token name="SizeConstraint">0</token>
<token name="Style">0</token>
<bool name="Visible">true</bool>
<int name="ZIndex">1</int>
<bool name="archivable">true</bool>
</Properties>
</Item>
<Item class="ImageLabel" referent="RBX8">
<Properties>
<bool name="Active">false</bool>
<Color3 name="BackgroundColor3">4294967295</Color3>
<float name="BackgroundTransparency">1</float>
<Color3 name="BorderColor3">4279970357</Color3>
<int name="BorderSizePixel">1</int>
<bool name="Draggable">false</bool>
<Content name="Image"><url>http://www.roblox.com/asset/?id=35238053</url></Content>
<string name="Name">bar</string>
<UDim2 name="Position">
<XS>0.0189999994</XS>
<XO>0</XO>
<YS>0.100000001</YS>
<YO>0</YO>
</UDim2>
<UDim2 name="Size">
<XS>0.959999979</XS>
<XO>0</XO>
<YS>0.829999983</YS>
<YO>0</YO>
</UDim2>
<token name="SizeConstraint">0</token>
<bool name="Visible">true</bool>
<int name="ZIndex">1</int>
<bool name="archivable">true</bool>
</Properties>
</Item>
<Item class="ImageLabel" referent="RBX9">
<Properties>
<bool name="Active">false</bool>
<Color3 name="BackgroundColor3">4294967295</Color3>
<float name="BackgroundTransparency">1</float>
<Color3 name="BorderColor3">4279970357</Color3>
<int name="BorderSizePixel">0</int>
<bool name="Draggable">false</bool>
<Content name="Image"><url>http://www.roblox.com/asset/?id=34816363</url></Content>
<string name="Name">label</string>
<UDim2 name="Position">
<XS>0.680000007</XS>
<XO>0</XO>
<YS>0.300000012</YS>
<YO>0</YO>
</UDim2>
<UDim2 name="Size">
<XS>0.25</XS>
<XO>0</XO>
<YS>0.349999994</YS>
<YO>0</YO>
</UDim2>
<token name="SizeConstraint">0</token>
<bool name="Visible">true</bool>
<int name="ZIndex">1</int>
<bool name="archivable">true</bool>
</Properties>
</Item>
</Item>
</Item>
</Item>
</roblox>

50
processed/38037565.lua
View File

@ -1,50 +0,0 @@
print'[Mercury]: Loaded corescript 38037565'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b,c,d=5,5,nil d=function(e,f)local g=e:
findFirstChild(f)if g then return g end while true do g=e.ChildAdded:wait()if g.
Name==f then return g end end end local e=script.Parent local f,g,h,i,j=d(e,
'Humanoid'),d(e,'Torso'),e:FindFirstChild'PlayerStats',a('BoolValue',{Name=
'InCharTag'}),a('BoolValue',{Name='RobloxBuildTool'})if not(h~=nil)then h=a(
'Configuration','PlayerStats',{Parent=e})end local k=h:FindFirstChild'MaxHealth'
if not(k~=nil)then k=a('NumberValue','MaxHealth',{Value=100,Parent=h})end f.
MaxHealth=k.Value f.Health=k.Value local l l=function()f.MaxHealth=k.Value f.
Health=k.Value end k.Changed:connect(l)local m=game.Players:
GetPlayerFromCharacter(script.Parent)local n=m.PlayerGui:FindFirstChild
'DamageOverTimeGui'if not(n~=nil)then n=a('BillboardGui','DamageOverTimeGui',{
Parent=m.PlayerGui,Adornee=script.Parent:FindFirstChild'Head',Active=true,size=
UDim2.new(b,0,c,0),StudsOffset=Vector3.new(0,2,0)})end print
'newHealth declarations finished'local o o=function(p)local q=a('TextLabel',{
Text=tostring(p),TextColor3=Color3.new((function()if p>0 then return 0,1,0 else
return 1,0,1 end end)()),size=UDim2.new(1,0,1,0),Active=true,FontSize=6,
BackgroundTransparency=1,Parent=n})for r=1,10 do wait(0.1)q.TextTransparency=r/
10 q.Position=UDim2.new(0,0,0,-r*5)q.FontSize=6-r*0.6 end q:remove()return q end
local p p=function()if k.Value>=0 then f.MaxHealth=k.Value print(f.MaxHealth)if
f.Health>f.MaxHealth then f.Health=f.MaxHealth end end end k.Changed:connect(p)
local q=a('Fire','FireEffect',{Heat=0.1,Size=3,Enabled=false})while true do
local r,s=wait(1),f.Health if s>0 then local t=0 if h then local u,v,w,x,y=h:
FindFirstChild'Regen',h:FindFirstChild'Poison',h:FindFirstChild'Ice',h:
FindFirstChild'Fire',h:FindFirstChild'Stun'if u then t=t+u.Value.X if u.Value.Y
>=0 then u.Value=Vector3.new(u.Value.X+u.Value.Z,u.Value.Y-r,u.Value.Z)elseif u.
Value.Y==-1 then u.Value=Vector3.new(u.Value.X+u.Value.Z,-1,u.Value.Z)else u:
remove()end end if v then t=t-v.Value.X if v.Value.Y>=0 then v.Value=Vector3.
new(v.Value.X+v.Value.Z,v.Value.Y-r,v.Value.Z)elseif v.Value.Y==-1 then v.Value=
Vector3.new(v.Value.X+v.Value.Z,-1,v.Value.Z)else v:remove()end end if w then t=
t-w.Value.X if w.Value.Y>=0 then w.Value=Vector3.new(w.Value.X,w.Value.Y-r,w.
Value.Z)else w:remove()end end if x then q.Enabled=true q.Parent=e.Torso t=t-x.
Value.X if x.Value.Y>=0 then x.Value=Vector3.new(x.Value.X,x.Value.Y-r,x.Value.Z
)else x:remove()q.Enabled=false q.Parent=nil end end if y then local z if y.
Value>0 then g.Anchored=true local A=script.Parent:GetChildren()z=game.Players:
GetPlayerFromCharacter(script.Parent).Backpack:GetChildren()for B=1,#A do if A[B
].className=='Tool'then i:Clone().Parent=A[B]print(z)table.insert(z,A[B])end end
for B=1,#z do if not(z[B]:FindFirstChild'RobloxBuildTool'~=nil)then j:Clone().
Parent=z[B]z[B].Parent=game.Lighting end end wait(0.2)for B=1,#z do z[B].Parent=
game.Players:GetPlayerFromCharacter(script.Parent).Backpack end y.Value=y.Value-
r else g.Anchored=false for A=1,#z do local B=z[A]:FindFirstChild
'RobloxBuildTool'if B then B:Remove()end z[A].Parent=game.Lighting end wait(0.2)
for A=1,#z do local B=z[A]:FindFirstChild'InCharTag'if B then B:Remove()z[A].
Parent=script.Parent else z[A].Parent=game.Players:GetPlayerFromCharacter(script
.Parent).Backpack end end y:Remove()end end if t~=0 then coroutine.resume(
coroutine.create(o),t)end end s=f.Health+t*r if s*1.01<f.MaxHealth then f.Health
=s elseif t>0 then f.Health=f.MaxHealth end end end

132
processed/39250920.lua
View File

@ -1,132 +0,0 @@
print'[Mercury]: Loaded corescript 39250920'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b b=function(c,d)while not c[d]do c.Changed:wait()
end end local c c=function(d,e)while not d:FindFirstChild(e)do d.ChildAdded:
wait()end end local d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x=nil,{},nil,{},nil,
nil,nil,'You are too far away to chat!',300,'Chat ended because you walked away'
,350,"Chat ended because you didn't reply",350,nil,nil,nil,nil,nil,{},{},nil c(
game,'CoreGui')c(game.CoreGui,'RobloxGui')if game.CoreGui.RobloxGui:
FindFirstChild'ControlFrame'then x=game.CoreGui.RobloxGui.ControlFrame else x=
game.CoreGui.RobloxGui end local y y=function()if h then return h.Tone else
return Enum.DialogTone.Neutral end end local z z=function()r=a('BillboardGui',
'ChatNotificationGui',{ExtentsOffset=Vector3.new(0,1,0),Size=UDim2.new(4,0,
5.42857122,0),SizeOffset=Vector2.new(0,0),StudsOffset=Vector3.new(0.4,4.3,0),
Enabled=true,RobloxLocked=true,Active=true,a('ImageLabel','Image',{Active=false,
BackgroundTransparency=1,Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,1,0),
Image='',RobloxLocked=true,a('ImageButton','Button',{AutoButtonColor=false,
Position=UDim2.new(0.088,0,0.053,0),Size=UDim2.new(0.83,0,0.46,0),Image='',
BackgroundTransparency=1,RobloxLocked=true})})})end local A A=function(B)if B==
Enum.DialogTone.Neutral then return Enum.ChatColor.Blue elseif B==Enum.
DialogTone.Friendly then return Enum.ChatColor.Green elseif B==Enum.DialogTone.
Enemy then return Enum.ChatColor.Red end end local B B=function(C,D)if D==Enum.
DialogTone.Neutral then C.BackgroundColor3=Color3.new(0,0,0.7019607843137254)C.
Number.TextColor3=Color3.new(0.17647058823529413,0.5568627450980392,
0.9607843137254902)elseif D==Enum.DialogTone.Friendly then C.BackgroundColor3=
Color3.new(0,0.30196078431372547,0)C.Number.TextColor3=Color3.new(0,
0.7450980392156863,0)elseif D==Enum.DialogTone.Enemy then C.BackgroundColor3=
Color3.new(0.5490196078431373,0,0)C.Number.TextColor3=Color3.new(1,
0.34509803921568627,0.30980392156862746)end end local C C=function(D)for E,F in
pairs(e)do B(F,D)end return B(f,D)end local D D=function(E)if E==Enum.DialogTone
.Neutral then d.Style=Enum.FrameStyle.ChatBlue d.Tail.Image=
'rbxasset://textures/chatBubble_botBlue_tailRight.png'elseif E==Enum.DialogTone.
Friendly then d.Style=Enum.FrameStyle.ChatGreen d.Tail.Image=
'rbxasset://textures/chatBubble_botGreen_tailRight.png'elseif E==Enum.DialogTone
.Enemy then d.Style=Enum.FrameStyle.ChatRed d.Tail.Image=
'rbxasset://textures/chatBubble_botRed_tailRight.png'end return C(E)end local E
E=function(F,G,H)if H==Enum.DialogTone.Neutral then F.Image.Image=
'rbxasset://textures/chatBubble_botBlue_notify_bkg.png'elseif H==Enum.DialogTone
.Friendly then F.Image.Image=
'rbxasset://textures/chatBubble_botGreen_notify_bkg.png'elseif H==Enum.
DialogTone.Enemy then F.Image.Image=
'rbxasset://textures/chatBubble_botRed_notify_bkg.png'end if G==Enum.
DialogPurpose.Quest then F.Image.Button.Image=
'rbxasset://textures/chatBubble_bot_notify_bang.png'elseif G==Enum.DialogPurpose
.Help then F.Image.Button.Image=
'rbxasset://textures/chatBubble_bot_notify_question.png'elseif G==Enum.
DialogPurpose.Shop then F.Image.Button.Image=
'rbxasset://textures/chatBubble_bot_notify_money.png'end end local F F=function(
)s=a('Frame','DialogScriptMessage',{Style=Enum.FrameStyle.RobloxRound,Visible=
false,a('TextLabel','Text',{Position=UDim2.new(0,0,0,-1),Size=UDim2.new(1,0,1,0)
,FontSize=Enum.FontSize.Size14,BackgroundTransparency=1,TextColor3=Color3.new(1,
1,1),RobloxLocked=true})})end local G G=function(H,I)s.Text.Text=H s.Size=UDim2.
new(0,I,0,40)s.Position=UDim2.new(0.5,-I/2,0.5,-40)s.Visible=true wait(2)s.
Visible=false return s end local H H=function(I)local J=math.min(string.len(I),
100)return wait(0.75+(J/75)*1.5)end local I I=function(J,K)if K==Enum.DialogTone
.Neutral then J.BackgroundColor3=Color3.new(7.8431372549019605E-3,
0.4235294117647059,1)J.Number.TextColor3=Color3.new(1,1,1)elseif K==Enum.
DialogTone.Friendly then J.BackgroundColor3=Color3.new(0,0.5019607843137255,0)J.
Number.TextColor3=Color3.new(1,1,1)elseif K==Enum.DialogTone.Enemy then J.
BackgroundColor3=Color3.new(0.8,0,0)J.Number.TextColor3=Color3.new(1,1,1)end end
local J J=function()if j then j:Remove()j=nil end local K=h h=nil if K and K.
InUse then do local L=u:Clone()L.archivable=false L.Disabled=false L.Parent=K
end end for L,M in pairs(v)do if L and M then M.Enabled=not L.InUse end end i=
nil end local L L=function()print'Wander'd.Visible=false J()return G(m,n)end
local M M=function()print'Timeout'd.Visible=false J()return G(o,p)end local N N=
function()print'Done'return J()end local O O=function(P)if string.len(P)==0 then
return'...'else return P end end local P P=function(Q)if j then j:Remove()j=nil
end j=t:Clone()j.archivable=false j.Disabled=false j.Parent=Q return j end local
Q Q=function(R,S)if not h then return end i=R local T={}for U,V in pairs(S)do if
V:IsA'DialogChoice'then table.insert(T,V)end end table.sort(T,function(W,X)
return W.Name<X.Name end)if#T==0 then N()return end local W,X=1,0 g={}for Y,Z in
pairs(e)do Z.Visible=false end for _,aa in pairs(T)do if W<=#e then e[W].Size=
UDim2.new(1,0,0,72)e[W].UserPrompt.Text=aa.UserDialog local ab=math.ceil(e[W].
UserPrompt.TextBounds.Y/24)*24 e[W].Position=UDim2.new(0,0,0,X)e[W].Size=UDim2.
new(1,0,0,ab)e[W].Visible=true g[e[W]]=aa X=X+ab W=W+1 end end f.Position=UDim2.
new(0,0,0,X)f.Number.Text=W..')'d.Size=UDim2.new(0,350,0,X+24+32)d.Position=
UDim2.new(0,20,0,-d.Size.Y.Offset-20)D(y())d.Visible=true end local aa aa=
function(ab)P(h)d.Visible=false if ab==f then game.Chat:Chat(game.Players.
LocalPlayer.Character,'Goodbye!',A(y()))return N()else local R=g[ab]game.Chat:
Chat(game.Players.LocalPlayer.Character,O(R.UserDialog),A(y()))wait(1)h:
SignalDialogChoiceSelected(q,R)game.Chat:Chat(i,O(R.ResponseDialog),A(y()))H(R.
ResponseDialog)return Q(i,R:GetChildren())end end local ab ab=function(R)local S
=a('TextButton',{BackgroundColor3=Color3.new(0,0,0.7019607843137254),
AutoButtonColor=false,BorderSizePixel=0,Text='',RobloxLocked=true,a('TextLabel',
'Number',{TextColor3=Color3.new(0.4980392156862745,0.8313725490196079,1),Text=R,
FontSize=Enum.FontSize.Size14,BackgroundTransparency=1,Position=UDim2.new(0,4,0,
2),Size=UDim2.new(0,20,0,24),TextXAlignment=Enum.TextXAlignment.Left,
TextYAlignment=Enum.TextYAlignment.Top,RobloxLocked=true}),a('TextLabel',
'UserPrompt',{BackgroundTransparency=1,TextColor3=Color3.new(1,1,1),FontSize=
Enum.FontSize.Size14,Position=UDim2.new(0,28,0,2),Size=UDim2.new(1,-32,1,-4),
TextXAlignment=Enum.TextXAlignment.Left,TextYAlignment=Enum.TextYAlignment.Top,
TextWrap=true,RobloxLocked=true})})S.MouseEnter:connect(function()return I(S,y()
)end)S.MouseLeave:connect(function()return B(S,y())end)S.MouseButton1Click:
connect(function()return aa(S)end)return S end local R R=function(S)e[1]=ab'1)'e
[2]=ab'2)'e[3]=ab'3)'e[4]=ab'4)'f=ab'5)'f.UserPrompt.Text='Goodbye!'f.Size=UDim2
.new(1,0,0,28)d=a('Frame','UserDialogArea',{Size=UDim2.new(0,350,0,200),Style=
Enum.FrameStyle.ChatBlue,Visible=false,a('ImageLabel','Tail',{Size=UDim2.new(0,
62,0,53),Position=UDim2.new(1,8,0.25),Image=
'rbxasset://textures/chatBubble_botBlue_tailRight.png',BackgroundTransparency=1,
RobloxLocked=true})})for T,W in pairs(e)do W.RobloxLocked=true W.Parent=d f.
RobloxLocked=true end f.Parent=d d.RobloxLocked=true d.Parent=S end local S S=
function(T)while not Instance.Lock(T,q)do wait()end if T.InUse then Instance.
Unlock(T)return else T.InUse=true Instance.Unlock(T)end h=T game.Chat:Chat(T.
Parent,T.InitialPrompt,A(T.Tone))H(T.InitialPrompt)return Q(T.Parent,T:
GetChildren())end local T T=function()while h do if h.Parent and(q:
DistanceFromCharacter(h.Parent.Position>=h.ConversationDistance))then L()end
wait(1)end end local W W=function(X)if X.Parent and X.Parent:IsA'BasePart'then
if q:DistanceFromCharacter(X.Parent.Position)>=X.ConversationDistance then G(k,l
)return end for _,ac in pairs(v)do if _ and ac then ac.Enabled=false end end P(_
)delay(1,T)return S(_)end end local ac ac=function(X)if v[X]then v[X]:Remove()v[
X]=nil end if w[X]then w[X]:disconnect()w[X]=nil end end local X X=function(_)if
_.Parent then if _.Parent:IsA'BasePart'then local ad=r:clone()ad.Enabled=not _.
InUse ad.Adornee=_.Parent ad.RobloxLocked=true ad.Parent=game.CoreGui ad.Image.
Button.MouseButton1Click:connect(function()return W(_)end)E(ad,_.Purpose,_.Tone)
v[_]=ad w[_]=_.Changed:connect(function(ae)if ae=='Parent'and _.Parent then ac(_
)return X(_)elseif ae=='InUse'then ad.Enabled=not h and not _.InUse if _==h then
return M()end elseif ae=='Tone'or ae=='Purpose'then return E(ad,_.Purpose,_.Tone
)end end)else w[_]=_.Changed:connect(function(ad)if ad=='Parent'and _.Parent
then ac(_)return X(_)end end)end end end local ad ad=function()local ae=game:
GetService'InsertService':LoadAsset(39226062)if type(ae)=='string'then wait(0.1)
ae=game:GetService'InsertService':LoadAsset(39226062)end if type(ae)=='string'
then return end c(ae,'TimeoutScript')t=ae.TimeoutScript c(ae,
'ReenableDialogScript')u=ae.ReenableDialogScript end local ae ae=function()b(
game.Players,'LocalPlayer')q=game.Players.LocalPlayer b(q,'Character')ad()z()F()
s.RobloxLocked=true s.Parent=x c(x,'BottomLeftControl')local _=a('Frame',
'DialogFrame',{Position=UDim2.new(0,0,0,0),Size=UDim2.new(0,0,0,0),
BackgroundTransparency=1,RobloxLocked=true,Parent=x.BottomLeftControl})R(_)game.
CollectionService.ItemAdded:connect(function(af)if af:IsA'Dialog'then return X(
af)end end)game.CollectionService.ItemRemoved:connect(function(af)if af:IsA
'Dialog'then return ac(af)end end)for af,ag in pairs(game.CollectionService:
GetCollection'Dialog')do if ag:IsA'Dialog'then X(ag)end end end return ae()

843
processed/45284430.lua
View File

@ -1,843 +0,0 @@
print'[Mercury]: Loaded corescript 45284430'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b,c={},nil c=function(d,e,f,g,h,i)local j,k k=
function()if game:IsAncestorOf(d)then if not j then j=e[f]:connect(g)if h then
return h()end end else if j then j:disconnect()if i then return i()end end end
end local l=d.AncestryChanged:connect(k)k()return l end local d d=function(e)
local f=e while f and not f:IsA'ScreenGui'do f=f.Parent end return f end local e
e=function(f,g,h,i)local j,k=1,{}for l,m in ipairs(g)do local n=a('TextButton',
'Button'..tostring(j),{Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,
AutoButtonColor=true,Modal=true,Style=(function()if m['Style']then return m.
Style else return Enum.ButtonStyle.RobloxButton end end)(),Text=m.Text,
TextColor3=Color3.new(1,1,1),Parent=f})n.MouseButton1Click:connect(m.Function)k[
j]=n j=j+1 end local n=j-1 if n==1 then f.Button1.Position=UDim2.new(0.35,0,h.
Scale,h.Offset)f.Button1.Size=UDim2.new(0.4,0,i.Scale,i.Offset)elseif n==2 then
f.Button1.Position=UDim2.new(0.1,0,h.Scale,h.Offset)f.Button1.Size=UDim2.new(
0.26666666666666666,0,i.Scale,i.Offset)f.Button2.Position=UDim2.new(0.55,0,h.
Scale,h.Offset)f.Button2.Size=UDim2.new(0.35,0,i.Scale,i.Offset)elseif n>=3 then
local o,p=0.1/n,0.9/n j=1 while j<=n do k[j].Position=UDim2.new(o*j+(j-1)*p,0,h.
Scale,h.Offset)k[j].Size=UDim2.new(p,0,i.Scale,i.Offset)j=j+1 end end end local
f f=function(g,h,i,j,k)local l,m=k-1,math.min(1,math.max(0,(g-j.AbsolutePosition
.X)/j.AbsoluteSize.X))local n,o=math.modf(m*l)if o>0.5 then n=n+1 end m=n/l
local p=math.ceil(m*l)if i.Value~=(p+1)then i.Value=p+1 h.Position=UDim2.new(m,-
h.AbsoluteSize.X/2,h.Position.Y.Scale,h.Position.Y.Offset)end end local g g=
function(h)h.Visible=false if areaSoakMouseMoveCon then return
areaSoakMouseMoveCon:disconnect()end end b.CreateStyledMessageDialog=function(h,
i,j,k)local l,m=a('Frame','MessageDialog',{Size=UDim2.new(0.5,0,0,165),Position=
UDim2.new(0.25,0,0.5,-72.5),Active=true,Style=Enum.FrameStyle.RobloxRound,a(
'TextLabel','Title',{Text=h,TextStrokeTransparency=0,BackgroundTransparency=1,
TextColor3=Color3.new(0.8666666666666667,0.8666666666666667,0.8666666666666667),
Position=UDim2.new(0,80,0,0),Size=UDim2.new(1,-80,0,40),Font=Enum.Font.ArialBold
,FontSize=Enum.FontSize.Size36,TextXAlignment=Enum.TextXAlignment.Center,
TextYAlignment=Enum.TextYAlignment.Center}),a('TextLabel','Message',{Text=i,
TextStrokeTransparency=0,TextColor3=Color3.new(0.8666666666666667,
0.8666666666666667,0.8666666666666667),Position=UDim2.new(0.025,80,0,45),Size=
UDim2.new(0.95,-80,0,55),BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=
Enum.FontSize.Size18,TextWrap=true,TextXAlignment=Enum.TextXAlignment.Left,
TextYAlignment=Enum.TextYAlignment.Top})}),a('ImageLabel','StyleImage',{
BackgroundTransparency=1,Position=UDim2.new(0,5,0,15)})if j=='error'or j==
'Error'then m.Size=UDim2.new(0,71,0,71)m.Image=
'http://www.roblox.com/asset?id=42565285'elseif j=='notify'or j=='Notify'then m.
Size=UDim2.new(0,71,0,71)m.Image='http://www.roblox.com/asset?id=42604978'elseif
j=='confirm'or j=='Confirm'then m.Size=UDim2.new(0,74,0,76)m.Image=
'http://www.roblox.com/asset?id=42557901'else return b.CreateMessageDialog(h,i,k
)end m.Parent=l e(l,k,UDim.new(0,105),UDim.new(0,40))return l end b.
CreateMessageDialog=function(h,i,j)local k=a('Frame','MessageDialog',{Size=UDim2
.new(0.5,0,0.5,0),Position=UDim2.new(0.25,0,0.25,0),Active=true,Style=Enum.
FrameStyle.RobloxRound,a('TextLabel','Title',{Text=h,BackgroundTransparency=1,
TextColor3=Color3.new(0.8666666666666667,0.8666666666666667,0.8666666666666667),
Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,0.15,0),Font=Enum.Font.ArialBold,
FontSize=Enum.FontSize.Size36,TextXAlignment=Enum.TextXAlignment.Center,
TextYAlignment=Enum.TextYAlignment.Center}),a('TextLabel','Message',{Text=i,
TextColor3=Color3.new(0.8666666666666667,0.8666666666666667,0.8666666666666667),
Position=UDim2.new(0.025,0,0.175,0),Size=UDim2.new(0.95,0,0.55,0),
BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,
TextWrap=true,TextXAlignment=Enum.TextXAlignment.Left,TextYAlignment=Enum.
TextYAlignment.Top})})e(k,j,UDim.new(0.8,0),UDim.new(0.15,0))return k end b.
CreateDropDownMenu=function(h,i,j)local k,l=UDim.new(0,100),UDim.new(0,32)local
m=a('Frame','DropDownMenu',{BackgroundTransparency=1,Size=UDim2.new(k,l)})local
n,o,p,q=a('TextButton','DropDownMenuButton',{TextWrap=true,TextColor3=Color3.
new(1,1,1),Text='Choose One',Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.
Size18,TextXAlignment=Enum.TextXAlignment.Left,TextYAlignment=Enum.
TextYAlignment.Center,BackgroundTransparency=1,AutoButtonColor=true,Style=Enum.
ButtonStyle.RobloxButton,Size=UDim2.new(1,0,1,0),Parent=m,ZIndex=2,a(
'ImageLabel','Icon',{Active=false,Image=
'http://www.roblox.com/asset/?id=45732894',BackgroundTransparency=1,Size=UDim2.
new(0,11,0,6),Position=UDim2.new(1,-11,0.5,-2),ZIndex=2})}),#h,#h,false if p>6
then q=true p=6 end local r,s,t,u,v,w,x,y=a('TextButton','List',{Text='',
BackgroundTransparency=1,Style=Enum.ButtonStyle.RobloxButton,Visible=false,
Active=true,Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,(1+p)*0.8,0),Parent=m
,ZIndex=2}),a('TextButton','ChoiceButton',{BackgroundTransparency=1,
BorderSizePixel=0,Text='ReplaceMe',TextColor3=Color3.new(1,1,1),TextXAlignment=
Enum.TextXAlignment.Left,TextYAlignment=Enum.TextYAlignment.Center,
BackgroundColor3=Color3.new(1,1,1),Font=Enum.Font.Arial,FontSize=Enum.FontSize.
Size18,Size=(function()if q then return UDim2.new(1,-13,0.8/((p+1)*0.8),0)else
return UDim2.new(1,0,0.8/((p+1)*0.8),0)end end)(),TextWrap=true,ZIndex=2}),a(
'TextButton','AreaSoak',{Text='',BackgroundTransparency=1,Active=true,Size=UDim2
.new(1,0,1,0),Visible=false,ZIndex=3}),false,nil,nil,0,nil y=function(z)r.ZIndex
=z+1 if v then v.ZIndex=z+3 end if w then w.ZIndex=z+3 end local A=r:
GetChildren()if A then for B,C in ipairs(A)do if C.Name=='ChoiceButton'then C.
ZIndex=z+2 elseif C.Name=='ClickCaptureButton'then C.ZIndex=z end end end end
local z,A=1,nil A=function()if v then v.Active=z>1 end if w then w.Active=z+p<=o
end local B=r:GetChildren()if not B then return end local C=1 for D,E in ipairs(
B)do if E.Name=='ChoiceButton'then if C<z or C>=z+p then E.Visible=false else E.
Position=UDim2.new(0,0,((C-z+1)*0.8)/((p+1)*0.8),0)E.Visible=true end E.
TextColor3=Color3.new(1,1,1)E.BackgroundTransparency=1 C=C+1 end end end local B
B=function()u=not u t.Visible=not t.Visible n.Visible=not u r.Visible=u if u
then y(4)else y(2)end if q then return A()end end r.MouseButton1Click:connect(B)
local C C=function(D)local E,F,G=false,r:GetChildren(),1 if F then for H,I in
ipairs(F)do if I.Name=='ChoiceButton'then if I.Text==D then I.Font=Enum.Font.
ArialBold E=true z=G else I.Font=Enum.Font.Arial end G=G+1 end end end if not D
then n.Text='Choose One'z=1 else if not E then error(
'Invalid Selection Update -- '..D)end if z+p>o+1 then z=o-p+1 end n.Text=D end
end local D D=function()if z+p<=o then z=z+1 A()return true end return false end
local E E=function()if z>1 then z=z-1 A()return true end return false end if q
then v=a('ImageButton','ScrollUpButton',{BackgroundTransparency=1,Image=
'rbxasset://textures/ui/scrollbuttonUp.png',Size=UDim2.new(0,17,0,17),Position=
UDim2.new(1,-11,(0.8)/((p+1)*0.8),0)})v.MouseButton1Click:connect(function()x=x+
1 end)v.MouseLeave:connect(function()x=x+1 end)v.MouseButton1Down:connect(
function()x=x+1 E()local F=x wait(0.5)while F==x do if E()==false then break end
wait(0.1)end end)v.Parent=r w=a('ImageButton','ScrollDownButton',{
BackgroundTransparency=1,Image='rbxasset://textures/ui/scrollbuttonDown.png',
Size=UDim2.new(0,17,0,17),Position=UDim2.new(1,-11,1,-11),Parent=r})w.
MouseButton1Click:connect(function()x=x+1 end)w.MouseLeave:connect(function()x=x
+1 end)w.MouseButton1Down:connect(function()x=x+1 D()local F=x wait(0.5)while F
==x do if D()==false then break end wait(0.1)end end)a('ImageLabel','ScrollBar',
{Image='rbxasset://textures/ui/scrollbar.png',BackgroundTransparency=1,Size=
UDim2.new(0,18,(p*0.8)/((p+1)*0.8),-32),Position=UDim2.new(1,-11,(0.8)/((p+1)*
0.8),19),Parent=r})end for F,G in ipairs(h)do local H=s:clone()if j then H.
RobloxLocked=true end H.Text=G H.Parent=r H.MouseButton1Click:connect(function()
H.TextColor3=Color3.new(1,1,1)H.BackgroundTransparency=1 C(G)i(G)return B()end)H
.MouseEnter:connect(function()H.TextColor3=Color3.new(0,0,0)H.
BackgroundTransparency=0 end)H.MouseLeave:connect(function()H.TextColor3=Color3.
new(1,1,1)H.BackgroundTransparency=1 end)end A()m.AncestryChanged:connect(
function(H,I)if I==nil then t.Parent=nil else t.Parent=d(m)end end)n.
MouseButton1Click:connect(B)t.MouseButton1Click:connect(B)return m,C end b.
CreatePropertyDropDownMenu=function(h,i,j)local k,l,m=j:GetEnumItems(),{},{}for
n,o in ipairs(k)do l[n]=o.Name m[o.Name]=o end local p,q p,q=b.
CreateDropDownMenu(l,function(r)h[i]=m[r]end)c(p,h,'Changed',function(r)if r==i
then return q(h[i].Name)end end,function()return q(h[i].Name)end)return p end b.
GetFontHeight=function(h,i)if h==nil or i==nil then error
'Font and FontSize must be non-nil'end if h==Enum.Font.Legacy then if Enum.
FontSize.Size8==i then return 12 elseif Enum.FontSize.Size9==i then return 14
elseif Enum.FontSize.Size10==i then return 15 elseif Enum.FontSize.Size11==i
then return 17 elseif Enum.FontSize.Size12==i then return 18 elseif Enum.
FontSize.Size14==i then return 21 elseif Enum.FontSize.Size18==i then return 27
elseif Enum.FontSize.Size24==i then return 36 elseif Enum.FontSize.Size36==i
then return 54 elseif Enum.FontSize.Size48==i then return 72 else return error
'Unknown FontSize'end elseif h==Enum.Font.Arial or h==Enum.Font.ArialBold then
if Enum.FontSize.Size8==i then return 8 elseif Enum.FontSize.Size9==i then
return 9 elseif Enum.FontSize.Size10==i then return 10 elseif Enum.FontSize.
Size11==i then return 11 elseif Enum.FontSize.Size12==i then return 12 elseif
Enum.FontSize.Size14==i then return 14 elseif Enum.FontSize.Size18==i then
return 18 elseif Enum.FontSize.Size24==i then return 24 elseif Enum.FontSize.
Size36==i then return 36 elseif Enum.FontSize.Size48==i then return 48 else
return error'Unknown FontSize'end else return error('Unknown Font '..h)end end
local h h=function(i,j,k)local l,m=i.AbsoluteSize.Y,i.AbsoluteSize.Y for n,o in
ipairs(j)do if o:IsA'TextLabel'or o:IsA'TextButton'then local p=o:IsA'TextLabel'
if p then m=m-k['TextLabelPositionPadY']else m=m-k['TextButtonPositionPadY']end
o.Position=UDim2.new(o.Position.X.Scale,o.Position.X.Offset,0,l-m)o.Size=UDim2.
new(o.Size.X.Scale,o.Size.X.Offset,0,m)if o.TextFits and o.TextBounds.Y<m then o
.Visible=true if p then o.Size=UDim2.new(o.Size.X.Scale,o.Size.X.Offset,0,o.
TextBounds.Y+k['TextLabelSizePadY'])else o.Size=UDim2.new(o.Size.X.Scale,o.Size.
X.Offset,0,o.TextBounds.Y+k['TextButtonSizePadY'])end while not o.TextFits do o.
Size=UDim2.new(o.Size.X.Scale,o.Size.X.Offset,0,o.AbsoluteSize.Y+1)end m=m-o.
AbsoluteSize.Y if p then m=m-k['TextLabelPositionPadY']else m=m-k[
'TextButtonPositionPadY']end else o.Visible=false m=-1 end else o.Position=UDim2
.new(o.Position.X.Scale,o.Position.X.Offset,0,l-m)m=m-o.AbsoluteSize.Y o.Visible
=(m>=0)end end end b.LayoutGuiObjects=function(i,j,k)if not i:IsA'GuiObject'then
error'Frame must be a GuiObject'end for l,m in ipairs(j)do if not m:IsA
'GuiObject'then error'All elements that are layed out must be of type GuiObject'
end end if not k then k={}end if not k['TextLabelSizePadY']then k[
'TextLabelSizePadY']=0 end if not k['TextLabelPositionPadY']then k[
'TextLabelPositionPadY']=0 end if not k['TextButtonSizePadY']then k[
'TextButtonSizePadY']=12 end if not k['TextButtonPositionPadY']then k[
'TextButtonPositionPadY']=2 end local n=a('Frame','WrapperFrame',{
BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),Parent=i})for o,p in ipairs(j)
do p.Parent=n end local q q=function()wait()return h(n,j,k)end i.Changed:
connect(function(r)if r=='AbsoluteSize'then return q(nil)end end)i.
AncestryChanged:connect(q)return h(n,j,k)end b.CreateSlider=function(i,j,k)local
n=a('Frame','SliderGui',{Size=UDim2.new(1,0,1,0),BackgroundTransparency=1})local
o,p=a('IntValue','SliderSteps',{Value=i,Parent=n}),a('TextButton','AreaSoak',{
Text='',BackgroundTransparency=1,Active=false,Size=UDim2.new(1,0,1,0),Visible=
false,ZIndex=4})n.AncestryChanged:connect(function(q,r)if r==nil then p.Parent=
nil else p.Parent=d(n)end end)local q,r=a('IntValue','SliderPosition',{Value=0,
Parent=n}),a('TextButton','Bar',{Text='',AutoButtonColor=false,BackgroundColor3=
Color3.new(0,0,0),Size=(function()if type(j)=='number'then return UDim2.new(0,j,
0,5)else return UDim2.new(0,200,0,5)end end)(),BorderColor3=Color3.new(
0.37254901960784315,0.37254901960784315,0.37254901960784315),ZIndex=2,Parent=n})
if k['X']and k['X']['Scale']and k['X']['Offset']and k['Y']and k['Y']['Scale']and
k['Y']['Offset']then r.Position=k end local s,t=a('ImageButton','Slider',{
BackgroundTransparency=1,Image='rbxasset://textures/ui/Slider.png',Position=
UDim2.new(0,0,0.5,-10),Size=UDim2.new(0,20,0,20),ZIndex=3,Parent=r}),nil p.
MouseLeave:connect(function()if p.Visible then return g(p)end end)p.
MouseButton1Up:connect(function()if p.Visible then return g(p)end end)s.
MouseButton1Down:connect(function()p.Visible=true if t then t:disconnect()end t=
p.MouseMoved:connect(function(u,v)return f(u,s,q,r,i)end)end)s.MouseButton1Up:
connect(function()return g(p)end)q.Changed:connect(function(u)q.Value=math.min(i
,math.max(1,q.Value))local v=(q.Value-1)/(i-1)s.Position=UDim2.new(v,-s.
AbsoluteSize.X/2,s.Position.Y.Scale,s.Position.Y.Offset)end)r.MouseButton1Down:
connect(function(u,v)return f(u,s,q,r,i)end)return n,q,o end b.
CreateTrueScrollingFrame=function()local i,j,k,n,o,p,q=nil,nil,nil,nil,false,{},
a('Frame','ScrollingFrame',{Active=true,Size=UDim2.new(1,0,1,0),ClipsDescendants
=true})local r=a('Frame','ControlFrame',{BackgroundTransparency=1,Size=UDim2.
new(0,18,1,0),Position=UDim2.new(1,-20,0,0),Parent=q})local s,t,u=a('BoolValue',
'ScrollBottom',{Value=false,Parent=r}),a('BoolValue','scrollUp',{Value=false,
Parent=r}),a('TextButton','ScrollUpButton',{Text='',AutoButtonColor=false,
BackgroundColor3=Color3.new(0,0,0),BorderColor3=Color3.new(1,1,1),
BackgroundTransparency=0.5,Size=UDim2.new(0,18,0,18),ZIndex=2,Parent=r})for v=1,
6 do a('Frame','tri'..tostring(v),{BorderColor3=Color3.new(1,1,1),ZIndex=3,
BackgroundTransparency=0.5,Size=UDim2.new(0,12-((v-1)*2),0,0),Position=UDim2.
new(0,3+(v-1),0.5,2-(v-1)),Parent=u})end u.MouseEnter:connect(function()u.
BackgroundTransparency=0.1 local v=u:GetChildren()for w=1,#v do v[w].
BackgroundTransparency=0.1 end end)u.MouseLeave:connect(function()u.
BackgroundTransparency=0.5 local v=u:GetChildren()for w=1,#v do v[w].
BackgroundTransparency=0.5 end end)local v=u:clone()v.Name='ScrollDownButton'v.
Position=UDim2.new(0,0,1,-18)local w=v:GetChildren()for x=1,#w do w[x].Position=
UDim2.new(0,3+(x-1),0.5,-2+(x-1))end v.MouseEnter:connect(function()v.
BackgroundTransparency=0.1 w=v:GetChildren()for x=1,#w do w[x].
BackgroundTransparency=0.1 end end)v.MouseLeave:connect(function()v.
BackgroundTransparency=0.5 w=v:GetChildren()for x=1,#w do w[x].
BackgroundTransparency=0.5 end end)v.Parent=r local x=a('Frame','ScrollTrack',{
BackgroundTransparency=1,Size=UDim2.new(0,18,1,-38),Position=UDim2.new(0,0,0,19)
,Parent=r})local y=a('TextButton','ScrollBar',{BackgroundColor3=Color3.new(0,0,0
),BorderColor3=Color3.new(1,1,1),BackgroundTransparency=0.5,AutoButtonColor=
false,Text='',Active=true,ZIndex=2,Size=UDim2.new(0,18,0.1,0),Position=UDim2.
new(0,0,0,0),Parent=x})local z=a('Frame','ScrollNub',{BorderColor3=Color3.new(1,
1,1),Size=UDim2.new(0,10,0,0),Position=UDim2.new(0.5,-5,0.5,0),ZIndex=2,
BackgroundTransparency=0.5,Parent=y})local A=z:clone()A.Position=UDim2.new(0.5,-
5,0.5,-2)A.Parent=y local B=z:clone()B.Position=UDim2.new(0.5,-5,0.5,2)B.Parent=
y y.MouseEnter:connect(function()y.BackgroundTransparency=0.1 z.
BackgroundTransparency=0.1 A.BackgroundTransparency=0.1 B.BackgroundTransparency
=0.1 end)y.MouseLeave:connect(function()y.BackgroundTransparency=0.5 z.
BackgroundTransparency=0.5 A.BackgroundTransparency=0.5 B.BackgroundTransparency
=0.5 end)local C,D=a('ImageButton','mouseDrag',{Active=false,Size=UDim2.new(1.5,
0,1.5,0),AutoButtonColor=false,BackgroundTransparency=1,Position=UDim2.new(-0.25
,0,-0.25,0),ZIndex=10}),nil D=function(E,F,G)local H=y.Position if F<x.
AbsolutePosition.y then y.Position=UDim2.new(y.Position.X.Scale,y.Position.X.
Offset,0,0)return(H~=y.Position)end local I=y.AbsoluteSize.Y/x.AbsoluteSize.Y if
F>(x.AbsolutePosition.y+x.AbsoluteSize.y)then y.Position=UDim2.new(y.Position.X.
Scale,y.Position.X.Offset,1-I,0)return(H~=y.Position)end local J=(F-x.
AbsolutePosition.y-G)/x.AbsoluteSize.y if J+I>1 then J=1-I s.Value=true t.Value=
false elseif J<=0 then J=0 t.Value=true s.Value=false else t.Value=false s.Value
=false end y.Position=UDim2.new(y.Position.X.Scale,y.Position.X.Offset,J,0)
return(H~=y.Position)end local E E=function(F)if not F or not F:IsA'GuiObject'
then return end if F==r then return end if F:IsDescendantOf(r)then return end if
not F.Visible then return end if(i and i>F.AbsolutePosition.Y)or not i then i=F.
AbsolutePosition.Y end if(j and j<(F.AbsolutePosition.Y+F.AbsoluteSize.Y))or not
j then j=F.AbsolutePosition.Y+F.AbsoluteSize.Y end local G=F:GetChildren()for H=
1,#G do E(G[H])end end local F F=function()local G=q:GetChildren()for H=1,#G do
E(G[H])end end local G G=function()o=true local H=0 if y.Position.Y.Scale>0 then
if y.Visible then H=y.Position.Y.Scale/((x.AbsoluteSize.Y-y.AbsoluteSize.Y)/x.
AbsoluteSize.Y)else H=0 end end if H>0.99 then H=1 end local I,J=(q.AbsoluteSize
.Y-(j-i))*H,q:GetChildren()for K=1,#J do if J[K]~=r then J[K].Position=UDim2.
new(J[K].Position.X.Scale,J[K].Position.X.Offset,0,math.ceil(J[K].
AbsolutePosition.Y)-math.ceil(i+I))end end i=nil j=nil F()o=false end local H H=
function()if not j or not i then return end local I=math.abs(j-i)if I==0 then y.
Visible=false v.Visible=false u.Visible=false if k then k:disconnect()k=nil end
if n then n:disconnect()n=nil end return end local J=q.AbsoluteSize.Y/I if J>=1
then y.Visible=false v.Visible=false u.Visible=false G()else y.Visible=true v.
Visible=true u.Visible=true y.Size=UDim2.new(y.Size.X.Scale,y.Size.X.Offset,J,0)
end local K=(q.AbsolutePosition.Y-i)/I y.Position=UDim2.new(y.Position.X.Scale,y
.Position.X.Offset,K,-y.AbsoluteSize.X/2)if y.AbsolutePosition.y<x.
AbsolutePosition.y then y.Position=UDim2.new(y.Position.X.Scale,y.Position.X.
Offset,0,0)end if(y.AbsolutePosition.y+y.AbsoluteSize.Y)>(x.AbsolutePosition.y+x
.AbsoluteSize.y)then local L=y.AbsoluteSize.Y/x.AbsoluteSize.Y y.Position=UDim2.
new(y.Position.X.Scale,y.Position.X.Offset,1-L,0)end end local I,J,K=7,false,nil
K=function()if J then return end J=true if D(0,y.AbsolutePosition.Y-I,0)then G()
end J=false end local L,M=false,nil M=function()if L then return end L=true if
D(0,y.AbsolutePosition.Y+I,0)then G()end L=false end t=function(N)if u.Active
then local O=tick()local P,Q=O,nil Q=C.MouseButton1Up:connect(function()O=tick()
C.Parent=nil return Q:disconnect()end)C.Parent=d(y)K()wait(0.2)b=tick()local R=
0.1 while O==P do K()if N and N>y.AbsolutePosition.y then break end if not u.
Active then break end if tick()-b>5 then R=0 elseif tick()-b>2 then R=0.06 end
wait(R)end end end local N N=function(O)if v.Active then local P=tick()local Q,R
=P,nil R=C.MouseButton1Up:connect(function()P=tick()C.Parent=nil return R:
disconnect()end)C.Parent=d(y)M()wait(0.2)b=tick()local S=0.1 while P==Q do M()if
O and O<(y.AbsolutePosition.y+y.AbsoluteSize.x)then break end if not v.Active
then break end if tick()-b>5 then S=0 elseif tick()-b>2 then S=0.06 end wait(S)
end end end y.MouseButton1Down:connect(function(O,P)if y.Active then local Q,R=
tick(),P-y.AbsolutePosition.y if k then k:disconnect()k=nil end if n then n:
disconnect()n=nil end local S=false k=C.MouseMoved:connect(function(T,U)if S
then return end S=true if D(T,U,R)then G()end S=false end)n=C.MouseButton1Up:
connect(function()Q=tick()C.Parent=nil k:disconnect()k=nil n:disconnect()drag=
nil end)C.Parent=d(y)end end)local O=0 u.MouseButton1Down:connect(function()
return t()end)v.MouseButton1Down:connect(function()return N()end)local P P=
function()scrollStamp=tick()end u.MouseButton1Up:connect(P)v.MouseButton1Up:
connect(P)y.MouseButton1Up:connect(P)local Q Q=function()local R,S=i,j i=nil j=
nil F()if(i~=R)or(j~=S)then return H()end end local R R=function(S,T)if o then
return end if not S.Visible then return end if T=='Size'or T=='Position'then
wait()return Q()end end q.DescendantAdded:connect(function(S)if not S:IsA
'GuiObject'then return end if S.Visible then wait()Q()end p[S]=S.Changed:
connect(function(T)return R(S,T)end)end)q.DescendantRemoving:connect(function(S)
if not S:IsA'GuiObject'then return end if p[S]then p[S]:disconnect()p[S]=nil end
wait()return Q()end)q.Changed:connect(function(S)if S=='AbsoluteSize'then if not
j or not i then return end Q()return H()end end)return q,r end b.
CreateScrollingFrame=function(i,j)local k,n,o,p,q=a('Frame','ScrollingFrame',{
BackgroundTransparency=1,Size=UDim2.new(1,0,1,0)}),a('ImageButton',
'ScrollUpButton',{BackgroundTransparency=1,Image=
'rbxasset://textures/ui/scrollbuttonUp.png',Size=UDim2.new(0,17,0,17)}),a(
'ImageButton','ScrollDownButton',{BackgroundTransparency=1,Image=
'rbxasset://textures/ui/scrollbuttonDown.png',Size=UDim2.new(0,17,0,17)}),a(
'ImageButton','ScrollBar',{Image='rbxasset://textures/ui/scrollbar.png',
BackgroundTransparency=1,Size=UDim2.new(0,18,0,150)}),0 local r,s,t=a(
'ImageButton','ScrollDrag',{Image='http://www.roblox.com/asset/?id=61367186',
Size=UDim2.new(1,0,0,16),BackgroundTransparency=1,Active=true,Parent=p}),a(
'ImageButton','mouseDrag',{Active=false,Size=UDim2.new(1.5,0,1.5,0),
AutoButtonColor=false,BackgroundTransparency=1,Position=UDim2.new(-0.25,0,-0.25,
0),ZIndex=10}),'simple'if j and tostring(j)then t=j end local u,v,w,x=1,0,0,nil
x=function()w=0 local y={}if i then for z,A in ipairs(i)do if A.Parent==k then
table.insert(y,A)end end else local z=k:GetChildren()if z then for A,B in
ipairs(z)do if B:IsA'GuiObject'then table.insert(y,B)end end end end if#y==0
then n.Active=false o.Active=false r.Active=false u=1 return end if u>#y then u=
#y end if u<1 then u=1 end local z,A,B,C,D,E,F,G,H=k.AbsoluteSize.Y,k.
AbsoluteSize.Y,k.AbsoluteSize.X,0,0,true,0,#y,0 G=u while G<=#y and F<z do C=C+y
[G].AbsoluteSize.X if C>=B then F=F+H H=0 C=y[G].AbsoluteSize.X end if y[G].
AbsoluteSize.Y>H then H=y[G].AbsoluteSize.Y end G=G+1 end F=F+H H=0 G=u-1 C=0
while F+H<z and G>=1 do C=C+y[G].AbsoluteSize.X D=D+1 if C>=B then v=D-1 D=0 C=y
[G].AbsoluteSize.X if F+H<=z then F=F+H if u<=v then u=1 break else u=u-v end H=
0 else break end end if y[G].AbsoluteSize.Y>H then H=y[G].AbsoluteSize.Y end G=G
-1 end if(G==0)and(F+H<=z)then u=1 end C=0 D=0 E=true local I,J,K=0,0,0 if y[1]
then K=math.ceil(math.floor(math.fmod(z,y[1].AbsoluteSize.X))/2)J=math.ceil(math
.floor(math.fmod(B,y[1].AbsoluteSize.Y))/2)end for L,M in ipairs(y)do if L<u
then M.Visible=false else if A<0 then M.Visible=false else if E then D=D+1 end
if C+M.AbsoluteSize.X>=B then if E then v=D-1 E=false end C=0 A=A-M.AbsoluteSize
.Y end M.Position=UDim2.new(M.Position.X.Scale,C+J,0,z-A+K)C=C+M.AbsoluteSize.X
M.Visible=((A-M.AbsoluteSize.Y)>=0)if M.Visible then w=w+1 end I=M.AbsoluteSize
end end end n.Active=(u>1)if I==0 then o.Active=false else o.Active=((A-I.Y)<0)
end r.Active=#y>w r.Visible=r.Active end local y y=function()local z={}w=0 if i
then for A,B in ipairs(i)do if B.Parent==k then table.insert(z,B)end end else
local A=k:GetChildren()if A then for B,C in ipairs(A)do if C:IsA'GuiObject'then
table.insert(z,C)end end end end if#z==0 then n.Active=false o.Active=false r.
Active=false u=1 return end if u>#z then u=#z end local A,B,C,D=k.AbsoluteSize.Y
,k.AbsoluteSize.Y,0,#z while C<A and D>=1 do if D>=u then C=C+z[D].AbsoluteSize.
Y else if C+z[D].AbsoluteSize.Y<=A then C=C+z[D].AbsoluteSize.Y if u<=1 then u=1
break else u=u-1 end else break end end D=D-1 end D=u for E,F in ipairs(z)do if
E<u then F.Visible=false else if B<0 then F.Visible=false else F.Position=UDim2.
new(F.Position.X.Scale,F.Position.X.Offset,0,A-B)B=B-F.AbsoluteSize.Y if B>=0
then F.Visible=true w=w+1 else F.Visible=false end end end end n.Active=(u>1)o.
Active=(B<0)r.Active=#z>w r.Visible=r.Active end local z z=function()local A,B=0
,k:GetChildren()if B then for C,D in ipairs(B)do if D:IsA'GuiObject'then A=A+1
end end end if not r.Parent then return end local C=r.Parent.AbsoluteSize.y*(1/(
A-w+1))if C<16 then C=16 end r.Size=UDim2.new(r.Size.X.Scale,r.Size.X.Offset,r.
Size.Y.Scale,C)local D=(u-1)/(A-w)if D>1 then D=1 elseif D<0 then D=0 end local
E=0 if D~=0 then E=(D*p.AbsoluteSize.y)-(D*r.AbsoluteSize.y)end r.Position=UDim2
.new(r.Position.X.Scale,r.Position.X.Offset,r.Position.Y.Scale,E)end local A,B=
false,nil B=function()if A then return end A=true wait()local C,D if t=='grid'
then C,D=pcall(function()return x()end)elseif t=='simple'then C,D=pcall(function
()return y()end)end if not C then print(D)end z()A=false end local C C=function(
)u=u-v if u<1 then u=1 end return B(nil)end local D D=function()u=u+v return B(
nil)end local E E=function(F)if n.Active then q=tick()local G,H=q,nil H=s.
MouseButton1Up:connect(function()q=tick()s.Parent=nil return H:disconnect()end)s
.Parent=d(p)C()wait(0.2)b=tick()local I=0.1 while q==G do C()if F and F>r.
AbsolutePosition.y then break end if not n.Active then break end if tick()-b>5
then I=0 elseif tick()-b>2 then I=0.06 end wait(I)end end end local F F=function
(G)if o.Active then q=tick()local H,I=q,nil I=s.MouseButton1Up:connect(function(
)q=tick()s.Parent=nil return I:disconnect()end)s.Parent=d(p)D()wait(0.2)b=tick()
local J=0.1 while q==H do D()if G and G<(r.AbsolutePosition.y+r.AbsoluteSize.x)
then break end if not o.Active then break end if tick()-b>5 then J=0 elseif
tick()-b>2 then J=0.06 end wait(J)end end end r.MouseButton1Down:connect(
function(G,H)if r.Active then q=tick()local I,J,K=H-r.AbsolutePosition.y,nil,nil
J=s.MouseMoved:connect(function(L,M)local N,O,P=p.AbsolutePosition.y,p.
AbsoluteSize.y,r.AbsoluteSize.y local Q=N+O-P M=M-I M=M<N and N or M>Q and Q or
M M=M-N local R,S=0,k:GetChildren()if S then for T,U in ipairs(S)do if U:IsA
'GuiObject'then R=R+1 end end end local T,U,V=M/(O-P),v,R-(w-1)local W=math.
floor((T*V)+0.5)+U if W<u then U=-U end if W<1 then W=1 end u=W return B(nil)end
)K=s.MouseButton1Up:connect(function()q=tick()s.Parent=nil J:disconnect()J=nil K
:disconnect()drag=nil end)s.Parent=d(p)end end)local G=0 n.MouseButton1Down:
connect(function()return E()end)n.MouseButton1Up:connect(function()q=tick()end)o
.MouseButton1Up:connect(function()q=tick()end)o.MouseButton1Down:connect(
function()return F()end)p.MouseButton1Up:connect(function()q=tick()end)p.
MouseButton1Down:connect(function(H,I)if I>(r.AbsoluteSize.y+r.AbsolutePosition.
y)then return F(I)elseif I<r.AbsolutePosition.y then return E(I)end end)k.
ChildAdded:connect(function()return B(nil)end)k.ChildRemoved:connect(function()
return B(nil)end)k.Changed:connect(function(H)if H=='AbsoluteSize'then return B(
nil)end end)k.AncestryChanged:connect(function()return B(nil)end)return k,n,o,B,
p end local i i=function(j,k,n)if j>k then return j end local o=j while j<=k do
local p=j+math.floor((k-j)/2)if n(p and(o==nil or o<p))then o=p j=p+1 else k=p-1
end end return o end local j j=function(k,n,o)if k>n then return k end local p=n
while k<=n do local q=k+math.floor((n-k)/2)if o(q and(p==nil or p>q))then p=q n=
q-1 else k=q+1 end end return p end local k k=function(n)while(n~=nil)do if n:
IsA'ScreenGui'or n:IsA'BillboardGui'then return n end n=n.Parent end return nil
end b.AutoTruncateTextObject=function(n)local o,p=n.Text,n:Clone()p.Name='Full'
..n.Name p.BorderSizePixel=0 p.BackgroundTransparency=0 p.Text=o p.
TextXAlignment=Enum.TextXAlignment.Center p.Position=UDim2.new(0,-3,0,0)p.Size=
UDim2.new(0,100,1,0)p.Visible=false p.Parent=n local q,r,s,t t=function()if k(n)
==nil then return end n.Text=o if n.TextFits then if r then r:disconnect()r=nil
end if s then s:disconnect()s=nil end else local u=string.len(o)n.Text=o..'~'
local v=i(0,u,function(v)if v==0 then n.Text='~'else n.Text=string.sub(o,1,v)..
'~'end return n.TextFits end)q=string.sub(o,1,v)..'~'n.Text=q if not p.TextFits
then p.Size=UDim2.new(0,10000,1,0)end local w=j(n.AbsoluteSize.X,p.AbsoluteSize.
X,function(w)p.Size=UDim2.new(0,w,1,0)return p.TextFits end)p.Size=UDim2.new(0,w
+6,1,0)if r==nil then r=n.MouseEnter:connect(function()p.ZIndex=n.ZIndex+1 p.
Visible=true end)end if s==nil then s=n.MouseLeave:connect(function()p.Visible=
false end)end end end n.AncestryChanged:connect(t)n.Changed:connect(function(u)
if u=='AbsoluteSize'then return t()end end)t()local u u=function(v)o=v p.Text=o
return t()end return n,u end local n n=function(o,p,q,r)if o then o.Visible=
false if q.Visible==false then q.Size=o.Size q.Position=o.Position end else if q
.Visible==false then q.Size=UDim2.new(0,50,0,50)q.Position=UDim2.new(0.5,-25,0.5
,-25)end end q.Visible=true r.Value=nil local s,t if p then p.Visible=true s=p.
Size t=p.Position p.Visible=false else s=UDim2.new(0,50,0,50)t=UDim2.new(0.5,-25
,0.5,-25)end return q:TweenSizeAndPosition(s,t,Enum.EasingDirection.InOut,Enum.
EasingStyle.Quad,0.3,true,function(u)if u==Enum.TweenStatus.Completed then q.
Visible=false if p then p.Visible=true r.Value=p end end end)end b.
CreateTutorial=function(o,p,q)local r=a('Frame','Tutorial-'..tostring(o),{
BackgroundTransparency=1,Size=UDim2.new(0.6,0,0.6,0),Position=UDim2.new(0.2,0,
0.2,0),a('BoolValue','Buttons',{Value=q})})local s,t,u,v=a('Frame',
'TransitionFrame',{Style=Enum.FrameStyle.RobloxRound,Size=UDim2.new(0.6,0,0.6,0)
,Position=UDim2.new(0.2,0,0.2,0),Visible=false,Parent=r}),a('ObjectValue',
'CurrentTutorialPage',{Value=nil,Parent=r}),a('Frame','Pages',{
BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),Parent=r}),nil v=function()
local w,x=nil,u:GetChildren()if x then for y,z in ipairs(x)do if z.Visible then
if w then z.Visible=false else w=z end end end end return w end local w w=
function(x)if x or UserSettings().GameSettings:GetTutorialState(p==false)then
print('Showing tutorial-',p)local y,z=v(),u:FindFirstChild'TutorialPage1'if z
then return n(y,z,s,t)else return error'Could not find TutorialPage1'end end end
local x x=function()local y=v()if y then n(y,nil,s,t)end return UserSettings().
GameSettings:SetTutorialState(p,true)end local y y=function(z)local A,B=u:
FindFirstChild('TutorialPage'..z),v()return n(B,A,s,t)end return r,w,x,y end
local o o=function(p,q,r,s)local t=a('Frame','TutorialPage',{Style=Enum.
FrameStyle.RobloxRound,Size=UDim2.new(0.6,0,0.6,0),Position=UDim2.new(0.2,0,0.2,
0),Visible=false,a('TextButton','NextButton',{Text='Next',TextColor3=Color3.new(
1,1,1),Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,Style=Enum.ButtonStyle
.RobloxButtonDefault,Size=UDim2.new(0,80,0,32),Position=UDim2.new(0.5,5,1,-32),
Active=false,Visible=false}),a('TextButton','PrevButton',{Text='Previous',
TextColor3=Color3.new(1,1,1),Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,
Style=Enum.ButtonStyle.RobloxButton,Size=UDim2.new(0,80,0,32),Position=UDim2.
new(0.5,-85,1,-32),Active=false,Visible=false}),a('TextLabel','Header',{Text=p,
BackgroundTransparency=1,FontSize=Enum.FontSize.Size24,Font=Enum.Font.ArialBold,
TextColor3=Color3.new(1,1,1),TextXAlignment=Enum.TextXAlignment.Center,TextWrap=
true,Size=UDim2.new(1,-55,0,22),Position=UDim2.new(0,0,0,0)})})local u=a(
'ImageButton','SkipButton',{AutoButtonColor=false,BackgroundTransparency=1,Image
='rbxasset://textures/ui/closeButton.png',Size=UDim2.new(0,25,0,25),Position=
UDim2.new(1,-25,0,0),Parent=t})u.MouseButton1Click:connect(function()return r()
end)u.MouseEnter:connect(function()u.Image=
'rbxasset://textures/ui/closeButton_dn.png'end)u.MouseLeave:connect(function()u.
Image='rbxasset://textures/ui/closeButton.png'end)if s then local v=a(
'TextButton','DoneButton',{Style=Enum.ButtonStyle.RobloxButtonDefault,Text=
'Done',TextColor3=Color3.new(1,1,1),Font=Enum.Font.ArialBold,FontSize=Enum.
FontSize.Size18,Size=UDim2.new(0,100,0,50),Position=UDim2.new(0.5,-50,1,-50)})if
r then v.MouseButton1Click:connect(function()return r()end)end v.Parent=t end
local v=a('Frame','ContentFrame',{BackgroundTransparency=1,Position=UDim2.new(0,
0,0,25),Parent=t})v.Size=UDim2.new(1,0,1,(function()if s then return-75 else
return-22 end end)())local w,x x=function()if t.Visible and t.Parent then local
y=math.min(t.Parent.AbsoluteSize.X,t.Parent.AbsoluteSize.Y)return q(200,y)end
end t.Changed:connect(function(y)if y=='Parent'then if(w~=nil)then w:disconnect(
)w=nil end if t.Parent and t.Parent:IsA'GuiObject'then w=t.Parent.Changed:
connect(function(z)if z=='AbsoluteSize'then wait()return x()end end)x()end end
if y=='Visible'then return x()end end)return t,v end b.CreateTextTutorialPage=
function(p,q,r)local s,t,u,v=nil,nil,a('TextLabel',{BackgroundTransparency=1,
TextColor3=Color3.new(1,1,1),Text=q,TextWrap=true,TextXAlignment=Enum.
TextXAlignment.Left,TextYAlignment=Enum.TextYAlignment.Center,Font=Enum.Font.
Arial,FontSize=Enum.FontSize.Size14,Size=UDim2.new(1,0,1,0)}),nil v=function(w,x
)local y=j(w,x,function(y)s.Size=UDim2.new(0,y,0,y)return u.TextFits end)s.Size=
UDim2.new(0,y,0,y)s.Position=UDim2.new(0.5,-y/2,0.5,-y/2)end s,t=o(p,v,r)u.
Parent=t return s end b.CreateImageTutorialPage=function(p,q,r,s,t,u)local v,w,x
,y=nil,nil,a('ImageLabel',{BackgroundTransparency=1,Image=q,Size=UDim2.new(0,r,0
,s),Position=UDim2.new(0.5,-r/2,0.5,-s/2)}),nil y=function(z,A)local B=j(z,A,
function(B)return B>=r and B>=s end)if B>=r and B>=s then x.Size=UDim2.new(0,r,0
,s)x.Position=UDim2.new(0.5,-r/2,0.5,-s/2)else if r>s then x.Size=UDim2.new(1,0,
s/r,0)x.Position=UDim2.new(0,0,0.5-(s/r)/2,0)else x.Size=UDim2.new(r/s,0,1,0)x.
Position=UDim2.new(0.5-(r/s)/2,0,0,0)end end B=B+50 v.Size=UDim2.new(0,B,0,B)v.
Position=UDim2.new(0.5,-B/2,0.5,-B/2)end v,w=o(p,y,t,u)x.Parent=w return v end b
.AddTutorialPage=function(p,q)local r,s=p.TransitionFrame,p.CurrentTutorialPage
if not p.Buttons.Value then q.NextButton.Parent=nil q.PrevButton.Parent=nil end
local t=p.Pages:GetChildren()if t and#t>0 then q.Name='TutorialPage'..tostring(#
t+1)local u=t[#t]if not u:IsA'GuiObject'then error
'All elements under Pages must be GuiObjects'end if p.Buttons.Value then if u.
NextButton.Active then error
[[NextButton already Active on previousPage, please only add pages with RbxGui.AddTutorialPage function]]
end u.NextButton.MouseButton1Click:connect(function()return n(u,q,r,s)end)u.
NextButton.Active=true u.NextButton.Visible=true if q.PrevButton.Active then
error
[[PrevButton already Active on tutorialPage, please only add pages with RbxGui.AddTutorialPage function]]
end q.PrevButton.MouseButton1Click:connect(function()return n(q,u,r,s)end)q.
PrevButton.Active=true q.PrevButton.Visible=true end q.Parent=p.Pages else q.
Name='TutorialPage1'q.Parent=p.Pages end end b.CreateSetPanel=function(p,q,r,s,t
,u,v)if not p then error
[[CreateSetPanel: userIdsForSets (first arg) is nil, should be a table of number ids]]
end if type(p)~='table'and type(p)~='userdata'then error(
'CreateSetPanel: userIdsForSets (first arg) is of type '..tostring(type(p))..
', should be of type table or userdata')end if not q then error
[[CreateSetPanel: objectSelected (second arg) is nil, should be a callback function!]]
end if type(q)~='function'then error(
'CreateSetPanel: objectSelected (second arg) is of type '..tostring(type(q))..
', should be of type function!')end if r and type(r)~='function'then error(
'CreateSetPanel: dialogClosed (third arg) is of type '..tostring(type(r))..
', should be of type function!')end if u==nil then u=false end local w,x,y,z,A,B
,C,D,E,F=1,{},{},nil,nil,'NegX','None',nil,nil,{}F.CurrentCategory=nil F.
Category={}local G,H,I={},nil,64 local J,K,L,M=I,nil,nil,game:GetService
'ContentProvider'.BaseUrl:lower()if v then L=M..
[[Game/Tools/ThumbnailAsset.ashx?fmt=png&wd=420&ht=420&assetversionid=]]K=M..
[[Game/Tools/ThumbnailAsset.ashx?fmt=png&wd=75&ht=75&assetversionid=]]else L=M..
'Game/Tools/ThumbnailAsset.ashx?fmt=png&wd=420&ht=420&aid='K=M..
'Game/Tools/ThumbnailAsset.ashx?fmt=png&wd=75&ht=75&aid='end local N N=function(
O,P)local Q=O:GetChildren()for R=1,#Q do if Q[R]:IsA'GuiObject'then Q[R].ZIndex=
P end N(Q[R],P)end end local O,P,Q=nil,{'Block','Vertical Ramp','Corner Wedge',
'Inverse Corner Wedge','Horizontal Ramp','Auto-Wedge'},{}for R=1,#P do Q[P[R]]=R
-1 end Q[P[#P]]=6 local R R=function()local S,T,U={'NegX','X','NegY','Y','NegZ',
'Z'},{'None','Small','Medium','Strong','Max'},a('Frame','WaterFrame',{Style=Enum
.FrameStyle.RobloxSquare,Size=UDim2.new(0,150,0,110),Visible=false})local V=a(
'TextLabel','WaterForceLabel',{BackgroundTransparency=1,Size=UDim2.new(1,0,0,12)
,Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size12,TextColor3=Color3.new(1,
1,1),TextXAlignment=Enum.TextXAlignment.Left,Text='Water Force',Parent=U})local
W=V:Clone()W.Name='WaterForceDirectionLabel'W.Text='Water Force Direction'W.
Position=UDim2.new(0,0,0,50)W.Parent=U E=a('BindableEvent',
'WaterTypeChangedEvent',{Parent=U})local X X=function(Y)B=Y return E:Fire{C,B}
end local Y Y=function(Z)C=Z return E:Fire{C,B}end local Z,_=b.
CreateDropDownMenu(S,X)Z.Size=UDim2.new(1,0,0,25)Z.Position=UDim2.new(0,0,1,3)_
'NegX'Z.Parent=W local aa,ab=b.CreateDropDownMenu(T,Y)ab'None'aa.Size=UDim2.new(
1,0,0,25)aa.Position=UDim2.new(0,0,1,3)aa.Parent=V return U,E end local aa aa=
function()A=a('ScreenGui','SetGui',{a('Frame','SetPanel',{Active=true,
BackgroundTransparency=1,Position=(function()if t then return t else return
UDim2.new(0.2,29,0.1,24)end end)(),Size=(function()if s then return s else
return UDim2.new(0.6,-58,0.64,0)end end)(),Style=Enum.FrameStyle.RobloxRound,
ZIndex=6,Parent=A,a('TextButton','CancelButton',{Position=UDim2.new(1,-32,0,-2),
Size=UDim2.new(0,34,0,34),Style=Enum.ButtonStyle.RobloxButtonDefault,ZIndex=6,
Text='',Modal=true,a('ImageLabel','CancelImage',{BackgroundTransparency=1,Image=
'http://www.roblox.com/asset?id=54135717',Position=UDim2.new(0,-2,0,-2),Size=
UDim2.new(0,16,0,16),ZIndex=6})}),a('Frame','ItemPreview',{
BackgroundTransparency=1,Position=UDim2.new(0.8,5,0.085,0),Size=UDim2.new(0.21,0
,0.9,0),ZIndex=6,a('ImageLabel','LargePreview',{BackgroundTransparency=1,Image=
'',Size=UDim2.new(1,0,0,170),ZIndex=6}),a('Frame','TextPanel',{
BackgroundTransparency=1,Position=UDim2.new(0,0,0.45,0),Size=UDim2.new(1,0,0.55,
0),ZIndex=6,a('TextLabel','RolloverText',{BackgroundTransparency=1,Size=UDim2.
new(1,0,0,48),ZIndex=6,Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size24,
Text='',TextColor3=Color3.new(1,1,1),TextWrap=true,TextXAlignment=Enum.
TextXAlignment.Left,TextYAlignment=Enum.TextYAlignment.Top})})}),a('Frame',
'Sets',{BackgroundTransparency=1,Position=UDim2.new(0,0,0,5),Size=UDim2.new(0.23
,0,1,-5),ZIndex=6,a('TextLabel','SetsHeader',{BackgroundTransparency=1,Size=
UDim2.new(0,47,0,24),ZIndex=6,Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.
Size24,Text='Sets',TextColor3=Color3.new(1,1,1),TextXAlignment=Enum.
TextXAlignment.Left,TextYAlignment=Enum.TextYAlignment.Top}),a('Frame','Line',{
BackgroundColor3=Color3.new(1,1,1),BackgroundTransparency=0.7,BorderSizePixel=0,
Position=UDim2.new(1,-3,0.06,0),Size=UDim2.new(0,3,0.9,0),ZIndex=6})})})})local
ab,S=b.CreateTrueScrollingFrame()ab.Size=UDim2.new(1,-6,0.94,0)ab.Position=UDim2
.new(0,0,0.06,0)ab.BackgroundTransparency=1 ab.Name='SetsLists'ab.ZIndex=6 ab.
Parent=A.SetPanel.Sets N(S,7)return A end local ab ab=function(S)return a(
'TextButton',{Text=(function()if S then return S else return''end end)(),
AutoButtonColor=false,BackgroundTransparency=1,BackgroundColor3=Color3.new(1,1,1
),BorderSizePixel=0,Size=UDim2.new(1,-5,0,18),ZIndex=6,Visible=false,Font=Enum.
Font.Arial,FontSize=Enum.FontSize.Size18,TextColor3=Color3.new(1,1,1),
TextXAlignment=Enum.TextXAlignment.Left})end local S S=function(T,U,V,W,X)local
Y=ab(T)Y.Text=T Y.Name='SetButton'Y.Visible=true a('IntValue','SetId',{Value=U,
Parent=Y})a('StringValue','SetName',{Value=T,Parent=Y})return Y end local T T=
function(U)local X,Y={},0 for Z=1,#U do if not u and U[Z].Name=='Beta'then Y=Y+1
else X[Z-Y]=S(U[Z].Name,U[Z].CategoryId,U[Z].ImageAssetId,Z-Y,#U)end end return
X end local U U=function()wait()local X=A.SetPanel.ItemPreview X.LargePreview.
Size=UDim2.new(1,0,0,X.AbsoluteSize.X)X.LargePreview.Position=UDim2.new(0.5,-X.
LargePreview.AbsoluteSize.X/2,0,0)X.TextPanel.Position=UDim2.new(0,0,0,X.
LargePreview.AbsoluteSize.Y)X.TextPanel.Size=UDim2.new(1,0,0,X.AbsoluteSize.Y-X.
LargePreview.AbsoluteSize.Y)end local X X=function()local Y=a('Frame',
'InsertAssetButtonExample',{Position=UDim2.new(0,128,0,64),Size=UDim2.new(0,64,0
,64),BackgroundTransparency=1,ZIndex=6,Visible=false,a('IntValue','AssetId',{
Value=0}),a('StringValue','AssetName',{Value=''})})local Z=a('TextButton',
'Button',{Text='',Style=Enum.ButtonStyle.RobloxButton,Position=UDim2.new(0.025,0
,0.025,0),Size=UDim2.new(0.95,0,0.95,0),ZIndex=6,Parent=Y})local _=a(
'ImageLabel','ButtonImage',{Image='',Position=UDim2.new(0,-7,0,-7),Size=UDim2.
new(1,14,1,14),BackgroundTransparency=1,ZIndex=7,Parent=Z})do local ac=_:clone()
ac.Name='ConfigIcon'ac.Visible=false ac.Position=UDim2.new(1,-23,1,-24)ac.Size=
UDim2.new(0,16,0,16)ac.Image=''ac.ZIndex=6 ac.Parent=Y end return Y end local ac
ac=function(Y)if Y:FindFirstChild'AssetId'then delay(0,function()game:GetService
'ContentProvider':Preload(L..tostring(Y.AssetId.Value))A.SetPanel.ItemPreview.
LargePreview.Image='LargeThumbnailUrl'..tostring(Y.AssetId.Value)end)end if Y:
FindFirstChild'AssetName'then A.SetPanel.ItemPreview.TextPanel.RolloverText.Text
=Y.AssetName.Value end end local Y Y=function(Z)if O then return q(tostring(O.
AssetName.Value),tonumber(O.AssetId.Value),Z)end end local Z Z=function(_,ad)
local ae=a('TextButton',tostring(_)..'Button',{Font=Enum.Font.ArialBold,FontSize
=Enum.FontSize.Size14,BorderSizePixel=0,TextColor3=Color3.new(1,1,1),Text=_,
TextXAlignment=Enum.TextXAlignment.Left,BackgroundTransparency=1,ZIndex=ad.
ZIndex+1,Size=UDim2.new(0,ad.Size.X.Offset-2,0,16),Position=UDim2.new(0,1,0,0)})
ae.MouseEnter:connect(function()ae.BackgroundTransparency=0 ae.TextColor3=Color3
.new(0,0,0)end)ae.MouseLeave:connect(function()ae.BackgroundTransparency=1 ae.
TextColor3=Color3.new(1,1,1)end)ae.MouseButton1Click:connect(function()ae.
BackgroundTransparency=1 ae.TextColor3=Color3.new(1,1,1)if ae.Parent and ae.
Parent:IsA'GuiObject'then ae.Parent.Visible=false end return Y(Q[ae.Text])end)
return ae end local ad ad=function(ae)local _=a('Frame','TerrainDropDown',{
BackgroundColor3=Color3.new(0,0,0),BorderColor3=Color3.new(1,0,0),Size=UDim2.
new(0,200,0,0),Visible=false,ZIndex=ae,Parent=A})for af=1,#P do local ag=Z(P[af]
,_)ag.Position=UDim2.new(0,1,0,(af-1)*ag.Size.Y.Offset)ag.Parent=_ _.Size=UDim2.
new(0,200,0,_.Size.Y.Offset+ag.Size.Y.Offset)end return _.MouseLeave:connect(
function()_.Visible=false end)end local ae ae=function(af)local ag=a(
'ImageButton','DropDownButton',{Image='http://www.roblox.com/asset/?id=67581509'
,BackgroundTransparency=1,Size=UDim2.new(0,16,0,16),Position=UDim2.new(1,-24,0,6
),ZIndex=af.ZIndex+2,Parent=af})if not A:FindFirstChild'TerrainDropDown'then ad(
8)end return ag.MouseButton1Click:connect(function()A.TerrainDropDown.Visible=
true A.TerrainDropDown.Position=UDim2.new(0,af.AbsolutePosition.X,0,af.
AbsolutePosition.Y)O=af end)end local af af=function()local ag=X()ag.Name=
'InsertAssetButton'ag.Visible=true if F.Category[F.CurrentCategory].SetName==
'High Scalability'then ae(ag)end local _ local ah=ag.MouseEnter:connect(function
()_=ag return delay(0.1,function()if _==ag then return ac(ag)end end)end)return
ag,ah end local ag ag=function(ah)local _,ai=0,0 for aj=1,#x do x[aj].Position=
UDim2.new(0,I*_,0,J*ai)_=_+1 if _>=ah then _=0 ai=ai+1 end end end local ah ah=
function(ai,aj,_,ak)if aj then ai.AssetName.Value=_ ai.AssetId.Value=ak local al
=K..ak if al~=ai.Button.ButtonImage.Image then delay(0,function()game:GetService
'ContentProvider':Preload(K..ak)ai.Button.ButtonImage.Image=K..ak end)end table.
insert(y,ai.Button.MouseButton1Click:connect(function()local am=(_=='Water')and(
F.Category[F.CurrentCategory].SetName=='High Scalability')D.Visible=am if am
then return q(_,tonumber(ak,nil))else return q(_,tonumber(ak))end end))ai.
Visible=true else ai.Visible=false end end local ai ai=function(aj,ak,al)local
am=ak*al if w>#z then return end local _=w for an=1,am+1 do if w>=#z+1 then
break end local ao x[w],ao=af()table.insert(y,ao)x[w].Parent=aj.SetPanel.
ItemsFrame w=w+1 end ag(al)for an=_,w do if x[an]then if z[an]then if z[an].Name
=='Water'then if F.Category[F.CurrentCategory].SetName=='High Scalability'then x
[an]:FindFirstChild('DropDownButton',true):Destroy()end end local ao if v then
ao=z[an].AssetVersionId else ao=z[an].AssetId end ah(x[an],true,z[an].Name,ao)
else break end else break end end end local aj aj=function()F.Category[F.
CurrentCategory].Index=0 local ak,al=7,math.floor(A.SetPanel.ItemsFrame.
AbsoluteSize.X/I)z=F.Category[F.CurrentCategory].Contents if z then for am=1,#x
do x[am]:remove()end for am=1,#y do if y[am]then y[am]:disconnect()end end y={}x
={}w=1 return ai(A,ak,al)end end local ak ak=function(al,am,an,ao)if al and(F.
Category[F.CurrentCategory]~=nil)then if al~=F.Category[F.CurrentCategory].
Button then F.Category[F.CurrentCategory].Button=al if G[an]==nil then G[an]=
game:GetService'InsertService':GetCollection(an)end F.Category[F.CurrentCategory
].Contents=G[an]F.Category[F.CurrentCategory].SetName=am F.Category[F.
CurrentCategory].SetId=an end return aj()end end local al al=function(am,an)if
am~=F.CurrentCategory then if F.CurrentCategory then for ao,_ in pairs(F.
CurrentCategory)do _.Visible=false end end F.CurrentCategory=am if F.Category[F.
CurrentCategory]==nil then F.Category[F.CurrentCategory]={}if#am>0 then return
ak(am[1],am[1].SetName.Value,am[1].SetId.Value,0)end else F.Category[F.
CurrentCategory].Button=nil return ak(F.Category[F.CurrentCategory].ButtonFrame,
F.Category[F.CurrentCategory].SetName,F.Category[F.CurrentCategory].SetId,F.
Category[F.CurrentCategory].Index)end end end local am am=function(an)return al(
an,0)end local an an=function()local ao=A.SetPanel.Sets.SetsLists:GetChildren()
for _=1,#ao do if ao[_]:IsA'TextButton'then ao[_].Selected=false ao[_].
BackgroundTransparency=1 ao[_].TextColor3=Color3.new(1,1,1)ao[_].
BackgroundColor3=Color3.new(1,1,1)end end end local ao ao=function()local _=0
for ap=1,#H do local aq=H[ap]aq.Visible=true aq.Position=UDim2.new(0,5,0,_*aq.
Size.Y.Offset)aq.Parent=A.SetPanel.Sets.SetsLists if ap==1 then aq.Selected=true
aq.BackgroundColor3=Color3.new(0,0.8,0)aq.TextColor3=Color3.new(0,0,0)aq.
BackgroundTransparency=0 end aq.MouseEnter:connect(function()if not aq.Selected
then aq.BackgroundTransparency=0 aq.TextColor3=Color3.new(0,0,0)end end)aq.
MouseLeave:connect(function()if not aq.Selected then aq.BackgroundTransparency=1
aq.TextColor3=Color3.new(1,1,1)end end)aq.MouseButton1Click:connect(function()
an()aq.Selected=not aq.Selected aq.BackgroundColor3=Color3.new(0,0.8,0)aq.
TextColor3=Color3.new(0,0,0)aq.BackgroundTransparency=0 return ak(aq,aq.Text,H[
ap].SetId.Value,0)end)_=_+1 end local ap=A.SetPanel.Sets.SetsLists:GetChildren()
if ap then for aq=1,#ap do if ap[aq]:IsA'TextButton'then ak(ap[aq],ap[aq].Text,H
[aq].SetId.Value,0)am(H)break end end end end A=aa()D,E=R()D.Position=UDim2.new(
0,55,0,0)D.Parent=A A.Changed:connect(function(ap)if ap=='AbsoluteSize'then U()
return aj()end end)local ap,aq=b.CreateTrueScrollingFrame()ap.Size=UDim2.new(
0.54,0,0.85,0)ap.Position=UDim2.new(0.24,0,0.085,0)ap.Name='ItemsFrame'ap.ZIndex
=6 ap.Parent=A.SetPanel ap.BackgroundTransparency=1 N(aq,7)aq.Parent=A.SetPanel
aq.Position=UDim2.new(0.76,5,0,0)local _=false aq.ScrollBottom.Changed:connect(
function(ar)if aq.ScrollBottom.Value==true then if _ then return end _=true ai(A
,rows,columns)_=false end end)local ar={}for as=1,#p do local at=game:GetService
'InsertService':GetUserSets(p[as])if at and#at>2 then for au=3,#at do if at[au].
Name=='High Scalability'then table.insert(ar,1,at[au])else table.insert(ar,at[au
])end end end end if ar then H=T(ar)end rows=math.floor(A.SetPanel.ItemsFrame.
AbsoluteSize.Y/J)columns=math.floor(A.SetPanel.ItemsFrame.AbsoluteSize.X/I)ao()A
.SetPanel.CancelButton.MouseButton1Click:connect(function()A.SetPanel.Visible=
false if r~=nil then return r()end return nil end)local as as=function(at)if at
then A.SetPanel.Visible=true else A.SetPanel.Visible=false end end local at at=
function()if A and A:FindFirstChild'SetPanel'then return A.SetPanel.Visible end
return false end return A,as,at,E end b.CreateTerrainMaterialSelector=function(
aa,ab)local ac=Instance.new'BindableEvent'ac.Name=
'TerrainMaterialSelectionChanged'local ad,ae=nil,a('Frame',
'TerrainMaterialSelector',{Size=(function()if aa then return aa else return
UDim2.new(0,245,0,230)end end)(),BorderSizePixel=0,BackgroundColor3=Color3.new(0
,0,0),Active=true})if ab then ae.Position=ab end ac.Parent=ae local af,ag,ah,ai=
{},{'Grass','Sand','Brick','Granite','Asphalt','Iron','Aluminum','Gold','Plank',
'Log','Gravel','Cinder Block','Stone Wall','Concrete','Plastic (red)',
'Plastic (blue)','Water'},1,nil ai=function(aj)if'Grass'==aj then return 1
elseif'Sand'==aj then return 2 elseif'Erase'==aj then return 0 elseif'Brick'==aj
then return 3 elseif'Granite'==aj then return 4 elseif'Asphalt'==aj then return
5 elseif'Iron'==aj then return 6 elseif'Aluminum'==aj then return 7 elseif'Gold'
==aj then return 8 elseif'Plank'==aj then return 9 elseif'Log'==aj then return
10 elseif'Gravel'==aj then return 11 elseif'Cinder Block'==aj then return 12
elseif'Stone Wall'==aj then return 13 elseif'Concrete'==aj then return 14 elseif
'Plastic (red)'==aj then return 15 elseif'Plastic (blue)'==aj then return 16
elseif'Water'==aj then return 17 end end local aj aj=function(ak)if Enum.
CellMaterial.Grass==ak or 1==ak then return'Grass'elseif Enum.CellMaterial.Sand
==ak or 2==ak then return'Sand'elseif Enum.CellMaterial.Empty==ak or 0==ak then
return'Erase'elseif Enum.CellMaterial.Brick==ak or 3==ak then return'Brick'
elseif Enum.CellMaterial.Granite==ak or 4==ak then return'Granite'elseif Enum.
CellMaterial.Asphalt==ak or 5==ak then return'Asphalt'elseif Enum.CellMaterial.
Iron==ak or 6==ak then return'Iron'elseif Enum.CellMaterial.Aluminum==ak or 7==
ak then return'Aluminum'elseif Enum.CellMaterial.Gold==ak or 8==ak then return
'Gold'elseif Enum.CellMaterial.WoodPlank==ak or 9==ak then return'Plank'elseif
Enum.CellMaterial.WoodLog==ak or 10==ak then return'Log'elseif Enum.CellMaterial
.Gravel==ak or 11==ak then return'Gravel'elseif Enum.CellMaterial.CinderBlock==
ak or 12==ak then return'Cinder Block'elseif Enum.CellMaterial.MossyStone==ak or
13==ak then return'Stone Wall'elseif Enum.CellMaterial.Cement==ak or 14==ak then
return'Concrete'elseif Enum.CellMaterial.RedPlastic==ak or 15==ak then return
'Plastic (red)'elseif Enum.CellMaterial.BluePlastic==ak or 16==ak then return
'Plastic (blue)'elseif Enum.CellMaterial.Water==ak or 17==ak then return'Water'
end end local ak ak=function(al)ah=ai(al)return ac:Fire(ah)end for al,am in
pairs(ag)do af[am]={}af[am].Regular='http://www.roblox.com/asset/?id='..(
function()if'Grass'==am then return'56563112'elseif'Sand'==am then return
'62356652'elseif'Brick'==am then return'65961537'elseif'Granite'==am then return
'67532153'elseif'Asphalt'==am then return'67532038'elseif'Iron'==am then return
'67532093'elseif'Aluminum'==am then return'67531995'elseif'Gold'==am then return
'67532118'elseif'Plastic (red)'==am then return'67531848'elseif'Plastic (blue)'
==am then return'67531924'elseif'Plank'==am then return'67532015'elseif'Log'==am
then return'67532051'elseif'Gravel'==am then return'67532206'elseif
'Cinder Block'==am then return'67532103'elseif'Stone Wall'==am then return
'67531804'elseif'Concrete'==am then return'67532059'elseif'Water'==am then
return'81407474'else return'66887593'end end)()end local an,ao,ap,aq=b.
CreateScrollingFrame(nil,'grid')an.Size=UDim2.new(0.85,0,1,0)an.Position=UDim2.
new(0,0,0,0)an.Parent=ae ao.Parent=ae ao.Visible=true ao.Position=UDim2.new(1,-
19,0,0)ap.Parent=ae ap.Visible=true ap.Position=UDim2.new(1,-19,1,-17)local ar
ar=function(as,at)ak(at)as.BackgroundTransparency=0 ad.BackgroundTransparency=1
ad=as end local as as=function(at)local au=a('TextButton',tostring(at),{Text='',
Size=UDim2.new(0,32,0,32),BackgroundColor3=Color3.new(1,1,1),BorderSizePixel=0,
BackgroundTransparency=1,AutoButtonColor=false,a('NumberValue','EnumType',{Value
=0})})local p=a('ImageButton',tostring(at),{AutoButtonColor=false,
BackgroundTransparency=1,Size=UDim2.new(0,30,0,30),Position=UDim2.new(0,1,0,1),
Parent=au,Image=af[at].Regular})p.MouseEnter:connect(function()au.
BackgroundTransparency=0 end)p.MouseLeave:connect(function()if ad~=au then au.
BackgroundTransparency=1 end end)p.MouseButton1Click:connect(function()if ad~=au
then return ar(au,tostring(at))end end)return au end for at=1,#ag do local au=
as(ag[at])if ag[at]=='Grass'then ad=au au.BackgroundTransparency=0 end au.Parent
=an end local at at=function(au)if not au then return end if ah==au then return
end local p,q=aj(au),an:GetChildren()for r=1,#q do if(q[r].Name==
'Plastic (blue)'and p=='Plastic (blue)')or(q[r].Name=='Plastic (red)'and p==
'Plastic (red)')or string.find(q[r].Name,p)then ar(q[r],p)return end end end ae.
Changed:connect(function(au)if au=='AbsoluteSize'then return aq()end end)aq()
return ae,ac,at end b.CreateLoadingFrame=function(aa,ab,ac)game:GetService
'ContentProvider':Preload'http://www.roblox.com/asset/?id=35238053'local ad=a(
'Frame','LoadingFrame',{Style=Enum.FrameStyle.RobloxRound,Size=(function()if ab
then return ab else return UDim2.new(0,300,0,160)end end)(),Position=(function()
if ac then return ac else return UDim2.new(0.5,-150,0.5,-80)end end)(),a(
'TextLabel','loadingName',{BackgroundTransparency=1,Size=UDim2.new(1,0,0,18),
Position=UDim2.new(0,0,0,2),Font=Enum.Font.Arial,Text=aa,TextColor3=Color3.new(1
,1,1),TextStrokeTransparency=1,FontSize=Enum.FontSize.Size18})})local ae=a(
'Frame','LoadingBar',{BackgroundColor3=Color3.new(0,0,0),BorderColor3=Color3.
new(0.30980392156862746,0.30980392156862746,0.30980392156862746),Position=UDim2.
new(0,0,0,41),Size=UDim2.new(1,0,0,30),Parent=ad})local af,ag,ah=a('ImageLabel',
'LoadingGreenBar',{Image='http://www.roblox.com/asset/?id=35238053',Position=
UDim2.new(0,0,0,0),Size=UDim2.new(0,0,1,0),Visible=false,Parent=ae}),a(
'TextLabel','LoadingPercent',{BackgroundTransparency=1,Position=UDim2.new(0,0,1,
0),Size=UDim2.new(1,0,0,14),Font=Enum.Font.Arial,Text='0%',FontSize=Enum.
FontSize.Size14,TextColor3=Color3.new(1,1,1),Parent=ae}),a('TextButton',
'CancelButton',{Position=UDim2.new(0.5,-60,1,-40),Size=UDim2.new(0,120,0,40),
Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,TextColor3=Color3.new(1,1,1),
Text='Cancel',Style=Enum.ButtonStyle.RobloxButton,Parent=ad})local ai=a(
'BindableEvent','CancelButtonClicked',{Parent=ah})ah.MouseButton1Click:connect(
function()return ai:Fire()end)local aj aj=function(ak,al,am)if ak and type(ak~=
'number')then error('updateLoadingGuiPercent expects number as argument, got '..
tostring(type(ak))..' instead')end local an if ak<0 then an=UDim2.new(0,0,1,0)
elseif ak>1 then an=UDim2.new(1,0,1,0)else an=UDim2.new(ak,0,1,0)end if al then
if not am then error
[[updateLoadingGuiPercent is set to tween new percentage, but got no tween time length! Please pass this in as third argument]]
end if an.X.Scale>0 then af.Visible=true return af:TweenSize(an,Enum.
EasingDirection.Out,Enum.EasingStyle.Quad,am,true)else return af:TweenSize(an,
Enum.EasingDirection.Out,Enum.EasingStyle.Quad,am,true,function()if an.X.Scale<0
then af.Visible=false end end)end else af.Size=an af.Visible=(an.X.Scale>0)end
end af.Changed:connect(function(ak)if ak=='Size'then ag.Text=tostring(math.ceil(
af.Size.X.Scale*100))..'%'end end)return ad,aj,ai end b.CreatePluginFrame=
function(aa,ab,ac,ad,ae)local af af=function(ag,ah,ai,aj,ak,al)local am=a(
'TextButton',ak,{AutoButtonColor=false,BackgroundTransparency=1,Position=ah,Size
=ag,Font=Enum.Font.ArialBold,FontSize=aj,Text=ai,TextColor3=Color3.new(1,1,1),
BorderSizePixel=0,BackgroundColor3=Color3.new(7.8431372549019605E-2,
7.8431372549019605E-2,7.8431372549019605E-2)})am.MouseEnter:connect(function()if
am.Selected then return end am.BackgroundTransparency=0 end)am.MouseLeave:
connect(function()if am.Selected then return end am.BackgroundTransparency=1 end
)am.Parent=al return am end local ag=a('Frame',tostring(aa)..'DragBar',{
BackgroundColor3=Color3.new(0.15294117647058825,0.15294117647058825,
0.15294117647058825),BorderColor3=Color3.new(0,0,0),Size=(function()if ab then
return UDim2.new(ab.X.Scale,ab.X.Offset,0,20)+UDim2.new(0,20,0,0)else return
UDim2.new(0,183,0,20)end end)(),Active=true,Draggable=true})if ac then ag.
Position=ac end ag.MouseEnter:connect(function()ag.BackgroundColor3=Color3.new(
0.19215686274509805,0.19215686274509805,0.19215686274509805)end)ag.MouseLeave:
connect(function()ag.BackgroundColor3=Color3.new(0.15294117647058825,
0.15294117647058825,0.15294117647058825)end)ag.Parent=ae a('TextLabel',
'BarNameLabel',{Text=' '..tostring(aa),TextColor3=Color3.new(1,1,1),
TextStrokeTransparency=0,Size=UDim2.new(1,0,1,0),Font=Enum.Font.ArialBold,
FontSize=Enum.FontSize.Size18,TextXAlignment=Enum.TextXAlignment.Left,
BackgroundTransparency=1,Parent=ag})local ah=af(UDim2.new(0,15,0,17),UDim2.new(1
,-16,0.5,-8),'X',Enum.FontSize.Size14,'CloseButton',ag)local ai=a(
'BindableEvent','CloseEvent',{Parent=ah})ah.MouseButton1Click:connect(function()
ai:Fire()ah.BackgroundTransparency=1 end)local aj,ak=af(UDim2.new(0,15,0,17),
UDim2.new(1,-51,0.5,-8),'?',Enum.FontSize.Size14,'HelpButton',ag),a('Frame',
'HelpFrame',{BackgroundColor3=Color3.new(0,0,0),Size=UDim2.new(0,300,0,552),
Position=UDim2.new(1,5,0,0),Active=true,BorderSizePixel=0,Visible=false,Parent=
ag})aj.MouseButton1Click:connect(function()ak.Visible=not ak.Visible if ak.
Visible then aj.Selected=true aj.BackgroundTransparency=0 local al=d(ak)if al
then if ak.AbsolutePosition.X+ak.AbsoluteSize.X>al.AbsoluteSize.X then ak.
Position=UDim2.new(0,-5-ak.AbsoluteSize.X,0,0)else ak.Position=UDim2.new(1,5,0,0
)end else ak.Position=UDim2.new(1,5,0,0)end else aj.Selected=false aj.
BackgroundTransparency=1 end end)local al=af(UDim2.new(0,16,0,17),UDim2.new(1,-
34,0.5,-8),'-',Enum.FontSize.Size14,'MinimizeButton',ag)al.TextYAlignment=Enum.
TextYAlignment.Top local am=a('Frame','MinimizeFrame',{BackgroundColor3=Color3.
new(0.28627450980392155,0.28627450980392155,0.28627450980392155),BorderColor3=
Color3.new(0,0,0),Position=UDim2.new(0,0,1,0),Size=(function()if ab then return
UDim2.new(ab.X.Scale,ab.X.Offset,0,50)+UDim2.new(0,20,0,0)else return UDim2.new(
0,183,0,50)end end)(),Visible=false,Parent=ag})local an,ao=a('TextButton',
'MinimizeButton',{Position=UDim2.new(0.5,-50,0.5,-20),Size=UDim2.new(0,100,0,40)
,Style=Enum.ButtonStyle.RobloxButton,Font=Enum.Font.ArialBold,FontSize=Enum.
FontSize.Size18,TextColor3=Color3.new(1,1,1),Text='Show',Parent=am}),a('Frame',
'SeparatingLine',{BackgroundColor3=Color3.new(0.45098039215686275,
0.45098039215686275,0.45098039215686275),BorderSizePixel=0,Position=UDim2.new(1,
-18,0.5,-7),Size=UDim2.new(0,1,0,14),Parent=ag})local ap=ao:clone()ap.Position=
UDim2.new(1,-35,0.5,-7)ap.Parent=ag local aq=a('Frame','WidgetContainer',{
BackgroundTransparency=1,Position=UDim2.new(0,0,1,0),BorderColor3=Color3.new(0,0
,0)})if not ad then aq.BackgroundTransparency=0 aq.BackgroundColor3=Color3.new(
0.2823529411764706,0.2823529411764706,0.2823529411764706)end aq.Parent=ag if ab
then if ad then aq.Size=ab else aq.Size=UDim2.new(0,ag.AbsoluteSize.X,ab.Y.Scale
,ab.Y.Offset)end else if ad then aq.Size=UDim2.new(0,163,0,400)else aq.Size=
UDim2.new(0,ag.AbsoluteSize.X,0,400)end end if ac then aq.Position=aq.Position+
UDim2.new(0,0,0,20)end local ar,as,at if ad then ar,as=b.
CreateTrueScrollingFrame()ar.Size=UDim2.new(1,0,1,0)ar.BackgroundColor3=Color3.
new(0.2823529411764706,0.2823529411764706,0.2823529411764706)ar.BorderColor3=
Color3.new(0,0,0)ar.Active=true ar.Parent=aq as.Parent=ag as.BackgroundColor3=
Color3.new(0.2823529411764706,0.2823529411764706,0.2823529411764706)as.
BorderSizePixel=0 as.BackgroundTransparency=0 as.Position=UDim2.new(1,-21,1,1)as
.Size=UDim2.new(0,21,(function()if ab then return ab.Y.Scale,ab.Y.Offset else
return 0,400 end end)())as:FindFirstChild'ScrollDownButton'.Position=UDim2.new(0
,0,1,-20)a('Frame','FakeLine',{BorderSizePixel=0,BackgroundColor3=Color3.new(0,0
,0),Size=UDim2.new(0,1,1,1),Position=UDim2.new(1,0,0,0),Parent=as})at=a(
'TextButton','VerticalDragger',{ZIndex=2,AutoButtonColor=false,BackgroundColor3=
Color3.new(0.19607843137254902,0.19607843137254902,0.19607843137254902),
BorderColor3=Color3.new(0,0,0),Size=UDim2.new(1,20,0,20),Position=UDim2.new(0,0,
1,0),Active=true,Text='',Parent=aq})local au=a('Frame','ScrubFrame',{
BackgroundColor3=Color3.new(1,1,1),BorderSizePixel=0,Position=UDim2.new(0.5,-5,
0.5,0),Size=UDim2.new(0,10,0,1),ZIndex=5,Parent=at})local p=au:clone()p.Position
=UDim2.new(0.5,-5,0.5,-2)p.Parent=at local q=au:clone()q.Position=UDim2.new(0.5,
-5,0.5,2)q.Parent=at local r,s,t=a('TextButton','AreaSoak',{Size=UDim2.new(1,0,1
,0),BackgroundTransparency=1,BorderSizePixel=0,Text='',ZIndex=10,Visible=false,
Active=true,Parent=d(ae)}),false,nil at.MouseEnter:connect(function()at.
BackgroundColor3=Color3.new(0.23529411764705882,0.23529411764705882,
0.23529411764705882)end)at.MouseLeave:connect(function()at.BackgroundColor3=
Color3.new(0.19607843137254902,0.19607843137254902,0.19607843137254902)end)at.
MouseButton1Down:connect(function(u,v)s=true r.Visible=true t=v end)r.
MouseButton1Up:connect(function()s=false r.Visible=false end)r.MouseMoved:
connect(function(u,v)if not s then return end local w=v-t if not as.
ScrollDownButton.Visible and w>0 then return end if(aq.Size.Y.Offset+w)<150 then
aq.Size=UDim2.new(aq.Size.X.Scale,aq.Size.X.Offset,aq.Size.Y.Scale,150)as.Size=
UDim2.new(0,21,0,150)return end t=v if aq.Size.Y.Offset+w>=0 then aq.Size=UDim2.
new(aq.Size.X.Scale,aq.Size.X.Offset,aq.Size.Y.Scale,aq.Size.Y.Offset+w)as.Size=
UDim2.new(0,21,0,as.Size.Y.Offset+w)end end)end local au au=function()am.Visible
=not am.Visible if ad then ar.Visible=not ar.Visible at.Visible=not at.Visible
as.Visible=not as.Visible else aq.Visible=not aq.Visible end if am.Visible then
al.Text='+'else al.Text='-'end end an.MouseButton1Click:connect(function()return
au()end)al.MouseButton1Click:connect(function()return au()end)if ad then return
ag,ar,ak,ai else return ag,aq,ak,ai end end b.Help=function(aa)if aa==
'CreatePropertyDropDownMenu'or aa==b.CreatePropertyDropDownMenu then return
[[Function CreatePropertyDropDownMenu. Arguments: (instance, propertyName, enumType). Side effect: returns a container with a drop-down-box that is linked to the 'property' field of 'instance' which is of type 'enumType']]
elseif aa=='CreateDropDownMenu'or aa==b.CreateDropDownMenu then return
[[Function CreateDropDownMenu. Arguments: (items, onItemSelected). Side effect: Returns 2 results, a container to the gui object and a 'updateSelection' function for external updating. The container is a drop-down-box created around a list of items]]
elseif aa=='CreateMessageDialog'or aa==b.CreateMessageDialog then return
[[Function CreateMessageDialog. Arguments: (title, message, buttons). Side effect: Returns a gui object of a message box with 'title' and 'message' as passed in. 'buttons' input is an array of Tables contains a 'Text' and 'Function' field for the text/callback of each button]]
elseif aa=='CreateStyledMessageDialog'or aa==b.CreateStyledMessageDialog then
return
[[Function CreateStyledMessageDialog. Arguments: (title, message, style, buttons). Side effect: Returns a gui object of a message box with 'title' and 'message' as passed in. 'buttons' input is an array of Tables contains a 'Text' and 'Function' field for the text/callback of each button, 'style' is a string, either Error, Notify or Confirm]]
elseif aa=='GetFontHeight'or aa==b.GetFontHeight then return
[[Function GetFontHeight. Arguments: (font, fontSize). Side effect: returns the size in pixels of the given font + fontSize]]
elseif aa=='CreateScrollingFrame'or aa==b.CreateScrollingFrame then return
[[Function CreateScrollingFrame. Arguments: (orderList, style) Side effect: returns 4 objects, (scrollFrame, scrollUpButton, scrollDownButton, recalculateFunction). 'scrollFrame' can be filled with GuiObjects. It will lay them out and allow scrollUpButton/scrollDownButton to interact with them. Orderlist is optional (and specifies the order to layout the children. Without orderlist, it uses the children order. style is also optional, and allows for a 'grid' styling if style is passed 'grid' as a string. recalculateFunction can be called when a relayout is needed (when orderList changes)]]
elseif aa=='CreateTrueScrollingFrame'or aa==b.CreateTrueScrollingFrame then
return
[[Function CreateTrueScrollingFrame. Arguments: (nil) Side effect: returns 2 objects, (scrollFrame, controlFrame). 'scrollFrame' can be filled with GuiObjects, and they will be clipped if not inside the frame's bounds. controlFrame has children scrollup and scrolldown, as well as a slider. controlFrame can be parented to any guiobject and it will readjust itself to fit.]]
elseif aa=='AutoTruncateTextObject'or aa==b.AutoTruncateTextObject then return
[[Function AutoTruncateTextObject. Arguments: (textLabel) Side effect: returns 2 objects, (textLabel, changeText). The 'textLabel' input is modified to automatically truncate text (with ellipsis), if it gets too small to fit. 'changeText' is a function that can be used to change the text, it takes 1 string as an argument]]
elseif aa=='CreateSlider'or aa==b.CreateSlider then return
[[Function CreateSlider. Arguments: (steps, width, position) Side effect: returns 2 objects, (sliderGui, sliderPosition). The 'steps' argument specifies how many different positions the slider can hold along the bar. 'width' specifies in pixels how wide the bar should be (modifiable afterwards if desired). 'position' argument should be a UDim2 for slider positioning. 'sliderPosition' is an IntValue whose current .Value specifies the specific step the slider is currently on.]]
elseif aa=='CreateLoadingFrame'or aa==b.CreateLoadingFrame then return
[[Function CreateLoadingFrame. Arguments: (name, size, position) Side effect: Creates a gui that can be manipulated to show progress for a particular action. Name appears above the loading bar, and size and position are udim2 values (both size and position are optional arguments). Returns 3 arguments, the first being the gui created. The second being updateLoadingGuiPercent, which is a bindable function. This function takes one argument (two optionally), which should be a number between 0 and 1, representing the percentage the loading gui should be at. The second argument to this function is a boolean value that if set to true will tween the current percentage value to the new percentage value, therefore our third argument is how long this tween should take. Our third returned argument is a BindableEvent, that when fired means that someone clicked the cancel button on the dialog.]]
elseif aa=='CreateTerrainMaterialSelector'or aa==b.CreateTerrainMaterialSelector
then return
[[Function CreateTerrainMaterialSelector. Arguments: (size, position) Side effect: Size and position are UDim2 values that specifies the selector's size and position. Both size and position are optional arguments. This method returns 3 objects (terrainSelectorGui, terrainSelected, forceTerrainSelection). terrainSelectorGui is just the gui object that we generate with this function, parent it as you like. TerrainSelected is a BindableEvent that is fired whenever a new terrain type is selected in the gui. ForceTerrainSelection is a function that takes an argument of Enum.CellMaterial and will force the gui to show that material as currently selected.]]
end end return b

5
processed/45374389.lua
View File

@ -1,5 +0,0 @@
print'[Mercury]: Loaded corescript 45374389'local a={}a.Foo=function()return
print'foo'end a.Bar=function()return print'bar'end a.Help=function(b)if'Foo'==b
or a.Foo==b then return'Function Foo. Arguments: None. Side effect: prints foo'
elseif'Bar'==b or a.Bar==b then return
'Function Bar. Arguments: None. Side effect: prints bar'end end return a

522
processed/46295863.lua
View File

@ -1,522 +0,0 @@
print'[Mercury]: Loaded corescript 46295863'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b b=function(c,d)while not c:FindFirstChild(d)do c.
ChildAdded:wait()end end local c c=function(d,e)while not d[e]do d.Changed:wait(
)end end local d if script.Parent:FindFirstChild'ControlFrame'then d=script.
Parent:FindFirstChild'ControlFrame'else d=script.Parent end local e,f,g,h,i,j,k,
l,m,n,o,p,q,r,s,t,u=nil,nil,nil,0.2,'http://www.roblox.com/asset?id=54071825',
'http://www.roblox.com/Asset?id=45915798',game:GetService'CoreGui'.Version>=5,10
,false,nil,{},{},nil,UserSettings().GameSettings:InStudioMode(),false,pcall(
function()return not game.GuiService.IsWindows end)s=t and u local v v=function(
w,x,y)return Color3.new(w/255,x/255,y/255)end local w w=function(x)x.
RobloxLocked=true local y=x:GetChildren()if y then for z,A in ipairs(y)do w(A)
end end end local x x=function(y)y.Settings:TweenPosition(UDim2.new(0.5,-262,-
0.5,-200),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)return delay(h
,function()y.Visible=false for z=1,#p do p[z].Visible=false game.GuiService:
RemoveCenterDialog(p[z])end game.GuiService:RemoveCenterDialog(y)settingsButton.
Active=true n=nil o={}end)end local y y=function(z,A,B,C,D)if type(A)~='string'
then return end table.insert(o,n)if A=='GameMainMenu'then o={}end local E=z:
GetChildren()for F=1,#E do if E[F].Name==A then E[F].Visible=true n={container=z
,name=A,direction=B,lastSize=C}if C and D then E[F]:TweenSizeAndPosition(C,D,
Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)elseif C then E[F]:
TweenSizeAndPosition(C,UDim2.new(0.5,-C.X.Offset/2,0.5,-C.Y.Offset/2),Enum.
EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)else E[F]:TweenPosition(UDim2
.new(0,0,0,0),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)end else
if B=='left'then E[F]:TweenPosition(UDim2.new(-1,-525,0,0),Enum.EasingDirection.
InOut,Enum.EasingStyle.Sine,h,true)elseif B=='right'then E[F]:TweenPosition(
UDim2.new(1,525,0,0),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)
elseif B=='up'then E[F]:TweenPosition(UDim2.new(0,0,-1,-400),Enum.
EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)elseif B=='down'then E[F]:
TweenPosition(UDim2.new(0,0,1,400),Enum.EasingDirection.InOut,Enum.EasingStyle.
Sine,h,true)end delay(h,function()E[F].Visible=false end)end end end local z z=
function()local A=game.Players.LocalPlayer if A and A.Character and A.Character:
FindFirstChild'Humanoid'then A.Character.Humanoid.Health=0 end end local A A=
function(B,C,D,E,F)return a('TextButton',{Font=Enum.Font.Arial,FontSize=D,Size=E
,Position=F,Style=C,TextColor3=Color3.new(1,1,1),Text=B})end local B B=function(
C,D,E,F)if#D<1 then error'Must have more than one button'end local G,H,I=1,{},
nil I=function(J)for K,L in ipairs(H)do if L==J then L.Style=Enum.ButtonStyle.
RobloxButtonDefault else L.Style=Enum.ButtonStyle.RobloxButton end end end for J
,K in ipairs(D)do local L=a('TextButton','Button'..tostring(G),{Font=Enum.Font.
Arial,FontSize=Enum.FontSize.Size18,AutoButtonColor=true,Style=Enum.ButtonStyle.
RobloxButton,Text=K.Text,TextColor3=Color3.new(1,1,1),Parent=C})L.
MouseButton1Click:connect(function()I(L)return K.Function()end)H[G]=L G=G+1 end
I(H[1])local L=G-1 if L==1 then C.Button1.Position=UDim2.new(0.35,0,E.Scale,E.
Offset)C.Button1.Size=UDim2.new(0.4,0,F.Scale,F.Offset)elseif L==2 then C.
Button1.Position=UDim2.new(0.1,0,E.Scale,E.Offset)C.Button1.Size=UDim2.new(0.35,
0,F.Scale,F.Offset)C.Button2.Position=UDim2.new(0.55,0,E.Scale,E.Offset)C.
Button2.Size=UDim2.new(0.35,0,F.Scale,F.Offset)elseif L>=3 then local M,N=0.1/L,
0.9/L G=1 while G<=L do H[G].Position=UDim2.new(M*G+(G-1)*N,0,E.Scale,E.Offset)H
[G].Size=UDim2.new(N,0,F.Scale,F.Offset)G=G+1 end end end local C C=function(D,E
,F)if D then E.Visible=true F.Text='Stop Recording'else E.Visible=false F.Text=
'Record Video'end end local D D=function(E,F)m=not m return C(m,F,E)end local E
E=function(F,G,H)F.Parent.Parent.Parent.Parent.Visible=false G.Visible=false for
I=1,#p do game.GuiService:RemoveCenterDialog(p[I])p[I].Visible=false end p={}
game.GuiService:RemoveCenterDialog(G)H.Active=true end local F F=function(G)if
not G then return end if G:IsA'TextLabel'then G.TextTransparency=0.9 elseif G:
IsA'TextButton'then G.TextTransparency=0.9 G.Active=false else if G['ClassName']
then return print(
[[setDisabledState! got object of unsupported type. object type is ]],G.
ClassName)end end end local G G=function(H)if e==nil then if d:FindFirstChild(d.
TopLeftControl:FindFirstChild'Help')then e=d.TopLeftControl.Help elseif d:
FindFirstChild(d.BottomRightControl:FindFirstChild'Help')then e=d.
BottomRightControl.Help end end local I=a('Frame','HelpDialogShield',{Active=
true,Visible=false,Size=UDim2.new(1,0,1,0),BackgroundColor3=v(51,51,51),
BorderColor3=v(27,42,53),BackgroundTransparency=0.4,ZIndex=H+1})local J=a(
'Frame','HelpDialog',{Style=Enum.FrameStyle.RobloxRound,Position=UDim2.new(0.2,0
,0.2,0),Size=UDim2.new(0.6,0,0.6,0),Active=true,Parent=I,a('TextLabel','Title',{
Text='Keyboard & Mouse Controls',Font=Enum.Font.ArialBold,FontSize=Enum.FontSize
.Size36,Position=UDim2.new(0,0,0.025,0),Size=UDim2.new(1,0,0,40),TextColor3=
Color3.new(1,1,1),BackgroundTransparency=1}),a('Frame','Buttons',{Position=UDim2
.new(0.1,0,0.07,40),Size=UDim2.new(0.8,0,0,45),BackgroundTransparency=1}),a(
'Frame','ImageFrame',{Position=UDim2.new(0.05,0,0.075,80),Size=UDim2.new(0.9,0,
0.9,-120),BackgroundTransparency=1,a('Frame','LayoutFrame',{Position=UDim2.new(
0.5,0,0,0),Size=UDim2.new(1.5,0,1,0),BackgroundTransparency=1,SizeConstraint=
Enum.SizeConstraint.RelativeYY,a('ImageLabel','Image',{Image=(function()if
UserSettings().GameSettings.ControlMode==Enum.ControlMode['Mouse Lock Switch']
then return i else return j end end)(),Position=UDim2.new(-0.5,0,0,0),Size=UDim2
.new(1,0,1,0),BackgroundTransparency=1})})})})local K,L,M=J.Buttons,J.ImageFrame
.LayoutFrame.Image,{}M[1]={}M[1].Text='Look'M[1].Function=function()if
UserSettings().GameSettings.ControlMode==Enum.ControlMode['Mouse Lock Switch']
then L.Image=i else L.Image=j end end M[2]={}M[2].Text='Move'M[2].Function=
function()L.Image='http://www.roblox.com/Asset?id=45915811'end M[3]={}M[3].Text=
'Gear'M[3].Function=function()L.Image='http://www.roblox.com/Asset?id=45917596'
end M[4]={}M[4].Text='Zoom'M[4].Function=function()L.Image=
'http://www.roblox.com/Asset?id=45915825'end B(K,M,UDim.new(0,0),UDim.new(1,0))
delay(0,function()b(d,'UserSettingsShield')b(d.UserSettingsShield,'Settings')b(d
.UserSettingsShield.Settings,'SettingsStyle')b(d.UserSettingsShield.Settings.
SettingsStyle,'GameSettingsMenu')b(d.UserSettingsShield.Settings.SettingsStyle.
GameSettingsMenu,'CameraField')b(d.UserSettingsShield.Settings.SettingsStyle.
GameSettingsMenu.CameraField,'DropDownMenuButton')return d.UserSettingsShield.
Settings.SettingsStyle.GameSettingsMenu.CameraField.DropDownMenuButton.Changed:
connect(function(N)if N~='Text'then return end if K.Button1.Style==Enum.
ButtonStyle.RobloxButtonDefault then if d.UserSettingsShield.Settings.
SettingsStyle.GameSettingsMenu.CameraField.DropDownMenuButton.Text=='Classic'
then L.Image=j else L.Image=i end end end)end)local N=a('TextButton','OkBtn',{
Text='OK',Modal=true,Size=UDim2.new(0.3,0,0,45),Position=UDim2.new(0.35,0,0.975,
-50),Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,BackgroundTransparency=1
,TextColor3=Color3.new(1,1,1),Style=Enum.ButtonStyle.RobloxButtonDefault,Parent=
J})N.MouseButton1Click:connect(function()I.Visible=false return game.GuiService:
RemoveCenterDialog(I)end)w(I)return I end local H H=function(I,J)local K,L=a(
'Frame','LeaveConfirmationMenu',{BackgroundTransparency=1,Size=UDim2.new(1,0,1,0
),Position=UDim2.new(0,0,2,400),ZIndex=I+4,a('TextLabel','LeaveText',{Text=
'Leave this game?',Size=UDim2.new(1,0,0.8,0),TextWrap=true,TextColor3=Color3.
new(1,1,1),Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size36,
BackgroundTransparency=1,ZIndex=I+4})}),A('Leave',Enum.ButtonStyle.RobloxButton,
Enum.FontSize.Size24,UDim2.new(0,128,0,50),UDim2.new(0,313,0.8,0))L.Name=
'YesButton'L.ZIndex=I+4 L.Parent=K L.Modal=true L:SetVerb'Exit'local M=A('Stay',
Enum.ButtonStyle.RobloxButtonDefault,Enum.FontSize.Size24,UDim2.new(0,128,0,50),
UDim2.new(0,90,0.8,0))M.Name='NoButton'M.Parent=K M.ZIndex=I+4 M.
MouseButton1Click:connect(function()y(J.Settings.SettingsStyle,'GameMainMenu',
'down',UDim2.new(0,525,0,430))return J.Settings:TweenSize(UDim2.new(0,525,0,430)
,Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)end)return K end local
I I=function(J,K)local L,M=a('Frame','ResetConfirmationMenu',{
BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),Position=UDim2.new(0,0,2,400),
ZIndex=J+4}),A('Reset',Enum.ButtonStyle.RobloxButtonDefault,Enum.FontSize.Size24
,UDim2.new(0,128,0,50),UDim2.new(0,313,0,299))M.Name='YesButton'M.ZIndex=J+4 M.
Parent=L M.Modal=true M.MouseButton1Click:connect(function()x(K)return z()end)
local N=A('Cancel',Enum.ButtonStyle.RobloxButton,Enum.FontSize.Size24,UDim2.new(
0,128,0,50),UDim2.new(0,90,0,299))N.Name='NoButton'N.Parent=L N.ZIndex=J+4 N.
MouseButton1Click:connect(function()y(K.Settings.SettingsStyle,'GameMainMenu',
'down',UDim2.new(0,525,0,430))return K.Settings:TweenSize(UDim2.new(0,525,0,430)
,Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)end)local O=a(
'TextLabel','ResetCharacterText',{Text=
'Are you sure you want to reset your character?',Size=UDim2.new(1,0,0.8,0),
TextWrap=true,TextColor3=Color3.new(1,1,1),Font=Enum.Font.ArialBold,FontSize=
Enum.FontSize.Size36,BackgroundTransparency=1,ZIndex=J+4,Parent=L})do local P=O:
Clone()P.Name='FineResetCharacterText'P.Text=
'You will be put back on a spawn point'P.Size=UDim2.new(0,303,0,18)P.Position=
UDim2.new(0,109,0,215)P.FontSize=Enum.FontSize.Size18 P.Parent=L end return L
end local J J=function(K,L)local M,N=a('Frame','GameMainMenu',{
BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),ZIndex=K+4,Parent=settingsFrame
,a('TextLabel','Title',{Text='Game Menu',BackgroundTransparency=1,
TextStrokeTransparency=0,Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size36,
Size=UDim2.new(1,0,0,36),Position=UDim2.new(0,0,0,4),TextColor3=Color3.new(1,1,1
),ZIndex=K+4})}),A('Help',Enum.ButtonStyle.RobloxButton,Enum.FontSize.Size18,
UDim2.new(0,164,0,50),UDim2.new(0,82,0,256))N.Name='HelpButton'N.ZIndex=K+4 N.
Parent=M e=N local O=G(K)O.Parent=d e.MouseButton1Click:connect(function()table.
insert(p,O)return game.GuiService:AddCenterDialog(O,Enum.CenterDialogType.
ModalDialog,function()O.Visible=true q.Visible=false end,function()O.Visible=
false end)end)e.Active=true local P,Q=a('TextLabel','HelpShortcutText',{Text=
'F1',Visible=false,BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.
FontSize.Size12,Position=UDim2.new(0,85,0,0),Size=UDim2.new(0,30,0,30),
TextColor3=Color3.new(0,1,0),ZIndex=K+4,Parent=N}),A('Screenshot',Enum.
ButtonStyle.RobloxButton,Enum.FontSize.Size18,UDim2.new(0,168,0,50),UDim2.new(0,
254,0,256))Q.Name='ScreenshotButton'Q.ZIndex=K+4 Q.Parent=M Q.Visible=not s Q:
SetVerb'Screenshot'do local R=P:clone()R.Name='ScreenshotShortcutText'R.Text=
'PrintSc'R.Position=UDim2.new(0,118,0,0)R.Visible=true R.Parent=Q end local R=A(
'Record Video',Enum.ButtonStyle.RobloxButton,Enum.FontSize.Size18,UDim2.new(0,
168,0,50),UDim2.new(0,254,0,306))R.Name='RecordVideoButton'R.ZIndex=K+4 R.Parent
=M R.Visible=not s R:SetVerb'RecordToggle'do local S=P:clone()S.Visible=k S.Name
='RecordVideoShortcutText'S.Text='F12'S.Position=UDim2.new(0,120,0,0)S.Parent=R
end local S=a('ImageButton','StopRecordButton',{BackgroundTransparency=1,Image=
'rbxasset://textures/ui/RecordStop.png',Size=UDim2.new(0,59,0,27)})S:SetVerb
'RecordToggle'S.MouseButton1Click:connect(function()return D(R,S)end)S.Visible=
false S.Parent=d local T=A('Report Abuse',Enum.ButtonStyle.RobloxButton,Enum.
FontSize.Size18,UDim2.new(0,164,0,50),UDim2.new(0,82,0,306))T.Name=
'ReportAbuseButton'T.ZIndex=K+4 T.Parent=M local U=A('Leave Game',Enum.
ButtonStyle.RobloxButton,Enum.FontSize.Size24,UDim2.new(0,340,0,50),UDim2.new(0,
82,0,358))U.Name='LeaveGameButton'U.ZIndex=K+4 U.Parent=M local V=A(
'Resume Game',Enum.ButtonStyle.RobloxButtonDefault,Enum.FontSize.Size24,UDim2.
new(0,340,0,50),UDim2.new(0,82,0,54))V.Name='resumeGameButton'V.ZIndex=K+4 V.
Parent=M V.Modal=true V.MouseButton1Click:connect(function()return x(L)end)local
W=A('Game Settings',Enum.ButtonStyle.RobloxButton,Enum.FontSize.Size24,UDim2.
new(0,340,0,50),UDim2.new(0,82,0,156))W.Name='SettingsButton'W.ZIndex=K+4 W.
Parent=M if game:FindFirstChild'LoadingGuiService'and#game.LoadingGuiService:
GetChildren()>0 then W=A('Game Instructions',Enum.ButtonStyle.RobloxButton,Enum.
FontSize.Size24,UDim2.new(0,340,0,50),UDim2.new(0,82,0,207))W.Name=
'GameInstructions'W.ZIndex=K+4 W.Parent=M W.MouseButton1Click:connect(function()
if game:FindFirstChild(game.Players['LocalPlayer'])then do local X=game.Players.
LocalPlayer:FindFirstChild'PlayerLoadingGui'if X then X.Visible=true end end end
end)end local X=A('Reset Character',Enum.ButtonStyle.RobloxButton,Enum.FontSize.
Size24,UDim2.new(0,340,0,50),UDim2.new(0,82,0,105))X.Name='ResetButton'X.ZIndex=
K+4 X.Parent=M return M end local K K=function(L,M)local N=a('Frame',
'GameSettingsMenu',{BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),ZIndex=L+4,
a('TextLabel','Title',{Text='Settings',Size=UDim2.new(1,0,0,48),Position=UDim2.
new(0,9,0,-9),Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size36,TextColor3=
Color3.new(1,1,1),ZIndex=L+4,BackgroundTransparency=1}),a('TextLabel',
'FullscreenText',{Text='Fullscreen Mode',Size=UDim2.new(0,124,0,18),Position=
UDim2.new(0,62,0,145),Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,
TextColor3=Color3.new(1,1,1),ZIndex=L+4,BackgroundTransparency=1})})local O,P=a(
'TextLabel','FullscreenShortcutText',{Visible=k,Text='F11',
BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size12,
Position=UDim2.new(0,186,0,141),Size=UDim2.new(0,30,0,30),TextColor3=Color3.new(
0,1,0),ZIndex=L+4,Parent=N}),a('TextLabel','StudioText',{Visible=false,Text=
'Studio Mode',Size=UDim2.new(0,95,0,18),Position=UDim2.new(0,62,0,179),Font=Enum
.Font.Arial,FontSize=Enum.FontSize.Size18,TextColor3=Color3.new(1,1,1),ZIndex=L+
4,BackgroundTransparency=1,Parent=N})local Q=O:clone()Q.Name=
'StudioShortcutText'Q.Visible=false Q.Text='F2'Q.Position=UDim2.new(0,154,0,175)
Q.Parent=N local R if k then local S=a('TextLabel','QualityText',{Text=
'Graphics Quality',Size=UDim2.new(0,128,0,18),Position=UDim2.new(0,30,0,239),
Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,TextColor3=Color3.new(1,1,1),
ZIndex=L+4,BackgroundTransparency=1,Parent=N,Visible=not r})local T=S:clone()T.
Name='AutoText'T.Text='Auto'T.Position=UDim2.new(0,183,0,214)T.TextColor3=Color3
.new(0.5019607843137255,0.5019607843137255,0.5019607843137255)T.Size=UDim2.new(0
,34,0,18)T.Parent=N T.Visible=not r local U=T:clone()U.Name='FasterText'U.Text=
'Faster'U.Position=UDim2.new(0,185,0,274)U.TextColor3=Color3.new(95,95,95)U.
FontSize=Enum.FontSize.Size14 U.Parent=N U.Visible=not r local V=O:clone()V.Name
='FasterShortcutText'V.Text='F10 + Shift'V.Position=UDim2.new(0,185,0,283)V.
Parent=N V.Visible=not r local W=T:clone()W.Name='BetterQualityText'W.Text=
'Better Quality'W.TextWrap=true W.Size=UDim2.new(0,41,0,28)W.Position=UDim2.new(
0,390,0,269)W.TextColor3=Color3.new(95,95,95)W.FontSize=Enum.FontSize.Size14 W.
Parent=N W.Visible=not r local X=O:clone()X.Name='BetterQualityShortcut'X.Text=
'F10'X.Position=UDim2.new(0,394,0,288)X.Parent=N X.Visible=not r local Y=A('X',
Enum.ButtonStyle.RobloxButton,Enum.FontSize.Size18,UDim2.new(0,25,0,25),UDim2.
new(0,187,0,239))Y.Name='AutoGraphicsButton'Y.ZIndex=L+4 Y.Parent=N Y.Visible=
not r local Z,_=RbxGui.CreateSlider(l,150,UDim2.new(0,230,0,280))Z.Parent=N Z.
Bar.ZIndex=L+4 Z.Bar.Slider.ZIndex=L+5 Z.Visible=not r _.Value=math.floor((
settings().Rendering:GetMaxQualityLevel()-1)/2)local aa,ab=a('TextBox',
'GraphicsSetter',{BackgroundColor3=Color3.new(0,0,0),BorderColor3=Color3.new(
0.5019607843137255,0.5019607843137255,0.5019607843137255),Size=UDim2.new(0,50,0,
25),Position=UDim2.new(0,450,0,269),TextColor3=Color3.new(1,1,1),Font=Enum.Font.
Arial,FontSize=Enum.FontSize.Size18,Text='Auto',ZIndex=1,TextWrap=true,Parent=N,
Visible=not r}),true if not r then ab=(UserSettings().GameSettings.
SavedQualityLevel==Enum.SavedQualitySetting.Automatic)else settings().Rendering.
EnableFRM=false end local ac,ad=true,nil ad=function(ae)ab=ae if ae then Y.Text=
'X'W.ZIndex=1 X.ZIndex=1 V.ZIndex=1 U.ZIndex=1 Z.Bar.ZIndex=1 Z.Bar.Slider.
ZIndex=1 aa.ZIndex=1 aa.Text='Auto'else Y.Text=''Z.Bar.ZIndex=L+4 Z.Bar.Slider.
ZIndex=L+5 X.ZIndex=L+4 V.ZIndex=L+4 W.ZIndex=L+4 U.ZIndex=L+4 aa.ZIndex=L+4 end
end local ae ae=function()ad(true)UserSettings().GameSettings.SavedQualityLevel=
Enum.SavedQualitySetting.Automatic settings().Rendering.QualityLevel=Enum.
QualityLevel.Automatic end local af af=function(ag)local ah=ag/l local ai=math.
floor((settings().Rendering:GetMaxQualityLevel()-1)*ah)if ai==20 then ai=21
elseif ag==1 then ai=1 elseif ai>settings().Rendering:GetMaxQualityLevel()then
ai=settings().Rendering:GetMaxQualityLevel()-1 end UserSettings().GameSettings.
SavedQualityLevel=ag settings().Rendering.QualityLevel=ai end local ag ag=
function(ah)ad(false)if ah then _.Value=ah else _.Value=math.floor((settings().
Rendering.AutoFRMLevel/(settings().Rendering:GetMaxQualityLevel()-1)){l})end if
ah==_.Value then af(_.Value)end if not ah then UserSettings().GameSettings.
SavedQualityLevel=_.Value end aa.Text=tostring(_.Value)end local ah ah=function(
)T.ZIndex=L+4 Y.ZIndex=L+4 end local ai ai=function()T.ZIndex=1 Y.ZIndex=1 end
local aj aj=function()Z.Bar.ZIndex=L+4 Z.Bar.Slider.ZIndex=L+5 X.ZIndex=L+4 V.
ZIndex=L+4 W.ZIndex=L+4 U.ZIndex=L+4 aa.ZIndex=L+4 end local ak ak=function()W.
ZIndex=1 X.ZIndex=1 V.ZIndex=1 U.ZIndex=1 Z.Bar.ZIndex=1 Z.Bar.Slider.ZIndex=1
aa.ZIndex=1 end local al al=function(am)if Enum.SavedQualitySetting.Automatic==
am then return 0 elseif Enum.SavedQualitySetting.QualityLevel1==am then return 1
elseif Enum.SavedQualitySetting.QualityLevel2==am then return 2 elseif Enum.
SavedQualitySetting.QualityLevel3==am then return 3 elseif Enum.
SavedQualitySetting.QualityLevel4==am then return 4 elseif Enum.
SavedQualitySetting.QualityLevel5==am then return 5 elseif Enum.
SavedQualitySetting.QualityLevel6==am then return 6 elseif Enum.
SavedQualitySetting.QualityLevel7==am then return 7 elseif Enum.
SavedQualitySetting.QualityLevel8==am then return 8 elseif Enum.
SavedQualitySetting.QualityLevel9==am then return 9 elseif Enum.
SavedQualitySetting.QualityLevel10==am then return 10 end end local am am=
function()settings().Rendering.EnableFRM=true ab=UserSettings().GameSettings.
SavedQualityLevel==Enum.SavedQualitySetting.Automatic if ab then ah()return ae()
else ah()aj()return ag(al(UserSettings().GameSettings.SavedQualityLevel))end end
local an an=function()ak()ai()settings().Rendering.EnableFRM=false end aa.
FocusLost:connect(function()if ab then aa.Text=tostring(_.Value)return end local
ao=tonumber(aa.Text)if ao==nil then aa.Text=tostring(_.Value)return end if ao<1
then ao=1 elseif ao>=settings().Rendering:GetMaxQualityLevel()then ao=settings()
.Rendering:GetMaxQualityLevel()-1 end _.Value=ao af(_.Value)aa.Text=tostring(_.
Value)end)_.Changed:connect(function(ao)if ab then return end if not ac then
return end aa.Text=tostring(_.Value)return af(_.Value)end)if r or UserSettings()
.GameSettings.SavedQualityLevel==Enum.SavedQualitySetting.Automatic then if r
then settings().Rendering.EnableFRM=false an()else settings().Rendering.
EnableFRM=true ae()end else settings().Rendering.EnableFRM=true ag(al(
UserSettings().GameSettings.SavedQualityLevel))end Y.MouseButton1Click:connect(
function()if r and not game.Players.LocalPlayer then return end if not ab then
return ae()else return ag(_.Value)end end)game.GraphicsQualityChangeRequest:
connect(function(ao)if ab then return end if ao then if(_.Value+1)>l then return
end _.Value=_.Value+1 aa.Text=tostring(_.Value)af(_.Value)return game:GetService
'GuiService':SendNotification('Graphics Quality','Increased to ('..tostring(aa.
Text)..')','',2,function()end)else if(_.Value-1)<=0 then return end _.Value=_.
Value-1 aa.Text=tostring(_.Value)af(_.Value)return game:GetService'GuiService':
SendNotification('Graphics Quality','Decreased to ('..tostring(aa.Text)..')','',
2,function()end)end end)game.Players.PlayerAdded:connect(function(ao)if ao==game
.Players.LocalPlayer and r then return am()end end)game.Players.PlayerRemoving:
connect(function(ao)if ao==game.Players.LocalPlayer and r then return an()end
end)R=A('',Enum.ButtonStyle.RobloxButton,Enum.FontSize.Size18,UDim2.new(0,25,0,
25),UDim2.new(0,30,0,176))R.Name='StudioCheckbox'R.ZIndex=L+4 R:SetVerb
'TogglePlayMode'R.Visible=false local ao=(settings().Rendering.QualityLevel~=
Enum.QualityLevel.Automatic)if r and not game.Players.LocalPlayer then R.Text=
'X'an()elseif r then R.Text='X'am()end if k then UserSettings().GameSettings.
StudioModeChanged:connect(function(ap)r=ap if ap then ao=(settings().Rendering.
QualityLevel~=Enum.QualityLevel.Automatic)ae()R.Text='X'Y.ZIndex=1 T.ZIndex=1
else if ao then ag()end R.Text=''Y.ZIndex=L+4 T.ZIndex=L+4 end end)else R.
MouseButton1Click:connect(function()if not R.Active then return end if R.Text==
''then R.Text='X'else R.Text=''end end)end end local aa=A('',Enum.ButtonStyle.
RobloxButton,Enum.FontSize.Size18,UDim2.new(0,25,0,25),UDim2.new(0,30,0,144))aa.
Name='FullscreenCheckbox'aa.ZIndex=L+4 aa.Parent=N aa:SetVerb'ToggleFullScreen'
if UserSettings().GameSettings:InFullScreen()then aa.Text='X'end if k then
UserSettings().GameSettings.FullscreenChanged:connect(function(ab)if ab then aa.
Text='X'else aa.Text=''end end)else aa.MouseButton1Click:connect(function()if aa
.Text==''then aa.Text='X'else aa.Text=''end end)end if game:FindFirstChild
'NetworkClient'then F(P)F(Q)F(R)end local ab if k then ab=A('OK',Enum.
ButtonStyle.RobloxButtonDefault,Enum.FontSize.Size24,UDim2.new(0,180,0,50),UDim2
.new(0,170,0,330))ab.Modal=true else ab=A('OK',Enum.ButtonStyle.
RobloxButtonDefault,Enum.FontSize.Size24,UDim2.new(0,180,0,50),UDim2.new(0,170,0
,270))ab.Modal=true end ab.Name='BackButton'ab.ZIndex=L+4 ab.Parent=N
syncVideoCaptureSetting=nil if not s then a('TextLabel','VideoCaptureLabel',{
Text='After Capturing Video',Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,
Position=UDim2.new(0,32,0,100),Size=UDim2.new(0,164,0,18),BackgroundTransparency
=1,TextColor3=v(255,255,255),TextXAlignment=Enum.TextXAlignment.Left,ZIndex=L+4,
Parent=N})local ac,ad={},{}ac[1]='Just Save to Disk'ad[ac[1]]=Enum.UploadSetting
['Never']ac[2]='Upload to YouTube'ad[ac[2]]=Enum.UploadSetting['Ask me first']
local ae ae,g=RbxGui.CreateDropDownMenu(ac,function(af)UserSettings().
GameSettings.VideoUploadPromptBehavior=ad[af]end)ae.Name='VideoCaptureField'ae.
ZIndex=L+4 ae.DropDownMenuButton.ZIndex=L+4 ae.DropDownMenuButton.Icon.ZIndex=L+
4 ae.Position=UDim2.new(0,270,0,94)ae.Size=UDim2.new(0,200,0,32)ae.Parent=N
syncVideoCaptureSetting=function()return g((function()if UserSettings().
GameSettings.VideoUploadPromptBehavior==Enum.UploadSetting['Never']then return
ac[1]elseif UserSettings().GameSettings.VideoUploadPromptBehavior==Enum.
UploadSetting['Ask me first']then return ac[2]else UserSettings().GameSettings.
VideoUploadPromptBehavior=Enum.UploadSetting['Ask me first']return ac[2]end end
)())end end a('TextLabel','CameraLabel',{Text='Character & Camera Controls',Font
=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,Position=UDim2.new(0,31,0,58),
Size=UDim2.new(0,224,0,18),TextColor3=v(255,255,255),TextXAlignment=Enum.
TextXAlignment.Left,BackgroundTransparency=1,ZIndex=L+4,Parent=N})local ac,ad,ae
,af=game.CoreGui.RobloxGui:FindFirstChild('MouseLockLabel',true),Enum.
ControlMode:GetEnumItems(),{},{}for ag,ah in ipairs(ad)do ae[ag]=ah.Name af[ah.
Name]=ah end local ai ai,f=RbxGui.CreateDropDownMenu(ae,function(aj)
UserSettings().GameSettings.ControlMode=af[aj]return pcall(function()if ac and
UserSettings().GameSettings.ControlMode==Enum.ControlMode['Mouse Lock Switch']
then ac.Visible=true elseif ac then ac.Visible=false end end)end)ai.Name=
'CameraField'ai.ZIndex=L+4 ai.DropDownMenuButton.ZIndex=L+4 ai.
DropDownMenuButton.Icon.ZIndex=L+4 ai.Position=UDim2.new(0,270,0,52)ai.Size=
UDim2.new(0,200,0,32)ai.Parent=N return N end if LoadLibrary then RbxGui=
LoadLibrary'RbxGui'local aa=0 if UserSettings then local ab ab=function()b(d,
'BottomLeftControl')settingsButton=d.BottomLeftControl:FindFirstChild
'SettingsButton'if settingsButton==nil then settingsButton=a('ImageButton',
'SettingsButton',{Image='rbxasset://textures/ui/SettingsButton.png',
BackgroundTransparency=1,Active=false,Size=UDim2.new(0,54,0,46),Position=UDim2.
new(0,2,0,50),Parent=d.BottomLeftControl})end local ac=a('TextButton',
'UserSettingsShield',{Text='',Active=true,AutoButtonColor=false,Visible=false,
Size=UDim2.new(1,0,1,0),BackgroundColor3=v(51,51,51),BorderColor3=v(27,42,53),
BackgroundTransparency=0.4,ZIndex=aa+2})q=ac local ad=a('Frame','Settings',{
Position=UDim2.new(0.5,-262,-0.5,-200),Size=UDim2.new(0,525,0,430),
BackgroundTransparency=1,Active=true,Parent=ac})local ae,af=a('Frame',
'SettingsStyle',{Size=UDim2.new(1,0,1,0),Style=Enum.FrameStyle.RobloxRound,
Active=true,ZIndex=aa+3,Parent=ad}),J(aa,ac)af.Parent=ae af.ScreenshotButton.
MouseButton1Click:connect(function()return E(af.ScreenshotButton,ac,
settingsButton)end)af.RecordVideoButton.MouseButton1Click:connect(function()D(af
.RecordVideoButton,d.StopRecordButton)return E(af.RecordVideoButton,ac,
settingsButton)end)if settings():FindFirstChild'Game Options'then pcall(function
()return settings():FindFirstChild'Game Options'.VideoRecordingChangeRequest:
connect(function(ag)m=ag return C(ag,d.StopRecordButton,af.RecordVideoButton)end
)end)end game.CoreGui.RobloxGui.Changed:connect(function(ag)if ag==
'AbsoluteSize'and m then return D(af.RecordVideoButton,d.StopRecordButton)end
end)local ag ag=function()af.ResetButton.Visible=game.Players.LocalPlayer if
game.Players.LocalPlayer then settings().Rendering.EnableFRM=true elseif r then
settings().Rendering.EnableFRM=false end end af.ResetButton.Visible=game.Players
.LocalPlayer if(game.Players.LocalPlayer~=nil)then game.Players.LocalPlayer.
Changed:connect(function()return ag()end)else delay(0,function()c(game.Players,
'LocalPlayer')af.ResetButton.Visible=game.Players.LocalPlayer return game.
Players.LocalPlayer.Changed:connect(function()return ag()end)end)end af.
ReportAbuseButton.Visible=game:FindFirstChild'NetworkClient'if not af.
ReportAbuseButton.Visible then game.ChildAdded:connect(function(ah)if ah:IsA
'NetworkClient'then af.ReportAbuseButton.Visible=game:FindFirstChild
'NetworkClient'end end)end af.ResetButton.MouseButton1Click:connect(function()
return y(ae,'ResetConfirmationMenu','up',UDim2.new(0,525,0,370))end)af.
LeaveGameButton.MouseButton1Click:connect(function()return y(ae,
'LeaveConfirmationMenu','down',UDim2.new(0,525,0,300))end)if game.CoreGui.
Version>=4 then game:GetService'GuiService'.EscapeKeyPressed:connect(function()
if n==nil then return game.GuiService:AddCenterDialog(ac,Enum.CenterDialogType.
ModalDialog,function()settingsButton.Active=false f(UserSettings().GameSettings.
ControlMode.Name)if syncVideoCaptureSetting then syncVideoCaptureSetting()end y(
ae,'GameMainMenu','right',UDim2.new(0,525,0,430))ac.Visible=true ac.Active=true
ae.Parent:TweenPosition(UDim2.new(0.5,-262,0.5,-200),Enum.EasingDirection.InOut,
Enum.EasingStyle.Sine,h,true)return ae.Parent:TweenSize(UDim2.new(0,525,0,430),
Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)end,function()ae.Parent:
TweenPosition(UDim2.new(0.5,-262,-0.5,-200),Enum.EasingDirection.InOut,Enum.
EasingStyle.Sine,h,true)ae.Parent:TweenSize(UDim2.new(0,525,0,430),Enum.
EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)ac.Visible=false
settingsButton.Active=true end)elseif#o>0 then if#p>0 then for ah=1,#p do game.
GuiService:RemoveCenterDialog(p[ah])p[ah].Visible=false end p={}end y(o[#o][
'container'],o[#o]['name'],o[#o]['direction'],o[#o]['lastSize'])table.remove(o,#
o)if#o==1 then o={}end else return x(ac)end end)end local ah=K(aa,ac)ah.Visible=
false ah.Parent=ae af.SettingsButton.MouseButton1Click:connect(function()return
y(ae,'GameSettingsMenu','left',UDim2.new(0,525,0,350))end)ah.BackButton.
MouseButton1Click:connect(function()return y(ae,'GameMainMenu','right',UDim2.
new(0,525,0,430))end)local ai=I(aa,ac)ai.Visible=false ai.Parent=ae local aj=H(
aa,ac)aj.Visible=false aj.Parent=ae w(ac)settingsButton.MouseButton1Click:
connect(function()return game.GuiService:AddCenterDialog(ac,Enum.
CenterDialogType.ModalDialog,function()settingsButton.Active=false f(
UserSettings().GameSettings.ControlMode.Name)if syncVideoCaptureSetting then
syncVideoCaptureSetting()end y(ae,'GameMainMenu','right',UDim2.new(0,525,0,430))
ac.Visible=true ae.Parent:TweenPosition(UDim2.new(0.5,-262,0.5,-200),Enum.
EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)return ae.Parent:TweenSize(
UDim2.new(0,525,0,430),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)
end,function()ae.Parent:TweenPosition(UDim2.new(0.5,-262,-0.5,-200),Enum.
EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)ae.Parent:TweenSize(UDim2.
new(0,525,0,430),Enum.EasingDirection.InOut,Enum.EasingStyle.Sine,h,true)ac.
Visible=false settingsButton.Active=true end)end)return ac end delay(0,function(
)ab().Parent=d d.BottomLeftControl.SettingsButton.Active=true d.
BottomLeftControl.SettingsButton.Position=UDim2.new(0,2,0,-2)if mouseLockLabel
and UserSettings().GameSettings.ControlMode==Enum.ControlMode[
'Mouse Lock Switch']then mouseLockLabel.Visible=true elseif mouseLockLabel then
mouseLockLabel.Visible=false end local ac=d.BottomLeftControl:FindFirstChild
'Exit'if ac~=nil then ac:Remove()end local ad=d:FindFirstChild'TopLeftControl'if
ad then ac=ad:FindFirstChild'Exit'if ac~=nil then ac:Remove()end return ad:
Remove()end end)end local ab ab=function()local ac,ad,ae,af,ag,ah,ai=a(
'TextButton','SaveDialogShield',{Text='',AutoButtonColor=false,Active=true,
Visible=false,Size=UDim2.new(1,0,1,0),BackgroundColor3=v(51,51,51),BorderColor3=
v(27,42,53),BackgroundTransparency=0.4,ZIndex=aa+1}),nil,nil,nil,nil,nil,{}ai[1]
={}ai[1].Text='Save'ai[1].Style=Enum.ButtonStyle.RobloxButtonDefault ai[1].
Function=function()return ae()end ai[2]={}ai[2].Text='Cancel'ai[2].Function=
function()return ah()end ai[3]={}ai[3].Text="Don't Save"ai[3].Function=function(
)return ag()end local aj=RbxGui.CreateStyledMessageDialog('Unsaved Changes',
'Save your changes to Mercury before leaving?','Confirm',ai)aj.Visible=true aj.
Parent=ac local ak,al={},1 if game.LocalSaveEnabled then ak[al]={}ak[al].Text=
'Save to Disk'ak[al].Function=function()return af()end al=al+1 end ak[al]={}ak[
al].Text='Keep Playing'ak[al].Function=function()return ah()end ak[al+1]={}ak[al
+1].Text="Don't Save"ak[al+1].Function=function()return ag()end local am=RbxGui.
CreateStyledMessageDialog('Upload Failed',
'Sorry, we could not save your changes to Mercury.','Error',ak)am.Visible=false
am.Parent=ac local an=a('Frame','SpinnerDialog',{Style=Enum.FrameStyle.
RobloxRound,Size=UDim2.new(0,350,0,150),Position=UDim2.new(0.5,-175,0.5,-75),
Visible=false,Active=true,Parent=ac,a('TextLabel','WaitingLabel',{Text=
'Saving to Mercury...',Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size18,
Position=UDim2.new(0.5,25,0.5,0),TextColor3=Color3.new(1,1,1)})})local ao,ap,L=
a('Frame','Spinner',{Size=UDim2.new(0,80,0,80),Position=UDim2.new(0.5,-150,0.5,-
40),BackgroundTransparency=1,Parent=an}),{},1 while L<=8 do local M=a(
'ImageLabel','Spinner'..tostring(L),{Size=UDim2.new(0,16,0,16),Position=UDim2.
new(0.5+0.3*math.cos(math.rad(45*L)),-8,0.5+0.3*math.sin(math.rad(45*L)),-8),
BackgroundTransparency=1,Image='http://www.roblox.com/Asset?id=45880710',Parent=
ao})ap[L]=M L=L+1 end ae=function()aj.Visible=false an.Visible=true local M=true
delay(0,function()local N=0 while M do local O=0 while O<8 do if O==N or O==((N+
1)%8)then ap[O+1].Image='http://www.roblox.com/Asset?id=45880668'else ap[O+1].
Image='http://www.roblox.com/Asset?id=45880710'end O=O+1 end N=(N+1)%8 wait(0.2)
end end)local N=game:SaveToRoblox()if not N then N=game:SaveToRoblox()end an.
Visible=false M=false if N then game:FinishShutdown(false)return ad()else am.
Visible=true end end ae=function()am.Visible=false game:FinishShutdown(true)
return ad()end ag=function()aj.Visible=false am.Visible=false game:
FinishShutdown(false)return ad()end ah=function()aj.Visible=false am.Visible=
false return ad()end ad=function()aj.Visible=true am.Visible=false an.Visible=
false ac.Visible=false return game.GuiService:RemoveCenterDialog(ac)end w(ac)ac.
Visible=false return ac end local ac ac=function()b(game,'NetworkClient')b(game,
'Players')c(game.Players,'LocalPlayer')local ad,ae=game.Players.LocalPlayer,nil
b(d,'UserSettingsShield')b(d.UserSettingsShield,'Settings')b(d.
UserSettingsShield.Settings,'SettingsStyle')b(d.UserSettingsShield.Settings.
SettingsStyle,'GameMainMenu')b(d.UserSettingsShield.Settings.SettingsStyle.
GameMainMenu,'ReportAbuseButton')ae=d.UserSettingsShield.Settings.SettingsStyle.
GameMainMenu.ReportAbuseButton local af,ag,ah=a('TextButton','ReportAbuseShield'
,{Text='',AutoButtonColor=false,Active=true,Visible=false,Size=UDim2.new(1,0,1,0
),BackgroundColor3=v(51,51,51),BorderColor3=v(27,42,53),BackgroundTransparency=
0.4,ZIndex=aa+1}),nil,{}ah[1]={}ah[1].Text='Ok'ah[1].Modal=true ah[1].Function=
function()return ag()end local ai=RbxGui.CreateMessageDialog(
'Thanks for your report!',
[[Our moderators will review the chat logs and determine what happened. The other user is probably just trying to make you mad.
If anyone used swear words, inappropriate language, or threatened you in real life, please report them for Bad Words or Threats]]
,ah)ai.Visible=false ai.Parent=af local aj=RbxGui.CreateMessageDialog(
'Thanks for your report!',"We've recorded your report for evaluation.",ah)aj.
Visible=false aj.Parent=af local ak=RbxGui.CreateMessageDialog(
'Thanks for your report!',
[[Our moderators will review the chat logs and determine what happened.]],ah)ak.
Visible=false ak.Parent=af local al=a('Frame','Settings',{Position=UDim2.new(0.5
,-250,0.5,-200),Size=UDim2.new(0,500,0,400),BackgroundTransparency=1,Active=true
,Parent=af})local am,an,ao,ap,L,M=a('Frame','ReportAbuseStyle',{Size=UDim2.new(1
,0,1,0),Style=Enum.FrameStyle.RobloxRound,Active=true,ZIndex=aa+1,Parent=al,a(
'TextLabel','Title',{Text='Report Abuse',TextColor3=v(221,221,221),Position=
UDim2.new(0.5,0,0,30),Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size36,
ZIndex=aa+2}),a('TextLabel','Description',{Text=
[[This will send a complete report to a moderator. The moderator will review the chat log and take appropriate action.]]
,TextColor3=v(221,221,221),Position=UDim2.new(0,0,0,55),Size=UDim2.new(1,0,0,40)
,BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,
TextWrap=true,ZIndex=aa+2,TextXAlignment=Enum.TextXAlignment.Left,TextYAlignment
=Enum.TextYAlignment.Top}),a('TextLabel','PlayerLabel',{Text='Which player?',
BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,
Position=UDim2.new(0.025,0,0,100),Size=UDim2.new(0.4,0,0,36),TextColor3=v(255,
255,255),TextXAlignment=Enum.TextXAlignment.Left,ZIndex=aa+2}),a('TextLabel',
'AbuseLabel',{Text='Type of Abuse:',Font=Enum.Font.Arial,BackgroundTransparency=
1,FontSize=Enum.FontSize.Size18,Position=UDim2.new(0.025,0,0,140),Size=UDim2.
new(0.4,0,0,36),TextColor3=v(255,255,255),TextXAlignment=Enum.TextXAlignment.
Left,ZIndex=aa+2})}),nil,nil,nil,nil,nil M=function()local N,O,P=game:GetService
'Players',{},{}local Q,R=N:GetChildren(),1 if Q then for S,T in ipairs(Q)do if T
:IsA'Player'and T~=ad then O[R]=T.Name P[T.Name]=T R=R+1 end end end local S S,L
=RbxGui.CreateDropDownMenu(O,function(T)an=P[T]if ao and an then ap.Active=true
end end)S.Name='PlayersComboBox'S.ZIndex=aa+2 S.Position=UDim2.new(0.425,0,0,102
)S.Size=UDim2.new(0.55,0,0,32)return S end local N={'Swearing','Bullying',
'Scamming','Dating','Cheating/Exploiting','Personal Questions','Offsite Links',
'Bad Model or Script','Bad Username'}local O,P=RbxGui.CreateDropDownMenu(N,
function(O)ao=O if ao and an then ap.Active=true end end,true)O.Name=
'AbuseComboBox'O.ZIndex=aa+2 O.Position=UDim2.new(0.425,0,0,142)O.Size=UDim2.
new(0.55,0,0,32)O.Parent=am a('TextLabel','ShortDescriptionLabel',{Text=
'Short Description: (optional)',Font=Enum.Font.Arial,FontSize=Enum.FontSize.
Size18,Position=UDim2.new(0.025,0,0,180),Size=UDim2.new(0.95,0,0,36),TextColor3=
v(255,255,255),TextXAlignment=Enum.TextXAlignment.Left,BackgroundTransparency=1,
ZIndex=aa+2,Parent=am})local Q=a('Frame','ShortDescriptionWrapper',{Position=
UDim2.new(0.025,0,0,220),Size=UDim2.new(0.95,0,1,-310),BackgroundColor3=v(0,0,0)
,BorderSizePixel=0,ZIndex=aa+2,Parent=am})local R=a('TextBox','TextBox',{Text=''
,ClearTextOnFocus=false,Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,
Position=UDim2.new(0,3,0,3),Size=UDim2.new(1,-6,1,-6),TextColor3=v(255,255,255),
TextXAlignment=Enum.TextXAlignment.Left,TextYAlignment=Enum.TextYAlignment.Top,
TextWrap=true,BackgroundColor3=v(0,0,0),BorderSizePixel=0,ZIndex=aa+2,Parent=Q})
ap=a('TextButton','SubmitReportBtn',{Active=false,Modal=true,Font=Enum.Font.
Arial,FontSize=Enum.FontSize.Size18,Position=UDim2.new(0.1,0,1,-80),Size=UDim2.
new(0.35,0,0,50),AutoButtonColor=true,Style=Enum.ButtonStyle.RobloxButtonDefault
,Text='Submit Report',TextColor3=v(255,255,255),ZIndex=aa+2,Parent=am})ap.
MouseButton1Click:connect(function()if ap.Active then if ao and an then al.
Visible=false game.Players:ReportAbuse(an,ao,R.Text)if ao=='Cheating/Exploiting'
then aj.Visible=true elseif ao=='Bullying'or ao=='Swearing'then ai.Visible=true
else ak.Visible=true end else return ag()end end end)local S=a('TextButton',
'CancelBtn',{Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size18,Position=UDim2.
new(0.55,0,1,-80),Size=UDim2.new(0.35,0,0,50),AutoButtonColor=true,Style=Enum.
ButtonStyle.RobloxButtonDefault,Text='Cancel',TextColor3=v(255,255,255),ZIndex=
aa+2,Parent=am})ag=function()local T=am:FindFirstChild'PlayersComboBox'if T then
T.Parent=nil end an=nil L(nil)ao=nil P(nil)ap.Active=false R.Text=''al.Visible=
true ai.Visible=false aj.Visible=false ak.Visible=false af.Visible=false ae.
Active=true return game.GuiService:RemoveCenterDialog(af)end S.MouseButton1Click
:connect(ag)ae.MouseButton1Click:connect(function()M().Parent=am table.insert(p,
af)return game.GuiService:AddCenterDialog(af,Enum.CenterDialogType.ModalDialog,
function()ae.Active=false af.Visible=true q.Visible=false end,function()ae.
Active=true af.Visible=false end)end)w(af)return af end local ad=pcall(function(
)end)if ad then delay(0,function()local ae=ab()ae.Parent=d game.RequestShutdown=
function()table.insert(p,ae)game.GuiService:AddCenterDialog(ae,Enum.
CenterDialogType.QuitDialog,function()ae.Visible=true end,function()ae.Visible=
false end)return true end end)end delay(0,function()ac().Parent=d b(d,
'UserSettingsShield')b(d.UserSettingsShield,'Settings')b(d.UserSettingsShield.
Settings,'SettingsStyle')b(d.UserSettingsShield.Settings.SettingsStyle,
'GameMainMenu')b(d.UserSettingsShield.Settings.SettingsStyle.GameMainMenu,
'ReportAbuseButton')d.UserSettingsShield.Settings.SettingsStyle.GameMainMenu.
ReportAbuseButton.Active=true end)pcall(function()return game.GuiService.
UseLuaChat end)local ae=41324860 return delay(0,function()b(game,'NetworkClient'
)b(game,'Players')c(game.Players,'LocalPlayer')c(game.Players.LocalPlayer,
'Character')b(game.Players.LocalPlayer.Character,'Humanoid')c(game,'PlaceId')if
game.PlaceId==ae then game.Players.LocalPlayer.Character.Humanoid:
SetClickToWalkEnabled(false)return game.Players.LocalPlayer.CharacterAdded:
connect(function(af)b(af,'Humanoid')return af.Humanoid:SetClickToWalkEnabled(
false)end)end end)end

605
processed/48488235.lua
View File

@ -1,605 +0,0 @@
print'[Mercury]: Loaded corescript 48488235'local a,b,c,d,e={taskmanager=1,
Heliodex=1,multako='http://www.roblox.com/asset/?id=6923328292',mercury=1,
pizzaboxer='http://www.roblox.com/asset/?id=6917566633'},{bottomDark='94691904',
bottomLight='94691940',midDark='94691980',midLight='94692025',LargeDark=
'96098866',LargeLight='96098920',LargeHeader='96097470',NormalHeader='94692054',
LargeBottom='96397271',NormalBottom='94754966',DarkBluePopupMid='97114905',
LightBluePopupMid='97114905',DarkPopupMid='97112126',LightPopupMid='97109338',
DarkBluePopupTop='97114838',DarkBluePopupBottom='97114758',DarkPopupBottom=
'100869219',LightPopupBottom='97109175'},0.25,15,nil e=function(f,g,h)if not(h~=
nil)then h=g g=nil end local i=Instance.new(f)if g then i.Name=g end local j for
k,l in pairs(h)do if type(k)=='string'then if k=='Parent'then j=l else i[k]=l
end elseif type(k)=='number'and type(l)=='userdata'then l.Parent=i end end i.
Parent=j return i end local f f=function(g)return e('ImageLabel','Background',{
BackgroundTransparency=1,Image=g,Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,
1,0)})end local g g=function(h,i,j)return Color3.new(h/255,i/255,j/255)end local
h h=function(i,j)if(a[string.lower(j)]~=nil)then if a[string.lower(j)]==1 then
return'http://www.roblox.com/asset/?id=6923330951'else return a[string.lower(j)]
end elseif i==Enum.MembershipType.None then return''elseif i==Enum.
MembershipType.BuildersClub then return'rbxasset://textures/ui/TinyBcIcon.png'
elseif i==Enum.MembershipType.TurboBuildersClub then return
'rbxasset://textures/ui/TinyTbcIcon.png'elseif i==Enum.MembershipType.
OutrageousBuildersClub then return'rbxasset://textures/ui/TinyObcIcon.png'else
return error('Unknown membershipType '..tostring(i))end end local i i=function(j
)if j==Enum.FriendStatus.Unknown or j==Enum.FriendStatus.NotFriend then return''
elseif j==Enum.FriendStatus.Friend then return
'http://www.roblox.com/asset/?id=99749771'elseif j==Enum.FriendStatus.
FriendRequestSent then return'http://www.roblox.com/asset/?id=99776888'elseif j
==Enum.FriendStatus.FriendRequestReceived then return
'http://www.roblox.com/asset/?id=99776838'else return error(
'Unknown FriendStatus: '..tostring(j))end end local j j=function(k,l,m,n)local o
=e('ImageButton','ReportButton',{BackgroundTransparency=1,Position=UDim2.new(0,0
,1*m,0),Size=UDim2.new(1,0,1,0),ZIndex=7,Parent=k,e('TextLabel','ButtonText',{
BackgroundTransparency=1,Position=UDim2.new(0.07,0,0.07,0),Size=UDim2.new(0.86,0
,0.86,0),Font='ArialBold',Text=l,FontSize='Size14',TextScaled=true,TextColor3=
Color3.new(1,1,1),TextStrokeTransparency=1,ZIndex=7})})o.Image=
'http://www.roblox.com/asset/?id='..(function()if m==0 then return'97108784'
elseif n then if m%2==1 then return b['LightPopupBottom']else return b[
'DarkPopupBottom']end else if m%2==1 then return'97112126'else return'97109338'
end end end)()return o end local k,l,m=nil,true,nil m=function(n)if l then k.
Text=n end end local n n=function(o,p)while not o:FindFirstChild(p)do wait()m(
' child '..tostring(o.Name)..' waiting for '..tostring(p))end return o[p]end
local o=game:GetService'Players'while not o.LocalPlayer do o.Changed:wait()end
local p=o.LocalPlayer local q,r=p:GetMouse(),e('Frame','PlayerListScreen',{Size=
UDim2.new(1,0,1,0),BackgroundTransparency=1,Parent=script.Parent})local s=e(
'Frame','LeaderBoardFrame',{Position=UDim2.new(1,-150,0.005,0),Size=UDim2.new(0,
150,0,800),BackgroundTransparency=1,Parent=r})local t,u=e('Frame','FocusFrame',{
Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,0,100),BackgroundTransparency=1,
Active=true,Parent=s}),e('Frame','Header',{BackgroundTransparency=1,Position=
UDim2.new(0,0,0,0),Size=UDim2.new(1,0,0.07,0),Parent=s,f
'http://www.roblox.com/asset/?id=94692054'})local v,w,x,y=u.Size.Y.Scale,e(
'ImageButton','MaximizeButton',{Active=true,BackgroundTransparency=1,Position=
UDim2.new(0,0,0,0),Size=UDim2.new(1,0,1,0),Parent=u}),e('TextLabel','PlayerName'
,{BackgroundTransparency=1,Position=UDim2.new(0,0,0.01,0),Size=UDim2.new(0.98,0,
0.38,0),Parent=u,Font='ArialBold',Text=p.Name,FontSize='Size24',TextColor3=
Color3.new(1,1,1),TextStrokeColor3=Color3.new(0,0,0),TextStrokeTransparency=0,
TextXAlignment='Right',TextYAlignment='Center'}),e('TextLabel','PlayerScore',{
BackgroundTransparency=1,Position=UDim2.new(0,0,0.4,0),Size=UDim2.new(0.98,0,0,
30),Parent=u,Font='ArialBold',Text='',FontSize='Size24',TextYAlignment='Top',
TextColor3=Color3.new(1,1,1),TextStrokeTransparency=1,TextXAlignment='Right'})
local z=e('Frame','BottomShiftFrame',{BackgroundTransparency=1,Position=UDim2.
new(0,0,v,0),Size=UDim2.new(1,0,1,0),Parent=s})local A=e('Frame','Bottom',{
BackgroundTransparency=1,Position=UDim2.new(0,0,0.07,0),Size=UDim2.new(1,0,0.03,
0),Parent=z,f'http://www.roblox.com/asset/?id=94754966'})local B,C,D=e(
'ImageButton','bigbutton',{Active=true,BackgroundTransparency=1,Position=UDim2.
new(0,0,0,0),Size=UDim2.new(1,0,1.5,0),ZIndex=3,Parent=A}),e('ImageButton',
'extendTab',{Active=true,BackgroundTransparency=1,Image=
'http://www.roblox.com/asset/?id=94692731',Position=UDim2.new(0.608,0,0.3,0),
Size=UDim2.new(0.3,0,0.7,0),Parent=A}),e('Frame','ListFrame',{
BackgroundTransparency=1,Position=UDim2.new(-1,0,0.07,0),Size=UDim2.new(2,0,1,0)
,Parent=s,ClipsDescendants=true})local E=e('Frame','BottomFrame',{
BackgroundTransparency=1,Position=UDim2.new(0,0,-0.8,0),Size=UDim2.new(1,0,1,0),
Parent=D,ClipsDescendants=true})local F=e('Frame','ScrollBarFrame',{
BackgroundTransparency=1,Position=UDim2.new(0.987,0,0.8,0),Size=UDim2.new(0.01,0
,0.2,0),Parent=E})local G,H,I,J=e('Frame','ScrollBar',{BackgroundTransparency=0,
BackgroundColor3=Color3.new(0.2,0.2,0.2),Position=UDim2.new(0,0,0,0),Size=UDim2.
new(1,0,0.5,0),ZIndex=5,Parent=F}),e('Frame','SubFrame',{BackgroundTransparency=
1,Position=UDim2.new(0,0,0.8,0),Size=UDim2.new(1,0,1,0),Parent=E}),e('Frame',
'PopUpFrame',{BackgroundTransparency=1,SizeConstraint='RelativeXX',Position=s.
Position+UDim2.new(0,-150,0,0),Size=UDim2.new(0,150,0,800),Parent=s,
ClipsDescendants=true,ZIndex=7}),nil local K,L,M,N,O,P,Q,R,S=e('Frame','Panel',{
BackgroundTransparency=1,Position=UDim2.new(1,0,0,0),Size=UDim2.new(1,0,0.032,0)
,Parent=I}),e('Frame','StatTitles',{BackgroundTransparency=1,Position=UDim2.new(
0,0,1,-10),Size=UDim2.new(1,0,0,0),Parent=u}),Instance.new'BoolValue',Instance.
new'BoolValue',Instance.new'BoolValue',Instance.new'BoolValue',e('Frame',
'MidTemplate',{BackgroundTransparency=1,Position=UDim2.new(100,0,0.07,0),Size=
UDim2.new(0.5,0,0.025,0),e('ImageLabel','BCLabel',{Active=true,
BackgroundTransparency=1,Position=UDim2.new(0.005,5,0.2,0),Size=UDim2.new(0,16,0
,16),SizeConstraint='RelativeYY',Image='',ZIndex=3}),e('ImageLabel',
'FriendLabel',{Active=true,BackgroundTransparency=1,Position=UDim2.new(0.005,5,
0.15,0),Size=UDim2.new(0,16,0,16),SizeConstraint='RelativeYY',Image='',ZIndex=3}
),e('ImageButton','ClickListener',{Active=true,BackgroundTransparency=1,Position
=UDim2.new(0.005,1,0,0),Size=UDim2.new(0.96,0,1,0),ZIndex=3}),e('Frame',
'TitleFrame',{BackgroundTransparency=1,Position=UDim2.new(0.01,0,0,0),Size=UDim2
.new(0,140,1,0),ClipsDescendants=true,e('TextLabel','Title',{
BackgroundTransparency=1,Position=UDim2.new(0,5,0,0),Size=UDim2.new(100,0,1,0),
Font='Arial',FontSize='Size14',TextColor3=Color3.new(1,1,1),TextXAlignment=
'Left',TextYAlignment='Center',ZIndex=3})}),e('TextLabel','PlayerScore',{
BackgroundTransparency=1,Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,1,0),
Font='ArialBold',Text='',FontSize='Size14',TextColor3=Color3.new(1,1,1),
TextXAlignment='Right',TextYAlignment='Center',ZIndex=3}),ZIndex=3}),e('Frame',
'MidBGTemplate',{BackgroundTransparency=1,Position=UDim2.new(100,0,0.07,0),Size=
UDim2.new(0.5,0,0.025,0),f'http://www.roblox.com/asset/?id=94692025'}),e(
'TextButton','ReportAbuseShield',{Text='',AutoButtonColor=false,Active=true,
Visible=true,Size=UDim2.new(1,0,1,0),BackgroundColor3=g(51,51,51),BorderColor3=
g(27,42,53),BackgroundTransparency=1})local T,U=e('Frame','Settings',{Position=
UDim2.new(0.5,-250,0.5,-200),Size=UDim2.new(0,500,0,400),BackgroundTransparency=
1,Active=true,Parent=S}),nil U=e('Frame','ReportAbuseStyle',{Size=UDim2.new(1,0,
1,0),Active=true,BackgroundTransparency=1,Parent=T,f
'http://www.roblox.com/asset/?id=96488767',e('TextLabel','Title',{Text=
'Report Abuse',TextColor3=g(221,221,221),Position=UDim2.new(0.5,0,0,30),Font=
Enum.Font.ArialBold,FontSize=Enum.FontSize.Size36}),e('TextLabel','Description',
{Text=
[[This will send a complete report to a moderator. The moderator will review the chat log and take appropriate action.]]
,TextColor3=g(221,221,221),Position=UDim2.new(0.01,0,0,55),Size=UDim2.new(0.99,0
,0,40),BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.FontSize.
Size18,TextWrap=true,TextXAlignment=Enum.TextXAlignment.Left,TextYAlignment=Enum
.TextYAlignment.Top}),e('TextLabel','AbuseLabel',{Text='What did they do?',Font=
Enum.Font.Arial,BackgroundTransparency=1,FontSize=Enum.FontSize.Size18,Position=
UDim2.new(0.025,0,0,140),Size=UDim2.new(0.4,0,0,36),TextColor3=g(255,255,255),
TextXAlignment=Enum.TextXAlignment.Left}),e('TextLabel','ShortDescriptionLabel',
{Text='Short Description: (optional)',Font=Enum.Font.Arial,FontSize=Enum.
FontSize.Size18,Position=UDim2.new(0.025,0,0,180),Size=UDim2.new(0.95,0,0,36),
TextColor3=g(255,255,255),TextXAlignment=Enum.TextXAlignment.Left,
BackgroundTransparency=1}),e('TextLabel','ReportingPlayerLabel',{Text=
'Reporting Player',BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.
FontSize.Size18,Position=UDim2.new(0.025,0,0,100),Size=UDim2.new(0.95,0,0,36),
TextColor3=g(255,255,255),TextXAlignment=Enum.TextXAlignment.Left,Parent=U})})
local V,W,X,Y,Z,_,aa,ab,ac,ad=e('TextLabel','PlayerLabel',{Text='',
BackgroundTransparency=1,Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size18,
Position=UDim2.new(0.025,0,0,100),Size=UDim2.new(0.95,0,0,36),TextColor3=g(255,
255,255),TextXAlignment=Enum.TextXAlignment.Right,Parent=U}),e('ImageButton',
'SubmitReportBtn',{Active=false,BackgroundTransparency=1,Position=UDim2.new(0.5,
-200,1,-80),Size=UDim2.new(0,150,0,50),AutoButtonColor=false,Image=
'http://www.roblox.com/asset/?id=96502438',Parent=U}),e('ImageButton',
'CancelBtn',{BackgroundTransparency=1,Position=UDim2.new(0.5,50,1,-80),Size=
UDim2.new(0,150,0,50),AutoButtonColor=true,Image=
'http://www.roblox.com/asset/?id=96500683',Parent=U}),e('Frame',
'AbuseDescriptionWrapper',{Position=UDim2.new(0.025,0,0,220),Size=UDim2.new(0.95
,0,1,-310),BackgroundColor3=g(0,0,0),BorderSizePixel=0,Parent=U}),nil,e(
'TextBox',{Text='',ClearTextOnFocus=false,Font=Enum.Font.Arial,FontSize=Enum.
FontSize.Size18,Position=UDim2.new(0,3,0,3),Size=UDim2.new(1,-6,1,-6),TextColor3
=g(255,255,255),TextXAlignment=Enum.TextXAlignment.Left,TextYAlignment=Enum.
TextYAlignment.Top,TextWrap=true,BackgroundColor3=g(0,0,0),BorderSizePixel=0}),
e('Frame','AbuseFeedbackBox',{BackgroundTransparency=1,Position=UDim2.new(0.25,0
,0.3,0),Size=UDim2.new(0.5,0,0.37,0),f'http://www.roblox.com/asset/?id=96506233'
,e('TextLabel','Header',{Position=UDim2.new(0,10,0.05,0),Size=UDim2.new(1,-30,
0.15,0),TextScaled=true,BackgroundTransparency=1,TextXAlignment=Enum.
TextXAlignment.Center,TextYAlignment=Enum.TextYAlignment.Top,Text=
'Thanks for your report!',TextColor3=Color3.new(1,1,1),FontSize=Enum.FontSize.
Size48,Font='ArialBold'}),e('TextLabel','content',{Position=UDim2.new(0,10,0.2,0
),Size=UDim2.new(1,-30,0.4,0),TextScaled=true,BackgroundTransparency=1,
TextColor3=Color3.new(1,1,1),Text=
[[Our moderators will review the chat logs and determine what happened. The other user is probably just trying to make you mad.
If anyone used swear words, inappropriate language, or threatened you in real life, please report them for Bad Words or Threats]]
,TextWrapped=true,TextYAlignment=Enum.TextYAlignment.Top,FontSize=Enum.FontSize.
Size24,Font='Arial'}),e('ImageButton','OkButton',{BackgroundTransparency=1,
Position=UDim2.new(0.5,-75,1,-80),Size=UDim2.new(0,150,0,50),AutoButtonColor=
true,Image='http://www.roblox.com/asset/?id=96507959'})}),e('Frame',
'AbuseFeedbackBox',{BackgroundTransparency=1,Position=UDim2.new(0.25,0,
0.300000012,0),Size=UDim2.new(0.5,0,0.370000005,0),f
'http://www.roblox.com/asset/?id=96506233',e('TextLabel','Header',{Position=
UDim2.new(0,10,0.05,0),Size=UDim2.new(1,-30,0.15,0),TextScaled=true,
BackgroundTransparency=1,TextColor3=Color3.new(1,1,1),TextXAlignment=Enum.
TextXAlignment.Center,TextYAlignment=Enum.TextYAlignment.Top,Text=
'Thanks for your report!',FontSize=Enum.FontSize.Size48,Font='ArialBold'}),e(
'TextLabel','content',{Position=UDim2.new(0,10,0.2,0),Size=UDim2.new(1,-30,0.15,
0),TextScaled=true,BackgroundTransparency=1,TextColor3=Color3.new(1,1,1),Text=
[[Our moderators will review the chat logs and determine what happened.]],
TextWrapped=true,TextYAlignment=Enum.TextYAlignment.Top,FontSize=Enum.FontSize.
Size24,Font='Arial'}),e('ImageButton','OkButton',{BackgroundTransparency=1,
Position=UDim2.new(0.5,-75,1,-80),Size=UDim2.new(0,150,0,50),AutoButtonColor=
true,Image='http://www.roblox.com/asset/?id=96507959'})}),e('ImageButton',{Size=
UDim2.new(1,0,1,0),BackgroundTransparency=1,ZIndex=8,Visible=false,Parent=r}),e(
'Frame','debugframe',{BackgroundTransparency=1,Position=UDim2.new(0.25,0,0.3,0),
Size=UDim2.new(0.5,0,0.37,0),f'http://www.roblox.com/asset/?id=96506233'})local
ae=e('TextLabel',{BackgroundTransparency=0.8,Position=UDim2.new(0,0,0.01,0),Size
=UDim2.new(1,0,0.5,0),Parent=ad,Font='ArialBold',Text='--',FontSize='Size14',
TextWrapped=true,TextColor3=Color3.new(1,1,1),TextStrokeColor3=Color3.new(0,0,0)
,TextStrokeTransparency=0,TextXAlignment='Right',TextYAlignment='Center'})k=e(
'TextLabel',{BackgroundTransparency=0.8,Position=UDim2.new(0,0,0.5,0),Size=UDim2
.new(1,0,0.5,0),Parent=ad,Font='ArialBold',Text='--',FontSize='Size14',
TextWrapped=true,TextColor3=Color3.new(1,1,1),TextStrokeColor3=Color3.new(0,0,0)
,TextStrokeTransparency=0,TextXAlignment='Right',TextYAlignment='Center'})local
af,ag=assert(LoadLibrary'RbxGui'),8 for ah,ai in pairs(b)do Game:GetService
'ContentProvider':Preload('http://www.roblox.com/asset/?id='..tostring(ai))end
local aj,ak,al,am,an,ao,ap,aq,ar,as={},0,{},{},nil,{},{},0,0.25,false pcall(
function()as=Game:GetService'UserInputService'.TouchEnabled end)local at,au,av,
aw=150,10,UDim2.new(0.5,0,1,0),UDim2.new(0.25,0,0.1,0)local ax,ay,az,aA,aB,aC,aD
,aE,aF,aG,aH,aI,aJ,aK,aL=UDim2.new(0,at,0,800),UDim2.new(1,-at,0.005,0),-4E-2,E.
Position.Y.Scale,nil,nil,false,false,false,false,false,false,false,{},8 if not
as then aL=12 end local aM,aN,aO,aP,aQ,aR,aS=false,nil,{'Bad Words or Threats',
'Bad Username','Talking about Dating','Account Trading or Sharing',
'Asking Personal Questions','Rude or Mean Behavior','False Reporting Me'},nil,
nil,{Owner=255,Admin=240,Member=128,Visitor=10,Banned=0},not not game.Workspace:
FindFirstChild'PSVariable'game.Workspace.ChildAdded:connect(function(aT)if aT.
Name=='PSVariable'and aT:IsA'BoolValue'then aS=true end end)local aT aT=function
()return#ap*Q.Size.Y.Scale<=1+aA end local aU aU=function()return aA*-1 end
local aV aV=function()if aT()then return aU()else return(aU()-(#ap*Q.Size.Y.
Scale))+(1+aA)end end local aW aW=function(aX,aY)return Vector2.new(aX,aY)/r.
AbsoluteSize end local aX aX=function(aY,aZ,a_,a0,a1)local a2=tick()while tick()
-a2<a1 do aY[aZ]=((a0-a_)*((tick()-a2)/a1))+a_ wait(3.333333333333333E-2)end aY[
aZ]=a0 end local aY aY=function(aZ,a_,a0)if aG then return end aG=true local a1,
a2 a1=ac.MouseButton1Up:connect(function(a3,a4)a0(a3,a4)ac.Visible=false a1:
disconnect()if a2~=nil then return a2:disconnect()end return nil end)a2=ac.
MouseMoved:connect(function(a3,a4)return a_(a3,a4)end)ac.Visible=true ac.Active=
true ac.Parent=aZ aZ.AncestryChanged:connect(function(a3,a4)if a3==aZ and not(a4
~=nil)then a0(nx,ny)ac.Visible=false a1:disconnect()a2:disconnect()return m
'forced out of wait for click'end end)aG=false end local aZ aZ=function(a_,a0)
while a_.PersonalServerRank<a0 do game:GetService'PersonalServerService':
Promote(a_)end while a_.PersonalServerRank>a0 do game:GetService
'PersonalServerService':Demote(a_)end end local a_,a0=
'http://www.roblox.com/asset/?id=',nil a0=function(a1,a2,a3,a4,a5)a2.Image=a_..b
['LightPopupMid']a3.Image=a_..b['DarkPopupMid']a4.Image=a_..b['LightPopupMid']a5
.Image=a_..b['DarkPopupBottom']local a6=a1.PersonalServerRank if a6<=aR['Banned'
]then a2.Image=a_..b['LightBluePopupMid']elseif a6<=aR['Visitor']then a3.Image=
a_..b['DarkBluePopupMid']elseif a6<=aR['Member']then a4.Image=a_..b[
'LightBluePopupMid']elseif a6<=aR['Admin']then a5.Image=a_..b[
'DarkBluePopupBottom']end end local a1 a1=function(a2,a3,a4,a5,a6,a7)m
'setting privilege level'aZ(a2,a3)return a0(a2,a4,a5,a6,a7)end local a2 a2=
function()aN=nil W.Active=false W.Image=
'http://www.roblox.com/asset/?id=96502438'Z:Destroy()aa.Parent=nil ab.Parent=nil
S.Parent=nil U.Visible=true end local a3 a3=function()if W.Active then if aN and
aC then U.Visible=false game.Players:ReportAbuse(aC,aN,Z.Text)if aN==
'Rude or Mean Behavior'or aN=='False Reporting Me'then aa.Parent=S else m
'opening abuse box'ab.Parent=S end else return a2()end end end local a4 a4=
function()if aB then local a5=aB['Frame']Spawn(function()return aX(a5,
'BackgroundTransparency',0.5,1,c)end)end J:TweenPosition(UDim2.new(1,0,0,0),
'Out','Linear',c,true)wait(0.1)aH=false aB=nil end local a5 a5=function()m
'adding report dialog'V.Text=aC.Name J:TweenPosition(UDim2.new(1,0,0,0),'Out',
'Linear',c,true)Z=_:Clone()Z.Parent=Y S.Parent=r return a4()end local a6 a6=
function()aP=function(a7)aN=a7 if aN and aC then W.Active=true W.Image=
'http://www.roblox.com/asset/?id=96501119'end end local a7 aQ,a7=af.
CreateDropDownMenu(aO,aP,true)aQ.Name='AbuseComboBox'aQ.Position=UDim2.new(0.425
,0,0,142)aQ.Size=UDim2.new(0.55,0,0,32)aQ.Parent=U X.MouseButton1Click:connect(
a2)W.MouseButton1Click:connect(a3)aa:FindFirstChild'OkButton'.MouseButton1Down:
connect(a2)return ab:FindFirstChild'OkButton'.MouseButton1Down:connect(a2)end
local a7 a7=function(a8)if a8==game.Players.LocalPlayer then return Enum.
FriendStatus.NotFriend else local a9,ba=pcall(function()return game.Players.
LocalPlayer:GetFriendStatus(a8)end)if a9 then return ba else return Enum.
FriendStatus.NotFriend end end end local a8 a8=function()local a9=a7(aC)if a9==
Enum.FriendStatus.Friend then p:RevokeFriendship(aC)elseif a9==Enum.FriendStatus
.Unknown or a9==Enum.FriendStatus.NotFriend or a9==Enum.FriendStatus.
FriendRequestSent or a9==Enum.FriendStatus.FriendRequestReceived then p:
RequestFriendship(aC)end return a4()end local a9 a9=function()p:
RevokeFriendship(aC)a4()return J:TweenPosition(UDim2.new(1,0,0,0),'Out','Linear'
,c,true)end local ba ba=function(bb,bc)if bb['Score']==bc['Score']then return bb
['Player'].Name:upper()<bc['Player'].Name:upper()end if not bb['Score']then
return false end if not bc['Score']then return true end return bb['Score']<bc[
'Score']end local bb,bc bc=function()O.Value=true N.Value=false M.Value=true bb(
)O.Value=true return r:TweenPosition(UDim2.new(ax.X.Scale,ax.X.Offset-10,0,0),
'Out','Linear',c*1.2,true)end local bd bd=function()if O.Value then O.Value=
false return r:TweenPosition(UDim2.new(0,0,0,0),'Out','Linear',c*1.2,true)end
end local be be=function()return bc()end local bf bf=function(bg,bh)if bg.
IsPrimary~=bh.IsPrimary then return bg.IsPrimary end if bg.Priority==bh.Priority
then return bg.AddId<bh.AddId end return bg.Priority<bh.Priority end local bg,bh
bh=function(bi,bj)return bg()end local bj bj=function(bk)local bl=Q:
FindFirstChild'PlayerScore':Clone()bl.Name=bk bl.Text=bk if N.Value then bl.
TextTransparency=0 else bl.TextTransparency=1 end bl.Parent=L return bl end
local bk,bl bl=function(bm,bn)while aE do m'in stat added function lock'wait(
3.333333333333333E-2)end aE=true if not(bm:IsA'StringValue'or bm:IsA'IntValue'or
bm:IsA'BoolValue'or bm:IsA'NumberValue'or bm:IsA'DoubleConstrainedValue'or bm:
IsA'IntConstrainedValue')then be()else local bo=false for bp,bq in pairs(aj)do
if bq['Name']==bm.Name then bo=true end end if not bo then local br={}br['Name']
=bm.Name br['Priority']=0 if bm:FindFirstChild'Priority'then br['Priority']=bm.
Priority end br['IsPrimary']=false if bm:FindFirstChild'IsPrimary'then br[
'IsPrimary']=true end br.AddId=ak ak=ak+1 table.insert(aj,br)table.sort(aj,bf)if
not L:FindFirstChild(br['Name'])then bj(br['Name'])end bk()end end aE=false bh(
bn)return bm.Changed:connect(function(bo)return bh(bn,bo)end)end local bm bm=
function(bn,bo)for bp,bq in pairs(al)do if bq['Player']~=bo and bq['Player']:
FindFirstChild(bq['Player'].leaderstats:FindFirstChild(bn))then return true end
end return false end local bn bn=function(bo,bp)while aE do m
'In Adding Stat Lock1'wait(3.333333333333333E-2)end aE=true if bp['Frame']:
FindFirstChild(bo.Name)then m'Destroyed frame!'bp['Frame'][bo.Name].Parent=nil
end if not bm(bo.Name,bp['Player'])then for bq,br in ipairs(aj)do if br['Name']
==bo.Name then table.remove(aj,bq)if L:FindFirstChild(bo.Name)then L[bo.Name]:
Destroy()end for bs,bt in pairs(am)do if bt['Frame']:FindFirstChild(bo.Name)then
bt['Frame'][bo.Name]:Destroy()end end end end end aE=false return bh(bp)end
local bo bo=function(bp)for bq,br in ipairs(aj)do bn(br,bp)end end local bp bp=
function(bq)if bq:IsA'DoubleConstrainedValue'or bq:IsA'IntConstrainedValue'then
return bq.ConstrainedValue elseif bq:IsA'BoolValue'then if bq.Value then return
1 else return 0 end else return bq.Value end end local bq bq=function(br,bs,bt)
if not bt:FindFirstChild'PlayerScore'then return end local bu,bv=bt:
FindFirstChild'PlayerScore':Clone(),nil wait()if br['Player']:FindFirstChild
'leaderstats'and br['Player'].leaderstats:FindFirstChild(bs['Name'])then bv=br[
'Player']:FindFirstChild'leaderstats':FindFirstChild(bs['Name'])else return end
if not br['Player'].Parent then return end bu.Name=bs['Name']bu.Text=tostring(
bp(bv))if bs['Name']==aj[1]['Name']then m'changing score'br['Score']=bp(bv)if br
['Player']==p then y.Text=tostring(bp(bv))end end bv.Changed:connect(function()
if not bv.Parent then return end if bs['Name']==aj[1]['Name']then br['Score']=
bp(bv)if br['Player']==p then y.Text=tostring(bp(bv))end end bu.Text=tostring(
bp(bv))return bg()end)return bu end local br,bs={'Size8','Size9','Size10',
'Size11','Size12','Size14','Size24','Size36','Size48'},nil bs=function()local bt
=x:Clone()bt.Position=UDim2.new(2,0,2,0)bt.Parent=r local bu=7 bt.FontSize=br[bu
]return Delay(0.2,function()while bt.TextBounds.x==0 do wait(
3.333333333333333E-2)end while bt.TextBounds.x-ax.X.Offset>1 do bu=bu-1 bt.
FontSize=br[bu]wait(0.2)end x.FontSize=bt.FontSize return bt:Destroy()end)end
local bt bt=function(bu)while aE do m'In Adding Stat Lock2'wait(
3.333333333333333E-2)end aE=true local bv=5 local bw,bx=bv,0 for by=#aj,1,-1 do
local bz=aj[by]bx=0 for bA,bB in ipairs(bu)do local bC=bB['Frame']if not bC:
FindFirstChild(bz['Name'])then local bD=bq(bB,bz,bC)if bD then m('adding '..
tostring(bD.Name)..' to '..tostring(bB['Player'].Name))bD.Parent=bC if bB[
'MyTeam']and bB['MyTeam']~=an and not bB['MyTeam']['Frame']:FindFirstChild(bz[
'Name'])then local bE=bD:Clone()bE.Parent=bB['MyTeam']['Frame']end end end bz[
'XOffset']=bv if bC:FindFirstChild(bz['Name'])then bx=math.max(bx,bC[bz['Name']]
.TextBounds.X)end end if P.Value then bx=math.max(bx,L[bz['Name']].TextBounds.X)
L[bz['Name']]:TweenPosition(UDim2.new(az,-bv,0,0),'Out','Linear',c,true)else L[
bz['Name']]:TweenPosition(UDim2.new((0.4+((0.6/#aj)*(by-1)))-1,0,0,0),'Out',
'Linear',c,true)end bz['ColumnSize']=bx bv=bv+(au+bx)bw=math.max(bv,bw)end ax=
UDim2.new(0,at+bw-au,0,800)ay=UDim2.new(1,-ax.X.Offset,ay.Y.Scale,0)bs()bk()aE=
false end local bu bu=function()if#aj~=0 then for bv,bw in pairs(L:GetChildren()
)do Spawn(function()return aX(bw,'TextTransparency',bw.TextTransparency,0,c)end)
end v=0.09 u:TweenSizeAndPosition(UDim2.new(u.Size.X.Scale,u.Size.X.Offset,v,0),
u.Position,'Out','Linear',c*1.2,true)D:TweenPosition(UDim2.new(D.Position.X.
Scale,0,v,0),'Out','Linear',c*1.2,true)return z:TweenPosition(UDim2.new(0,0,v,0)
,'Out','Linear',c*1.2,true)end end local bv bv=function()if#aj~=0 then v=0.07 if
not N.Value then for bw,bx in pairs(L:GetChildren())do Spawn(function()return
aX(bx,'TextTransparency',bx.TextTransparency,1,c)end)end end z:TweenPosition(
UDim2.new(0,0,v,0),'Out','Linear',c*1.2,true)u:TweenSizeAndPosition(UDim2.new(u.
Size.X.Scale,u.Size.X.Offset,v,0),u.Position,'Out','Linear',c*1.2,true)return D:
TweenPosition(UDim2.new(D.Position.X.Scale,0,v,0),'Out','Linear',c*1.2,true)end
end local bw bw=function()if not P.Value or M.Value then return bv()else return
bu()end end local bx bx=function()M.Value=not M.Value return bw()end local by by
=function()N.Value=not N.Value return bt(al)end local bz bz=function()local bA,
bB=aV(),aU()local bC,bD=bB-bA,math.max(math.min(H.Position.Y.Scale,bB),bA)H.
Position=UDim2.new(H.Position.X.Scale,H.Position.X.Offset,bD,H.Position.Y.Offset
)local bE=1-G.Size.Y.Scale G.Position=UDim2.new(0,0,bE-(bE*((H.Position.Y.Scale-
bA)/bC)),0)end bb=function()if M.Value then if N.Value then by()end if not O.
Value then s:TweenSizeAndPosition(UDim2.new(0.01,x.TextBounds.X,ax.Y.Scale,ax.Y.
Offset),UDim2.new(0.99,-x.TextBounds.X,ay.Y.Scale,0),'Out','Linear',c*1.2,true)
else s:TweenSizeAndPosition(ax,ay,'Out','Linear',c*1.2,true)end E:TweenPosition(
UDim2.new(0,0,-1,0),'Out','Linear',c*1.2,true)A:TweenPosition(UDim2.new(0,0,0,0)
,'Out','Linear',c*1.2,true)t.Size=UDim2.new(1,0,v,0)C.Image=
'http://www.roblox.com/asset/?id=94692731'else if not N.Value then s:
TweenSizeAndPosition(ax,ay,'Out','Linear',c*1.2,true)end aA=math.min(math.max(aA
,-1),-1+#ap*R.Size.Y.Scale)bz()E.Position=UDim2.new(0,0,aA,0)local bA=aA+E.Size.
Y.Scale A.Position=UDim2.new(0,0,bA,0)t.Size=UDim2.new(1,0,bA+v,0)C.Image=
'http://www.roblox.com/asset/?id=94825585'end end bk=function()if N.Value then
for bA=1,#aj,1 do local bB=aj[bA]L[bB['Name']]:TweenPosition(UDim2.new(0.4+((0.6
/#aj)*(bA-1))-1,0,0,0),'Out','Linear',c,true)end if M.Value then bx()else bb()
end s:TweenSizeAndPosition(av,aw,'Out','Linear',c*1.2,true)y:TweenPosition(UDim2
.new(0,0,x.Position.Y.Scale,0),'Out','Linear',c*1.2,true)x:TweenPosition(UDim2.
new(-0.1,-y.TextBounds.x,x.Position.Y.Scale,0),'Out','Linear',c*1.2,true)u.
Background.Image='http://www.roblox.com/asset/?id='..b['LargeHeader']A.
Background.Image='http://www.roblox.com/asset/?id='..b['LargeBottom']for bA,bB
in ipairs(ap)do bB.Background.Image='http://www.roblox.com/asset/?id='..(
function()if bA%2~=1 then return b['LargeDark']else return b['LargeLight']end
end)()end for bC,bD in ipairs(ao)do if bD:FindFirstChild'ClickListener'then bD.
ClickListener.Size=UDim2.new(0.974,0,bD.ClickListener.Size.Y.Scale,0)end for bE=
1,#aj,1 do local bF=aj[bE]if bD:FindFirstChild(bF['Name'])then bD[bF['Name']]:
TweenPosition(UDim2.new(0.4+((0.6/#aj)*(bE-1))-1,0,0,0),'Out','Linear',c,true)
end end end for bE,bF in ipairs(al)do n(bF['Frame'],'TitleFrame').Size=UDim2.
new(0.38,0,bF['Frame'].TitleFrame.Size.Y.Scale,0)end for bG,bH in ipairs(am)do
n(bH['Frame'],'TitleFrame').Size=UDim2.new(0.38,0,bH['Frame'].TitleFrame.Size.Y.
Scale,0)end else if not M.Value then s:TweenSizeAndPosition(ax,ay,'Out','Linear'
,c*1.2,true)end y:TweenPosition(UDim2.new(0,0,0.4,0),'Out','Linear',c*1.2,true)x
:TweenPosition(UDim2.new(0,0,x.Position.Y.Scale,0),'Out','Linear',c*1.2,true)u.
Background.Image='http://www.roblox.com/asset/?id='..b['NormalHeader']A.
Background.Image='http://www.roblox.com/asset/?id='..b['NormalBottom']for bA,bD
in ipairs(ap)do bD.Background.Image='http://www.roblox.com/asset/?id='..(
function()if bA%2~=1 then return b['midDark']else return b['midLight']end end)()
end for bG,bH in ipairs(ao)do if bH:FindFirstChild'ClickListener'then bH.
ClickListener.Size=UDim2.new(0.96,0,bH.ClickListener.Size.Y.Scale,0)for bI=1,#aj
,1 do local bJ=aj[bI]if bH:FindFirstChild(bJ['Name'])and bJ['XOffset']then bH[bJ
['Name']]:TweenPosition(UDim2.new(az,-bJ['XOffset'],0,0),'Out','Linear',c,true)
end end end end for bI,bJ in ipairs(am)do n(bJ['Frame'],'TitleFrame').Size=UDim2
.new(0,at*0.9,bJ['Frame'].TitleFrame.Size.Y.Scale,0)end for bK,bL in ipairs(al)
do n(bL['Frame'],'TitleFrame').Size=UDim2.new(0,at*0.9,bL['Frame'].TitleFrame.
Size.Y.Scale,0)end end end local bA bA=function(bH)if not(O.Value or M.Value or
aH)then local bK=H.Position local bL=math.max(math.min(bK.Y.Scale+bH,aU()),aV())
H.Position=UDim2.new(bK.X.Scale,bK.X.Offset,bL,bK.Y.Offset)return bz()end end
local bH bH=function()if aK then return end aK={}table.insert(aK,q.WheelForward:
connect(function()return bA(0.05)end))return table.insert(aK,q.WheelBackward:
connect(function()return bA(-5E-2)end))end local bK bK=function()if aK then for
bL,bM in pairs(aK)do bM:disconnect()end end aK=nil end t.MouseEnter:connect(
function()if not(M.Value or O.Value)then return bH()end end)t.MouseLeave:
connect(function()return bK()end)local bL bL=function()local bM,bN=#ap*Q.Size.Y.
Scale,E.Position.Y.Scale+1 G.Size=UDim2.new(1,0,bN/bM,0)end local bM bM=function
(bN,bO)I.Parent=r if J~=nil then J:Destroy()end J=K:Clone()J.Parent=I local bP,
bQ=2,a7(bO)m(tostring(bQ))local bR,bS=aS and p.PersonalServerRank>=aR['Admin']
and p.PersonalServerRank>aC.PersonalServerRank,j(J,'Report Player',0)bS.
MouseButton1Click:connect(function()return a5()end)local bT=j(J,'Friend',1,not
bR and bQ~=Enum.FriendStatus.FriendRequestReceived)bT.MouseButton1Click:connect(
a8)if bQ==Enum.FriendStatus.Friend then bT:FindFirstChild'ButtonText'.Text=
'UnFriend Player'elseif bQ==Enum.FriendStatus.Unknown or bQ==Enum.FriendStatus.
NotFriend then bT:FindFirstChild'ButtonText'.Text='Send Request'elseif bQ==Enum.
FriendStatus.FriendRequestSent then bT:FindFirstChild'ButtonText'.Text=
'Revoke Request'elseif bQ==Enum.FriendStatus.FriendRequestReceived then bT:
FindFirstChild'ButtonText'.Text='Accept Friend'local bU=j(J,'Decline Friend',2,
not bR)bU.MouseButton1Click:connect(a9)bP=bP+1 end if bR then local bU,bV,bW,bX=
j(J,'Ban',bP),j(J,'Visitor',bP+1),j(J,'Member',bP+2),j(J,'Admin',bP+3,true)bU.
MouseButton1Click:connect(function()return a1(bO,aR['Banned'],bU,bV,bW,bX)end)bV
.MouseButton1Click:connect(function()return a1(bO,aR['Visitor'],bU,bV,bW,bX)end)
bW.MouseButton1Click:connect(function()return a1(bO,aR['Member'],bU,bV,bW,bX)end
)bX.MouseButton1Click:connect(function()return a1(bO,aR['Admin'],bU,bV,bW,bX)end
)a0(aC,bU,bV,bW,bX)end J:TweenPosition(UDim2.new(0,0,0,0),'Out','Linear',c,true)
Delay(0,function()local bU=q.Button1Down:connect(function()tconnection:
disconnect()return a4()end)end)local bU=bN['Frame']return Spawn(function()while
aH do I.Position=UDim2.new(0,bU.AbsolutePosition.X-I.Size.X.Offset,0,bU.
AbsolutePosition.Y)wait()end end)end local bN bN=function()if aT()then G.
BackgroundTransparency=1 else G.BackgroundTransparency=0 return bL()end end
local bO bO=function(bP)bP['Frame'].BackgroundColor3=Color3.new(0,1,1)Spawn(
function()return aX(bP['Frame'],'BackgroundTransparency',1,0.5,0.5)end)aH=true
return bM(bP,bP['Player'])end local bP bP=function(bQ,bR,bS)local bT=true n(bQ[
'Frame'],'ClickListener')local bU bU=function()if bQ['Player']and aC and bT and
bQ['Player']~=p and aC.userId>1 and p.userId>1 then return bO(bQ)end end local
bV,bW,bX=nil,H.Position,nil bX=function(bY,bZ)if not bV then bV=aW(bY,bZ).Y end
local b_=aW(bY,bZ).Y m('drag dist: '..tostring(Vector2.new(bR-bY,bS-bZ).
magnitude))if Vector2.new(bR-bY,bS-bZ).magnitude>d then bT=false end local b0=
math.max(math.min(bW.Y.Scale+(b_-bV),aU()),aV())H.Position=UDim2.new(bW.X.Scale,
bW.X.Offset,b0,bW.Y.Offset)return bz()end return aY(r,bX,bU)end local bQ bQ=
function()return Delay(0,function()local bR=tick()m'Got Click2'local bS bS=
function()if tick()-bR<0.25 then return bx()else aM=true if M.Value then return
bx()end end end local bT,bU,bV=nil,aA,nil bV=function(bW,bX)if not M.Value then
if not bT then bT=aW(bW,bX).Y end local bY=aW(bW,bX).Y local bZ=math.min(math.
max(bU+(bY-bT),-1),-1+#ap*R.Size.Y.Scale)aA=bZ bb()F.Size=UDim2.new(F.Size.X.
Scale,0,(aA+E.Size.Y.Scale),0)F.Position=UDim2.new(F.Position.X.Scale,0,1-F.Size
.Y.Scale,0)bL()bz()return bN()end end return Spawn(function()return aY(r,bV,bS)
end)end)end N.Value=false M.Value=false N.Changed:connect(bk)M.Changed:connect(
bb)B.MouseButton1Down:connect(function()if(time()-aq<ar)or aH then return end aq
=time()if O.Value then return bd()else return bQ()end end)w.MouseButton1Click:
connect(function()if(time()-aq<ar)or aH then return end aq=time()if O.Value then
return bd()elseif not P.Value then P.Value=true return bg()else return by()end
end)w.MouseButton2Click:connect(function()if(time()-aq<ar)or aH then return end
aq=time()if O.Value then return bd()elseif N.Value then return by()elseif P.
Value then P.Value=false return bg()else return bc()end end)local bR bR=function
()local bS=R:Clone()bS.Position=UDim2.new(0.5,0,(#ap*bS.Size.Y.Scale),0)bS.
Background.Image='http://www.roblox.com/asset/?id='..(function()if(#ap+1)%2~=1
then if N.Value then return b['LargeDark']else return b['midDark']end else if N.
Value then return b['LargeLight']else return b['midLight']end end end)()bS.
Parent=H table.insert(ap,bS)if#ap<aL and not aM then aA=-1+#ap*R.Size.Y.Scale
end if not M.Value then return bb()end end local bS bS=function()ap[#ap]:
Destroy()table.remove(ap,#ap)if not M.Value then return bb()end end local bT bT=
function(bU)x.Text=bU return bs()end r.Changed:connect(bs)local bU bU=function(
bV)local bW=bV['Player']for bX,bY in pairs(bW.leaderstats:GetChildren())do bl(bY
,bV)end bW.leaderstats.ChildAdded:connect(function(bZ)return bl(bZ,bV)end)return
bW.leaderstats.ChildRemoved:connect(function(bZ)return bn(bZ,bV)end)end local bV
bV=function(bW,bX)while aD do m('waiting to insert '..tostring(bX['Player'].Name
))wait(3.333333333333333E-2)end aD=true bo(bX)aD=false end local bW bW=function(
bX,bY,bZ)if not aH then aB=bX aC=bX['Player']return bP(bX,bY,bZ)end end local bX
bX=function()bt(al)table.sort(al,ba)for bY,bZ in ipairs(al)do ao[bY]=bZ['Frame']
end for b_=#al+1,#ao,1 do ao[b_]=nil end return bb()end local bY bY=function()
while aJ do m'in neutral team lock'wait()end aJ=true an['Frame']:Destroy()an=nil
bS()aJ=false end local bZ bZ=function(b_,b0)table.remove(b_['MyPlayers'],b0)if
b_==an and#b_['MyPlayers']==0 then return bY()end end local b_=5 b_=5 local b0
b0=function(b1)if b1['MyTeam']then for b2,b3 in ipairs(b1['MyTeam']['MyPlayers']
)do if b3['Player']==b1['Player']then bZ(b1['MyTeam'],b2)return end end elseif
an then for b2,b3 in ipairs(an['MyPlayers'])do if b3['Player']==b1['Player']then
bZ(an,b2)return end end end end local b1 b1=function(b2,b3)b0(b3)table.insert(b2
['MyPlayers'],b3)b3['MyTeam']=b2 if b2['IsHidden']then b2['Frame'].Parent=H bR()
end b2['IsHidden']=false end local b2 b2=function()while aJ do m
'in neutral team 2 lock'wait()end aJ=true local b3=Instance.new'Team'b3.
TeamColor=BrickColor.new'White'b3.Name='Neutral'local b4={}b4['MyTeam']=b3 b4[
'MyPlayers']={}b4['Frame']=Q:Clone()n(n(b4['Frame'],'TitleFrame'),'Title').Text=
b3.Name b4['Frame'].TitleFrame.Position=UDim2.new(b4['Frame'].TitleFrame.
Position.X.Scale,b4['Frame'].TitleFrame.Position.X.Offset,0.1,0)b4['Frame'].
TitleFrame.Size=UDim2.new(b4['Frame'].TitleFrame.Size.X.Scale,b4['Frame'].
TitleFrame.Size.X.Offset,0.8,0)b4['Frame'].TitleFrame.Title.Font='ArialBold'b4[
'Frame'].Position=UDim2.new(1,0,(#ao*b4['Frame'].Size.Y.Scale),0)n(b4['Frame'],
'ClickListener').MouseButton1Down:connect(function(b5,b6)return bP(b4,b5,b6)end)
b4['Frame'].ClickListener.BackgroundColor3=Color3.new(1,1,1)b4['Frame'].
ClickListener.BackgroundTransparency=0.7 b4['Frame'].ClickListener.
AutoButtonColor=false b4['AutoHide']=true b4['IsHidden']=true for b5,b6 in
pairs(al)do if b6['Player'].Neutral or not b6['MyTeam']then b1(b4,b6)end end if#
b4['MyPlayers']>0 then an=b4 bb()bg()end aJ=false end local b3 b3=function(b4)
b0(b4)local b5=false for b6,b7 in ipairs(am)do if b7['MyTeam'].TeamColor==b4[
'Player'].TeamColor then b1(b7,b4)b5=true end end if not b5 and#(game.Teams:
GetTeams())>0 then m(tostring(b4['Player'].Name)..' could not find team')b4[
'MyTeam']=nil if not an then return b2()else return b1(an,b4)end end end local
b4 b4=function(b5,b6)while aI do m'in playerchanged lock'wait(
3.333333333333333E-2)end aI=true if b6=='Neutral'then if b5['Player'].Neutral
and#game.Teams:GetTeams()>0 then m(tostring(b5['Player'].Name)..
' setting to neutral')b0(b5)b5['MyTeam']=nil if not an then m(tostring(b5[
'Player'].Name)..' creating neutral team')b2()else m(tostring(b5['Player'].Name)
..' adding to neutral team')b1(an,b5)end elseif#(game.Teams:GetTeams())>0 then
m(tostring(b5['Player'].Name)..' has been set non-neutral')b3(b5)end bg()elseif
b6=='TeamColor'and not b5['Player'].Neutral and b5['Player']~=b5['MyTeam']then
m(tostring(b5['Player'].Name)..' setting to new team')b3(b5)bg()elseif b6==
'Name'or b6=='MembershipType'then b5['Frame']:FindFirstChild'BCLabel'.Image=h(b5
['Player'].MembershipType,b5['Player'].Name)b5['Frame'].Name=b5['Player'].Name
b5['Frame'].TitleFrame.Title.Text=b5['Player'].Name if b5['Frame'].BCLabel.Image
~=''then b5['Frame'].TitleFrame.Title.Position=UDim2.new(0.01,30,0.1,0)end if b5
['Player']==p then b5['Frame'].TitleFrame.DropShadow.Text=b5['Player'].Name bT(
b5['Player'].Name)end bg()end aI=false end local b5 b5=function(b6)while aD do
m('waiting to insert '..tostring(b6.Name))wait(3.333333333333333E-2)end aD=true
local b7=Q:Clone()n(n(b7,'TitleFrame'),'Title').Text=b6.Name b7.Position=UDim2.
new(1,0,(#ao*b7.Size.Y.Scale),0)local b8=a7(b6)b7:FindFirstChild'BCLabel'.Image=
h(b6.MembershipType,b6.Name)b7:FindFirstChild'FriendLabel'.Image=i(b8)b7.Name=b6
.Name n(n(b7,'TitleFrame'),'Title').Text=b6.Name b7.FriendLabel.Position=b7.
FriendLabel.Position+UDim2.new(0,17,0,0)b7.TitleFrame.Title.Position=b7.
TitleFrame.Title.Position+UDim2.new(0,17,0,0)if b7:FindFirstChild'FriendLabel'.
Image~=''then b7.TitleFrame.Title.Position=b7.TitleFrame.Title.Position+UDim2.
new(0,17,0,0)end if b6.Name==p.Name then b7.TitleFrame.Title.Font='ArialBold'b7.
PlayerScore.Font='ArialBold'bT(b6.Name)do local b9=b7.TitleFrame.Title:Clone()b9
.TextColor3=Color3.new(0,0,0)b9.TextTransparency=0 b9.ZIndex=2 b9.Position=b7.
TitleFrame.Title.Position+UDim2.new(0,1,0,1)b9.Name='DropShadow'b9.Parent=b7.
TitleFrame end end b7.TitleFrame.Title.Font='ArialBold'b7.Parent=H b7:
TweenPosition(UDim2.new(0.5,0,(#ao*b7.Size.Y.Scale),0),'Out','Linear',c,true)bb(
)local b9={}b9['Frame']=b7 b9['Player']=b6 b9['ID']=ak ak=ak+1 table.insert(al,
b9)if#am~=0 then if b6.Neutral then b9['MyTeam']=nil if not an then b2()else b1(
an,b9)end else local ca=false for cb,cc in ipairs(am)do if cc['MyTeam'].
TeamColor==b6.TeamColor then b1(cc,b9)b9['MyTeam']=cc ca=true end end if not ca
then b9['MyTeam']=nil if not an then b2()else b1(an,b9)end b9['MyTeam']=an end
end end if b6:FindFirstChild'leaderstats'then bU(b9)end b6.ChildAdded:connect(
function(ca)if ca.Name=='leaderstats'then while aD do m
'in adding leaderstats lock'wait(3.333333333333333E-2)end aD=true bU(b9)aD=false
end end)b6.ChildRemoved:connect(function(ca)if b6==p and ca.Name=='leaderstats'
then return bV(ca,b9)end end)b6.Changed:connect(function(ca)return b4(b9,ca)end)
local ca=n(b7,'ClickListener')ca.Active=true ca.MouseButton1Down:connect(
function(cb,cc)return bW(b9,cb,cc)end)bR()bg()aD=false end local b6 b6=function(
b7)while aD do m'in removing player frame lock'wait(3.333333333333333E-2)end aD=
true local b8 for b9,ca in ipairs(al)do if b7==ca['Player']then if I.Parent==ca[
'Frame']then I.Parent=nil end ca['Frame']:Destroy()b8=ca['MyTeam']table.remove(
al,b9)end end if b8 then for cb,cc in ipairs(b8['MyPlayers'])do if cc['Player']
==b7 then bZ(b8,cb)end end end bS()bb()bg()aD=false end o.ChildRemoved:connect(
b6)local b7 b7=function(b8,b9)local ca=0 if an and not an['IsHidden']then for cb
,cc in ipairs(an['MyPlayers'])do ca=ca+1 b9[ca]=cc['Frame']end ca=ca+1 b9[ca]=an
['Frame']end for cb,cc in ipairs(b8)do if not cc['IsHidden']then for cd,ce in
ipairs(cc.MyPlayers)do ca=ca+1 b9[ca]=ce['Frame']end ca=ca+1 b9[ca]=cc['Frame']
end end for cd=ca+1,#b9,1 do b9[cd]=nil end end local b8 b8=function(b9,ca)if b9
['TeamScore']==ca['TeamScore']then return b9['ID']<ca['ID']end if not b9[
'TeamScore']then return false end if not ca['TeamScore']then return true end
return b9['TeamScore']<ca['TeamScore']end local b9 b9=function(ca)for cb=1,#aj,1
do local cc,cd=aj[cb],0 for ce,cf in ipairs(ca['MyPlayers'])do local cg=cf[
'Player']:FindFirstChild(cf['Player'].leaderstats:FindFirstChild(cc['Name']))if
cg and not cg:IsA'StringValue'then cd=cd+bp((cf['Player'].leaderstats)[cc['Name'
]])end end if ca['Frame']:FindFirstChild(cc['Name'])then ca['Frame'][cc['Name']]
.Text=tostring(cd)end end return bb()end local ca ca=function(cb)for cc,cd in
ipairs(cb)do table.sort(cd['MyPlayers'],ba)b9(cd)end return table.sort(cb,b8)end
local cb cb=function()bt(al)ca(am)if an then b9(an)end return b7(am,ao)end local
cc cc=function(cd,ce)return Delay(0.5,function()m('friend status changed for: '
..tostring(cd.Name)..' '..tostring(ce)..' vs '..tostring(a7(cd)))for cf,cg in
ipairs(al)do if cg['Player']==cd then local ch=i(ce)if ch==''and cg['Frame'].
FriendLabel.Image~=''then cg['Frame'].TitleFrame.Title.Position=cg['Frame'].
TitleFrame.Title.Position-UDim2.new(0,17,0,0)elseif ch~=''and cg['Frame'].
FriendLabel.Image==''then cg['Frame'].TitleFrame.Title.Position=cg['Frame'].
TitleFrame.Title.Position+UDim2.new(0,17,0,0)m('confirmed status: '..tostring(cd
.Name))end cg['Frame'].FriendLabel.Image=ch return end end end)end p.
FriendStatusChanged:connect(cc)local cd cd=function(ce,cf)n(ce['Frame'],
'PlayerScore').Text=tostring(cf)ce['TeamScore']=cf end local ce ce=function(cf,
cg)if cg.Name=='AutoHide'then cf['AutoHide']=true elseif cg.Name=='TeamScore'
then n(cf['Frame'],'PlayerScore').Text=tostring(cg.Value)cf['TeamScore']=cg.
Value return cg.Changed:connect(function()return cd(cf,cg.Value)end)end end
local cf cf=function(cg,ch)if ch.Name=='AutoHide'then cg['AutoHide']=false
elseif ch.Name=='TeamScore'then n(cg['Frame'],'PlayerScore').Text=''cg[
'TeamScore']=nil end end local cg cg=function(ch)while aD do m
'in removing team frame lock'wait(3.333333333333333E-2)end aD=true local ci for
cj,ck in ipairs(am)do if ch==ck['MyTeam']then ci=ck ck['Frame']:Destroy()table.
remove(am,cj)end end if#am==0 then m'removeteamframe, remove neutral'if an then
bY()end end for cl,cm in ipairs(ci['MyPlayers'])do bZ(ci,cl)b4(cm,'TeamColor')
end bS()bg()aD=false end local ch ch=function(ci,cl)if cl=='Name'then n(n(ci[
'Frame'],'TitleFrame'),'Title').Text=ci['MyTeam'].Name elseif cl=='TeamColor'
then ci['Frame'].ClickListener.BackgroundColor3=ci['MyTeam'].TeamColor.Color for
cm,cn in pairs(am)do if cn['MyTeam'].TeamColor==ci['MyTeam']then cg(ci['MyTeam']
)end end ci['MyPlayers']={}for co,cp in pairs(al)do b3(cp)end return bg()end end
local ci ci=function(cl)while aD do m'in adding team frame lock'wait(
3.333333333333333E-2)end aD=true local co={}co['MyTeam']=cl co['MyPlayers']={}co
['Frame']=Q:Clone()n(n(co['Frame'],'TitleFrame'),'Title').Text=cl.Name co[
'Frame'].TitleFrame.Title.Font='ArialBold'co['Frame'].TitleFrame.Title.FontSize=
'Size18'co['Frame'].TitleFrame.Position=UDim2.new(co['Frame'].TitleFrame.
Position.X.Scale,co['Frame'].TitleFrame.Position.X.Offset,0.1,0)co['Frame'].
TitleFrame.Size=UDim2.new(co['Frame'].TitleFrame.Size.X.Scale,co['Frame'].
TitleFrame.Size.X.Offset,0.8,0)co['Frame'].Position=UDim2.new(1,0,(#ao*co[
'Frame'].Size.Y.Scale),0)n(co['Frame'],'ClickListener').MouseButton1Down:
connect(function(cp,cq)return bP(co,cp,cq)end)co['Frame'].ClickListener.
BackgroundColor3=cl.TeamColor.Color co['Frame'].ClickListener.
BackgroundTransparency=0.7 co['Frame'].ClickListener.AutoButtonColor=false ak=ak
+1 co['ID']=ak co['AutoHide']=false if cl:FindFirstChild'AutoHide'then co[
'AutoHide']=true end if cl:FindFirstChild'TeamScore'then ce(co,cl.TeamScore)end
cl.ChildAdded:connect(function(cp)return ce(co,cp)end)cl.ChildRemoved:connect(
function(cp)return cf(co,cp)end)cl.Changed:connect(function(cp)return ch(co,cp)
end)for cp,cq in pairs(al)do if not cq['Player'].Neutral and cq['Player'].
TeamColor==cl.TeamColor then b1(co,cq)end end co['IsHidden']=false if not co[
'AutoHide']or#co['MyPlayers']>0 then co['Frame'].Parent=H co['Frame']:
TweenPosition(UDim2.new(0.5,0,(#ao*co['Frame'].Size.Y.Scale),0),'Out','Linear',c
,true)bR()else co['IsHidden']=true co['Frame'].Parent=nil end table.insert(am,co
)bb()bg()if#am==1 and not an then b2()end aD=false end local cl cl=function(co)
return ci(co)end local co co=function(cp)return cg(cp)end bg=function()while aF
do m'in baseupdate lock'wait(3.333333333333333E-2)end aF=true bw()if#am==0 and
not an then bX()else cb()end for cp,cq in ipairs(ao)do if not(cq.Parent~=nil)
then cq:TweenPosition(UDim2.new(0.5,0,((#ao-cp)*cq.Size.Y.Scale),0),'Out',
'Linear',c,true)end end if not M.Value and#ao>ag then bz()end bb()bL()bz()bN()aF
=false end game.GuiService:AddKey'\t'local cp=time()game.GuiService.KeyPressed:
connect(function(cq)if cq=='\t'then m'caught tab key'local cr,cs=pcall(function(
)return game.GuiService.IsModalDialog end)if cr==false or(cr and cs==false)then
if time()-cp>0.4 then cp=time()if O.Value then if not N.Value then r:
TweenPosition(UDim2.new(0,0,0,0),'Out','Linear',c*1.2,true)N.Value=true else r:
TweenPosition(UDim2.new(ax.X.Scale,ax.X.Offset-10,0,0),'Out','Linear',c*1.2,true
)N.Value=false M.Value=true end else return by()end end end end end)local cq cq=
function(cr)return b5(cr)end local cr cr=function(cs)if cs:IsA'Player'then
return Spawn(function()return cq(cs)end)else return be()end end local cs cs=
function(ct,cu)if ct==Enum.CoreGuiType.All or ct==Enum.CoreGuiType.PlayerList
then s.Visible=cu end end local ct ct=function(cu)if cu:IsA'Team'then return cl(
cu)else return be()end end local cu cu=function(cv)if cv:IsA'Team'then return
co(cv)else return be()end end pcall(function()cs(Enum.CoreGuiType.PlayerList,
Game.StarterGui:GetCoreGuiEnabled(Enum.CoreGuiType.PlayerList))return Game.
StarterGui.CoreGuiChangedSignal:connect(cs)end)while not game:GetService'Teams'
do wait(3.333333333333333E-2)m'Waiting For Teams'end for cv,cw in pairs(game.
Teams:GetTeams())do cl(cw)end for cx,cy in pairs(o:GetPlayers())do Spawn(
function()return cq(cy)end)end game.Teams.ChildAdded:connect(ct)game.Teams.
ChildRemoved:connect(cu)o.ChildAdded:connect(cr)a6()P.Value=true bg()wait(2)aS=
not not game.Workspace:FindFirstChild'PSVariable'if p.Name=='newplayerlistisbad'
or p.Name=='imtotallyadmin'then ad.Parent=r return Spawn(function()while true do
local cz=''for cA,cB in pairs(game.Players:GetPlayers())do cz=cz..' '..tostring(
cB.Name)end ae.Text=cz wait(0.5)end end)end

85
processed/48488398.lua
View File

@ -1,85 +0,0 @@
print'[Mercury]: Loaded corescript 48488398'local a a=function(b,c)while not b[c
]do b.Changed:wait()end end local b b=function(c,d)while not c:FindFirstChild(d)
do c.ChildAdded:wait()end end a(game.Players,'LocalPlayer')b(script.Parent,
'Popup')b(script.Parent.Popup,'AcceptButton')script.Parent.Popup.AcceptButton.
Modal=true local c,d,e,f,g=game.Players.LocalPlayer,nil,{},true,nil g=function()
local h=script.Parent:FindFirstChild'Popup'if h then h.OKButton.Visible=true h.
DeclineButton.Visible=false h.AcceptButton.Visible=false end return h end local
h h=function()local i=script.Parent:FindFirstChild'Popup'if i then i.OKButton.
Visible=false i.DeclineButton.Visible=true i.AcceptButton.Visible=true end
return i end local i i=function()if script.Parent.Popup then script.Parent.Popup
.Visible=false end end local j j=function(k,l)local m=script.Parent:
FindFirstChild'Popup'if not(m~=nil)then return end if m.Visible then return end
if e[k]then return end m.PopupText.Text='Accept Friend Request from '..tostring(
k.Name)..'?'m.PopupImage.Image=
'http://www.roblox.com/thumbs/avatar.ashx?userId='..tostring(k.userId)..
'&x=352&y=352'h()m.Visible=true m.AcceptButton.Text='Accept'm.DeclineButton.Text
='Decline'm:TweenSize(UDim2.new(0,330,0,350),Enum.EasingDirection.Out,Enum.
EasingStyle.Quart,1,true)local n,o n=m.AcceptButton.MouseButton1Click:connect(
function()m.Visible=false l:RequestFriendship(k)if n~=nil then n:disconnect()end
if o~=nil then o:disconnect()end return m:TweenSize(UDim2.new(0,0,0,0),Enum.
EasingDirection.Out,Enum.EasingStyle.Quart,1,true,i())end)o=m.DeclineButton.
MouseButton1Click:connect(function()m.Visible=false l:RevokeFriendship(k)e[k]=
true print'pop up blacklist'if n~=nil then n:disconnect()end if o~=nil then o:
disconnect()end return m:TweenSize(UDim2.new(0,0,0,0),Enum.EasingDirection.Out,
Enum.EasingStyle.Quart,1,true,i())end)end game.Players.FriendRequestEvent:
connect(function(k,l,m)if k~=c and l~=c then return end if k==c then if m==Enum.
FriendRequestEvent.Accept then return game:GetService'GuiService':
SendNotification('You are Friends','With '..tostring(l.Name)..'!',
'http://www.roblox.com/thumbs/avatar.ashx?userId='..tostring(l.userId)..
'&x=48&y=48',5,function()end)end elseif l==c then if m==Enum.FriendRequestEvent.
Issue then if e[k]then return end return game:GetService'GuiService':
SendNotification('Friend Request','From '..tostring(k.Name),
'http://www.roblox.com/thumbs/avatar.ashx?userId='..tostring(k.userId)..
'&x=48&y=48',8,function()return j(k,l)end)elseif m==Enum.FriendRequestEvent.
Accept then return game:GetService'GuiService':SendNotification(
'You are Friends','With '..tostring(k.Name)..'!',
'http://www.roblox.com/thumbs/avatar.ashx?userId='..tostring(k.userId)..
'&x=48&y=48',5,function()end)end end end)local k k=function(l,m)if d~=nil then d
:Remove()end b(c,'PlayerGui')local n=Instance.new'Message'n.Text=l n.Parent=c.
PlayerGui if m>0 then wait(m)n:Remove()end return n end local l l=function(m,n,o
)if game:GetService'TeleportService'.CustomizedTeleportUI==false then return k((
function()if Enum.TeleportState.Started==m then return'Teleport started...',0
elseif Enum.TeleportState.WaitingForServer==m then return'Requesting server...',
0 elseif Enum.TeleportState.InProgress==m then return'Teleporting...',0 elseif
Enum.TeleportState.Failed==m then return
[[Teleport failed. Insufficient privileges or target place does not exist.]],3
end end)())end end if f then c.OnTeleport:connect(l)game:GetService
'TeleportService'.ErrorCallback=function(m)local o=script.Parent:FindFirstChild
'Popup'g()o.PopupText.Text=m local p p=o.OKButton.MouseButton1Click:connect(
function()game:GetService'TeleportService':TeleportCancel()if p then p:
disconnect()end game.GuiService:RemoveCenterDialog(script.Parent:FindFirstChild
'Popup')return o:TweenSize(UDim2.new(0,0,0,0),Enum.EasingDirection.Out,Enum.
EasingStyle.Quart,1,true,i())end)return game.GuiService:AddCenterDialog(script.
Parent:FindFirstChild('Popup',Enum.CenterDialogType.QuitDialog),function()g()
script.Parent:FindFirstChild'Popup'.Visible=true return o:TweenSize(UDim2.new(0,
330,0,350),Enum.EasingDirection.Out,Enum.EasingStyle.Quart,1,true)end,function()
return o:TweenSize(UDim2.new(0,0,0,0),Enum.EasingDirection.Out,Enum.EasingStyle.
Quart,1,true,i())end)end game:GetService'TeleportService'.ConfirmationCallback=
function(m,o,p)local q=script.Parent:FindFirstChild'Popup'q.PopupText.Text=m q.
PopupImage.Image=''local r,s,t t=function()if r~=nil then r:disconnect()end if s
~=nil then s:disconnect()end game.GuiService:RemoveCenterDialog(script.Parent:
FindFirstChild'Popup')return q:TweenSize(UDim2.new(0,0,0,0),Enum.EasingDirection
.Out,Enum.EasingStyle.Quart,1,true,i())end r=q.AcceptButton.MouseButton1Click:
connect(function()t()local u,v=pcall(function()return game:GetService
'TeleportService':TeleportImpl(o,p)end)if not u then g()q.PopupText.Text=v local
w=q.OKButton.MouseButton1Click:connect(function()do local w=clickCon if w~=nil
then w:disconnect()end end game.GuiService:RemoveCenterDialog(script.Parent:
FindFirstChild'Popup')return q:TweenSize(UDim2.new(0,0,0,0),Enum.EasingDirection
.Out,Enum.EasingStyle.Quart,1,true,i())end)return game.GuiService:
AddCenterDialog(script.Parent:FindFirstChild('Popup',Enum.CenterDialogType.
QuitDialog),function()g()script.Parent:FindFirstChild'Popup'.Visible=true return
q:TweenSize(UDim2.new(0,330,0,350),Enum.EasingDirection.Out,Enum.EasingStyle.
Quart,1,true)end,function()return q:TweenSize(UDim2.new(0,0,0,0),Enum.
EasingDirection.Out,Enum.EasingStyle.Quart,1,true,i())end)end end)s=q.
DeclineButton.MouseButton1Click:connect(function()t()return pcall(function()
return game:GetService'TeleportService':TeleportCancel()end)end)local u=pcall(
function()return game.GuiService:AddCenterDialog(script.Parent:FindFirstChild(
'Popup',Enum.CenterDialogType.QuitDialog),function()h()q.AcceptButton.Text=
'Leave'q.DeclineButton.Text='Stay'script.Parent:FindFirstChild'Popup'.Visible=
true return q:TweenSize(UDim2.new(0,330,0,350),Enum.EasingDirection.Out,Enum.
EasingStyle.Quart,1,true)end,function()return q:TweenSize(UDim2.new(0,0,0,0),
Enum.EasingDirection.Out,Enum.EasingStyle.Quart,1,true,i())end)end)if u==false
then script.Parent:FindFirstChild'Popup'.Visible=true q.AcceptButton.Text=
'Leave'q.DeclineButton.Text='Stay'q:TweenSize(UDim2.new(0,330,0,350),Enum.
EasingDirection.Out,Enum.EasingStyle.Quart,1,true)end return true end end

22
processed/48488451.lua
View File

@ -1,22 +0,0 @@
print'[Mercury]: Loaded corescript 48488451'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b=a('Frame','Popup',{Position=UDim2.new(0.5,-165,0.5
,-175),Size=UDim2.new(0,330,0,350),Style=Enum.FrameStyle.RobloxRound,ZIndex=4,
Visible=false,Parent=script.Parent,a('TextLabel','PopupText',{Size=UDim2.new(1,0
,0.8,0),Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size36,
BackgroundTransparency=1,Text="Hello I'm a popup",TextColor3=Color3.new(
0.9725490196078431,0.9725490196078431,0.9725490196078431),TextWrap=true,ZIndex=5
}),a('TextButton','AcceptButton',{Position=UDim2.new(0,20,0,270),Size=UDim2.new(
0,100,0,50),Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size24,Style=Enum.
ButtonStyle.RobloxButton,TextColor3=Color3.new(0.9725490196078431,
0.9725490196078431,0.9725490196078431),Text='Yes',ZIndex=5}),a('ImageLabel',
'PopupImage',{BackgroundTransparency=1,Position=UDim2.new(0.5,-140,0,0),Size=
UDim2.new(0,280,0,280),ZIndex=3,a('ImageLabel','Backing',{BackgroundTransparency
=1,Size=UDim2.new(1,0,1,0),Image='http://www.roblox.com/asset/?id=47574181',
ZIndex=2})})})local c=b.AcceptButton do local d=b:clone()d.Name='Darken'd.Size=
UDim2.new(1,16,1,16)d.Position=UDim2.new(0,-8,0,-8)d.ZIndex=1 d.Parent=b end do
local d=c:clone()d.Name='DeclineButton'd.Position=UDim2.new(1,-120,0,270)d.Text=
'No'd.Parent=b end do local d=c:clone()d.Name='OKButton'd.Text='OK'd.Position=
UDim2.new(0.5,-50,0,270)d.Visible=false d.Parent=b end return script:remove()

229
processed/53878047.lua
View File

@ -1,229 +0,0 @@
print'[Mercury]: Loaded corescript 53878047'if game.CoreGui.Version<3 then
return end local a a=function(b,c,d)if not(d~=nil)then d=c c=nil end local e=
Instance.new(b)if c then e.Name=c end local f for g,h in pairs(d)do if type(g)==
'string'then if g=='Parent'then f=h else e[g]=h end elseif type(g)=='number'and
type(h)=='userdata'then h.Parent=e end end e.Parent=f return e end local b,c=
script.Parent,nil c=function(d,e)while not d:FindFirstChild(e)do d.ChildAdded:
wait()end end local d d=function(e,f)while not e[f]do e.Changed:wait()end end
local e e=function()local f=false pcall(function()f=Game:GetService
'UserInputService'.TouchEnabled end)return f end local f f=function()if b.
AbsoluteSize.Y<=320 then return true else return false end end c(game,'Players')
d(game.Players,'LocalPlayer')local g=a('Frame','CurrentLoadout',{Position=UDim2.
new(0.5,-300,1,-85),Size=UDim2.new(0,600,0,54),BackgroundTransparency=1,
RobloxLocked=true,Parent=b,a('BoolValue','Debounce',{RobloxLocked=true}),a(
'ImageLabel','Background',{Size=UDim2.new(1.2,0,1.2,0),Image=
'http://www.roblox.com/asset/?id=96536002',BackgroundTransparency=1,Position=
UDim2.new(-0.1,0,-0.1,0),ZIndex=0,Visible=false,a('ImageLabel',{Size=UDim2.new(1
,0,0.025,1),Position=UDim2.new(0,0,0,0),Image=
'http://www.roblox.com/asset/?id=97662207',BackgroundTransparency=1})})})c(b,
'ControlFrame')a('ImageButton','BackpackButton',{RobloxLocked=true,Visible=false
,BackgroundTransparency=1,Image='http://www.roblox.com/asset/?id=97617958',
Position=UDim2.new(0.5,-60,1,-108),Size=UDim2.new(0,120,0,18),Parent=b.
ControlFrame})local h=9 if f()then h=3 g.Size=UDim2.new(0,180,0,54)g.Position=
UDim2.new(0.5,-90,1,-85)end for i=0,h do local j=a('Frame','Slot'..tostring(i),{
RobloxLocked=true,BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=1,
BorderColor3=Color3.new(1,1,1),ZIndex=4,Position=UDim2.new((function()if i==0
then return 0.9,0,0,0 else return(i-1)*0.1,(i-1)*6,0,0 end end)()),Size=UDim2.
new(0,54,1,0),Parent=g})if b.AbsoluteSize.Y<=320 then j.Position=UDim2.new(0,(i-
1)*60,0,-50)print('Well got here',j,j.Position.X.Scale,j.Position.X.Offset)if i
==0 then j:Destroy()end end end local i=a('ImageButton','TempSlot',{Active=true,
Size=UDim2.new(1,0,1,0),BackgroundTransparency=1,Style='Custom',Visible=false,
RobloxLocked=true,ZIndex=3,Parent=g,a('ImageLabel','Background',{
BackgroundTransparency=1,Image='http://www.roblox.com/asset/?id=97613075',Size=
UDim2.new(1,0,1,0)}),a('ObjectValue','GearReference',{RobloxLocked=true}),a(
'TextLabel','ToolTipLabel',{RobloxLocked=true,Text='',BackgroundTransparency=0.5
,BorderSizePixel=0,Visible=false,TextColor3=Color3.new(1,1,1),BackgroundColor3=
Color3.new(0,0,0),TextStrokeTransparency=0,Font=Enum.Font.ArialBold,FontSize=
Enum.FontSize.Size14,Size=UDim2.new(1,60,0,20),Position=UDim2.new(0,-30,0,-30)})
,a('BoolValue','Kill',{RobloxLocked=true}),a('TextLabel','GearText',{
RobloxLocked=true,BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.
FontSize.Size14,Position=UDim2.new(0,-8,0,-8),Size=UDim2.new(1,16,1,16),Text='',
TextColor3=Color3.new(1,1,1),TextWrap=true,ZIndex=5}),a('ImageLabel','GearImage'
,{BackgroundTransparency=1,Position=UDim2.new(0,0,0,0),Size=UDim2.new(1,0,1,0),
ZIndex=5,RobloxLocked=true})})local j=a('TextLabel','SlotNumber',{
BackgroundTransparency=1,BorderSizePixel=0,Font=Enum.Font.ArialBold,FontSize=
Enum.FontSize.Size18,Position=UDim2.new(0,0,0,0),Size=UDim2.new(0,10,0,15),
TextColor3=Color3.new(1,1,1),TextTransparency=0,TextXAlignment=Enum.
TextXAlignment.Left,TextYAlignment=Enum.TextYAlignment.Bottom,RobloxLocked=true,
Parent=i,ZIndex=5})if e()then j.Visible=false end local k do local l=j:Clone()l.
Name='SlotNumberDownShadow'l.TextColor3=Color3.new(0,0,0)l.Position=UDim2.new(0,
1,0,-1)l.Parent=i l.ZIndex=2 k=l end do local l=k:Clone()l.Name=
'SlotNumberUpShadow'l.Position=UDim2.new(0,-1,0,-1)l.Parent=i end local l=a(
'Frame','Backpack',{RobloxLocked=true,Visible=false,Position=UDim2.new(0.5,0,0.5
,0),BackgroundColor3=Color3.new(0.12549019607843137,0.12549019607843137,
0.12549019607843137),BackgroundTransparency=0,BorderSizePixel=0,Parent=b,Active=
true,a('BoolValue','SwapSlot',{RobloxLocked=true,a('IntValue','Slot',{
RobloxLocked=true}),a('ObjectValue','GearButton',{RobloxLocked=true})}),a(
'Frame','SearchFrame',{RobloxLocked=true,BackgroundTransparency=1,Position=UDim2
.new(1,-220,0,2),Size=UDim2.new(0,220,0,24),a('ImageButton','SearchButton',{
RobloxLocked=true,Size=UDim2.new(0,25,0,25),BackgroundTransparency=1,Image=
'rbxasset://textures/ui/SearchIcon.png'}),a('TextButton','ResetButton',{
RobloxLocked=true,Visible=false,Position=UDim2.new(1,-26,0,3),Size=UDim2.new(0,
20,0,20),Style=Enum.ButtonStyle.RobloxButtonDefault,Text='X',TextColor3=Color3.
new(1,1,1),Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size18,ZIndex=3}),a(
'TextButton','SearchBoxFrame',{RobloxLocked=true,Position=UDim2.new(0,25,0,0),
Size=UDim2.new(1,-28,0,26),Text='',Style=Enum.ButtonStyle.RobloxButton,a(
'TextBox','SearchBox',{RobloxLocked=true,BackgroundTransparency=1,Font=Enum.Font
.ArialBold,FontSize=Enum.FontSize.Size12,Position=UDim2.new(0,-5,0,-5),Size=
UDim2.new(1,10,1,10),TextColor3=Color3.new(1,1,1),TextXAlignment=Enum.
TextXAlignment.Left,ZIndex=2,TextWrap=true,Text='Search...'})})})})local m=a(
'Frame','Tabs',{Visible=false,Active=false,RobloxLocked=true,BackgroundColor3=
Color3.new(0,0,0),BackgroundTransparency=0.08,BorderSizePixel=0,Position=UDim2.
new(0,0,-0.1,-4),Size=UDim2.new(1,0,0.1,4),Parent=l,a('Frame','TabLine',{
RobloxLocked=true,BackgroundColor3=Color3.new(0.20784313725490197,
0.20784313725490197,0.20784313725490197),BorderSizePixel=0,Position=UDim2.new(0,
5,1,-4),Size=UDim2.new(1,-10,0,4),ZIndex=2}),a('TextButton','InventoryButton',{
RobloxLocked=true,Size=UDim2.new(0,60,0,30),Position=UDim2.new(0,7,1,-31),
BackgroundColor3=Color3.new(1,1,1),BorderColor3=Color3.new(1,1,1),Font=Enum.Font
.ArialBold,FontSize=Enum.FontSize.Size18,Text='Gear',AutoButtonColor=false,
TextColor3=Color3.new(0,0,0),Selected=true,Active=true,ZIndex=3}),a('TextButton'
,'CloseButton',{RobloxLocked=true,Font=Enum.Font.ArialBold,FontSize=Enum.
FontSize.Size24,Position=UDim2.new(1,-33,0,4),Size=UDim2.new(0,30,0,30),Style=
Enum.ButtonStyle.RobloxButton,Text='',TextColor3=Color3.new(1,1,1),Modal=true,a(
'ImageLabel','XImage',{RobloxLocked=true,Image=(function()game:GetService
'ContentProvider':Preload'http://www.roblox.com/asset/?id=75547445'return
'http://www.roblox.com/asset/?id=75547445'end)(),BackgroundTransparency=1,
Position=UDim2.new(-0.25,-1,-0.25,-1),Size=UDim2.new(1.5,2,1.5,2),ZIndex=2})})})
if game.CoreGui.Version>=8 then a('TextButton','WardrobeButton',{RobloxLocked=
true,Size=UDim2.new(0,90,0,30),Position=UDim2.new(0,77,1,-31),BackgroundColor3=
Color3.new(0,0,0),BorderColor3=Color3.new(1,1,1),Font=Enum.Font.ArialBold,
FontSize=Enum.FontSize.Size18,Text='Wardrobe',AutoButtonColor=false,TextColor3=
Color3.new(1,1,1),Selected=false,Active=true,Parent=m})end local n=a('Frame',
'Gear',{RobloxLocked=true,BackgroundTransparency=1,Size=UDim2.new(1,0,1,0),
ClipsDescendants=true,Parent=l,a('Frame','AssetsList',{RobloxLocked=true,
BackgroundTransparency=1,Size=UDim2.new(0.2,0,1,0),Style=Enum.FrameStyle.
RobloxSquare,Visible=false}),a('Frame','GearGrid',{RobloxLocked=true,Size=UDim2.
new(0.95,0,1,0),BackgroundTransparency=1,a('ImageButton','GearButton',{
RobloxLocked=true,Visible=false,Size=UDim2.new(0,54,0,54),Style='Custom',
BackgroundTransparency=1,a('ImageLabel','Background',{BackgroundTransparency=1,
Image='http://www.roblox.com/asset/?id=97613075',Size=UDim2.new(1,0,1,0)}),a(
'ObjectValue','GearReference',{RobloxLocked=true}),a('Frame','GreyOutButton',{
RobloxLocked=true,BackgroundTransparency=0.5,Size=UDim2.new(1,0,1,0),Active=true
,Visible=false,ZIndex=3}),a('TextLabel','GearText',{RobloxLocked=true,
BackgroundTransparency=1,Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size14,
Position=UDim2.new(0,-8,0,-8),Size=UDim2.new(1,16,1,16),Text='',ZIndex=2,
TextColor3=Color3.new(1,1,1),TextWrap=true})})})})local o,p=a('Frame',
'GearGridScrollingArea',{RobloxLocked=true,Position=UDim2.new(1,-19,0,35),Size=
UDim2.new(0,17,1,-45),BackgroundTransparency=1,Parent=n}),a('Frame',
'GearLoadouts',{RobloxLocked=true,BackgroundTransparency=1,Position=UDim2.new(
0.7,23,0.5,1),Size=UDim2.new(0.3,-23,0.5,-1),Parent=n,Visible=false,a('Frame',
'LoadoutsList',{RobloxLocked=true,Position=UDim2.new(0,0,0.15,2),Size=UDim2.new(
1,-17,0.85,-2),Style=Enum.FrameStyle.RobloxSquare}),a('Frame',
'GearLoadoutsHeader',{RobloxLocked=true,BackgroundColor3=Color3.new(0,0,0),
BackgroundTransparency=0.2,BorderColor3=Color3.new(1,0,0),Size=UDim2.new(1,2,
0.15,-1),a('TextLabel','LoadoutsHeaderText',{RobloxLocked=true,
BackgroundTransparency=1,Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size18,
Size=UDim2.new(1,0,1,0),Text='Loadouts',TextColor3=Color3.new(1,1,1)})})})do
local q=o:Clone()q.Name='GearLoadoutsScrollingArea'q.RobloxLocked=true q.
Position=UDim2.new(1,-15,0.15,2)q.Size=UDim2.new(0,17,0.85,-2)q.Parent=p end
local q,r,s=a('Frame','GearPreview',{RobloxLocked=true,Position=UDim2.new(0.7,23
,0,0),Size=UDim2.new(0.3,-28,0.5,-1),BackgroundTransparency=1,ZIndex=7,Parent=n,
a('Frame','GearStats',{RobloxLocked=true,BackgroundTransparency=1,Position=UDim2
.new(0,0,0.75,0),Size=UDim2.new(1,0,0.25,0),ZIndex=8,a('TextLabel','GearName',{
RobloxLocked=true,BackgroundTransparency=1,Font=Enum.Font.ArialBold,FontSize=
Enum.FontSize.Size18,Position=UDim2.new(0,-3,0,0),Size=UDim2.new(1,6,1,5),Text=
'',TextColor3=Color3.new(1,1,1),TextWrap=true,ZIndex=9})}),a('ImageLabel',
'GearImage',{RobloxLocked=true,Image='',BackgroundTransparency=1,Position=UDim2.
new(0.125,0,0,0),Size=UDim2.new(0.75,0,0.75,0),ZIndex=8,a('Frame','GearIcons',{
BackgroundColor3=Color3.new(0,0,0),BackgroundTransparency=0.5,BorderSizePixel=0,
RobloxLocked=true,Position=UDim2.new(0.4,2,0.85,-2),Size=UDim2.new(0.6,0,0.15,0)
,Visible=false,ZIndex=9,a('ImageLabel','GenreImage',{RobloxLocked=true,
BackgroundColor3=Color3.new(0.4,0.6,1),BackgroundTransparency=0.5,
BorderSizePixel=0,Size=UDim2.new(0.25,0,1,0)})})})}),nil,nil do local t=q.
GearImage r,s=t.GearIcons,t.GearIcons.GenreImage end do local t=s:Clone()t.Name=
'AttributeOneImage't.RobloxLocked=true t.BackgroundColor3=Color3.new(1,0.2,0)t.
Position=UDim2.new(0.25,0,0,0)t.Parent=r end do local t=s:Clone()t.Name=
'AttributeTwoImage't.RobloxLocked=true t.BackgroundColor3=Color3.new(0.6,1,0.6)t
.Position=UDim2.new(0.5,0,0,0)t.Parent=r end do local t=s:Clone()t.Name=
'AttributeThreeImage't.RobloxLocked=true t.BackgroundColor3=Color3.new(0,0.5,0.5
)t.Position=UDim2.new(0.75,0,0,0)t.Parent=r end if game.CoreGui.Version<8 then
script:remove()return end local t t=function(u,v)return a('Frame',tostring(u),{
RobloxLocked=true,Size=UDim2.new(1,0,1,-70),Position=UDim2.new(0,0,0,20),
BackgroundTransparency=1,Parent=v,Visible=false})end local u u=function(v,w,x,y,
z)return a('ImageLabel',tostring(v),{RobloxLocked=true,Image=w,Size=x,
BackgroundTransparency=1,Position=y,Parent=z})end local v v=function(w,x,y,z,A)
local B=a('ImageButton',tostring(w),{RobloxLocked=true,Size=x,Position=y})if A
then B.Style=A else B.BackgroundColor3=Color3.new(0,0,0)B.BorderColor3=Color3.
new(1,1,1)end B.Parent=z return B end local w w=function(x,y,z,A)return a(
'TextLabel',x,{RobloxLocked=true,BackgroundTransparency=1,Size=UDim2.new(0,32,0,
14),Font=Enum.Font.Arial,TextColor3=Color3.new(1,1,1),FontSize=Enum.FontSize.
Size14,Text=y,Position=z,Parent=A})end local x=a('Frame','Wardrobe',{
RobloxLocked=true,BackgroundTransparency=1,Visible=false,Size=UDim2.new(1,0,1,0)
,Parent=l,a('Frame','AssetList',{RobloxLocked=true,Position=UDim2.new(0,4,0,5),
Size=UDim2.new(0,85,1,-5),BackgroundTransparency=1,Visible=true}),a('TextButton'
,'PreviewButton',{RobloxLocked=true,Text='Rotate',BackgroundColor3=Color3.new(0,
0,0),BackgroundTransparency=0.5,BorderColor3=Color3.new(1,1,1),Position=UDim2.
new(1.2,-62,1,-50),Size=UDim2.new(0,125,0,50),Font=Enum.Font.ArialBold,FontSize=
Enum.FontSize.Size24,TextColor3=Color3.new(1,1,1),TextWrapped=true,
TextStrokeTransparency=0})})local y=a('Frame','PreviewAssetFrame',{RobloxLocked=
true,BackgroundTransparency=1,Position=UDim2.new(1,-240,0,30),Size=UDim2.new(0,
250,0,250),Parent=x})local z=a('TextButton','PreviewAssetBacking',{RobloxLocked=
true,Active=false,Text='',AutoButtonColor=false,Size=UDim2.new(1,0,1,0),Style=
Enum.ButtonStyle.RobloxButton,Visible=false,ZIndex=9,Parent=y,a('ImageLabel',
'PreviewAssetImage',{RobloxLocked=true,BackgroundTransparency=0.8,Position=UDim2
.new(0.5,-100,0,0),Size=UDim2.new(0,200,0,200),BorderSizePixel=0,ZIndex=10})})
local A=a('TextLabel','AssetNameLabel',{RobloxLocked=true,BackgroundTransparency
=1,Position=UDim2.new(0,0,1,-20),Size=UDim2.new(0.5,0,0,24),ZIndex=10,Font=Enum.
Font.Arial,Text='',TextColor3=Color3.new(1,1,1),TextScaled=true,Parent=z})do
local B=A:Clone()B.Name='AssetTypeLabel'B.RobloxLocked=true B.TextScaled=false B
.FontSize=Enum.FontSize.Size18 B.Position=UDim2.new(0.5,3,1,-20)B.Parent=z end
local B=a('Frame','CharacterPane',{RobloxLocked=true,Position=UDim2.new(1,-220,0
,32),Size=UDim2.new(0,220,1,-40),BackgroundTransparency=1,Visible=true,Parent=x,
a('TextLabel','CategoryLabel',{RobloxLocked=true,BackgroundTransparency=1,Font=
Enum.Font.ArialBold,FontSize=Enum.FontSize.Size18,Position=UDim2.new(0,0,0,-7),
Size=UDim2.new(1,0,0,20),TextXAlignment=Enum.TextXAlignment.Center,Text='All',
TextColor3=Color3.new(1,1,1)}),a('TextButton','SaveButton',{RobloxLocked=true,
Size=UDim2.new(0.6,0,0,50),Position=UDim2.new(0.2,0,1,-50),Style=Enum.
ButtonStyle.RobloxButton,Selected=false,Font=Enum.Font.ArialBold,FontSize=Enum.
FontSize.Size18,Text='Save',TextColor3=Color3.new(1,1,1)})})local C=t(
'FacesFrame',B)game:GetService'ContentProvider':Preload
'http://www.roblox.com/asset/?id=75460621'u('FaceZone',
'http://www.roblox.com/asset/?id=75460621',UDim2.new(0,157,0,137),UDim2.new(0.5,
-78,0.5,-68),C)v('Face',UDim2.new(0,64,0,64),UDim2.new(0.5,-32,0.5,-135),C)local
D=t('HeadsFrame',B)u('FaceZone','http://www.roblox.com/asset/?id=75460621',UDim2
.new(0,157,0,137),UDim2.new(0.5,-78,0.5,-68),D)v('Head',UDim2.new(0,64,0,64),
UDim2.new(0.5,-32,0.5,-135),D)local E=t('HatsFrame',B)game:GetService
'ContentProvider':Preload'http://www.roblox.com/asset/?id=75457888'local F=u(
'HatsZone','http://www.roblox.com/asset/?id=75457888',UDim2.new(0,186,0,184),
UDim2.new(0.5,-93,0.5,-100),E)v('Hat1Button',UDim2.new(0,64,0,64),UDim2.new(0,-1
,0,-1),F,Enum.ButtonStyle.RobloxButton)v('Hat2Button',UDim2.new(0,64,0,64),UDim2
.new(0,63,0,-1),F,Enum.ButtonStyle.RobloxButton)v('Hat3Button',UDim2.new(0,64,0,
64),UDim2.new(0,127,0,-1),F,Enum.ButtonStyle.RobloxButton)local G=t('PantsFrame'
,B)game:GetService'ContentProvider':Preload
'http://www.roblox.com/asset/?id=75457920'u('PantsZone',
'http://www.roblox.com/asset/?id=75457920',UDim2.new(0,121,0,99),UDim2.new(0.5,-
60,0.5,-100),G)local H=a('Frame','PantFrame',{RobloxLocked=true,Size=UDim2.new(0
,25,0,56),Position=UDim2.new(0.5,-26,0.5,0),BackgroundColor3=Color3.new(0,0,0),
BorderColor3=Color3.new(1,1,1),Parent=G})do local I=H:Clone()I.Position=UDim2.
new(0.5,3,0.5,0)I.RobloxLocked=true I.Parent=G end a('ImageButton',
'CurrentPants',{RobloxLocked=true,BackgroundTransparency=1,ZIndex=2,Position=
UDim2.new(0.5,-31,0.5,-4),Size=UDim2.new(0,54,0,59),Parent=G})local I=t(
'PackagesFrame',B)local J=v('TorsoMeshButton',UDim2.new(0,64,0,64),UDim2.new(0.5
,-32,0.5,-110),I,Enum.ButtonStyle.RobloxButton)w('TorsoLabel','Torso',UDim2.new(
0.5,-16,0,-25),J)local K=v('LeftLegMeshButton',UDim2.new(0,64,0,64),UDim2.new(
0.5,0,0.5,-25),I,Enum.ButtonStyle.RobloxButton)w('LeftLegLabel','Left Leg',UDim2
.new(0.5,-16,0,-25),K)local L=v('RightLegMeshButton',UDim2.new(0,64,0,64),UDim2.
new(0.5,-64,0.5,-25),I,Enum.ButtonStyle.RobloxButton)w('RightLegLabel',
'Right Leg',UDim2.new(0.5,-16,0,-25),L)local M=v('RightArmMeshButton',UDim2.new(
0,64,0,64),UDim2.new(0.5,-96,0.5,-110),I,Enum.ButtonStyle.RobloxButton)w(
'RightArmLabel','Right Arm',UDim2.new(0.5,-16,0,-25),M)local N=v(
'LeftArmMeshButton',UDim2.new(0,64,0,64),UDim2.new(0.5,32,0.5,-110),I,Enum.
ButtonStyle.RobloxButton)w('LeftArmLabel','Left Arm',UDim2.new(0.5,-16,0,-25),N)
local O=t('T-ShirtsFrame',B)game:GetService'ContentProvider':Preload
'http://www.roblox.com/asset/?id=75460642'u('TShirtZone',
'http://www.roblox.com/asset/?id=75460642',UDim2.new(0,121,0,154),UDim2.new(0.5,
-60,0.5,-100),O)v('TShirtButton',UDim2.new(0,64,0,64),UDim2.new(0.5,-32,0.5,-64)
,O)local P=t('ShirtsFrame',B)u('ShirtZone',
'http://www.roblox.com/asset/?id=75460642',UDim2.new(0,121,0,154),UDim2.new(0.5,
-60,0.5,-100),P)v('ShirtButton',UDim2.new(0,64,0,64),UDim2.new(0.5,-32,0.5,-64),
P)local Q=t('ColorFrame',B)game:GetService'ContentProvider':Preload
'http://www.roblox.com/asset/?id=76049888'local R=u('ColorZone',
'http://www.roblox.com/asset/?id=76049888',UDim2.new(0,120,0,150),UDim2.new(0.5,
-60,0.5,-100),Q)v('Head',UDim2.new(0.26,0,0.19,0),UDim2.new(0.37,0,0.02,0),R).
AutoButtonColor=false v('LeftArm',UDim2.new(0.19,0,0.36,0),UDim2.new(0.78,0,0.26
,0),R).AutoButtonColor=false v('RightArm',UDim2.new(0.19,0,0.36,0),UDim2.new(
0.025,0,0.26,0),R).AutoButtonColor=false v('Torso',UDim2.new(0.43,0,0.36,0),
UDim2.new(0.28,0,0.26,0),R).AutoButtonColor=false v('RightLeg',UDim2.new(0.19,0,
0.31,0),UDim2.new(0.275,0,0.67,0),R).AutoButtonColor=false v('LeftLeg',UDim2.
new(0.19,0,0.31,0),UDim2.new(0.525,0,0.67,0),R).AutoButtonColor=false return
script:Destroy()

228
processed/53878057.lua
View File

@ -1,228 +0,0 @@
print'[Mercury]: Loaded corescript 53878057'if game.CoreGui.Version<3 then
return end local a a=function(b,c)while not b:FindFirstChild(c)do b.ChildAdded:
wait()end return b:FindFirstChild(c)end local b b=function(c,d)while not c[d]do
c.Changed:wait()end end local c,d,e,f=script.Parent,'gear',true,game:GetService
'CoreGui':FindFirstChild'RobloxGui'assert(f)local g=a(f,'ControlFrame')local h,i
=a(g,'BackpackButton'),a(f,'Backpack')a(f,'CurrentLoadout')a(f.CurrentLoadout,
'TempSlot')a(f.CurrentLoadout.TempSlot,'SlotNumber')a(c,'Background')local j,k=c
.Background,nil k=function()local l=false pcall(function()l=Game:GetService
'UserInputService'.TouchEnabled end)return l end local l l=function(m)a(m,
'HealthGUI')a(m['HealthGUI'],'tray')local n=m['HealthGUI']['tray']n.Position=
UDim2.new(0.5,-85,1,-26)end local m m=function(n,o)a(n,'HealthGUI')a(n[
'HealthGUI'],'tray')local p=n['HealthGUI']['tray']p.Visible=o end a(game,
'Players')b(game.Players,'LocalPlayer')local n=game.Players.LocalPlayer a(n,
'PlayerGui')Spawn(function()return l(n.PlayerGui)end)while not(n.Character~=nil)
do wait(0.03)end local o=a(n.Character,'Humanoid')o.Died:connect(function()h.
Visible=false end)a(game,'LocalBackpack')game.LocalBackpack:
SetOldSchoolBackpack(false)a(c.Parent,'Backpack')local p=c.Parent.Backpack local
q=a(p,'CoreScripts/BackpackScripts/BackpackManager')local r,s,t,u,v=a(q,
'BackpackOpenEvent'),a(q,'BackpackCloseEvent'),a(q,'TabClickedEvent'),true,10 if
f.AbsoluteSize.Y<=320 then v=4 end local w,x,y,z=nil,nil,false,1.18 local A,B,C,
D,E,F,G=UDim2.new(1*z,0,1*z,0),UDim2.new(1,0,1,0),true,0.5,false,{},{}for H=1,v
do G[H]='empty'end local H,I=false,nil I=function()if p then return p.Visible
end return false end local J,K K=function(L,M,N)if M~=nil then M:disconnect()end
if L==true and N then return J(N,false)end end local L L=function()for M=0,9 do
game:GetService'GuiService':AddKey(tostring(M))end end local M M=function()
return pcall(function()for N=0,9 do game:GetService'GuiService':RemoveKey(
tostring(N))end end)end local N N=function()if game.Players['LocalPlayer']and
game.Players.LocalPlayer['Character']and(game.Players.LocalPlayer.Character~=nil
)and(game.Players.LocalPlayer.Character.Parent~=nil)then return true end return
false end local O O=function(P)local Q for R=1,#G do if G[R]==P and(P.Parent~=
nil)then Q=R break end end if Q then do local R=G[Q]if R.GearReference.Value
then if R.GearReference.Value.Parent==game.Players.LocalPlayer.Character then R.
GearReference.Value.Parent=game.Players.LocalPlayer.Backpack end if R.
GearReference.Value:IsA'HopperBin'and R.GearReference.Value.Active then R.
GearReference.Value:Disable()R.GearReference.Value.Active=false end end end G[Q]
='empty'delay(0,function()return P:remove()end)return Spawn(function()while I()
do wait(0.03)end a(n,'Backpack')local R=true for S=1,#G do if G[S]~='empty'then
R=false end end if R then if#n.Backpack:GetChildren()<1 then h.Visible=false
else h.Position=UDim2.new(0.5,-60,1,-44)end j.Visible=false end end)end end
local P P=function(Q,R)local S if not R then for T=1,#G do if G[T]=='empty'then
S=T break end end if S==1 and G[1]~='empty'then Q:remove()return end else S=R
local T=1 for U=1,#G do if G[U]=='empty'then T=U break end end for U=T,S+1,-1 do
G[U]=G[U-1]do local V if U==10 then V='0'else V=U end G[U].SlotNumber.Text=V G[U
].SlotNumberDownShadow.Text=V G[U].SlotNumberUpShadow.Text=V end end end G[S]=Q
if S~=v then if type(tostring(S))=='string'then local T=tostring(S)Q.SlotNumber.
Text=T Q.SlotNumberDownShadow.Text=T Q.SlotNumberUpShadow.Text=T end else Q.
SlotNumber.Text='0'Q.SlotNumberDownShadow.Text='0'Q.SlotNumberUpShadow.Text='0'
end Q.Visible=true local T=Q.Kill.Changed:connect(function(T)return K(T,con,Q)
end)end J=function(Q,R,S,T)if R then P(Q,T)else O(Q)end if Q~='empty'then Q.
ZIndex=1 end end local Q Q=function(R,S)if R:FindFirstChild'RobloxBuildTool'then
return end if R:IsA'Tool'or R:IsA'HopperBin'then for T=1,#G do if G[T]~='empty'
and G[T].GearReference.Value==R then if not(S~=nil)then G[T].Kill.Value=true
return false elseif R.Parent==n.Character then G[T].Selected=true return true
elseif R.Parent==n.Backpack then if R:IsA'Tool'or R:IsA'HopperBin'then G[T].
Selected=false end return true end G[T].Kill.Value=true return false end end end
end local R R=function(S)local T=n.Character:GetChildren()for U=1,#T do if(T[U]:
IsA'Tool'or T[U]:IsA'HopperBin')and T[U]~=S then if T[U]:IsA'Tool'then T[U].
Parent=n.Backpack end if T[U]:IsA'HopperBin'then T[U]:Disable()end end end end
local S S=function(T,U)if not T then return end if T.Size.Y.Scale<=1 then return
end if T.Selected then return end if not T.Parent then return end local V=U if
not(V~=nil)or type(V)~='number'then V=D/5 end if T:FindFirstChild'Highlight'then
T.Highlight.Visible=false end if T:IsA'ImageButton'or T:IsA'TextButton'then T.
ZIndex=1 local W,X=-(B.X.Scale-T.Size.X.Scale)/2,-(B.Y.Scale-T.Size.Y.Scale)/2
return T:TweenSizeAndPosition(B,UDim2.new(T.Position.X.Scale+W,T.Position.X.
Offset,T.Position.Y.Scale+X,T.Position.Y.Offset),Enum.EasingDirection.Out,Enum.
EasingStyle.Quad,V,C)end end local T T=function(U)if U.Size.Y.Scale>1 then
return end if not U.Parent then return end if not U.Selected then return end for
V=1,#G do if G[V]=='empty'then break end if G[V]~=U then S(G[V])end end if not C
then return end if U:FindFirstChild'Highlight'then U.Highlight.Visible=true end
if U:IsA'ImageButton'or U:IsA'TextButton'then U.ZIndex=5 local V,W=-(A.X.Scale-U
.Size.X.Scale)/2,-(A.Y.Scale-U.Size.Y.Scale)/2 return U:TweenSizeAndPosition(A,
UDim2.new(U.Position.X.Scale+V,U.Position.X.Offset,U.Position.Y.Scale+W,U.
Position.Y.Offset),Enum.EasingDirection.Out,Enum.EasingStyle.Quad,D/5,C)end end
local U U=function(V,W)if not W then return end W:ToggleSelect()if G[V]=='empty'
then return end if not W.Active then G[V].Selected=false return S(G[V])else G[V]
.Selected=true return T(G[V])end end local V V=function(W)if not G[W]then return
end local X=G[W].GearReference.Value if not(X~=nil)then return end R(X)local Y=W
if W==0 then Y=10 end for Z=1,#G do if G[Z]and G[Z]~='empty'and Z~=Y then S(G[Z]
)do local _=G[Z]_.Selected=false if _.GearReference and _.GearReference.Value
and _.GearReference.Value:IsA'HopperBin'and _.GearReference.Value.Active then _.
GearReference.Value:ToggleSelect()end end end end if X:IsA'HopperBin'then return
U(W,X)else if X.Parent==n.Character then X.Parent=n.Backpack if G[W]~='empty'
then G[W].Selected=false return S(G[W])end else X.Parent=n.Character G[W].
Selected=true return T(G[W])end end end local W W=function(X)local Y if X=='0'
then Y=10 else Y=tonumber(X)end if not(Y~=nil)then return end if G[Y]~='empty'
then return V(Y)end end local X X=function()for Y=1,#G do if G[Y]=='empty'then
break end if G[Y]~=button then S(G[Y],0.1)end end end local Y Y=function()while
y do wait()end end local Z Z=function(_,aa,ab)if(_.x>aa.x and _.x<(aa.x+ab.x))or
(_.y>aa.y and _.y<(aa.y+ab.y))then return true end return false end local aa aa=
function(ab,_)local ac=_:GetChildren()if#ac==1 then if ac[1]:FindFirstChild
'SlotNumber'then local ad,ae=tonumber(ac[1].SlotNumber.Text),tonumber(ab.
SlotNumber.Text)if ad==0 then ad=10 end if ae==0 then ae=10 end G[ad]=ab G[ae]=
ac[1]ac[1].SlotNumber.Text=ab.SlotNumber.Text ac[1].SlotNumberDownShadow.Text=ab
.SlotNumber.Text ac[1].SlotNumberUpShadow.Text=ab.SlotNumber.Text local af=
string.sub(_.Name,5)ab.SlotNumber.Text=af ab.SlotNumberDownShadow.Text=af ab.
SlotNumberUpShadow.Text=af ab.Position=UDim2.new(ab.Position.X.Scale,0,ab.
Position.Y.Scale,0)ac[1].Position=UDim2.new(ac[1].Position.X.Scale,0,ac[1].
Position.Y.Scale,0)ac[1].Parent=ab.Parent ab.Parent=_ end else local ad=
tonumber(ab.SlotNumber.Text)if ad==0 then ad=10 end G[ad]='empty'local ae=string
.sub(_.Name,5)ab.SlotNumber.Text=ae ab.SlotNumberDownShadow.Text=ae ab.
SlotNumberUpShadow.Text=ae local af=tonumber(ab.SlotNumber.Text)if af==0 then af
=10 end G[af]=ab ab.Position=UDim2.new(ab.Position.X.Scale,0,ab.Position.Y.Scale
,0)ab.Parent=_ end end local ab ab=function(ac,ad,ae)local af,_=Vector2.new(ad,
ae),ac.Parent local ag=_.Parent:GetChildren()for ah=1,#ag do if ag[ah]:IsA
'Frame'and Z(af,ag[ah].AbsolutePosition,ag[ah].AbsoluteSize)then aa(ac,ag[ah])
return true end end if(ad<_.AbsolutePosition.x or ad>(_.AbsolutePosition.x+_.
AbsoluteSize.x))or(ae<_.AbsolutePosition.y or ae>(_.AbsolutePosition.y+_.
AbsoluteSize.y))then J(ac,false)return false else if dragBeginPos then ac.
Position=dragBeginPos end return-1 end end local ac ac=function(ad)for ae=1,#G
do if G[ae]=='empty'then break end do local af=G[ae]if af.GearReference.Value
and af.GearReference.Value~=ad then if af.GearReference.Value:IsA'HopperBin'then
af.GearReference.Value:Disable()elseif af.GearReference.Value:IsA'Tool'then af.
GearReference.Value.Parent=game.Players.LocalPlayer.Backpack end af.Selected=
false end end end end local ad ad=function(ae,af)if ae and ae:FindFirstChild
'ToolTipLabel'and ae.ToolTipLabel:IsA'TextLabel'and not k()then ae.ToolTipLabel.
Text=tostring(af)local ag=ae.ToolTipLabel.TextBounds.X+6 ae.ToolTipLabel.Size=
UDim2.new(0,ag,0,20)ae.ToolTipLabel.Position=UDim2.new(0.5,-ag/2,0,-30)ae.
ToolTipLabel.Visible=true end end local ae ae=function(af,ag)if af and af:
FindFirstChild'ToolTipLabel'and af.ToolTipLabel:IsA'TextLabel'then af.
ToolTipLabel.Visible=false end end local af af=function(ag)for ah=1,#F do if F[
ah]==ag then table.remove(F,ah)F[ah]=nil end end end local ag ag=function(ah,_,
ai,aj)Y()y=true if ah:FindFirstChild'RobloxBuildTool'then y=false return end if
not ah:IsA'Tool'and not ah:IsA'HopperBin'then y=false return end if not ai then
for ak=1,#G do if G[ak]~='empty'and G[ak].GearReference.Value==ah then y=false
return end end end local ak=c.TempSlot:clone()ak.Name=ah.Name ak.GearImage.Image
=ah.TextureId if ak.GearImage.Image==''then ak.GearText.Text=ah.Name end ak.
GearReference.Value=ah ak.MouseEnter:connect(function()if ak.GearReference and
ak.GearReference.Value['ToolTip']and ak.GearReference.Value.ToolTip~=''then
return ad(ak,ak.GearReference.Value.ToolTip)end end)ak.MouseLeave:connect(
function()if ak.GearReference and ak.GearReference.Value['ToolTip']and ak.
GearReference.Value.ToolTip~=''then return ae(ak,ak.GearReference.Value.ToolTip)
end end)ak.RobloxLocked=true local al=-1 if not ai then for am=1,#G do if G[am]
=='empty'then al=am break end end else al=ai end if al==-1 then y=false return
end local am=al%10 local an=c:FindFirstChild('Slot'..tostring(am))ak.Parent=an
if aj then local ao,ap=aj.AbsolutePosition,ak.AbsolutePosition local aq=ao-ap ak
.Position=UDim2.new(ak.Position.X.Scale,aq.x,ak.Position.Y.Scale,aq.y)ak.ZIndex=
4 end J(ak,(function()if ai then return true,_,ai else return true end end)())if
not(ak.Parent~=nil)then y=false return end if _ then ak.Selected=true ac(ah)
delay(D+0.01,function()if ak:FindFirstChild'GearReference'and((ak.GearReference.
Value:IsA'Tool'and ak.GearReference.Value.Parent==n.Character)or(ak.
GearReference.Value:IsA'HopperBin'and ak.GearReference.Value.Active==true))then
return T(ak)end end)end local ao,ap,aq,ar,as,at,au ap=ak.MouseButton1Click:
connect(function()if N()then if not ak.Draggable then return W(ak.SlotNumber.
Text)end end end)ar=ak.MouseEnter:connect(function()if p.Visible then ak.
Draggable=true end end)au=ak.DragBegin:connect(function(av)ao=av ak.ZIndex=7
local aw=ak:GetChildren()for ax=1,#aw do if aw[ax]:IsA'TextLabel'then if string.
find(aw[ax].Name,'Shadow')then aw[ax].ZIndex=8 else aw[ax].ZIndex=9 end elseif
aw[ax]:IsA'Frame'or aw[ax]:IsA'ImageLabel'then aw[ax].ZIndex=7 end end end)at=ak
.DragStopped:connect(function(av,aw)if ak.Selected then ak.ZIndex=4 else ak.
ZIndex=3 end local ax=ak:GetChildren()for ay=1,#ax do if ax[ay]:IsA'TextLabel'
then if string.find(ax[ay].Name,'Shadow')then ax[ay].ZIndex=3 else ax[ay].ZIndex
=4 end elseif ax[ay]:IsA'Frame'or ax[ay]:IsA'ImageLabel'then ax[ay].ZIndex=2 end
end return ab(ak,av,aw)end)as=ak.MouseLeave:connect(function()ak.Draggable=false
end)aq=ak.AncestryChanged:connect(function()if ak.Parent and ak.Parent.Parent==c
then return end if ap~=nil then ap:disconnect()end if aq~=nil then aq:
disconnect()end if ar~=nil then ar:disconnect()end if as~=nil then as:
disconnect()end if at~=nil then at:disconnect()end if au~=nil then return au:
disconnect()end return nil end)local av,aw av=ah.AncestryChanged:connect(
function(ax,ay)if not Q(ax,ay)then if av~=nil then av:disconnect()end if aw~=nil
then aw:disconnect()end return af(ah)elseif ay==game.Players.LocalPlayer.
Backpack then return S(ak)end end)aw=ah.Changed:connect(function(ax)if ax==
'Name'then if ak and ak.GearImage.Image==''then ak.GearText.Text=ah.Name end
elseif ax=='Active'then if ah and ah:IsA'HopperBin'then if not ah.Active then ak
.Selected=false return S(ak)end end elseif ax=='TextureId'then ak.GearImage.
Image=ah.TextureId end end)y=false return Spawn(function()while I()do wait(0.03)
end for ax=1,#G do if G[ax]~='empty'then h.Position=UDim2.new(0.5,-60,1,-108)if
e then h.Visible=true j.Visible=true end end end end)end local ah ah=function(ai
)if not ai:IsA'Tool'or not ai:IsA'HopperBin'then return end local aj for ak=1,#F
do if F[ak]and F[ak]==ai then return end if not F[ak]then aj=ak end end if aj
then F[aj]=ai elseif#F<1 then F[1]=ai else F[#F+1]=ai end end local ai ai=
function()local aj=c:GetChildren()for ak=1,#aj do if aj[ak]:IsA'Frame'then aj[ak
].BackgroundTransparency=0.5 local al=tonumber(string.sub(aj[ak].Name,5))if al==
0 then al=10 end if f.AbsoluteSize.Y<=320 then aj[ak]:TweenPosition(UDim2.new(0,
(al-1)*60,0,0),Enum.EasingDirection.Out,Enum.EasingStyle.Quad,0.25,true)else aj[
ak]:TweenPosition(UDim2.new((al-1)/10,0,0,0),Enum.EasingDirection.Out,Enum.
EasingStyle.Quad,0.25,true)end end end end local aj aj=function()local ak,al,am=
c:GetChildren(),{},nil for an=1,#ak do if ak[an]:IsA'Frame'then if#ak[an]:
GetChildren()>0 then if ak[an].Name=='Slot0'then am=ak[an]else table.insert(al,
ak[an])end end ak[an].BackgroundTransparency=1 end end if am then table.insert(
al,am)end local an=(1-(#al*0.1))/2 for ao=1,#al do if f.AbsoluteSize.Y<=320 then
an=0.5-(#al*0.333)/2 al[ao]:TweenPosition(UDim2.new(an+(ao-1)*0.33,0,0,0),Enum.
EasingDirection.Out,Enum.EasingStyle.Quad,0.25,true)else al[ao]:TweenPosition(
UDim2.new(an+((ao-1)*0.1),0,0,0),Enum.EasingDirection.Out,Enum.EasingStyle.Quad,
0.25,true)end end end local ak ak=function()H=true if u then return ai()end end
local al al=function()if not u then return aj()end end local am am=function()if
x~=nil then x:disconnect()end x=nil x=n.Backpack.ChildAdded:connect(function(an)
if not E then E=true if e then h.Visible=true j.Visible=true end end ag(an)
return ah(an)end)end local an an=function(ao)ag(ao,true)return ah(ao)end local
ao ao=function()c.Visible=true end local ap ap=function()c.Visible=false end
local aq aq=function(ar)u=ar if ar then return ak()else return al()end end local
ar ar=function(as,at)if as==Enum.CoreGuiType.Backpack or as==Enum.CoreGuiType.
All then h.Visible=at j.Visible=at e=at if at then L()else M()end end if as==
Enum.CoreGuiType.Health or as==Enum.CoreGuiType.All then return m(game.Players.
LocalPlayer.PlayerGui,at)end end L()pcall(function()ar(Enum.CoreGuiType.Backpack
,Game.StarterGui:GetCoreGuiEnabled(Enum.CoreGuiType.Backpack))ar(Enum.
CoreGuiType.Health,Game.StarterGui:GetCoreGuiEnabled(Enum.CoreGuiType.Health))
return Game.StarterGui.CoreGuiChangedSignal:connect(ar)end)wait()a(n,'Backpack')
b(n,'Character')delay(1,function()local as=n.Backpack:GetChildren()local at=math
.min(10,#as)for au=1,at do if e then h.Visible=true j.Visible=true end ag(as[au]
,false)end return am()end)delay(2,function()if not H then if f.AbsoluteSize.Y<=
320 then local as=c:GetChildren()for at=1,#as do local au=tonumber(string.sub(as
[at].Name,5,string.len(as[at].Name)))if type(au)=='number'then as[at].Position=
UDim2.new(0,(au-1)*60,0,0)end end end end return wait(0.25)end)n.ChildAdded:
connect(function(as)if as:IsA'PlayerGui'then return l(as)end end)b(n,'Character'
)for as,at in ipairs(n.Character:GetChildren())do an(at)end w=n.Character.
ChildAdded:connect(function(au)return an(au)end)a(n.Character,'Humanoid')local
au=n.Character.Humanoid.Died:connect(function()do local au=humanoidDiedCon if au
~=nil then au:disconnect()end end humanoidDiedCon=nil ap()if x~=nil then x:
disconnect()end x=nil H=false end)n.CharacterRemoving:connect(function()for av=1
,#G do if G[av]~='empty'then G[av].Parent=nil G[av]='empty'end end end)n.
CharacterAdded:connect(function()b(game.Players,'LocalPlayer')n=game.Players.
LocalPlayer a(n,'Backpack')delay(1,function()local av=n.Backpack:GetChildren()
local aw=math.min(10,#av)for ax=1,aw do if e then h.Visible=true j.Visible=true
end ag(av[ax],false)end return am()end)ao()if w~=nil then w:disconnect()end w=n.
Character.ChildAdded:connect(function(av)return ag(av,true)end)a(n.Character,
'Humanoid')if i.Visible then r:Fire()end au=n.Character.Humanoid.Died:connect(
function()if e then h.Visible=false j.Visible=false end E=false ap()if au~=nil
then au:disconnect()end au=nil if x~=nil then x:disconnect()end x=nil end)a(n,
'PlayerGui')l(n.PlayerGui)return delay(2,function()if(not H)and(f.AbsoluteSize.Y
<=320)then local av=c:GetChildren()for aw=1,#av do local ax=tonumber(string.sub(
av[aw].Name,5,string.len(av[aw].Name)))if type(ax)=='number'then av[aw].Position
=UDim2.new(0,(ax-1)*60,0,0)end end end return wait(0.25)end)end)a(p,'SwapSlot')p
.SwapSlot.Changed:connect(function()if p.SwapSlot.Value then local av=p.SwapSlot
local aw=av.Slot.Value if aw==0 then aw=10 end if G[aw]then J(G[aw],false)end if
av.GearButton.Value then ag(av.GearButton.Value.GearReference.Value,false,aw)end
p.SwapSlot.Value=false end end)game:GetService'GuiService'.KeyPressed:connect(
function(av)if N()then return W(av)end end)r.Event:connect(ak)s.Event:connect(aj
)return t.Event:connect(function(av)return aq(av==d)end)

1
processed/59002209.lua
View File

@ -1 +0,0 @@
return print'[Mercury]: Loaded corescript 59002209'

164
processed/60595411.lua
View File

@ -1,164 +0,0 @@
print'[Mercury]: Loaded corescript 60595411'local a,b={},nil b=function(c,d,e)if
not(e~=nil)then e=d d=nil end local f=Instance.new(c)if d then f.Name=d end
local g for h,i in pairs(e)do if type(h)=='string'then if h=='Parent'then g=i
else f[h]=i end elseif type(h)=='number'and type(i)=='userdata'then i.Parent=f
end end f.Parent=g return f end local c,d=assert,nil d=function()return d end
local e={buffer={}}e.New=function(f)local g=setmetatable({},f)f.__index=f g.
buffer={}return g end e.Append=function(f,g)do local h=f.buffer h[#h+1]=g end
end e.ToString=function(f)return table.concat(f.buffer)end local f={backslashes=
{['\b']='\\b',['\t']='\\t',['\n']='\\n',['\f']='\\f',['\r']='\\r',['"']='\\"',[
'\\']='\\\\',['/']='\\/'}}f.New=function(g)local h=setmetatable({},g)h.writer=e:
New()g.__index=g return h end f.Append=function(g,h)return g.writer:Append(h)end
f.ToString=function(g)return g.writer:ToString()end f.Write=function(g,h)local i
=type(h)if'nil'==i then return g:WriteNil()elseif'boolean'==i or'number'==i then
return g:WriteString(h)elseif'string'==i then return g:ParseString(h)elseif
'table'==i then return g:WriteTable(h)elseif'function'==i then return g:
WriteFunction(h)elseif'thread'==i or'userdata'==i then return g:WriteError(h)end
end f.WriteNil=function(g)return g:Append'null'end f.WriteString=function(g,h)
return g:Append(tostring(h))end f.ParseString=function(g,h)g:Append'"'g:Append(
string.gsub(h,'[%z%c\\"/]',function(i)local j=g.backslashes[i]if j then return j
end return string.format('\\u%.4X',string.byte(i))end))return g:Append'"'end f.
IsArray=function(g,h)local i,j=0,nil j=function(k)if type(k)=='number'and k>0
and math.floor(k)==k then return true end return false end for k,l in pairs(h)do
if not j(k)then return false,'{','}'else i=math.max(i,k)end end return true,'[',
']',i end f.WriteTable=function(g,h)local i,j,k,l=g:IsArray(h)g:Append(j)if i
then for m=1,l do g:Write(h[m])if m<l then g:Append','end end else local m=true
for n,o in pairs(h)do if not m then g:Append','end m=false g:ParseString(n)g:
Append':'g:Write(o)end end return g:Append(k)end f.WriteError=function(g,h)
return error(string.format('Encoding of %s unsupported',tostring(h)))end f.
WriteFunction=function(g,h)if h==d then return g:WriteNil()else return g:
WriteError(h)end end local g={s='',i=0}g.New=function(h,i)local j=setmetatable({
},h)h.__index=h j.s=i or j.s return j end g.Peek=function(h)local i=h.i+1 if i<=
#h.s then return string.sub(h.s,i,i)end return nil end g.Next=function(h)h.i=h.i
+1 if h.i<=#h.s then return string.sub(h.s,h.i,h.i)end return nil end g.All=
function(h)return h.s end local h={escapes={['t']='\t',['n']='\n',['f']='\f',[
'r']='\r',['b']='\b'}}h.New=function(i,j)local k=setmetatable({},i)k.reader=g:
New(j)i.__index=i return k end h.Read=function(i)i:SkipWhiteSpace()local j=i:
Peek()if not(j~=nil)then return error(string.format("Nil string: '%s'",i:All()))
elseif j=='{'then return i:ReadObject()elseif j=='['then return i:ReadArray()
elseif j=='"'then return i:ReadString()elseif string.find(j,'[%+%-%d]')then
return i:ReadNumber()elseif j=='t'then return i:ReadTrue()elseif j=='f'then
return i:ReadFalse()elseif j=='n'then return i:ReadNull()elseif j=='/'then i:
ReadComment()return i:Read()else return nil end end h.ReadTrue=function(i)i:
TestReservedWord{'t','r','u','e'}return true end h.ReadFalse=function(i)i:
TestReservedWord{'f','a','l','s','e'}return false end h.ReadNull=function(i)i:
TestReservedWord{'n','u','l','l'}return nil end h.TestReservedWord=function(i,j)
for k,l in ipairs(j)do if i:Next()~=l then error(string.format(
"Error reading '%s': %s",table.concat(j),i:All()))end end end h.ReadNumber=
function(i)local j,k=i:Next(),i:Peek()while(k~=nil)and string.find(k,
'[%+%-%d%.eE]')do j=j..i:Next()k=i:Peek()end j=tonumber(j)if not(j~=nil)then
return error(string.format("Invalid number: '%s'",j))else return j end end h.
ReadString=function(i)local j=''c(i:Next()=='"')while i:Peek()~='"'do local k=i:
Next()if k=='\\'then k=i:Next()if i.escapes[k]then k=i.escapes[k]end end j=j..k
end c(i:Next()=='"')local k k=function(l)return string.char(tonumber(l,16))end
return string.gsub(j,'u%x%x(%x%x)',k)end h.ReadComment=function(i)c(i:Next()==
'/')local j=i:Next()if j=='/'then return i:ReadSingleLineComment()elseif j=='*'
then return i:ReadBlockComment()else return error(string.format(
'Invalid comment: %s',i:All()))end end h.ReadBlockComment=function(i)local j=
false while not j do local k=i:Next()if k=='*'and i:Peek()=='/'then j=true end
if not j and k=='/'and i:Peek()=='*'then error(string.format(
"Invalid comment: %s, '/*' illegal.",i:All()))end end return i:Next()end h.
ReadSingleLineComment=function(i)local j=i:Next()while j~='\r'and j~='\n'do j=i:
Next()end end h.ReadArray=function(i)local j={}c(i:Next()=='[')local k=false if
i:Peek()==']'then k=true end while not k do local l=i:Read()j[#j+1]=l i:
SkipWhiteSpace()if i:Peek()==']'then k=true end if not k then local m=i:Next()if
m~=','then error(string.format("Invalid array: '%s' due to: '%s'",i:All(),m))end
end end c(']'==i:Next())return j end h.ReadObject=function(i)local j={}c(i:Next(
)=='{')local k=false if i:Peek()=='}'then k=true end while not k do local l=i:
Read()if type(l)~='string'then error(string.format(
'Invalid non-string object key: %s',l))end i:SkipWhiteSpace()local m=i:Next()if
m~=':'then error(string.format("Invalid object: '%s' due to: '%s'",i:All(),m))
end i:SkipWhiteSpace()local n=i:Read()j[l]=n i:SkipWhiteSpace()if i:Peek()=='}'
then k=true end if not k then m=i:Next()if m~=','then error(string.format(
"Invalid array: '%s' near: '%s'",i:All(),m))end end end c(i:Next()=='}')return j
end h.SkipWhiteSpace=function(i)local j=i:Peek()while(j~=nil)and string.find(j,
'[%s/]')do if j=='/'then i:ReadComment()else i:Next()end j=i:Peek()end end h.
Peek=function(i)return i.reader:Peek()end h.Next=function(i)return i.reader:
Next()end h.All=function(i)return i.reader:All()end local i i=function(j)local k
=f:New()k:Write(j)k:ToString()return k end local j j=function(k)local l=h:New(k)
l:Read()return l end a.DecodeJSON=function(k)pcall(function()return warn
[[RbxUtility.DecodeJSON is deprecated, please use Game:GetService("HttpService"):JSONDecode() instead.]]
end)if type(k)=='string'then return j(k)end print
'RbxUtil.DecodeJSON expects string argument!'return nil end a.EncodeJSON=
function(k)pcall(function()return warn
[[RbxUtility.EncodeJSON is deprecated, please use Game:GetService("HttpService"):JSONEncode() instead.]]
end)return i(k)end a.MakeWedge=function(k,l,m,n)return game:GetService'Terrain':
AutoWedgeCell(k,l,m)end a.SelectTerrainRegion=function(k,l,m,n)local o=game.
Workspace:FindFirstChild'Terrain'if not o then return end c(k)c(l)if not type(k)
=='Region3'then error(
[[regionToSelect (first arg), should be of type Region3, but is type]],type(k))
end if not type(l)=='BrickColor'then error(
[[color (second arg), should be of type BrickColor, but is type]],type(l))end
local p,q,r,s,t,u,v,w,x,y,z,A,B,C=o.GetCell,o.WorldToCellPreferSolid,o.
CellCenterToWorld,Enum.CellMaterial.Empty,b('Model','SelectionContainer',{
Archivable=false,Parent=(function()if n then return n else return game.Workspace
end end)()}),nil,nil,0,nil,{},{},b('Part','SelectionPart',{Transparency=1,
Anchored=true,Locked=true,CanCollide=false,Size=Vector3.new(4.2,4.2,4.2)}),
Instance.new'SelectionBox',nil C=function(D)local E,F if#z>0 then E=z[1]['part']
F=z[1]['box']table.remove(z,1)F.Visible=true else E=A:Clone()E.Archivable=false
F=B:Clone()F.Archivable=false F.Adornee=E F.Parent=t F.Adornee=E F.Parent=t end
if D then F.Color=D end return E,F end local D D=function()for E,F in pairs(y)do
if F.KeepAlive~=v then F.SelectionBox.Visible=false table.insert(z,{part=F.
SelectionPart,box=F.SelectionBox})y[E]=nil end end end local E E=function()w=w+1
if w>1000000 then w=0 end return w end local F F=function(G,H)local I,J=G.CFrame
.p-G.Size/2+Vector3.new(2,2,2),G.CFrame.p+G.Size/2-Vector3.new(2,2,2)local K,L=
q(o,I),q(o,J)v=E()for M=K.y,L.y do for N=K.z,L.z do for O=K.x,L.x do local P=p(o
,O,M,N)if P~=s then local Q,R,S=r(o,O,M,N),Vector3int16.new(O,M,N),false for T,U
in pairs(y)do if T==R then U.KeepAlive=v if H then U.SelectionBox.Color=H end S=
true break end end if not S then A,B=C(H)A.Size=Vector3.new(4,4,4)A.CFrame=
CFrame.new(Q)local V={SelectionPart=A,SelectionBox=B,KeepAlive=v}y[R]=V end end
end end end return D()end x=k if m then A,B=C(l)A.Size=k.Size A.CFrame=k.CFrame
y.SelectionPart=A y.SelectionBox=B u=function(G,H)if G and G~=x then x=G A.Size=
G.Size A.CFrame=G.CFrame end if H then B.Color=H end end else F(k,l)u=function(G
,H)if G and G~=x then x=G return F(G,H)end end end local G G=function()u=nil if
t~=nil then t:Destroy()end y=nil end return u,G end a.CreateSignal=function()
local k,l,m={},Instance.new'BindableEvent',{}k.connect=function(n,o)if n~=k then
error('connect must be called with `:`, not `.`',2)end if type(o)~='function'
then error('Argument #1 of connect must be a function, got a '..tostring(type(o)
),2)end local p=l.Event:connect(o)m[p]=true local q={}q.disconnect=function(r)p:
disconnect()m[p]=nil end q.Disconnect=q.disconnect return q end k.disconnect=
function(n)if n~=k then error('disconnect must be called with `:`, not `.`',2)
end for o,p in pairs(m)do o:disconnect()m[o]=nil end end k.wait=function(n)if n
~=k then error('wait must be called with `:`, not `.`',2)end return l.Event:
wait()end k.fire=function(n,...)if n~=k then error(
'fire must be called with `:`, not `.`',2)end return l:Fire(...)end k.Connect=k.
connect k.Disconnect=k.disconnect k.Wait=k.wait k.Fire=k.fire return k end local
k k=function(l)if type(l)~='string'then error(
'Argument of Create must be a string',2)end return function(m)m=m or{}local n,o,
p=Instance.new(l),nil,nil for q,r in pairs(m)do if type(q)=='string'then if q==
'Parent'then o=r else n[q]=r end elseif type(q)=='number'then if type(r)~=
'userdata'then error(
[[Bad entry in Create body: Numeric keys must be paired with children, got a: ]]
..tostring(type(r)),2)end r.Parent=n elseif type(q)=='table'and q.__eventname
then if type(r)~='function'then error(
"Bad entry in Create body: Key `[Create.E'"..tostring(q.__eventname)..
"']` must have a function value, got: "..tostring(r),2)end n[q.__eventname]:
connect(r)elseif q==a.Create then if type(r)~='function'then error(
[[Bad entry in Create body: Key `[Create]` should be paired with a constructor function, got: ]]
..tostring(r),2)elseif p then error(
[[Bad entry in Create body: Only one constructor function is allowed]],2)end p=r
else error('Bad entry ('..tostring(q)..' => '..tostring(r)..') in Create body',2
)end end if p~=nil then p(n)end if o then n.Parent=o end return n end end a.
Create=setmetatable({},{['__call']=function(l,...)return k(...)end})a.Create.E=
function(l)return{__eventname=l}end a.Help=function(l)if'DecodeJSON'==l or a.
DecodeJSON==l then return
[[Function DecodeJSON. Arguments: (string). Side effect: returns a table with all parsed JSON values]]
elseif'EncodeJSON'==l or a.EncodeJSON==l then return
[[Function EncodeJSON. Arguments: (table). Side effect: returns a string composed of argument table in JSON data format]]
elseif'MakeWedge'==l or a.MakeWedge==l then return
[[Function MakeWedge. Arguments: (x, y, z, [default material]). Description: Makes a wedge at location x, y, z. Sets cell x, y, z to default material if parameter is provided, if not sets cell x, y, z to be whatever material it previously was. Returns true if made a wedge, false if the cell remains a block ]]
elseif'SelectTerrainRegion'==l or a.SelectTerrainRegion==l then return
[[Function SelectTerrainRegion. Arguments: (regionToSelect, color, selectEmptyCells, selectionParent). Description: Selects all terrain via a series of selection boxes within the regionToSelect (this should be a region3 value). The selection box color is detemined by the color argument (should be a brickcolor value). SelectionParent is the parent that the selection model gets placed to (optional).SelectEmptyCells is bool, when true will select all cells in the region, otherwise we only select non-empty cells. Returns a function that can update the selection,arguments to said function are a new region3 to select, and the adornment color (color arg is optional). Also returns a second function that takes no arguments and destroys the selection]]
elseif'CreateSignal'==l or a.CreateSignal==l then return
[[Function CreateSignal. Arguments: None. Returns: The newly created Signal object. This object is identical to the RBXScriptSignal class used for events in Objects, but is a Lua-side object so it can be used to create custom events inLua code. Methods of the Signal object: :connect, :wait, :fire, :disconnect. For more info you can pass the method name to the Help function, or view the wiki page for this library. EG: Help('Signal:connect').]]
elseif'Signal:connect'==l then return
[[Method Signal:connect. Arguments: (function handler). Return: A connection object which can be used to disconnect the connection to this handler. Description: Connectes a handler function to this Signal, so that when |fire| is called the handler function will be called with the arguments passed to |fire|.]]
elseif'Signal:wait'==l then return
[[Method Signal:wait. Arguments: None. Returns: The arguments passed to the next call to |fire|. Description: This call does not return until the next call to |fire| is made, at which point it will return the values which were passed as arguments to that |fire| call.]]
elseif'Signal:fire'==l then return
[[Method Signal:fire. Arguments: Any number of arguments of any type. Returns: None. Description: This call will invoke any connected handler functions, and notify any waiting code attached to this Signal to continue, with the arguments passed to this function. Note: The calls to handlers are made asynchronously, so this call will return immediately regardless of how long it takes the connected handler functions to complete.]]
elseif'Signal:disconnect'==l then return
[[Method Signal:disconnect. Arguments: None. Returns: None. Description: This call disconnects all handlers attacched to this function, note however, it does NOT make waiting code continue, as is the behavior of normal Roblox events. This method can also be called on the connection object which is returned from Signal:connect to only disconnect a single handler, as opposed to this method, which will disconnect all handlers.]]
elseif'Create'==l then return
[[Function Create. Arguments: A table containing information about how to construct a collection of objects. Returns: The constructed objects. Descrition: Create is a very powerfull function, whose description is too long to fit here, and is best described via example, please see the wiki page for a description of how to use it.]]
end end return a

8
processed/60595695.lua
View File

@ -1,8 +0,0 @@
print'[Mercury]: Loaded corescript 60595695'local a,b,c=3569749,game:GetService
'ScriptContext',0 while not(b or c>2)do c=c+1 b=game:GetService'ScriptContext'
wait(0.2)end if b then b:RegisterLibrary('Libraries/RbxGui','45284430')b:
RegisterLibrary('Libraries/RbxGear','45374389')if game.PlaceId==a then b:
RegisterLibrary('Libraries/RbxStatus','52177566')end b:RegisterLibrary(
'Libraries/RbxUtility','60595411')b:RegisterLibrary('Libraries/RbxStamper',
'73157242')b:LibraryRegistrationComplete()else print
'failed to find script context, libraries did not load'end return b

478
processed/73157242.lua
View File

@ -1,478 +0,0 @@
print'[Mercury]: Loaded corescript 73157242'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b,c={},nil c=function(d)local e,f,g=false,game.
Workspace.CurrentCamera,nil do local h=f.CoordinateFrame.p g=Vector3.new(h.X,h.Y
,h.Z)end local h,i,j=Vector3.new(d.X,d.Y,d.Z),Vector3.new(0,1,0),Vector3.new(0,0
,0)local k,l=i:Dot(h-g),d if k~=0 then b=i:Dot(j-g)/k if b>=0 and b<=1 then
local m=((h-g)*b)+g l=game.Workspace.Terrain:WorldToCell(m)e=true end end return
l,e end local d d=function(e)local f,g=game.Workspace.Terrain:
WorldToCellPreferSolid(Vector3.new(e.hit.x,e.hit.y,e.hit.z)),nil if 0==game.
Workspace.Terrain:GetCell(f.X,f.Y,f.Z).Value then f=nil local h g,h=c(Vector3.
new(e.hit.x,e.hit.y,e.hit.z))if h then f=g end end return f end local e,f=
Vector3.new(0.3,0.3,0.3),nil f=function(g,h,i)if g:IsA'BasePart'then g.CFrame=(h
*(g.CFrame-i))+i end local j=g:GetChildren()for k=1,#j do f(j[k],h,i)end end
local g g=function(h,i)local j,k=CFrame.Angles(0,i,0),h:GetModelCFrame().p
return f(h,j,k)end local h h=function(i,j,k,l)if i:IsA'BasePart'then j[#j+1]=i
elseif i:IsA'Script'then k[#k+1]=i elseif i:IsA'Decal'then l[#l+1]=i end for m,n
in pairs(i:GetChildren())do h(n,j,k,l)end end local i i=function(j,k)local l=
game.Workspace:FindFirstChild'Terrain'local m,n=l:WorldToCell(j),l:WorldToCell(k
)local o,p,q,r,s,t=m.X,m.Y,m.Z,n.X,n.Y,n.Z if o<l.MaxExtents.Min.X then o=l.
MaxExtents.Min.X end if p<l.MaxExtents.Min.Y then p=l.MaxExtents.Min.Y end if q<
l.MaxExtents.Min.Z then q=l.MaxExtents.Min.Z end if r>l.MaxExtents.Max.X then r=
l.MaxExtents.Max.X end if s>l.MaxExtents.Max.Y then s=l.MaxExtents.Max.Y end if
t>l.MaxExtents.Max.Z then t=l.MaxExtents.Max.Z end for u=o,r do for v=p,s do for
w=q,t do if l:GetCell(u,v,w).Value>0 then return true end end end end return
false end local j j=function(k,l)if not k then return end if k.className=='Seat'
or k.className=='VehicleSeat'then table.insert(l,k)end local m=k:GetChildren()
for n=1,#m do j(m[n],l)end end local k k=function(l,m)local n={}j(l,n)if m then
for o=1,#n do local p=n[o]:FindFirstChild'SeatWeld'while p do p:Remove()p=n[o]:
FindFirstChild'SeatWeld'end end else for o=1,#n do a('Weld','SeatWeld',{Parent=n
[o]})end end end local l l=function(m)do local n=m:FindFirstChild
'AutoAlignToFace'if n then return n.Value else return false end end end local m
m=function(n)local o,p,q=Vector3.new(1,0,0),Vector3.new(0,1,0),Vector3.new(0,0,1
)local r,s,t=n.x*o.x+n.y*o.y+n.z*o.z,n.x*p.x+n.y*p.y+n.z*p.z,n.x*q.x+n.y*q.y+n.z
*q.z if math.abs(r)>math.abs(s)and math.abs(r)>math.abs(t)then if r>0 then
return 0 else return 3 end elseif math.abs(s)>math.abs(r)and math.abs(s)>math.
abs(t)then if s>0 then return 1 else return 4 end else if t>0 then return 2 else
return 5 end end end local n n=function(o,p)local q if not p then return p end
if p and(p:IsA'Model'or p:IsA'Tool')then q=p:GetModelCFrame()p:TranslateBy(o.p-q
.p)else p.CFrame=o end return p end local o o=function(p,q,r)if math.abs(q)<0.01
then return 0 end return(r-p)/q end local p p=function(q,r,s)if not q then
return 0 end local t,u if q:IsA'Model'then t=q:GetModelCFrame()u=q:GetModelSize(
)else t=q.CFrame u=q.Size end local v,w=t:pointToObjectSpace(r),t:
pointToObjectSpace(s)local x,y,z,A=w-v,1,1,1 if x.X>0 then y=-1 end if x.Y>0
then z=-1 end if x.Z>0 then A=-1 end local B,C,D,E=o(v.X,x.X,u.X/2*y),o(v.Y,x.Y,
u.Y/2*z),o(v.Z,x.Z,u.Z/2*A),0 if B>C then if B>D then E=1*y else E=3*A end else
if C>D then E=2*z else E=3*A end end return E end local q q=function(r)local s,t
=Vector3.new(math.huge,math.huge,math.huge),Vector3.new(-math.huge,-math.huge,-
math.huge)if r:IsA'Terrain'then s=Vector3.new(-2,-2,-2)t=Vector3.new(2,2,2)
elseif r:IsA'BasePart'then s=-0.5*r.Size t=-s else t=r:GetModelSize()*0.5 s=-t
end local u=r:FindFirstChild'Justification'if(u~=nil)then local v,w,x=u.Value,
Vector3.new(2,2,2),t-s-Vector3.new(0.01,0.01,0.01)local y=Vector3.new(4*math.
ceil(x.x/4),4*math.ceil(x.y/4),4*math.ceil(x.z/4))local z=y-x s=s-(0.5*z*v)t=t+(
0.5*z*(w-v))end return s,t end local r r=function(s)local t,u=Vector3.new(math.
huge,math.huge,math.huge),Vector3.new(-math.huge,-math.huge,-math.huge)if s:IsA
'BasePart'and not s:IsA'Terrain'then local v,w=s.CFrame:pointToWorldSpace(-0.5*s
.Size),s.CFrame:pointToWorldSpace(0.5*s.Size)t=Vector3.new(math.min(v.X,w.X),
math.min(v.Y,w.Y),math.min(v.Z,w.Z))u=Vector3.new(math.max(v.X,w.X),math.max(v.Y
,w.Y),math.max(v.Z,w.Z))elseif not s:IsA'Terrain'then local v,w=s:
GetModelCFrame():pointToWorldSpace(-0.5*s:GetModelSize()),s:GetModelCFrame():
pointToWorldSpace(0.5*s:GetModelSize())t=Vector3.new(math.min(v.X,w.X),math.min(
v.Y,w.Y),math.min(v.Z,w.Z))u=Vector3.new(math.max(v.X,w.X),math.max(v.Y,w.Y),
math.max(v.Z,w.Z))end return t,u end local s s=function(t)return q((function()if
(t.Parent:FindFirstChild'RobloxModel'~=nil)then return t.Parent else return t
end end)())end local t t=function(u)if(u.Parent:FindFirstChild'RobloxModel'~=nil
)then if u.Parent:IsA'Tool'then return u.Parent.Handle.CFrame else return u.
Parent:GetModelCFrame()end else return u.CFrame end end local u u=function(v)if
not v then return false end if not v.Parent then return false end if v:
FindFirstChild'Humanoid'then return false end if v:FindFirstChild'RobloxStamper'
or v:FindFirstChild'RobloxModel'then return true end if v:IsA'Part'and not v.
CanCollide then return false end if v==game.Lighting then return false end
return u(v.Parent)end local v v=function(w,x,y)local z=game.Workspace:
FindPartsInRegion3(Region3.new(Vector3.new(w.Position.X,x,w.Position.Z)-Vector3.
new(0.75,2.75,0.75),Vector3.new(w.Position.X,x,w.Position.Z)+Vector3.new(0.75,
1.75,0.75)),w.Parent,100)for A=1,#z do if z[A].CanCollide and not z[A]:
IsDescendantOf(y.CurrentParts)then return false end end if i(Vector3.new(w.
Position.X,x,w.Position.Z)-Vector3.new(0.75,2.75,0.75),Vector3.new(w.Position.X,
x,w.Position.Z)+Vector3.new(0.75,1.75,0.75))then return false end return true
end local w w=function(x,y)if not x then return end if not y then return error
'findConfigAtMouseTarget: stampData is nil'end if not y['CurrentParts']then
return end local z,A,B,C,D=4,false,CFrame.new(0,0,0),q(y.CurrentParts)local E,F=
D-C,nil if y.CurrentParts:IsA'Model'or y.CurrentParts:IsA'Tool'then F=y.
CurrentParts:GetModelCFrame()else F=y.CurrentParts.CFrame end if x then if y.
CurrentParts:IsA'Tool'then x.TargetFilter=y.CurrentParts.Handle else x.
TargetFilter=y.CurrentParts end end local G,H=false,nil local I=pcall(function()
H=x.Target end)if not I then return A,B end local J=Vector3.new(0,0,0)if x then
J=Vector3.new(x.Hit.x,x.Hit.y,x.Hit.z)end local K if nil==H then K=d(x)if nil==K
then G=false return A,B else H=game.Workspace.Terrain G=true K=Vector3.new(K.X-1
,K.Y,K.Z)J=game.Workspace.Terrain:CellCenterToWorld(K.x,K.y,K.z)end end local L,
M=s(H)local N,O=M-L,t(H)if H:IsA'Terrain'then if not cluster then cluster=game.
Workspace:FindFirstChild'Terrain'end local P=cluster:WorldToCellPreferSolid(J)if
G then P=K end O=CFrame.new(game.Workspace.Terrain:CellCenterToWorld(P.x,P.y,P.z
))end local P,Q=O:pointToObjectSpace(J),Vector3.new(0,0,0)if x then Q=H.CFrame:
vectorToWorldSpace(Vector3.FromNormalId(x.TargetSurface))end local R,S,T if m(Q)
==0 then R=O:vectorToObjectSpace(Vector3.new(1,-1,1))S=F:vectorToObjectSpace(
Vector3.new(-1,-1,1))T=Vector3.new(0,1,1)elseif m(Q)==3 then R=O:
vectorToObjectSpace(Vector3.new(-1,-1,-1))S=F:vectorToObjectSpace(Vector3.new(1,
-1,-1))T=Vector3.new(0,1,1)elseif m(Q)==1 then R=O:vectorToObjectSpace(Vector3.
new(-1,1,1))S=F:vectorToObjectSpace(Vector3.new(-1,-1,1))T=Vector3.new(1,0,1)
elseif m(Q)==4 then R=O:vectorToObjectSpace(Vector3.new(-1,-1,1))S=F:
vectorToObjectSpace(Vector3.new(-1,1,1))T=Vector3.new(1,0,1)elseif m(Q)==2 then
R=O:vectorToObjectSpace(Vector3.new(-1,-1,1))S=F:vectorToObjectSpace(Vector3.
new(-1,-1,-1))T=Vector3.new(1,1,0)else R=O:vectorToObjectSpace(Vector3.new(1,-1,
-1))S=F:vectorToObjectSpace(Vector3.new(1,-1,1))T=Vector3.new(1,1,0)end R=R*((
0.5*N)+0.5*(M+L))S=S*((0.5*E)+0.5*(D+C))local U=P-R local V=Vector3.new(z*math.
modf(U.x/z),z*math.modf(U.y/z),z*math.modf(U.z/z))V=V*T local W=V+R local X,Y=O:
pointToWorldSpace(W),F:vectorToWorldSpace(S)local Z,_,aa,ab,ac,ad,ae,af,ag,ah,ai
,aj,ak=X-Y,F:components()B=CFrame.new(Z.x,Z.y,Z.z,ac,ad,ae,af,ag,ah,ai,aj,ak)A=
true return A,B,m(Q)end local ab ab=function(ac,ad)local ae,af=math.abs(ac),math
.abs(ad)local ag=math.sqrt(ae*ae+af*af)local ah,ai,aj=af/ag,1,1 if ac<0 then ai=
-1 end if ad<0 then aj=-1 end if ah>0.382683432 then return 0.707106781*ag*ai,
0.707106781*ag*aj else return ag*ai,0 end end local ac ac=function(ad,ae,af)if
ad:IsA'ManualWeld'or ad:IsA'Rotate'then table.insert(ae,ad)return table.insert(
af,ad.Parent)else local ag=ad:GetChildren()for ah=1,#ag do ac(ag[ah],ae,af)end
end end local ad ad=function(ae,af)for ag=1,#ae do ae[ag].Parent=af[ag]end end b
.CanEditRegion=function(ae,af)if not af then return true,false end local ag,ah=
r(ae)if ag.X<af.CFrame.p.X-af.Size.X/2 or ag.Y<af.CFrame.p.Y-af.Size.Y/2 or ag.Z
<af.CFrame.p.Z-af.Size.Z/2 then return false,false end if ah.X>af.CFrame.p.X+af.
Size.X/2 or ah.Y>af.CFrame.p.Y+af.Size.Y/2 or ah.Z>af.CFrame.p.Z+af.Size.Z/2
then return false,false end return true,false end b.GetStampModel=function(ae,af
,ag)if ae==0 then return nil,'No Asset'end if ae<0 then return nil,
'Negative Asset'end local ah ah=function(ai)if ai:IsA'BasePart'then ai.Locked=
false end for aj,ak in pairs(ai:GetChildren())do ah(ak)end end local ai ai=
function(aj)return BrickColor.new((function()if 1==aj then return'Bright green'
elseif 2==aj then return'Bright yellow'elseif 3==aj then return'Bright red'
elseif 4==aj then return'Sand red'elseif 5==aj then return'Black'elseif 6==aj
then return'Dark stone grey'elseif 7==aj then return'Sand blue'elseif 8==aj then
return'Deep orange'elseif 9==aj then return'Dark orange'elseif 10==aj then
return'Reddish brown'elseif 11==aj then return'Light orange'elseif 12==aj then
return'Light stone grey'elseif 13==aj then return'Sand green'elseif 14==aj then
return'Medium stone grey'elseif 15==aj then return'Really red'elseif 16==aj then
return'Really blue'elseif 17==aj then return'Bright blue'else return
'Bright green'end end)())end local aj aj=function(ak,x,y)local z if x==1 or x==4
then z=Instance.new'WedgePart'z.formFactor='Custom'elseif x==2 then z=Instance.
new'CornerWedgePart'else z=Instance.new'Part'z.formFactor='Custom'end z.Name=
'MegaClusterCube'z.Size=Vector3.new(4,4,4)z.BottomSurface='Smooth'z.TopSurface=
'Smooth'z.BrickColor=ai(ak)local A,B=0,math.pi if x==4 then A=-math.pi/2 end if
x==2 or x==3 then B=0 end z.CFrame=CFrame.Angles(0,math.pi/2*y+B,A)if x==3 then
a('SpecialMesh',{MeshType='FileMesh',MeshId=
'http://www.roblox.com/asset?id=66832495',Scale=Vector3.new(2,2,2),Parent=z})end
a('Vector3Value','ClusterMaterial',{Value=Vector3.new(ak,x,y),Parent=z})return z
end local ak,x,y=nil,nil,true if ag then x=coroutine.create(function()ak=game:
GetService'InsertService':LoadAssetVersion(ae)y=false end)coroutine.resume(x)
else x=coroutine.create(function()ak=game:GetService'InsertService':LoadAsset(ae
)y=false end)coroutine.resume(x)end local z,A,B=0,0,8 while y and A<B do z=tick(
)wait(1)A=A+(tick()-z)end y=false if A>=B then return nil,'Load Time Fail'end if
ak==nil then return nil,'Load Asset Fail'end if not ak:IsA'Model'then return nil
,'Load Type Fail'end local C=ak:GetChildren()if#C==0 then return nil,
'Empty Model Fail'end ah(ak)ak=ak:GetChildren()[1]for D,E in pairs(C)do if E:IsA
'Team'then E.Parent=game:GetService'Teams'elseif E:IsA'Sky'then local F=game:
GetService'Lighting'for G,H in pairs(F:GetChildren())do if H:IsA'Sky'then H:
Remove()end end E.Parent=F return end end if ak:FindFirstChild'RobloxModel'==nil
then a('BoolValue','RobloxModel',{Parent=ak})if ak:FindFirstChild'RobloxStamper'
==nil then a('BoolValue','RobloxStamper',{Parent=ak})end end if af then if ak.
Name=='MegaClusterCube'then if af==6 then a('BoolValue','AutoWedge',{Parent=ak})
else local F=ak:FindFirstChild'ClusterMaterial'if F then if F:IsA'Vector3Value'
then ak=aj(F.Value.X,af,F.Value.Z)else ak=aj(F.Value,af,0)end else ak=aj(1,af,0)
end end end end return ak end b.SetupStamperDragger=function(ae,af,ag,ah,ai)if
not ae then error
[[SetupStamperDragger: modelToStamp (first arg) is nil! Should be a stamper model]]
return nil end if not ae:IsA'Model'and not ae:IsA'BasePart'then error
[[SetupStamperDragger: modelToStamp (first arg) is neither a Model or Part!]]
return nil end if not af then error
[[SetupStamperDragger: Mouse (second arg) is nil! Should be a mouse object]]
return nil end if not af:IsA'Mouse'then error
[[SetupStamperDragger: Mouse (second arg) is not of type Mouse!]]return nil end
local aj,ak,x if ag then if not ag:IsA'Model'then error
[[SetupStamperDragger: StampInModel (optional third arg) is not of type 'Model']]
return nil end if not ah then error
[[SetupStamperDragger: AllowedStampRegion (optional fourth arg) is nil when StampInModel (optional third arg) is defined]]
return nil end x=ai aj=ag ak=ah end local y,z,A,B,C=0,nil,nil,a('SelectionBox',{
Color=BrickColor.new'Bright red',Transparency=0,Archivable=false}),a('Part',{
Parent=nil,formFactor='Custom',Size=Vector3.new(4,4,4),CFrame=CFrame.new(),
Archivable=false})local D,E=a('SelectionBox','HighScalabilityStamperLine',{Color
=BrickColor.new'Toothpaste',Adornee=C,Visible=true,Transparency=0,Archivable=
false}),{}E.Start=nil E.End=nil E.Adorn=D E.AdornPart=C E.InternalLine=nil E.
NewHint=true E.MorePoints={nil,nil}E.MoreLines={nil,nil}E.Dimensions=1 local F,G
,H,I,J,K,L,M={},false,false,false,{},nil,a('BoolValue',{Archivable=false,Value=
false}),{}M.TerrainOrientation=0 M.CFrame=0 local N={}N.Material=1 N.clusterType
=0 N.clusterOrientation=0 local O O=function()if not z then return false end if
not z.CurrentParts then return false end return z.CurrentParts:FindFirstChild(
'ClusterMaterial',true)or(z.CurrentParts.Name=='MegaClusterCube')end local P P=
function()local Q=z.CurrentParts:FindFirstChild'MegaClusterCube'if not Q then if
not z.CurrentParts.Name=='MegaClusterCube'then return else Q=z.CurrentParts end
end E.End=Q.CFrame.p local R,S,T=nil,Vector3.new(0,0,0),Vector3.new(0,0,0)if E.
Dimensions==1 then R=E.End-E.Start if math.abs(R.X)<math.abs(R.Y)then if math.
abs(R.X)<math.abs(R.Z)then local U,V if math.abs(R.Y)>math.abs(R.Z)then U,V=ab(R
.Y,R.Z)else V,U=ab(R.Z,R.Y)end R=Vector3.new(0,U,V)else local U,V=ab(R.Y,R.X)R=
Vector3.new(V,U,0)end else if math.abs(R.Y)<math.abs(R.Z)then local U,V if math.
abs(R.X)>math.abs(R.Z)then U,V=ab(R.X,R.Z)else V,U=ab(R.Z,R.X)end R=Vector3.new(
U,0,V)else local U,V=ab(R.X,R.Y)R=Vector3.new(U,V,0)end end E.InternalLine=R
elseif E.Dimensions==2 then R=E.MoreLines[1]S=E.End-E.MorePoints[1]S=S-(R.unit*R
.unit:Dot(S))local U=CFrame.new(E.Start,E.Start+R)local V,W=U:
vectorToWorldSpace(Vector3.new(0,1,0)),U:vectorToWorldSpace(Vector3.new(1,0,0))
local X,Y=W:Dot(S),V:Dot(S)if math.abs(Y)>math.abs(X)then S=S-(W*X)else S=S-(V*Y
)end E.InternalLine=S elseif E.Dimensions==3 then R=E.MoreLines[1]S=E.MoreLines[
2]T=E.End-E.MorePoints[2]T=T-(R.unit*R.unit:Dot(T))T=T-(S.unit*S.unit:Dot(T))E.
InternalLine=T end local U=CFrame.new(E.Start,E.Start+R)if E.Dimensions==1 then
E.AdornPart.Size=Vector3.new(4,4,R.magnitude+4)E.AdornPart.CFrame=U+U:
vectorToWorldSpace(Vector3.new(2,2,2)-E.AdornPart.Size/2)else local V=U:
vectorToObjectSpace(R+S+T)E.AdornPart.Size=Vector3.new(4,4,4)+Vector3.new(math.
abs(V.X),math.abs(V.Y),math.abs(V.Z))E.AdornPart.CFrame=U+U:vectorToWorldSpace(V
/2)end local V if game.Players['LocalPlayer']then V=game.Players.LocalPlayer:
FindFirstChild'PlayerGui'if V and V:IsA'PlayerGui'then if(E.Dimensions==1 and R.
magnitude>3)or E.Dimensions>1 then E.Adorn.Parent=V end end end if not(V~=nil)
then V=game:GetService'CoreGui'if(E.Dimensions==1 and R.magnitude>3)or E.
Dimensions>1 then E.Adorn.Parent=V end end end local Q Q=function(R)if not R
then error'Error: RbxStamper.DoStamperMouseMove: Mouse is nil'return end if not
R:IsA'Mouse'then error('Error: RbxStamper.DoStamperMouseMove: Mouse is of type',
R.className,'should be of type Mouse')return end if not R.Target then local S=d(
R)if nil==S then return end end if not z then return end local S,T,U=w(R,z)if
not S then error'RbxStamper.DoStamperMouseMove No configFound, returning'return
end local V=0 if l(z.CurrentParts)and U~=1 and U~=4 then if U==3 then V=0-y+l(z.
CurrentParts)elseif U==0 then V=2-y+l(z.CurrentParts)elseif U==5 then V=3-y+l(z.
CurrentParts)elseif U==2 then V=1-y+l(z.CurrentParts)end end local W=math.pi/2 y
=y+V if z.CurrentParts:IsA'Model'or z.CurrentParts:IsA'Tool'then g(z.
CurrentParts,W*V)else z.CurrentParts.CFrame=CFrame.fromEulerAnglesXYZ(0,W*V,0,{z
.CurrentParts.CFrame})end local X,Y=r(z.CurrentParts)local Z if z.CurrentParts:
IsA'Model'then Z=z.CurrentParts:GetModelCFrame()else Z=z.CurrentParts.CFrame end
X=X+(T.p-Z.p)Y=Y+(T.p-Z.p)if i(X+e,Y-e)then if M.CFrame then if z.CurrentParts:
FindFirstChild('ClusterMaterial',true)then local al=z.CurrentParts:
FindFirstChild('ClusterMaterial',true)if al:IsA'Vector3Value'then local am=z.
CurrentParts:FindFirstChild('ClusterMaterial',true)if am then am=clusterMat end
end end end return end if O()then local al=game.Workspace.Terrain:WorldToCell(T.
p)local am,an,ao,ap,aq,ar,as,at,au,av,aw,ax,ay=game.Workspace.Terrain:
CellCenterToWorld(al.X,al.Y,al.Z),T:components()T=CFrame.new(am.X,am.Y,am.Z,aq,
ar,as,at,au,av,aw,ax,ay)end n(T,z.CurrentParts)M.CFrame=T if z.CurrentParts:
FindFirstChild('ClusterMaterial',true)then local al=z.CurrentParts:
FindFirstChild('ClusterMaterial',true)if al:IsA'Vector3Value'then M.
TerrainOrientation=al.Value.Z end end if R and R.Target and R.Target.Parent then
local al=R.Target:FindFirstChild'RobloxModel'if not al then al=R.Target.Parent:
FindFirstChild'RobloxModel'end local am=z.CurrentParts:FindFirstChild
'UnstampableFaces'do local ap,aq='',''if al and al.Parent:FindFirstChild
'UnstampableFaces'then ap=al.Parent.UnstampableFaces.Value end if am then aq=am.
Value end local ar=0 if al then ar=p(al.Parent,game.Workspace.CurrentCamera.
CoordinateFrame.p,R.Hit.p)end for as in string.gmatch(ap,'[^,]+')do if ar==
tonumber(as)then I=true game.JointsService:ClearJoinAfterMoveJoints()return end
end ar=p(z.CurrentParts,R.Hit.p,game.Workspace.CurrentCamera.CoordinateFrame.p)
for at in string.gmatch(aq,'[^,]+')do if ar==tonumber(at)then I=true game.
JointsService:ClearJoinAfterMoveJoints()return end end end end I=false game.
JointsService:SetJoinAfterMoveInstance(z.CurrentParts)if(not pcall(function()
return end))then error
[[Error: RbxStamper.DoStamperMouseMove Mouse is nil on second check]]game.
JointsService:ClearJoinAfterMoveJoints()R=nil return end if R and R.Target and
not(R.Target.Parent:FindFirstChild'RobloxModel'~=nil)then game.JointsService:
SetJoinAfterMoveTarget(R.Target)else game.JointsService:SetJoinAfterMoveTarget(
nil)end game.JointsService:ShowPermissibleJoints()if O()and E and E.Start then
return P()end end local al al=function(am,ap)if F and F['Paused']then return end
am=string.lower(am)if am=='r'and not l(z.CurrentParts)then y=y+1 local aq=z.
CurrentParts:FindFirstChild('ClusterMaterial',true)if aq and aq:IsA
'Vector3Value'then aq.Value=Vector3.new(aq.Value.X,aq.Value.Y,(aq.Value.Z+1)%4)
end local ar=math.pi/2 if z.CurrentParts:IsA'Model'or z.CurrentParts:IsA'Tool'
then g(z.CurrentParts,ar)else z.CurrentParts.CFrame=CFrame.fromEulerAnglesXYZ(0,
ar,0)*z.CurrentParts.CFrame end local at,au=w(ap,z)if at then n(au,z.
CurrentParts)return Q(ap)end elseif am=='c'then if E.InternalLine and E.
InternalLine.magnitude>0 and E.Dimensions<3 then E.MorePoints[E.Dimensions]=E.
End E.MoreLines[E.Dimensions]=E.InternalLine E.Dimensions=E.Dimensions+1 E.
NewHint=true end return E end end K=af.KeyDown:connect(function(am)return al(am,
af)end)local am am=function()if E then E.Start=nil E.End=nil E.InternalLine=nil
E.NewHint=true end end local ap ap=function()local aq=game.CoreGui if game:
FindFirstChild'Players'and game.Players['LocalPlayer']and game.Players.
LocalPlayer:FindFirstChild'PlayerGui'then aq=game.Players.LocalPlayer.PlayerGui
end if not z['ErrorBox']then return end z.ErrorBox.Parent=aq if z.CurrentParts:
IsA'Tool'then z.ErrorBox.Adornee=z.CurrentParts.Handle else z.ErrorBox.Adornee=z
.CurrentParts end return delay(0,function()for ar=1,3 do if z['ErrorBox']then z.
ErrorBox.Visible=true end wait(0.13)if z['ErrorBox']then z.ErrorBox.Visible=
false end wait(0.13)end if z['ErrorBox']then z.ErrorBox.Adornee=nil z.ErrorBox.
Parent=Tool end end)end local aq aq=function(ar)if not ar then error
'Error: RbxStamper.DoStamperMouseDown: Mouse is nil'return end if not ar:IsA
'Mouse'then error('Error: RbxStamper.DoStamperMouseDown: Mouse is of type',ar.
className,'should be of type Mouse')return end if not z then return end if O()
then if ar and E then local at,au=z.CurrentParts:FindFirstChild(
'MegaClusterCube',true),game.Workspace.Terrain if at then E.Dimensions=1 local
av=au:WorldToCell(at.CFrame.p)E.Start=au:CellCenterToWorld(av.X,av.Y,av.Z)return
else E.Dimensions=1 local av=au:WorldToCell(z.CurrentParts.CFrame.p)E.Start=au:
CellCenterToWorld(av.X,av.Y,av.Z)return end end end end local ar ar=function(at,
au)at.TopSurface=au[1]at.BottomSurface=au[2]at.LeftSurface=au[3]at.RightSurface=
au[4]at.FrontSurface=au[5]at.BackSurface=au[6]return at end local at at=function
(au,av)local aw={}aw[1]=au.TopSurface aw[2]=au.BottomSurface aw[3]=au.
LeftSurface aw[4]=au.RightSurface aw[5]=au.FrontSurface aw[6]=au.BackSurface av[
au]=aw end local au au=function(av)if not av then return nil end local aw,ax,ay,
R,S,T=0.7,1,av:Clone(),{},{},{}z={}z.DisabledScripts={}z.TransparencyTable={}z.
MaterialTable={}z.CanCollideTable={}z.AnchoredTable={}z.ArchivableTable={}z.
DecalTransparencyTable={}z.SurfaceTypeTable={}h(ay,S,R,T)if#S<=0 then return nil
,'no parts found in modelToStamp'end for U,V in pairs(R)do if not V.Disabled
then V.Disabled=true z.DisabledScripts[#z.DisabledScripts+1]=V end end for W,X
in pairs(S)do z.TransparencyTable[X]=X.Transparency X.Transparency=ax+(1-ax)*X.
Transparency z.MaterialTable[X]=X.Material X.Material=Enum.Material.Plastic z.
CanCollideTable[X]=X.CanCollide X.CanCollide=false z.AnchoredTable[X]=X.Anchored
X.Anchored=true z.ArchivableTable[X]=X.Archivable X.Archivable=false at(X,z.
SurfaceTypeTable)local Y,Z=0.5,0.5 delay(0,function()wait(Y)local az=tick()local
aA=az while(aA-az)<Z and X and X:IsA'BasePart'and X.Transparency>aw do local aB=
1-(((aA-az)/Z)*(ax-aw))if z['TransparencyTable']and z.TransparencyTable[X]then X
.Transparency=aB+(1-aB)*z.TransparencyTable[X]end wait(0.03)aA=tick()end if X
and X:IsA'BasePart'then if z['TransparencyTable']and z.TransparencyTable[X]then
X.Transparency=aw+(1-aw)*z.TransparencyTable[X]end end end)end for az,aA in
pairs(T)do z.DecalTransparencyTable[aA]=aA.Transparency aA.Transparency=aw+(1-aw
)*aA.Transparency end k(ay,true)k(ay,false)z.CurrentParts=ay if l(ay)then z.
CurrentParts:ResetOrientationToIdentity()y=0 else local aB=y*math.pi/2 if z.
CurrentParts:IsA'Model'or z.CurrentParts:IsA'Tool'then g(z.CurrentParts,aB)else
z.CurrentParts.CFrame=CFrame.fromEulerAnglesXYZ(0,aB,0)*z.CurrentParts.CFrame
end end local aB=z.CurrentParts:FindFirstChild('ClusterMaterial',true)if aB and
aB:IsA'Vector3Value'then aB.Value=Vector3.new(aB.Value.X,aB.Value.Y,(aB.Value.Z+
y)%4)end local Y,Z=w(af,z)if Y then z.CurrentParts=n(Z,z.CurrentParts)end game.
JointsService:SetJoinAfterMoveInstance(z.CurrentParts)return ay,S end local av
av=function(aw,ax)local ay=game.Workspace.Terrain.CellCenterToWorld local az=ay(
game.Workspace.Terrain,aw.X,aw.Y,aw.Z)local aA,aB=game.Workspace:
FindPartsInRegion3(Region3.new(az-Vector3.new(2,2,2)+e,az+Vector3.new(2,2,2)-e),
z.CurrentParts,100),false for R=1,#aA do if u(aA[R])then aB=true break end end
if not aB then local R={}for S=1,#aA do if aA[S].Parent and not R[aA[S].Parent]
and aA[S].Parent:FindFirstChild(aA[S].Parent:FindFirstChild'Humanoid':IsA
'Humanoid')then local T=aA[S].Parent:FindFirstChild'Torso'R[aA[S].Parent]=true
if T then local V=az.Y+5 if v(T,V,z)then T.CFrame=T.CFrame+Vector3.new(0,V-T.
CFrame.p.Y,0)else aB=true break end end end end end if not aB then local R=true
if ax then if ak then aw=ay(game.Workspace.Terrain,aw.X,aw.Y,aw.Z)if(aw.X+2>ak.
CFrame.p.X+ak.Size.X/2)or(aw.X-2<ak.CFrame.p.X-ak.Size.X/2)or(aw.Y+2>ak.CFrame.p
.Y+ak.Size.Y/2)or(aw.Y-2<ak.CFrame.p.Y-ak.Size.Y/2)or(aw.Z+2>ak.CFrame.p.Z+ak.
Size.Z/2)or(aw.Z-2<ak.CFrame.p.Z-ak.Size.Z/2)then R=false end end end return R
end return false end local aw aw=function(ax)local ay,az,aA,aB,R,S,T,V,X=false,
game.Workspace.Terrain,E.InternalLine,game.Workspace.Terrain.MaxExtents.Max,game
.Workspace.Terrain.MaxExtents.Min,1,0,0,false if z.CurrentParts:FindFirstChild
'AutoWedge'then X=true end if z.CurrentParts:FindFirstChild('ClusterMaterial',
true)then S=z.CurrentParts:FindFirstChild('ClusterMaterial',true)if S:IsA
'Vector3Value'then T=S.Value.Y V=S.Value.Z S=S.Value.X elseif S:IsA'IntValue'
then S=S.Value end end if E.Adorn.Parent and E.Start and((E.Dimensions>1)or(aA
and aA.magnitude>0))then local Y,Z,aC,aD,aE,aF,aG,aH=game.Workspace.Terrain:
WorldToCell(E.Start),{0,0,0},{0,0,0},{0,0,0},{nil,nil,nil},{Vector3.new(0,0,0),
Vector3.new(0,0,0),Vector3.new(0,0,0)},{Vector3.new(1,0,0),Vector3.new(0,1,0),
Vector3.new(0,0,1)},{}if E.Dimensions>1 then table.insert(aH,E.MoreLines[1])end
if aA and aA.magnitude>0 then table.insert(aH,aA)end if E.Dimensions>2 then
table.insert(aH,E.MoreLines[2])end for aI=1,#aH do aH[aI]=Vector3.new(math.
floor(aH[aI].X+0.5),math.floor(aH[aI].Y+0.5),math.floor(aH[aI].Z+0.5))if aH[aI].
X>0 then Z[aI]=1 elseif aH[aI].X<0 then Z[aI]=-1 end if aH[aI].Y>0 then aC[aI]=1
elseif aH[aI].Y<0 then aC[aI]=-1 end if aH[aI].Z>0 then aD[aI]=1 elseif aH[aI].Z
<0 then aD[aI]=-1 end aE[aI]=Vector3.new(Z[aI],aC[aI],aD[aI])if aE[aI].magnitude
<0.9 then aE[aI]=nil end end if not aH[2]then aH[2]=Vector3.new(0,0,0)end if not
aH[3]then aH[3]=Vector3.new(0,0,0)end local aI,aJ=z.CurrentParts:FindFirstChild(
'WaterForceTag',true),z.CurrentParts:FindFirstChild('WaterForceDirectionTag',
true)while aF[3].magnitude*4<=aH[3].magnitude do local aK=1 while aK<4 do aF[2]=
Vector3.new(0,0,0)while aF[2].magnitude*4<=aH[2].magnitude do local aL=1 while
aL<4 do aF[1]=Vector3.new(0,0,0)while aF[1].magnitude*4<=aH[1].magnitude do
local aM=aF[1]+aF[2]+aF[3]local aN=Vector3int16.new(Y.X+aM.X,Y.Y+aM.Y,Y.Z+aM.Z)
if aN.X>=R.X and aN.Y>=R.Y and aN.Z>=R.Z and aN.X<aB.X and aN.Y<aB.Y and aN.Z<aB
.Z then local aO=av(aN,ax)if aO then if aI then az:SetWaterCell(aN.X,aN.Y,aN.Z,
Enum.WaterForce[aI.Value],Enum.WaterDirection[aJ.Value])else az:SetCell(aN.X,aN.
Y,aN.Z,S,T,V)end ay=true if X then game.Workspace.Terrain:AutowedgeCells(
Region3int16.new(Vector3int16.new(aN.x-1,aN.y-1,aN.z-1),Vector3int16.new(aN.x+1,
aN.y+1,aN.z+1)))end end end aF[1]=aF[1]+aE[1]end if aE[2]then while aL<4 and aG[
aL]:Dot(aE[2])==0 do aL=aL+1 end if aL<4 then aF[2]=aF[2]+aG[aL]*aG[aL]:Dot(aE[2
])end aL=aL+1 else aF[2]=Vector3.new(1,0,0)aL=4 end if aF[2].magnitude*4>aH[2].
magnitude then aL=4 end end end if aE[3]then while aK<4 and aG[aK]:Dot(aE[3])==0
do aK=aK+1 end if aK<4 then aF[3]=aF[3]+aG[aK]*aG[aK]:Dot(aE[3])end aK=aK+1 else
aF[3]=Vector3.new(1,0,0)aK=4 end if aF[3].magnitude*4>aH[3].magnitude then aK=4
end end end end E.Start=nil E.Adorn.Parent=nil if ay then z.CurrentParts.Parent=
nil pcall(function()return game:GetService'ChangeHistoryService':SetWaypoint
'StamperMulti'end)end return ay end local ax ax=function(ay)if not ay then error
'Error: RbxStamper.DoStamperMouseUp: Mouse is nil'return false end if not ay:IsA
'Mouse'then error('Error: RbxStamper.DoStamperMouseUp: Mouse is of type',ay.
className,'should be of type Mouse')return false end if not z.Dragger then error
[[Error: RbxStamper.DoStamperMouseUp: stampData.Dragger is nil]]return false end
if not E then return false end local az if aj then local aA,aB=nil,O()if aB and
E and E.Start and E.InternalLine and E.InternalLine.magnitude>0 then aA=true az=
true else aA,az=b.CanEditRegion(z.CurrentParts,ak)end if not aA then if x~=nil
then x()end return false end end if I then ap()return false end local aA aA,az=b
.CanEditRegion(z.CurrentParts,ak)if not aA then if x~=nil then x()end return
false end local aB,aC=r(z.CurrentParts)local aD,aE=w(ay,z)if aD and not E.Adorn.
Parent then if i(aB+e,aC-e)then ap()return false end local aF=game.Workspace:
FindPartsInRegion3(Region3.new(aB+e,aC-e),z.CurrentParts,100)for aG=1,#aF do if
u(aF[aG])then ap()return false end end local aG={}for aH=1,#aF do if aF[aH].
Parent and not aG[aF[aH].Parent]and aF[aH].Parent:FindFirstChild'Humanoid'and aF
[aH].Parent:FindFirstChild'Humanoid':IsA'Humanoid'then local aI=aF[aH].Parent:
FindFirstChild'Torso'aG[aF[aH].Parent]=true if aI then local aJ=aC.Y+3 if v(aI,
aJ,z)then aI.CFrame=aI.CFrame+Vector3.new(0,aJ-aI.CFrame.p.Y,0)else ap()return
false end end end end elseif(not aD)and not(E.Start and E.Adorn.Parent)then am()
return false end if game:FindFirstChild'Players'then if game.Players[
'LocalPlayer']then if game.Players.LocalPlayer['Character']then local aF=game.
Players.LocalPlayer.Character local aG=aF:FindFirstChild'StampTracker'if aG and
not aG.Value then aG.Value=true end end end end if E.Start and E.Adorn.Parent
and O()then if aw(az)or az then z.CurrentParts.Parent=nil return true end end E.
Start=nil E.Adorn.Parent=nil local aF=game.Workspace.Terrain if O()then local aG
if z.CurrentParts:IsA'Model'then aG=aF:WorldToCell(z.CurrentParts:
GetModelCFrame().p)else aG=aF:WorldToCell(z.CurrentParts.CFrame.p)end local aH,
aI=game.Workspace.Terrain.MaxExtents.Max,game.Workspace.Terrain.MaxExtents.Min
if av(aG,false)then local aJ,aK,aL=z.CurrentParts:FindFirstChild(
'ClusterMaterial',true),z.CurrentParts:FindFirstChild('WaterForceTag',true),z.
CurrentParts:FindFirstChild('WaterForceDirectionTag',true)if aG.X>=aI.X and aG.Y
>=aI.Y and aG.Z>=aI.Z and aG.X<aH.X and aG.Y<aH.Y and aG.Z<aH.Z then if aK then
aF:SetWaterCell(aG.X,aG.Y,aG.Z,Enum.WaterForce[aK.Value],Enum.WaterDirection[aL.
Value])elseif not aJ then aF:SetCell(aG.X,aG.Y,aG.Z,N.Material,N.clusterType,y%4
)elseif aJ:IsA'Vector3Value'then aF:SetCell(aG.X,aG.Y,aG.Z,aJ.Value.X,aJ.Value.Y
,aJ.Value.Z)else aF:SetCell(aG.X,aG.Y,aG.Z,aJ.Value,0,0)end local aM=false if z.
CurrentParts:FindFirstChild'AutoWedge'then aM=true end if aM then game.Workspace
.Terrain:AutowedgeCells(Region3int16.new(Vector3int16.new(aG.x-1,aG.y-1,aG.z-1),
Vector3int16.new(aG.x+1,aG.y+1,aG.z+1)))end z.CurrentParts.Parent=nil pcall(
function()return game:GetService'ChangeHistoryService':SetWaypoint
'StamperSingle'end)return true end else ap()return false end end local aG aG=
function()if game:FindFirstChild'Players'and game.Players['LocalPlayer']then
return game.Players.LocalPlayer end end if z.CurrentParts:IsA'Model'or z.
CurrentParts:IsA'Tool'then if z.CurrentParts:IsA'Model'then local aH,aI={},{}ac(
z.CurrentParts,aH,aI)z.CurrentParts:BreakJoints()z.CurrentParts:MakeJoints()ad(
aH,aI)end local aH,aI=z.CurrentParts:FindFirstChild'PlayerIdTag',z.CurrentParts:
FindFirstChild'PlayerNameTag'if(aH~=nil)then local aJ=aG()if(aJ~=nil)then aH.
Value=aJ.userId end end if(aI~=nil)then if game:FindFirstChild(game.Players[
'LocalPlayer'])then local aJ=game.Players.LocalPlayer if(aJ~=nil)then aI.Value=
aJ.Name end end end if not(z.CurrentParts:FindFirstChild'RobloxModel'~=nil)then
a('BoolValue','RobloxModel',{Parent=z.CurrentParts})if not(z.CurrentParts:
FindFirstChild'RobloxStamper'~=nil)then a('BoolValue','RobloxStamper',{Parent=z.
CurrentParts})end end else z.CurrentParts:BreakJoints()if not(z.CurrentParts:
FindFirstChild'RobloxStamper'~=nil)then a('BoolValue','RobloxStamper',{Parent=z.
CurrentParts})end end if not createJoints then game.JointsService:
CreateJoinAfterMoveJoints()end for aH,aI in pairs(z.TransparencyTable)do aH.
Transparency=aI end for aJ,aK in pairs(z.ArchivableTable)do aJ.Archivable=aK end
for aL,aM in pairs(z.MaterialTable)do aL.Material=aM end for aN,aO in pairs(z.
CanCollideTable)do aN.CanCollide=aO end for R,S in pairs(z.AnchoredTable)do R.
Anchored=S end for T,V in pairs(z.DecalTransparencyTable)do T.Transparency=V end
for X,Y in pairs(z.SurfaceTypeTable)do ar(X,Y)end if O()then z.CurrentParts.
Transparency=0 end k(z.CurrentParts,true)z.TransparencyTable=nil z.
ArchivableTable=nil z.MaterialTable=nil z.CanCollideTable=nil z.AnchoredTable=
nil z.SurfaceTypeTable=nil if not(z.CurrentParts:FindFirstChild'RobloxModel'~=
nil)then a('BoolValue','RobloxModel',{Parent=z.CurrentParts})end if
ghostRemovalScript then ghostRemovalScript.Parent=nil end for Z,aP in pairs(z.
DisabledScripts)do aP.Disabled=false end for aQ,aR in pairs(z.DisabledScripts)do
local aS=aR.Parent aR.Parent=nil aR:Clone().Parent=aS end z.DisabledScripts=nil
z.Dragger=nil z.CurrentParts=nil pcall(function()return game:GetService
'ChangeHistoryService':SetWaypoint'StampedObject'end)return true end local ay ay
=function()for az=1,#J do J[az]:disconnect()J[az]=nil end J={}if z and z.
CurrentParts then z.CurrentParts.Parent=nil z.CurrentParts:Remove()end am()
return game.JointsService:ClearJoinAfterMoveJoints()end local az az=function(aA,
aB,aC)local aD,aE={Vector3.new(1,0,0),Vector3.new(0,1,0),Vector3.new(0,0,1)},1
if aC<0 then aE=aE*(-1)aC=aC*(-1)end local aF=aE*aA:vectorToWorldSpace(aD[aC])
for aG=1,#aB do local aK=aB[aG]local aM=aK.CFrame:vectorToObjectSpace(aF)if math
.abs(aM.X)>math.abs(aM.Y)then if math.abs(aM.X)>math.abs(aM.Z)then if aM.X>0
then aK.RightSurface='Unjoinable'else aK.LeftSurface='Unjoinable'end else if aM.
Z>0 then aK.BackSurface='Unjoinable'else aK.FrontSurface='Unjoinable'end end
else if math.abs(aM.Y)>math.abs(aM.Z)then if aM.Y>0 then aK.TopSurface=
'Unjoinable'else aK.BottomSurface='Unjoinable'end else if aM.Z>0 then aK.
BackSurface='Unjoinable'else aK.FrontSurface='Unjoinable'end end end end end
local aA aA=function()local aB,aC=au(ae)if not aB or not aC then return end
local aD=aB:FindFirstChild('UnjoinableFaces',true)if aD then for aE in string.
gmatch(aD.Value,'[^,]*')do if tonumber(aE)then if aB:IsA'Model'then az(aB:
GetModelCFrame(),aC,tonumber(aE))else az(aB.CFrame,aC,tonumber(aE))end end end
end z.ErrorBox=B if aj then aB.Parent=aj else aB.Parent=game.Workspace end if aB
:FindFirstChild('ClusterMaterial',true)then local aE=aB:FindFirstChild(
'ClusterMaterial',true)if aE:IsA'Vector3Value'then N.Material=aE.Value.X N.
clusterType=aE.Value.Y N.clusterOrientation=aE.Value.Z elseif aE:IsA'IntValue'
then N.Material=aE.Value end end pcall(function()A=af.Target end)if A and not(A.
Parent:FindFirstChild'RobloxModel'~=nil)then game.JointsService:
SetJoinAfterMoveTarget(A)else game.JointsService:SetJoinAfterMoveTarget(nil)end
game.JointsService:ShowPermissibleJoints()for aE,aF in pairs(z.DisabledScripts)
do if aF.Name=='GhostRemovalScript'then aF.Parent=z.CurrentParts end end z.
Dragger=Instance.new'Dragger'z.Dragger:MouseDown(aC[1],Vector3.new(0,0,0,aC))z.
Dragger:MouseUp()Q(af)table.insert(J,af.Move:connect(function()if G or H then
return end G=true Q(af)G=false end))table.insert(J,af.Button1Down:connect(
function()return aq(af)end))table.insert(J,af.Button1Up:connect(function()H=true
while G do wait()end L.Value=ax(af)am()H=false end))L.Value=false end local aB
aB=function(aC)if aC then if not aC:IsA'Model'and not aC:IsA'BasePart'then error
[[resetStamperState: newModelToStamp (first arg) is not nil, but not a model or part!]]
end ae=aC end ay()return aA()end aB()F.Stamped=L F.Paused=false F.LoadNewModel=
function(aC)if aC and not aC:IsA'Model'and not aC:IsA'BasePart'then error
[[Control.LoadNewModel: newStampModel (first arg) is not a Model or Part!]]
return nil end return aB(aC)end F.ReloadModel=function()return aB()end F.Pause=
function()if not F.Paused then ay()F.Paused=true else return print
[[RbxStamper Warning: Tried to call Control.Pause! when already paused]]end end
F.Resume=function()if F.Paused then aA()F.Paused=false else return print
[[RbxStamper Warning: Tried to call Control.Resume! without Pausing First]]end
end F.ResetRotation=function()end F.Destroy=function()for aC=1,#J do J[aC]:
disconnect()J[aC]=nil end if K~=nil then K:disconnect()end game.JointsService:
ClearJoinAfterMoveJoints()if D~=nil then D:Destroy()end if C~=nil then C:
Destroy()end if B~=nil then B:Destroy()end if z~=nil then do local aC=z.Dragger
if aC~=nil then aC:Destroy()end end end if z~=nil then do local aC=z.
CurrentParts if aC~=nil then aC:Destroy()end end end if F and F['Stamped']then F
.Stamped:Destroy()end F=nil end return F end b.Help=function(ae)if
'GetStampModel'==ae or b.GetStampModel==ae then return
[[Function GetStampModel. Arguments: assetId, useAssetVersionId. assetId is the asset to load in, define useAssetVersionId as true if assetId is a version id instead of a relative assetId. Side effect: returns a model of the assetId, or a string with error message if something fails]]
elseif'SetupStamperDragger'==ae or b.SetupStamperDragger==ae then return
[[Function SetupStamperDragger. Side Effect: Creates 4x4 stamping mechanism for building out parts quickly. Arguments: ModelToStamp, Mouse, LegalStampCheckFunction. ModelToStamp should be a Model or Part, preferrably loaded from RbxStamper.GetStampModel and should have extents that are multiples of 4. Mouse should be a mouse object (obtained from things such as Tool.OnEquipped), used to drag parts around 'stamp' them out. LegalStampCheckFunction is optional, used as a callback with a table argument (table is full of instances about to be stamped). Function should return either true or false, false stopping the stamp action.]]
end end return b

180
processed/89449008.lua
View File

@ -1,180 +0,0 @@
print'[Mercury]: Loaded corescript 89449008'local a a=function(b,c,d)if not(d~=
nil)then d=c c=nil end local e=Instance.new(b)if c then e.Name=c end local f for
g,h in pairs(d)do if type(g)=='string'then if g=='Parent'then f=h else e[g]=h
end elseif type(g)=='number'and type(h)=='userdata'then h.Parent=e end end e.
Parent=f return e end local b b=function(c,d)assert(c)assert(d)while not c:
FindFirstChild(d)do print('Waiting for ...',c,d)c.ChildAdded:wait()end return c:
FindFirstChild(d)end local c c=function(d,e)assert(d)assert(e)while not d[e]do d
.Changed:wait()end end local d d=function()local e=false pcall(function()e=Game:
GetService'UserInputService'.TouchEnabled end)return e end b(game,'Players')c(
game.Players,'LocalPlayer')local e,f,g=game.Players.LocalPlayer,LoadLibrary
'RbxGui'if not f then print'could not find RbxGui!'return end local h,i,j,k,l,m,
n,o,p,q,r,s='gear',script.Parent,{},{},false,false,{},{},nil,nil,nil,b(e,
'Backpack')b(i,'Tabs')b(i,'Gear')local t,u,v,w=b(i.Gear,'GearPreview'),b(i.Gear,
'GearGridScrollingArea'),b(i.Parent,'CurrentLoadout'),b(i.Gear,'GearGrid')local
x,y,z=b(w,'GearButton'),b(script.Parent,'SwapSlot'),b(script.Parent,
'CoreScripts/BackpackScripts/BackpackManager')local A,B,C,D,E,F,G,H,I,J=b(z,
'BackpackOpenEvent'),b(z,'BackpackCloseEvent'),b(z,'TabClickedEvent'),b(z,
'ResizeEvent'),b(z,'SearchRequestedEvent'),b(z,'BackpackReady'),f.
CreateScrollingFrame(nil,'grid',Vector2.new(6,6))G.Position=UDim2.new(0,0,0,30)G
.Size=UDim2.new(1,0,1,-30)G.Parent=i.Gear.GearGrid local K=a('Frame','ScrollBar'
,{BackgroundTransparency=0.9,BackgroundColor3=Color3.new(1,1,1),BorderSizePixel=
0,Size=UDim2.new(0,17,1,-36),Position=UDim2.new(0,0,0,18),Parent=u})I.Position=
UDim2.new(0,0,1,-17)H.Parent=u I.Parent=u local L,M,N,O=f.CreateScrollingFrame()
L.Position=UDim2.new(0,0,0,0)L.Size=UDim2.new(1,0,1,0)L.Parent=i.Gear.
GearLoadouts.LoadoutsList local P=a('TextButton','LoadoutButton',{RobloxLocked=
true,Font=Enum.Font.ArialBold,FontSize=Enum.FontSize.Size14,Position=UDim2.new(0
,0,0,0),Size=UDim2.new(1,0,0,32),Style=Enum.ButtonStyle.RobloxButton,Text=
'Loadout #1',TextColor3=Color3.new(1,1,1),Parent=L})do local Q=P:clone()Q.Text=
'Loadout #2'Q.Parent=L end do local Q=P:clone()Q.Text='Loadout #3'Q.Parent=L end
do local Q=P:clone()Q.Text='Loadout #4'Q.Parent=L end a('Frame',
'ScrollBarLoadout',{BackgroundTransparency=0.9,BackgroundColor3=Color3.new(1,1,1
),BorderSizePixel=0,Size=UDim2.new(0,17,1,-36),Position=UDim2.new(0,0,0,18),
Parent=i.Gear.GearLoadouts.GearLoadoutsScrollingArea})N.Position=UDim2.new(0,0,1
,-17)M.Parent=i.Gear.GearLoadouts.GearLoadoutsScrollingArea N.Parent=i.Gear.
GearLoadouts.GearLoadoutsScrollingArea local Q Q=function(R,S)for T=1,#R do if R
[T]==S then table.remove(R,T)break end end end local R R=function(S)S.
RobloxLocked=true local T=S:GetChildren()if T then for U,V in ipairs(T)do R(V)
end end end local S S=function()t.GearImage.Image=''t.GearStats.GearName.Text=''
end local T T=function(U)U.TextColor3=Color3.new(1,1,1)U.BackgroundColor3=Color3
.new(0,0,0)end local U U=function(V)local W=v:GetChildren()for X=1,#W do if W[X]
:IsA'Frame'then local Y=W[X]:GetChildren()if#Y>0 and Y[1].GearReference.Value
and Y[1].GearReference.Value==V then return true end end end return false end
local V V=function()for W,X in pairs(j)do if k[X]then local Y,Z=nil,k[X]:
FindFirstChild'GearReference'if Z then Y=Z.Value end if(not Y)or U(Y)then k[X].
Active=false else k[X].Active=true end end end end local W W=function(X,Y)if not
y.Value then y.Slot.Value=X y.GearButton.Value=Y y.Value=true return V()end end
local X X=function(Y)Y.Parent=s return V()end local Y Y=function(Z,_)if type(Z.
Action)~='number'then return end local aa=Z.Action if aa==1 then X(_.Parent.
GearReference.Value)local ab=_.Parent local ac,ad,ae=ab.GearReference.Value,v:
GetChildren(),-1 for af=1,#ad do if ad[af]:IsA'Frame'then local ag=ad[af]:
GetChildren()if ag[1]and ag[1].GearReference.Value==ac then ae=ag[1].SlotNumber.
Text break end end end return W(ae,nil)end end local aa aa=function(ab)ab.
TextColor3=Color3.new(0,0,0)ab.BackgroundColor3=Color3.new(0.8,0.8,0.8)end local
ab ab=function()local ac=a('Frame','UnequipContextMenu',{Active=true,Size=UDim2.
new(0,115,0,70),Position=UDim2.new(0,-16,0,-16),BackgroundTransparency=1,Visible
=false})local ad,ae,af,ag=a('TextButton','UnequipContextMenuButton',{Text='',
Style=Enum.ButtonStyle.RobloxButtonDefault,ZIndex=8,Size=UDim2.new(1,0,1,-20),
Visible=true,Parent=ac}),12,{},{'Remove Hotkey'}for Z=1,#ag do local _={}_.Type=
'Button'_.Text=ag[Z]_.Action=Z _.DoIt=Y table.insert(af,_)end for Z,_ in ipairs(
af)do local ah=_ if ah.Type=='Button'then local ai=a('TextButton',
'UnequipContextButton'..tostring(Z),{BackgroundColor3=Color3.new(0,0,0),
BorderSizePixel=0,TextXAlignment=Enum.TextXAlignment.Left,Text=' '..tostring(_.
Text),Font=Enum.Font.Arial,FontSize=Enum.FontSize.Size14,Size=UDim2.new(1,8,0,ae
),Position=UDim2.new(0,0,0,ae*Z),TextColor3=Color3.new(1,1,1),ZIndex=9,Parent=ad
})if not d()then ai.MouseButton1Click:connect(function()if ai.Active and not ac.
Parent.Active then pcall(function()return ah.DoIt(ah,ac)end)m=false ac.Visible=
false T(ai)return S()end end)ai.MouseEnter:connect(function()if ai.Active and ac
.Parent.Active then return aa(ai)end end)ai.MouseLeave:connect(function()if ai.
Active and ac.Parent.Active then return T(ai)end end)end _.Button=ai _.Element=
ai elseif ah.Type=='Label'then local ai=a('Frame','ContextLabel'..tostring(Z),{
BackgroundTransparency=1,Size=UDim2.new(1,8,0,ae),a('TextLabel','Text1',{
BackgroundTransparency=1,BackgroundColor3=Color3.new(1,1,1),BorderSizePixel=0,
TextXAlignment=Enum.TextXAlignment.Left,Font=Enum.Font.ArialBold,FontSize=Enum.
FontSize.Size14,Position=UDim2.new(0,0,0,0),Size=UDim2.new(0.5,0,1,0),TextColor3
=Color3.new(1,1,1),ZIndex=9})})ah.Label1=ai.Text1 if ah.GetText2 then ah.Label2=
a('TextLabel','Text2',{BackgroundTransparency=1,BackgroundColor3=Color3.new(1,1,
1),BorderSizePixel=0,TextXAlignment=Enum.TextXAlignment.Right,Font=Enum.Font.
Arial,FontSize=Enum.FontSize.Size14,Position=UDim2.new(0.5,0,0,0),Size=UDim2.
new(0.5,0,1,0),TextColor3=Color3.new(1,1,1),ZIndex=9,Parent=ai})end ai.Parent=ad
ah.Label=ai ah.Element=ai end end ac.ZIndex=4 ac.MouseLeave:connect(function()m=
false ac.Visible=false return S()end)R(ac)return ac end local ac ac=function()
local ad,ae=nil,v:GetChildren()for af=1,#ae do if ae[af]:IsA'Frame'and#ae[af]:
GetChildren()<=0 then local ag=tonumber(string.sub(ae[af].Name,5))if ag==0 then
ag=10 end if not ad or(ad>ag)then ad=ag end end end if ad==10 then ad=0 end
return ad end local ad ad=function(ae,af,ag)local ah=v:GetChildren()for ai=1,#ah
do if ah[ai]:IsA'Frame'and string.find(ah[ai].Name,'Slot')then if af>=ah[ai].
AbsolutePosition.x and af<=(ah[ai].AbsolutePosition.x+ah[ai].AbsoluteSize.x)then
if ag>=ah[ai].AbsolutePosition.y and ag<=(ah[ai].AbsolutePosition.y+ah[ai].
AbsoluteSize.y)then local Z=tonumber(string.sub(ah[ai].Name,5))W(Z,ae)return
true end end end end return false end local ae ae=function(af)if not m then t.
Visible=false t.GearImage.Image=af.Image t.GearStats.GearName.Text=af.
GearReference.Value.Name end end local af af=function(ag)if ag:FindFirstChild(
not ag.Active)then ag.UnequipContextMenu.Visible=true m=true end end local ag ag
=function()for ah,ai in pairs(j)do if not ai:FindFirstChild'RobloxBuildTool'then
if not k[ai]then local Z=x:clone()Z.Parent=w.ScrollingFrame Z.Visible=true Z.
Image=ai.TextureId if Z.Image==''then Z.GearText.Text=ai.Name end Z.
GearReference.Value=ai Z.Draggable=true k[ai]=Z if not d()then local _=ab()_.
Visible=false _.Parent=Z end local _ Z.DragBegin:connect(function(aj)b(Z,
'Background')Z['Background'].ZIndex=10 Z.ZIndex=10 _=aj end)Z.DragStopped:
connect(function(aj,ak)b(Z,'Background')Z['Background'].ZIndex=1 Z.ZIndex=2 if _
~=Z.Position then if not ad(Z,aj,ak)then Z:TweenPosition(_,Enum.EasingDirection.
Out,Enum.EasingStyle.Quad,0.5,true)Z.Draggable=false return delay(0.5,function()
Z.Draggable=true end)else Z.Position=_ end end end)local aj=tick()n[Z]=Z.
MouseEnter:connect(function()return ae(Z)end)o[Z]=Z.MouseButton1Click:connect(
function()local ak=tick()if Z.Active and(ak-aj)<0.5 then local al=ac()if al then
Z.ZIndex=1 W(al,Z)end else af(Z)end aj=ak end)end end end return J()end local ah
ah=function()local ai=0.75*(function()if t.AbsoluteSize.Y>t.AbsoluteSize.X then
return t.AbsoluteSize.X else return t.AbsoluteSize.Y end end)()b(t,'GearImage')t
.GearImage.Size=UDim2.new(0,ai,0,ai)t.GearImage.Position=UDim2.new(0,t.
AbsoluteSize.X/2-ai/2,0.75,-ai)return ag()end local ai ai=function(aj)if not aj:
IsA'Tool'and not aj:IsA'HopperBin'then return end if aj:FindFirstChild
'RobloxBuildTool'then return end for ak,al in pairs(j)do if al==aj then return
end end table.insert(j,aj)local Z=aj.Changed:connect(function(Z)if Z=='Name'and
k[aj]and k[aj].Image==''then k[aj].GearText.Text=aj.Name end end)local am=aj.
AncestryChanged:connect(function(_,am)local an for ao,ap in pairs(j)do if ap==aj
then an=ap break end end c(e,'Character')b(e,'Backpack')if aj.Parent~=e.Backpack
and aj.Parent~=e.Character then do local aq=ancestryCon if aq~=nil then aq:
disconnect()end end if Z~=nil then Z:disconnect()end for aq,ar in pairs(j)do if
ar==an then do local as=n[k[ar]]if as~=nil then as:disconnect()end end do local
as=o[k[ar]]if as~=nil then as:disconnect()end end k[ar].Parent=nil k[ar]=nil
break end end Q(j,an)ag()else ag()end return V()end)return ag()end local aj aj=
function(ak)for al,am in pairs(k)do am.Parent=nil end if ak then for an,ao in
pairs(ak)do ao.Parent=w.ScrollingFrame end end return J()end local ak ak=
function()for al,am in pairs(k)do am.Parent=w.ScrollingFrame end return J()end
local al al=function(am)local an,ao={},nil for ap=1,#am do if am[ap]:IsA'Frame'
and#am[ap]:GetChildren()>0 then if am[ap].Name=='Slot0'then ao=am[ap]else table.
insert(an,am[ap])end end end if ao then table.insert(an,ao)end local ap=(1-(#an*
0.1))/2 for aq=1,#an do an[aq]:TweenPosition(UDim2.new(ap+((aq-1)*0.1),0,0,0),
Enum.EasingDirection.Out,Enum.EasingStyle.Quad,0.25,true)end end local am am=
function(an)if an and an~=h then i.Gear.Visible=false return end i.Gear.Visible=
true V()ag()ah()return F:Invoke()end local an an=function(ao)if ao and ao~=h
then i.Gear.Visible=false return end i.Gear.Visible=false ag()ah()return F:
Invoke()end local ao ao=function(ap)if ap==h then return am(ap)else return an(ap
)end end local ap ap=function(aq,ar)if not aq:IsA'ImageButton'then return end
for as,Z in pairs(j)do if k[Z]then if aq:FindFirstChild(k[Z]:FindFirstChild
'GearReference')then if k[Z].GearReference.Value==aq.GearReference.Value then k[
Z].Active=ar break end end end end end local aq aq=function()if r~=nil then r:
disconnect()end r=game.Players.LocalPlayer.Backpack.ChildAdded:connect(function(
ar)return ai(ar)end)local ar=game.Players.LocalPlayer.Backpack:GetChildren()for
as=1,#ar do ai(ar[as])end if p~=nil then p:disconnect()end p=game.Players.
LocalPlayer.Character.ChildAdded:connect(function(as)ai(as)return V()end)if q~=
nil then q:disconnect()end q=game.Players.LocalPlayer.Character.ChildRemoved:
connect(function(as)return V()end)wait()return al(v:GetChildren())end local ar
ar=function()if p~=nil then p:disconnect()end if q~=nil then q:disconnect()end
if r~=nil then return r:disconnect()end return nil end local as as=function(Z)
return Z:gsub('^%s*(.-)%s*$','%1')end local Z Z=function(at)local au={}for av,aw
in pairs(j)do if k[aw]then local ax=as(string.lower(k[aw].GearReference.Value.
Name))for ay=1,#at do if string.match(ax,at[ay])then table.insert(au,k[aw])break
end end end end return au end local at at=function(au)if type(au)~='string'then
return end local av={}for aw in string.gmatch(au,'[^%s]+')do if string.len(aw)>0
then table.insert(av,aw)end end return av end local au au=function(av)if not i.
Gear.Visible then return end local aw,ax=at(av),nil if aw and(#aw>0)then ax=aw
else ax=nil end if not(aw~=nil)then ak()return end local ay=Z(ax)return aj(ay)
end local av av=function()while#k>0 do table.remove(k)end k={}while#j>0 do table
.remove(j)end j={}local aw=w.ScrollingFrame:GetChildren()for ax=1,#aw do aw[ax]:
remove()end end local aw aw=function(ax,ay)if ax==Enum.CoreGuiType.Backpack or
ax==Enum.CoreGuiType.All then if not ay then i.Gear.Visible=false end end end
local ax=e.Backpack:GetChildren()for ay=1,#ax do ai(ax[ay])end D.Event:connect(
function(ay)if l then return end l=true wait()ah()ag()l=false end)v.ChildAdded:
connect(function(ay)return ap(ay,false)end)v.ChildRemoved:connect(function(ay)
return ap(ay,true)end)v.DescendantAdded:connect(function(ay)if not i.Visible and
(ay:IsA'ImageButton'or ay:IsA'TextButton')then return al(v:GetChildren())end end
)v.DescendantRemoving:connect(function(ay)if not i.Visible and(ay:IsA
'ImageButton'or ay:IsA'TextButton')then wait()return al(v:GetChildren())end end)
w.MouseEnter:connect(function()return S()end)w.MouseLeave:connect(function()
return S()end)e.CharacterRemoving:connect(function()ar()return av()end)e.
CharacterAdded:connect(function()return aq()end)e.ChildAdded:connect(function(ay
)if ay:IsA'Backpack'then s=ay if r~=nil then r:disconnect()end r=game.Players.
LocalPlayer.Backpack.ChildAdded:connect(function(az)return ai(az)end)end end)y.
Changed:connect(function()if not y.Value then return V()end end)local ay=v:
GetChildren()for az=1,#ay do if ay[az]:IsA'Frame'and string.find(ay[az].Name,
'Slot')then ay[az].ChildRemoved:connect(function()return V()end)ay[az].
ChildAdded:connect(function()return V()end)end end pcall(function()aw(Enum.
CoreGuiType.Backpack,Game.StarterGui:GetCoreGuiEnabled(Enum.CoreGuiType.Backpack
))return Game.StarterGui.CoreGuiChangedSignal:connect(aw)end)ah()ag()ay=v:
GetChildren()for az=1,#ay do ap(ay[az],false)end if not i.Visible then al(v:
GetChildren())end if not(p~=nil)and game.Players.LocalPlayer['Character']then
aq()end if not r then r=game.Players.LocalPlayer.Backpack.ChildAdded:connect(
function(az)return ai(az)end)end A.Event:connect(am)B.Event:connect(an)C.Event:
connect(ao)E.Event:connect(au)return O()

87
processed/89449093.lua
View File

@ -1,87 +0,0 @@
print'[Mercury]: Loaded corescript 89449093'if game.CoreGui.Version<7 then
return end local a a=function(b,c)while not b:FindFirstChild(c)do b.ChildAdded:
wait()end return b:FindFirstChild(c)end local b b=function(c,d)while not c[d]do
c.Changed:wait()end end a(game,'Players')if#game.Players:GetChildren()<1 then
game.Players.ChildAdded:wait()end b(game.Players,'LocalPlayer')local c=script.
Parent a(c,'Gear')local d=script.Parent.Parent assert(d:IsA'ScreenGui')a(c,
'Tabs')a(c.Tabs,'CloseButton')local e=c.Tabs.CloseButton a(c.Tabs,
'InventoryButton')local f,g=c.Tabs.InventoryButton,nil if game.CoreGui.Version>=
8 then a(c.Tabs,'WardrobeButton')g=c.Tabs.WardrobeButton end a(c.Parent,
'ControlFrame')local h,i,j=a(c.Parent.ControlFrame,'BackpackButton'),'gear',a(c,
'SearchFrame')a(c.SearchFrame,'SearchBoxFrame')local k,l,m,n=a(c.SearchFrame.
SearchBoxFrame,'SearchBox'),a(c.SearchFrame,'SearchButton'),a(c.SearchFrame,
'ResetButton'),a(Game.CoreGui,'RobloxGui')local o=a(n,'CurrentLoadout')local p,q
,r,s,t,u,v,w,x,y,z,A=a(o,'Background'),true,true,false,true,false,nil,0.25,
'Search...','~','`',UDim2.new(0,600,0,400)if n.AbsoluteSize.Y<=320 then A=UDim2.
new(0,200,0,140)end local B B=function(C)assert(C,'eventName is nil')assert(
tostring(C),'eventName is not a string')local D=Instance.new'BindableEvent'D.
Name=tostring(C)D.Parent=script return D end local C C=function(D,E)assert(D,
'funcName is nil')assert(tostring(D),'funcName is not a string')assert(E,
'invokeFunc is nil')assert(type(E)=='function',
"invokeFunc should be of type 'function'")local F=Instance.new'BindableFunction'
F.Name=tostring(D)F.OnInvoke=E F.Parent=script return F end local D,E,F,G,H,I=B
'ResizeEvent',B'BackpackOpenEvent',B'BackpackCloseEvent',B'TabClickedEvent',B
'SearchRequestedEvent',nil I=function()m.Visible=false k.Text=x end local J J=
function()I()return H:Fire()end local K K=function()c.Visible=false t=false end
local L L=function()if v then v:disconnect()end b(game.Players.LocalPlayer,
'Character')a(game.Players.LocalPlayer.Character,'Humanoid')v=game.Players.
LocalPlayer.Character.Humanoid.Died:connect(K)end local M M=function()s=false r=
false h.Selected=false J()F:Fire(i)c.Tabs.Visible=false j.Visible=false c:
TweenSizeAndPosition(UDim2.new(0,A.X.Offset,0,0),UDim2.new(0.5,-A.X.Offset/2,1,-
85),Enum.EasingDirection.Out,Enum.EasingStyle.Quad,w,true,function()game.
GuiService:RemoveCenterDialog(c)c.Visible=false h.Selected=false end)return
delay(w,function()game.GuiService:RemoveCenterDialog(c)c.Visible=false h.
Selected=false r=true q=true end)end local N N=function()game.GuiService:
AddCenterDialog(c,Enum.CenterDialogType.PlayerInitiatedDialog,function()c.
Visible=true h.Selected=true end,function()c.Visible=false h.Selected=false end)
c.Visible=true h.Selected=true c:TweenSizeAndPosition(A,UDim2.new(0.5,-A.X.
Offset/2,1,-A.Y.Offset-88),Enum.EasingDirection.Out,Enum.EasingStyle.Quad,w,true
)return delay(w,function()c.Tabs.Visible=false j.Visible=true E:Fire(i)q=true r=
true h.Image='http://www.roblox.com/asset/?id=97644093'h.Position=UDim2.new(0.5,
-60,1,-A.Y.Offset-103)end)end local O O=function()if not game.Players.
LocalPlayer then return end if not game.Players.LocalPlayer['Character']then
return end if not q then return end if not r then return end r=false q=false s=
not s if s then p.Image='http://www.roblox.com/asset/?id=97623721'p.Position=
UDim2.new(-3E-2,0,-0.17,0)p.Size=UDim2.new(1.05,0,1.25,0)p.ZIndex=2 p.Visible=
true return N()else h.Position=UDim2.new(0.5,-60,1,-44)p.Visible=false h.
Selected=false h.Image='http://www.roblox.com/asset/?id=97617958'p.Image=
'http://www.roblox.com/asset/?id=96536002'p.Position=UDim2.new(-0.1,0,-0.1,0)p.
Size=UDim2.new(1.2,0,1.2,0)M()local P=o:GetChildren()for Q=1,#P do if P[Q]and P[
Q]:IsA'Frame'then local R=P[Q]if#R:GetChildren()>0 then h.Position=UDim2.new(0.5
,-60,1,-108)h.Visible=true p.Visible=true if R:GetChildren()[1]:IsA'ImageButton'
then do local S=R:GetChildren()[1]S.Active=true S.Draggable=false end end end
end end end end local P P=function()L()t=true c.Visible=s if s then return O()
end end local Q Q=function()if s then return O()end end local R R=function(S)
assert(S)assert(S:IsA'TextButton')S.BackgroundColor3=Color3.new(1,1,1)S.
TextColor3=Color3.new(0,0,0)S.Selected=true S.ZIndex=3 return S end local S S=
function(T)assert(T)assert(T:IsA'TextButton')T.BackgroundColor3=Color3.new(0,0,0
)T.TextColor3=Color3.new(1,1,1)T.Selected=false T.ZIndex=1 return T end local T
T=function(U)assert(U)if U=='gear'then R(f)return S(g)elseif U=='wardrobe'then
R(g)return S(f)end end local U U=function(V)assert(V)assert(V:IsA'TextButton')if
V.Selected then return end V.BackgroundColor3=Color3.new(0,0,0)end local V V=
function(W)assert(W)assert(W:IsA'TextButton')if W.Selected then return end W.
BackgroundColor3=Color3.new(0.15294117647058825,0.15294117647058825,
0.15294117647058825)end local W W=function(X)assert(X)X=string.lower(X)i=X T(X)G
:Fire(X)return J()end local X X=function(Y)return Y:gsub('^%s*(.-)%s*$','%1')end
local Y Y=function()local Z=k.Text if Z==''then J()return end Z=X(Z)m.Visible=
true return H:Fire(Z)end local Z Z=function()r=true end local _ _=function(aa,ab
)if aa==Enum.CoreGuiType.Backpack or aa==Enum.CoreGuiType.All then t=ab u=not ab
do local ac=game:GetService'GuiService'if u then pcall(function()ac:RemoveKey(y)
return ac:RemoveKey(z)end)else ac:AddKey(y)ac:AddKey(z)end end J()j.Visible=ab
and s o.Visible=ab c.Visible=ab h.Visible=ab end end C('CloseBackpack',M)C(
'BackpackReady',Z)pcall(function()_(Enum.CoreGuiType.Backpack,Game.StarterGui:
GetCoreGuiEnabled(Enum.CoreGuiType.Backpack))return Game.StarterGui.
CoreGuiChangedSignal:connect(_)end)f.MouseButton1Click:connect(function()return
W'gear'end)f.MouseEnter:connect(function()return V(f)end)f.MouseLeave:connect(
function()return U(f)end)if game.CoreGui.Version>=8 then g.MouseButton1Click:
connect(function()return W'wardrobe'end)g.MouseEnter:connect(function()return V(
g)end)g.MouseLeave:connect(function()return U(g)end)end e.MouseButton1Click:
connect(Q)d.Changed:connect(function(aa)if aa=='AbsoluteSize'then return D:Fire(
d.AbsoluteSize)end end)do local aa=game:GetService'GuiService'aa:AddKey(y)aa:
AddKey(z)aa.KeyPressed:connect(function(ab)if not t or u then return end if ab==
y or ab==z then return O()end end)end h.MouseButton1Click:connect(function()if
not t or u then return end return O()end)if game.Players.LocalPlayer['Character'
]then P()end game.Players.LocalPlayer.CharacterAdded:connect(P)k.FocusLost:
connect(function(aa)if aa or k.Text~=''then return Y()elseif k.Text==''then
return J()end end)l.MouseButton1Click:connect(Y)m.MouseButton1Click:connect(J)if
j and n.AbsoluteSize.Y<=320 then j.RobloxLocked=false return j:Destroy()end

361
processed/97188756.lua
View File

@ -1,361 +0,0 @@
print'[Mercury]: Loaded corescript 97188756'local a,b=false,nil b=function(c,d)
while not(c:FindFirstChild(d)~=nil)do c.ChildAdded:wait(0.03)end return c[d]end
local c c=function()local d=Game:GetService'CoreGui'local e=b(d,'RobloxGui')if e
.AbsoluteSize.Y<600 then return true end return false end local d d=function(e)
return e:gsub('^%s*(.-)%s*$','%1')end while not(Game.Players.LocalPlayer~=nil)do
wait(0.03)end local e=Game.Players.LocalPlayer while not(e.Character~=nil)do
wait(0.03)end local f,g=Game.Workspace.CurrentCamera,nil g=function(h,i,j)if not
(j~=nil)then j=i i=nil end local k=Instance.new(h)if i then k.Name=i end local l
for m,n in pairs(j)do if type(m)=='string'then if m=='Parent'then l=n else k[m]=
n end elseif type(m)=='number'and type(n)=='userdata'then n.Parent=k end end k.
Parent=l return k end local h,i,j,k,l,m=Game:GetService'CoreGui',Game:GetService
'Players',Game:GetService'GuiService',{},{},nil m=function(n)return function(o)
local p={[l]=n}for q,r in pairs(o)do local s=setmetatable({Name=r,Value=q,Enum=p
,[l]=n},{__call=function(s,t)return t==s or t==s.Name or t==s.Value end,
__tostring=function(s)return'Enum.'..tostring(s[l])..'.'..tostring(s.Name)end})p
[q]=s p[r]=s p[s]=s end k[n]=p return setmetatable(p,{__call=function(s,t)return
s[t]or s[tonumber(t)]end,__index={GetEnumItems=function(s)o={}for t,u in pairs(s
)do if type(t)=='number'then o[#o+1]=u end end table.sort(o,function(v,w)return
v.Value<w.Value end)return o end},__tostring=function(s)return'Enum.'..tostring(
s[l])end})end end local n,o,p={Mouse=e:GetMouse(),Speed=0,Simulating=false,
Configuration={DefaultSpeed=1},UserIsScrolling=false},{ChatColors={BrickColor.
new'Bright red',BrickColor.new'Bright blue',BrickColor.new'Earth green',
BrickColor.new'Bright violet',BrickColor.new'Bright orange',BrickColor.new
'Bright yellow',BrickColor.new'Light reddish violet',BrickColor.new
'Brick yellow'},Gui=nil,Frame=nil,RenderFrame=nil,TapToChatLabel=nil,
ClickToChatButton=nil,ScrollingLock=false,EventListener=nil,MessageQueue={},
Configuration={FontSize=Enum.FontSize.Size12,NumFontSize=12,HistoryLength=20,
Size=UDim2.new(0.38,0,0.2,0),MessageColor=Color3.new(1,1,1),AdminMessageColor=
Color3.new(1,0.8431372549019608,0),XScale=0.025,LifeTime=45,Position=UDim2.new(0
,2,0.05,0),DefaultTweenSpeed=0.15},SlotPositions_List={},CachedSpaceStrings_List
={},MouseOnFrame=false,GotFocus=false,Messages_List={},MessageThread=nil,
Admins_List={'taskmanager','Heliodex','tako'},SafeChat_List={[
'Use the Chat menu to talk to me.']={'/sc0',true},['I can only see menu chats.']
={'/sc1',true},Hello={Hi={'/sc2_0',true,['Hi there!']=true,['Hi everyone']=true}
,Howdy={'/sc2_1',true,['Howdy partner!']=true},Greetings={'/sc2_2',true,[
'Greetings everyone']=true,['Greetings Robloxians!']=true,['Seasons greetings!']
=true},Welcome={'/sc2_3',true,['Welcome to my place']=true,[
'Welcome to my barbeque']=true,['Welcome to our base']=true},['Hey there!']={
'/sc2_4',true},["What's up?"]={'/sc2_5',true,['How are you doing?']=true,[
"How's it going?"]=true,["What's new?"]=true},['Good day']={'/sc2_6',true,[
'Good morning']=true,['Good evening']=true,['Good afternoon']=true,['Good night'
]=true},Silly={'/sc2_7',true,['Waaaaaaaz up?!']=true,['Hullo!']=true,[
'Behold greatness, mortals!']=true,['Pardon me, is this Sparta?']=true,[
'THIS IS SPARTAAAA!']=true},['Happy Holidays!']={'/sc2_8',true,[
'Happy New Year!']=true,["Happy Valentine's Day!"]=true,[
'Beware the Ides of March!']=true,["Happy St. Patrick's Day!"]=true,[
'Happy Easter!']=true,['Happy Earth Day!']=true,['Happy 4th of July!']=true,[
'Happy Thanksgiving!']=true,['Happy Halloween!']=true,['Happy Hanukkah!']=true,[
'Merry Christmas!']=true,['Happy May Day!']=true,['Happy Towel Day!']=true,[
'Happy Mercury Day!']=true,['Happy LOL Day!']=true},'/sc2'},Goodbye={[
'Good Night']={'/sc3_0',true,['Sweet dreams']=true,['Go to sleep!']=true,[
'Lights out!']=true,Bedtime=true,['Going to bed now']=true},Later={'/sc3_1',true
,['See ya later']=true,['Later gator!']=true,['See you tomorrow']=true},Bye={
'/sc3_2',true,['Hasta la bye bye!']=true},["I'll be right back"]={'/sc3_3',true}
,['I have to go']={'/sc3_4',true},Farewell={'/sc3_5',true,['Take care']=true,[
'Have a nice day']=true,['Goodluck!']=true,['Ta-ta for now!']=true},Peace={
'/sc3_6',true,['Peace out!']=true,['Peace dudes!']=true,['Rest in pieces!']=true
},Silly={'/sc3_7',true,['To the batcave!']=true,['Over and out!']=true,[
'Happy trails!']=true,["I've got to book it!"]=true,['Tootles!']=true,[
'Smell you later!']=true,['GG!']=true,['My house is on fire! gtg.']=true},'/sc3'
},Friend={['Wanna be friends?']={'/sc4_0',true},['Follow me']={'/sc4_1',true,[
'Come to my place!']=true,['Come to my base!']=true,['Follow me, team!']=true,[
'Follow me']=true},['Your place is cool']={'/sc4_2',true,['Your place is fun']=
true,['Your place is awesome']=true,['Your place looks good']=true,[
'This place is awesome!']=true},['Thank you']={'/sc4_3',true,[
'Thanks for playing']=true,['Thanks for visiting']=true,['Thanks for everything'
]=true,['No, thank you']=true,Thanx=true},['No problem']={'/sc4_4',true,[
"Don't worry"]=true,["That's ok"]=true,np=true},['You are ...']={'/sc4_5',true,[
'You are great!']=true,['You are good!']=true,['You are cool!']=true,[
'You are funny!']=true,['You are silly!']=true,['You are awesome!']=true,[
"You are doing something I don't like, please stop"]=true},['I like ...']={
'/sc4_6',true,['I like your name']=true,['I like your shirt']=true,[
'I like your place']=true,['I like your style']=true,['I like you']=true,[
'I like items']=true,['I like money']=true},Sorry={'/sc4_7',true,['My bad!']=
true,["I'm sorry"]=true,['Whoops!']=true,['Please forgive me.']=true,[
'I forgive you.']=true,["I didn't mean to do that."]=true,[
"Sorry, I'll stop now."]=true},'/sc4'},Questions={['Who?']={'/sc5_0',true,[
'Who wants to be my friend?']=true,['Who wants to be on my team?']=true,[
'Who made this brilliant game?']=true},['What?']={'/sc5_1',true,[
'What is your favorite animal?']=true,['What is your favorite game?']=true,[
'What is your favorite movie?']=true,['What is your favorite TV show?']=true,[
'What is your favorite music?']=true,['What are your hobbies?']=true,['LOLWUT?']
=true},['When?']={'/sc5_2',true,['When are you online?']=true,[
'When is the new version coming out?']=true,['When can we play again?']=true,[
'When will your place be done?']=true},['Where?']={'/sc5_3',true,[
'Where do you want to go?']=true,['Where are you going?']=true,['Where am I?!']=
true,['Where did you go?']=true},['How?']={'/sc5_4',true,['How are you today?']=
true,['How did you make this cool place?']=true,['LOLHOW?']=true},['Can I...']={
'/sc5_5',true,['Can I have a tour?']=true,['Can I be on your team?']=true,[
'Can I be your friend?']=true,['Can I try something?']=true,[
'Can I have that please?']=true,['Can I have that back please?']=true,[
'Can I have borrow your hat?']=true,['Can I have borrow your gear?']=true},
'/sc5'},Answers={['You need help?']={'/sc6_0',true,['Check out the news section'
]=true,['Check out the help section']=true,['Read the wiki!']=true,[
'All the answers are in the wiki!']=true,['I will help you with this.']=true},[
'Some people ...']={'/sc6_1',true,Me=true,['Not me']=true,You=true,['All of us']
=true,['Everyone but you']=true,['Builderman!']=true,['Telamon!']=true,[
'My team']=true,['My group']=true,Mom=true,Dad=true,Sister=true,Brother=true,
Cousin=true,Grandparent=true,Friend=true},['Time ...']={'/sc6_2',true,[
'In the morning']=true,['In the afternoon']=true,['At night']=true,Tomorrow=true
,['This week']=true,['This month']=true,Sometime=true,Sometimes=true,[
'Whenever you want']=true,Never=true,['After this']=true,['In 10 minutes']=true,
['In a couple hours']=true,['In a couple days']=true},Animals={'/sc6_3',true,
Cats={Lion=true,Tiger=true,Leopard=true,Cheetah=true},Dogs={Wolves=true,Beagle=
true,Collie=true,Dalmatian=true,Poodle=true,Spaniel=true,Shepherd=true,Terrier=
true,Retriever=true},Horses={Ponies=true,Stallions=true,Pwnyz=true},Reptiles={
Dinosaurs=true,Lizards=true,Snakes=true,['Turtles!']=true},Hamster=true,Monkey=
true,Bears=true,Fish={Goldfish=true,Sharks=true,['Sea Bass']=true,Halibut=true,[
'Tropical Fish']=true},Birds={Eagles=true,Penguins=true,Parakeets=true,Owls=true
,Hawks=true,Pidgeons=true},Elephants=true,['Mythical Beasts']={Dragons=true,
Unicorns=true,['Sea Serpents']=true,Sphinx=true,Cyclops=true,Minotaurs=true,
Goblins=true,['Honest Politicians']=true,Ghosts=true,['Scylla and Charybdis']=
true}},Games={'/sc6_4',true,Action=true,Puzzle=true,Strategy=true,Racing=true,
RPG=true,['Obstacle Course']=true,Tycoon=true,Roblox={BrickBattle=true,[
'Community Building']=true,['Roblox Minigames']=true,['Contest Place']=true},[
'Board games']={Chess=true,Checkers=true,['Settlers of Catan']=true,[
'Tigris and Euphrates']=true,['El Grande']=true,Stratego=true,Carcassonne=true}}
,Sports={'/sc6_5',true,Hockey=true,Soccer=true,Football=true,Baseball=true,
Basketball=true,Volleyball=true,Tennis=true,['Sports team practice']=true,
Watersports={Surfing=true,Swimming=true,['Water Polo']=true},['Winter sports']={
Skiing=true,Snowboarding=true,Sledding=true,Skating=true},Adventure={[
'Rock climbing']=true,Hiking=true,Fishing=true,['Horseback riding']=true},Wacky=
{Foosball=true,Calvinball=true,Croquet=true,Cricket=true,Dodgeball=true,Squash=
true,Trampoline=true}},['Movies/TV']={'/sc6_6',true,['Science Fiction']=true,
Animated={Anime=true},Comedy=true,Romantic=true,Action=true,Fantasy=true},Music=
{'/sc6_7',true,Country=true,Jazz=true,Rap=true,['Hip-hop']=true,Techno=true,
Classical=true,Pop=true,Rock=true},Hobbies={'/sc6_8',true,Computers={[
'Building computers']=true,Videogames=true,Coding=true,Hacking=true},[
'The Internet']={['lol. teh internets!']=true,['Watching vids']=true},Dance=true
,Gymnastics=true,['Listening to music']=true,['Arts and crafts']=true,[
'Martial Arts']={Karate=true,Judo=true,['Taikwon Do']=true,Wushu=true,[
'Street fighting']=true},['Music lessons']={['Playing in my band']=true,[
'Playing piano']=true,['Playing guitar']=true,['Playing violin']=true,[
'Playing drums']=true,['Playing a weird instrument']=true}},Location={'/sc6_9',
true,USA={West={Alaska=true,Arizona=true,California=true,Colorado=true,Hawaii=
true,Idaho=true,Montana=true,Nevada=true,['New Mexico']=true,Oregon=true,Utah=
true,Washington=true,Wyoming=true},South={Alabama=true,Arkansas=true,Florida=
true,Georgia=true,Kentucky=true,Louisiana=true,Mississippi=true,[
'North Carolina']=true,Oklahoma=true,['South Carolina']=true,Tennessee=true,
Texas=true,Virginia=true,['West Virginia']=true},Northeast={Connecticut=true,
Delaware=true,Maine=true,Maryland=true,Massachusetts=true,['New Hampshire']=true
,['New Jersey']=true,['New York']=true,Pennsylvania=true,['Rhode Island']=true,
Vermont=true},Midwest={Illinois=true,Indiana=true,Iowa=true,Kansas=true,Michigan
=true,Minnesota=true,Missouri=true,Nebraska=true,['North Dakota']=true,Ohio=true
,['South Dakota']=true,Wisconsin=true}},Canada={Alberta=true,['British Columbia'
]=true,Manitoba=true,['New Brunswick']=true,Newfoundland=true,[
'Northwest Territories']=true,['Nova Scotia']=true,Nunavut=true,Ontario=true,[
'Prince Edward Island']=true,Quebec=true,Saskatchewan=true,Yukon=true},Mexico=
true,['Central America']=true,Europe={France=true,Germany=true,Spain=true,Italy=
true,Poland=true,Switzerland=true,Greece=true,Romania=true,Netherlands=true,[
'Great Britain']={England=true,Scotland=true,Wales=true,['Northern Ireland']=
true}},Asia={China=true,India=true,Japan=true,Korea=true,Russia=true,Vietnam=
true},['South America']={Argentina=true,Brazil=true},Africa={Eygpt=true,
Swaziland=true},Australia=true,['Middle East']=true,Antarctica=true,[
'New Zealand']=true},Age={'/sc6_10',true,Rugrat=true,Kid=true,Tween=true,Teen=
true,Twenties=true,Old=true,Ancient=true,Mesozoic=true,[
"I don't want to say my age. Don't ask."]=true},Mood={'/sc6_11',true,Good=true,[
'Great!']=true,['Not bad']=true,Sad=true,Hyper=true,Chill=true,Happy=true,[
'Kind of mad']=true},Boy={'/sc6_12',true},Girl={'/sc6_13',true},[
"I don't want to say boy or girl. Don't ask."]={'/sc6_14',true},'/sc6'},Game={[
"Let's build"]={'/sc7_0',true},["Let's battle"]={'/sc7_1',true},['Nice one!']={
'/sc7_2',true},['So far so good']={'/sc7_3',true},['Lucky shot!']={'/sc7_4',true
},['Oh man!']={'/sc7_5',true},['I challenge you to a fight!']={'/sc7_6',true},[
'Help me with this']={'/sc7_7',true},["Let's go to your game"]={'/sc7_8',true},[
'Can you show me how do to that?']={'/sc7_9',true},['Backflip!']={'/sc7_10',true
},['Frontflip!']={'/sc7_11',true},['Dance!']={'/sc7_12',true},[
"I'm on your side!"]={'/sc7_13',true},['Game Commands']={'/sc7_14',true,regen=
true,reset=true,go=true,fix=true,respawn=true},'/sc7'},Silly={['Muahahahaha!']=
true,['all your base are belong to me!']=true,['GET OFF MAH LAWN']=true,[
'TEH EPIK DUCK IS COMING!!!']=true,ROFL=true,['1337']={true,['i r teh pwnz0r!']=
true,['w00t!']=true,['z0mg h4x!']=true,['ub3rR0xXorzage!']=true}},Yes={[
'Absolutely!']=true,['Rock on!']=true,['Totally!']=true,['Juice!']=true,['Yay!']
=true,Yesh=true},No={['Ummm. No.']=true,['...']=true,['Stop!']=true,['Go away!']
=true,["Don't do that"]=true,['Stop breaking the rules']=true,["I don't want to"
]=true},Ok={['Well... ok']=true,Sure=true},Uncertain={Maybe=true,["I don't know"
]=true,idk=true,["I can't decide"]=true,['Hmm...']=true},[':-)']={[':-(']=true,[
':D']=true,[':-O']=true,lol=true,['=D']=true,['D=']=true,XD=true,[';D']=true,[
';)']=true,O_O=true,['=)']=true,['@_@']=true,['&gt;_&lt;']=true,T_T=true,['^_^']
=true,['<(0_0<) <(0_0)> (>0_0)> KIRBY DANCE']=true,[")';"]=true,[':3']=true},
Ratings={['Rate it!']=true,['I give it a 1 out of 10']=true,[
'I give it a 2 out of 10']=true,['I give it a 3 out of 10']=true,[
'I give it a 4 out of 10']=true,['I give it a 5 out of 10']=true,[
'I give it a 6 out of 10']=true,['I give it a 7 out of 10']=true,[
'I give it a 8 out of 10']=true,['I give it a 9 out of 10']=true,[
'I give it a 10 out of 10!']=true}},m'SafeChat'{'Level1','Level2','Level3'},
SafeChatTree={},TempSpaceLabel=nil},nil p=function(q)local r=0 for s=1,#q do
local t,u=string.byte(string.sub(q,s,s)),#q-s+1 if#q%2==1 then u=u-1 end if u%4
>=2 then t=-t end r=r+t end return r%8 end o.ComputeChatColor=function(q,r)
return q.ChatColors[p(r)+1].Color end o.EnableScrolling=function(q,r)q.
MouseOnFrame=false if q.RenderFrame then q.RenderFrame.MouseEnter:connect(
function()local s=e.Character local t,u=b(s,'Torso'),b(s,'Head')if r then q.
MouseOnFrame=true f.CameraType='Scriptable'return Spawn(function()local v=f.
CoordinateFrame.p-t.Position while o.MouseOnFrame do f.CoordinateFrame=CFrame.
new(t.Position+v,u.Position)wait(0.015)end end)end end)return q.RenderFrame.
MouseLeave:connect(function()f.CameraType='Custom'q.MouseOnFrame=false end)end
end o.IsTouchDevice=function(q)local r=false pcall(function()r=Game:GetService
'UserInputService'.TouchEnabled end)return r end o.UpdateQueue=function(q,r,s)
for t=#q.MessageQueue,1,-1 do if q.MessageQueue[t]then for u,v in pairs(q.
MessageQueue[t])do if v and type(v)~='table'and type(v)~='number'then if v:IsA
'TextLabel'or v:IsA'TextButton'then if s then v.Position=v.Position-UDim2.new(0,
0,s,0)else if r==q.MessageQueue[t]then v.Position=UDim2.new(q.Configuration.
XScale,0,v.Position.Y.Scale-r['Message'].Size.Y.Scale,0)Spawn(function()wait(
0.05)while v.TextTransparency>=0 do v.TextTransparency=v.TextTransparency-0.2
wait(0.03)end if v==r['Message']then v.TextStrokeTransparency=0.8 else v.
TextStrokeTransparency=1 end end)else v.Position=UDim2.new(q.Configuration.
XScale,0,v.Position.Y.Scale-r['Message'].Size.Y.Scale,0)end if v.Position.Y.
Scale<-1E-2 then v.Visible=false v:Destroy()end end end end end end end end o.
CreateScrollBar=function(q)end o.CheckIfInBounds=function(q,r)if#o.MessageQueue<
3 then return true end if r>0 and o.MessageQueue[1]and o.MessageQueue[1][
'Player']and o.MessageQueue[1]['Player'].Position.Y.Scale==0 then return true
elseif r<0 and o.MessageQueue[1]and o.MessageQueue[1]['Player']and o.
MessageQueue[1]['Player'].Position.Y.Scale<0 then return true else return false
end end o.ComputeSpaceString=function(q,r)local s=' 'if not q.TempSpaceLabel
then q.TempSpaceLabel=g('TextButton','SpaceButton',{Size=UDim2.new(0,r.
AbsoluteSize.X,0,r.AbsoluteSize.Y),FontSize=q.Configuration.FontSize,Parent=q.
RenderFrame,BackgroundTransparency=1,Text=s})else q.TempSpaceLabel.Text=s end
while q.TempSpaceLabel.TextBounds.X<r.TextBounds.X do s=s..' 'q.TempSpaceLabel.
Text=s end s=s..' 'q.CachedSpaceStrings_List[r.Text]=s q.TempSpaceLabel.Text=''
return s end o.UpdateChat=function(q,r,s)local t={Player=r,Message=s}if
coroutine.status(o.MessageThread)=='dead'then table.insert(o.Messages_List,t)o.
MessageThread=coroutine.create(function()for u=1,#o.Messages_List do local v=o.
Messages_List[u]o:CreateMessage(v['Player'],v['Message'])end o.Messages_List={}
end)return coroutine.resume(o.MessageThread)else return table.insert(o.
Messages_List,t)end end o.CreateMessage=function(q,r,s)local t if not r then t=
''else t=r.Name end s=d(s)local u,v if#q.MessageQueue>q.Configuration.
HistoryLength then q.MessageQueue[#q.MessageQueue]=nil end u=g('TextLabel',t,{
Text=t..':',FontSize=o.Configuration.FontSize,TextXAlignment=Enum.TextXAlignment
.Left,TextYAlignment=Enum.TextYAlignment.Top,Parent=q.RenderFrame,TextWrapped=
false,Size=UDim2.new(1,0,0.1,0),BackgroundTransparency=1,TextTransparency=1,
Position=UDim2.new(0,0,1,0),BorderSizePixel=0,TextStrokeColor3=Color3.new(0.5,
0.5,0.5),TextStrokeTransparency=0.75})if r.Neutral then u.TextColor3=o:
ComputeChatColor(t)else u.TextColor3=r.TeamColor.Color end local w if not q.
CachedSpaceStrings_List[t]then w=o:ComputeSpaceString(u)else w=q.
CachedSpaceStrings_List[t]end v=g('TextLabel',tostring(t)..' - message',{Size=
UDim2.new(1,0,0.5,0),TextColor3=o.Configuration.MessageColor,FontSize=o.
Configuration.FontSize,TextXAlignment=Enum.TextXAlignment.Left,TextYAlignment=
Enum.TextYAlignment.Top,Text='',Parent=q.RenderFrame,TextWrapped=true,
BackgroundTransparency=1,TextTransparency=1,Position=UDim2.new(0,0,1,0),
BorderSizePixel=0,TextStrokeColor3=Color3.new(0,0,0)})v.Text=w..s if not t then
u.Text=''v.TextColor3=Color3.new(0,0.4,1)end for x,y in pairs(q.Admins_List)do
if string.lower(y)==string.lower(t)then v.TextColor3=q.Configuration.
AdminMessageColor end end u.Visible=true v.Visible=true local z=v.TextBounds.Y v
.Size=UDim2.new(1,0,z/q.RenderFrame.AbsoluteSize.Y,0)u.Size=v.Size local A={}A[
'Player']=u A['Message']=v A['SpawnTime']=tick()table.insert(q.MessageQueue,1,A)
return o:UpdateQueue(A)end o.ScreenSizeChanged=function(q)wait()while q.Frame.
AbsoluteSize.Y>120 do q.Frame.Size=q.Frame.Size-UDim2.new(0,0,0.005,0)end end o.
FindButtonTree=function(q,r,s)local t={}s=s or q.SafeChatTree for u,v in pairs(s
)do if u==r then t=s[u]elseif type(s[u])=='table'then t=o:FindButtonTree(r,s[u])
end end return t end o.ToggleSafeChatMenu=function(q,r)local s=o:FindButtonTree(
r,q.SafeChatTree)if s then for t,u in pairs(s)do if t:IsA'TextButton'or t:IsA
'ImageButton'then t.Visible=not t.Visible end end return true end return false
end o.CreateSafeChatOptions=function(q,r,s)local t,u={},0 t[s]={}t[s][1]=r[1]s=s
or q.SafeChatButton for v,w in pairs(r)do if type(v)=='string'then local x=g(
'TextButton',v,{Text=v,Size=UDim2.new(0,100,0,20),TextXAlignment=Enum.
TextXAlignment.Center,TextColor3=Color3.new(0.2,0.1,0.1),BackgroundTransparency=
0.5,BackgroundColor3=Color3.new(1,1,1),Parent=q.SafeChatFrame,Visible=false,
Position=UDim2.new(0,s.Position.X.Scale+105,0,s.Position.Y.Scale-(u-3)*100)})u=u
+1 if type(r[v])=='table'then t[s][x]=o:CreateSafeChatOptions(r[v],x)end x.
MouseEnter:connect(function()return o:ToggleSafeChatMenu(x)end)x.MouseLeave:
connect(function()return o:ToggleSafeChatMenu(x)end)x.MouseButton1Click:connect(
function()local y=o:FindButtonTree(x)return pcall(function()return i:Chat(y[1])
end)end)end end return t end o.CreateSafeChatGui=function(q)q.SafeChatFrame=g(
'Frame','SafeChatFrame',{Size=UDim2.new(1,0,1,0),Parent=q.Gui,
BackgroundTransparency=1,g('ImageButton','SafeChatButton',{Size=UDim2.new(0,44,0
,31),Position=UDim2.new(0,1,0.35,0),BackgroundTransparency=1,Image=
'http://www.roblox.com/asset/?id=97080365'})})q.SafeChatButton=q.SafeChatFrame.
SafeChatButton q.SafeChatTree[q.SafeChatButton]=o:CreateSafeChatOptions(q.
SafeChat_List,q.SafeChatButton)return q.SafeChatButton.MouseButton1Click:
connect(function()return o:ToggleSafeChatMenu(q.SafeChatButton)end)end o.
FocusOnChatBar=function(q)if q.ClickToChatButton then q.ClickToChatButton.
Visible=false end q.GotFocus=true if q.Frame['Background']then q.Frame.
Background.Visible=false end return q.ChatBar:CaptureFocus()end o.
CreateTouchButton=function(q)q.ChatTouchFrame=g('Frame','ChatTouchFrame',{Size=
UDim2.new(0,128,0,32),Position=UDim2.new(0,88,0,0),BackgroundTransparency=1,
Parent=q.Gui,g('ImageButton','ChatLabel',{Size=UDim2.new(0,74,0,28),Position=
UDim2.new(0,0,0,0),BackgroundTransparency=1,ZIndex=2}),g('ImageLabel',
'Background',{Size=UDim2.new(1,0,1,0),Position=UDim2.new(0,0,0,0),
BackgroundTransparency=1,Image='http://www.roblox.com/asset/?id=97078724'})})q.
TapToChatLabel=q.ChatTouchFrame.ChatLabel q.TouchLabelBackground=q.
ChatTouchFrame.Background q.ChatBar=g('TextBox','ChatBar',{Size=UDim2.new(1,0,
0.2,0),Position=UDim2.new(0,0,0.8,800),Text='',ZIndex=1,BackgroundTransparency=1
,Parent=q.Frame,TextXAlignment=Enum.TextXAlignment.Left,TextColor3=Color3.new(1,
1,1),ClearTextOnFocus=false})return q.TapToChatLabel.MouseButton1Click:connect(
function()q.TapToChatLabel.Visible=false q.ChatBar:CaptureFocus()q.GotFocus=true
if q.TouchLabelBackground then q.TouchLabelBackground.Visible=false end end)end
o.CreateChatBar=function(q)local r,s=pcall(function()return j.UseLuaChat end)if
a or(r and s)then q.ClickToChatButton=g('TextButton','ClickToChat',{Size=UDim2.
new(1,0,0,20),BackgroundTransparency=1,ZIndex=2,Parent=q.Gui,Text=
'To chat click here or press "/" key',TextColor3=Color3.new(1,1,0.9),Position=
UDim2.new(0,0,1,0),TextXAlignment=Enum.TextXAlignment.Left,FontSize=Enum.
FontSize.Size12})q.ChatBar=g('TextBox','ChatBar',{Size=UDim2.new(1,0,0,20),
Position=UDim2.new(0,0,1,0),Text='',ZIndex=1,BackgroundColor3=Color3.new(0,0,0),
BackgroundTransparency=0.25,Parent=q.Gui,TextXAlignment=Enum.TextXAlignment.Left
,TextColor3=Color3.new(1,1,1),FontSize=Enum.FontSize.Size12,ClearTextOnFocus=
false})local t,u=pcall(function()return j:SetGlobalGuiInset(0,0,0,20)end)if not
t then j:SetGlobalSizeOffsetPixel(0,-20)end j:AddSpecialKey(Enum.SpecialKey.
ChatHotkey)j.SpecialKeyPressed:connect(function(v)if v==Enum.SpecialKey.
ChatHotkey then return o:FocusOnChatBar()end end)return q.ClickToChatButton.
MouseButton1Click:connect(function()return o:FocusOnChatBar()end)end end o.
CreateGui=function(q)q.Gui=b(h,'RobloxGui')q.Frame=g('Frame','ChatFrame',{Size=
UDim2.new(0,500,0,120),Position=UDim2.new(0,0,0,5),BackgroundTransparency=1,
ZIndex=0,Parent=q.Gui,Active=false,g('ImageLabel','Background',{Image=
'http://www.roblox.com/asset/?id=97120937',Size=UDim2.new(1.3,0,1.64,0),Position
=UDim2.new(0,0,0,0),BackgroundTransparency=1,ZIndex=0,Visible=false}),g('Frame',
'Border',{Size=UDim2.new(1,0,0,1),Position=UDim2.new(0,0,0.8,0),
BackgroundTransparency=0,BackgroundColor3=Color3.new(0.9254901960784314,
0.9254901960784314,0.9254901960784314),BorderSizePixel=0,Visible=false}),g(
'Frame','ChatRenderFrame',{Size=UDim2.new(1.02,0,1.01,0),Position=UDim2.new(0,0,
0,0),BackgroundTransparency=1,ZIndex=0,Active=false})})Spawn(function()wait(0.5)
if c()then q.Frame.Size=UDim2.new(0,280,0,120)end end)q.RenderFrame=q.Frame.
ChatRenderFrame if o:IsTouchDevice()then q.Frame.Position=q.Configuration.
Position q.RenderFrame.Size=UDim2.new(1,0,1,0)elseif q.Frame.AbsoluteSize.Y>120
then o:ScreenSizeChanged()q.Gui.Changed:connect(function(r)if r=='AbsoluteSize'
then return o:ScreenSizeChanged()end end)end if a or e.ChatMode==Enum.ChatMode.
TextAndMenu then if o:IsTouchDevice()then o:CreateTouchButton()else o:
CreateChatBar()end if q.ChatBar then return q.ChatBar.FocusLost:connect(function
(r)o.GotFocus=false if o:IsTouchDevice()then q.ChatBar.Visible=false q.
TapToChatLabel.Visible=true if q.TouchLabelBackground then q.
TouchLabelBackground.Visible=true end end if r and q.ChatBar.Text~=''then local
s=q.ChatBar.Text if string.sub(q.ChatBar.Text,1,1)=='%'then s='(TEAM) '..
tostring(string.sub(s,2,#s))pcall(function()return i:TeamChat(s)end)else pcall(
function()return i:Chat(s)end)end if q.ClickToChatButton then q.
ClickToChatButton.Visible=true end q.ChatBar.Text=''end return Spawn(function()
wait(5)if not o.GotFocus then o.Frame.Background.Visible=false end end)end)end
end end n.OnMouseScroll=function(q)Spawn(function()while n.Speed~=0 do if n.
Speed>1 then while n.Speed>0 do n.Speed=n.Speed-1 wait(0.25)end elseif n.Speed<0
then while n.Speed<0 do n.Speed=n.Speed+1 wait(0.25)end end wait(0.03)end end)if
o:CheckIfInBounds(n.Speed)then return end return o:ScrollQueue()end n.ApplySpeed
=function(q,r)n.Speed=n.Speed+r if not q.Simulating then return n:OnMouseScroll(
)end end n.Initialize=function(q)q.Mouse.WheelBackward:connect(function()return
n:ApplySpeed(q.Configuration.DefaultSpeed)end)return q.Mouse.WheelForward:
connect(function()return n:ApplySpeed(q.Configuration.DefaultSpeed)end)end o.
FindMessageInSafeChat=function(q,r,s)local t=false for u,v in pairs(s)do if u==r
then return true end if type(s[u])=='table'then t=o:FindMessageInSafeChat(r,s[u]
)if t then return true end end end return t end o.PlayerChatted=function(q,...)
local r,s,t={...},nil,nil if r[2]then s=r[2]end if r[3]then t=r[3]if string.sub(
t,1,1)=='%'then t='(TEAM) '..tostring(string.sub(t,2,#t))end end if i.
ClassicChat then if not(string.sub(t,1,3)=='/e 'or string.sub(t,1,7)=='/emote ')
and(a or e.ChatMode==Enum.ChatMode.TextAndMenu)or(e.ChatMode==Enum.ChatMode.Menu
and string.sub(t,1,3)=='/sc')or o:FindMessageInSafeChat(t,q.SafeChat_List)then
return o:UpdateChat(s,t)end end end o.CullThread=function(q)while true do if#q.
MessageQueue>0 then for r,s in pairs(q.MessageQueue)do if s['SpawnTime']and s[
'Player']and s['Message']and tick()-s['SpawnTime']>q.Configuration.LifeTime then
s['Player'].Visible=false s['Message'].Visible=false end end end wait(5)end end
o.LockAllFields=function(q,r)local s=r:GetChildren()for t=1,#s do s[t].
RobloxLocked=true if#s[t]:GetChildren()>0 then o:LockAllFields(s[t])end end end
o.CoreGuiChanged=function(q,r,s)if r==Enum.CoreGuiType.Chat or r==Enum.
CoreGuiType.All then if q.Frame then q.Frame.Visible=s end if not o:
IsTouchDevice()and q.ChatBar then q.ChatBar.Visible=s return j:
SetGlobalGuiInset(0,0,0,(function()if s then return 20 else return 0 end end)())
end end end o.Initialize=function(q)o:CreateGui()pcall(function()o:
CoreGuiChanged(Enum.CoreGuiType.Chat,Game.StarterGui:GetCoreGuiEnabled(Enum.
CoreGuiType.Chat))return Game.StarterGui.CoreGuiChangedSignal:connect(function(r
,s)return o:CoreGuiChanged(r,s)end)end)q.EventListener=i.PlayerChatted:connect(
function(...)return o:PlayerChatted(...)end)q.MessageThread=coroutine.create(
function()end)coroutine.resume(q.MessageThread)n:Initialize()i.ChildAdded:
connect(function()o.EventListener:disconnect()q.EventListener=i.PlayerChatted:
connect(function(...)return o:PlayerChatted(...)end)end)Spawn(function()return o
:CullThread()end)q.Frame.RobloxLocked=true o:LockAllFields(q.Frame)return q.
Frame.DescendantAdded:connect(function(r)return o:LockAllFields(r)end)end return
o:Initialize()

160
processed/host.lua
View File

@ -1,160 +0,0 @@
print"[Mercury]: Loaded Host corescript"
local placeId,sleeptime,access,url,killID,deathID,timeout,injectScriptAssetID,servicesUrl,libraryRegistrationScriptAssetID
pcall(function()
return game:GetService"ScriptContext":AddStarterScript(injectScriptAssetID)
end)
game:GetService"RunService":Run()
local waitForChild
waitForChild=function(parent,childName)
while true do
local child=parent:findFirstChild(childName)
if child then
return child
end
parent.ChildAdded:wait()
end
end
local getKillerOfHumanoidIfStillInGame
getKillerOfHumanoidIfStillInGame=function(humanoid)
local tag=humanoid:findFirstChild"creator"
if tag and tag.Value.Parent then
return tag.Value
end
end
local onDied
onDied=function(victim,humanoid)
local killer,
victorId=getKillerOfHumanoidIfStillInGame(humanoid),0
if killer then
victorId=killer.userId
print("STAT: kill by "..tostring(victorId).." of "..tostring(victim.userId))
game:HttpGet(tostring(url).."/Game/Knockouts.ashx?UserID="..tostring(victorId).."&"..tostring(access))
end
print("STAT: death of "..tostring(victim.userId).." by "..tostring(victorId))
return game:HttpGet(tostring(url).."/Game/Wipeouts.ashx?UserID="..tostring(victim.userId).."&"..tostring(access))
end
pcall(function()
settings().Network.UseInstancePacketCache=true
end)
pcall(function()
settings().Network.UsePhysicsPacketCache=true
end)
pcall(function()
settings()["Task Scheduler"].PriorityMethod=Enum.PriorityMethod.AccumulatedError
end)
settings().Network.PhysicsSend=Enum.PhysicsSendMethod.ErrorComputation2
settings().Network.ExperimentalPhysicsEnabled=true
settings().Network.WaitingForCharacterLogRate=100
pcall(function()
return settings().Diagnostics:LegacyScriptMode()
end)
url="_BASE_URL"
local scriptContext=game:GetService"ScriptContext"
pcall(function()
return scriptContext:AddStarterScript(libraryRegistrationScriptAssetID)
end)
scriptContext.ScriptsDisabled=true
game:GetService"ChangeHistoryService":SetEnabled(false)
local ns=game:GetService"NetworkServer"
if(url~=nil)then
pcall(function()
return game:GetService"Players":SetAbuseReportUrl(tostring(url).."/Report/Games.ashx")
end)
pcall(function()
return game:GetService"ScriptInformationProvider":SetAssetUrl(tostring(url).."/Asset/")
end)
pcall(function()
return game:GetService"ContentProvider":SetBaseUrl(tostring(url).."/")
end)
if(access~=nil)then
do
local _with_0=game:GetService"BadgeService"
_with_0:SetAwardBadgeUrl(tostring(url).."/Game/Badge/AwardBadge.ashx?UserID=%d&BadgeID=%d&PlaceID=%d&"..tostring(access))
_with_0:SetHasBadgeUrl(tostring(url).."/Game/Badge/HasBadge.ashx?UserID=%d&BadgeID=%d&"..tostring(access))
_with_0:SetIsBadgeDisabledUrl(tostring(url).."/Game/Badge/IsBadgeDisabled.ashx?BadgeID=%d&PlaceID=%d&"..tostring(access))
end
do
local _with_0=game:GetService"FriendService"
_with_0:SetMakeFriendUrl(tostring(servicesUrl).."/Friend/CreateFriend?firstUserId=%d&secondUserId=%d&"..tostring(access))
_with_0:SetBreakFriendUrl(tostring(servicesUrl).."/Friend/BreakFriend?firstUserId=%d&secondUserId=%d&"..tostring(access))
_with_0:SetGetFriendsUrl(tostring(servicesUrl).."/Friend/AreFriends?userId=%d&"..tostring(access))
end
end
game:GetService"BadgeService":SetIsBadgeLegalUrl""
do
local _with_0=game:GetService"InsertService"
_with_0:SetBaseSetsUrl(tostring(url).."/Game/Tools/InsertAsset.ashx?nsets=10&type=base")
_with_0:SetUserSetsUrl(tostring(url).."/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d")
_with_0:SetCollectionUrl(tostring(url).."/Game/Tools/InsertAsset.ashx?sid=%d")
_with_0:SetAssetUrl(tostring(url).."/Asset/?id=%d")
_with_0:SetAssetVersionUrl(tostring(url).."/Asset/?assetversionid=%d")
end
pcall(function()
return loadfile(tostring(url).."/Game/LoadPlaceInfo.ashx?PlaceId="..tostring(placeId))()
end)
pcall(function()
if access then
return loadfile(tostring(url).."/Game/PlaceSpecificScript.ashx?PlaceId="..tostring(placeId).."&"..tostring(access))()
end
end)
end
pcall(function()
return game:GetService"NetworkServer":SetIsPlayerAuthenticationRequired(true)
end)
settings().Diagnostics.LuaRamLimit=0
if(placeId~=nil)and(killID~=nil)and(deathID~=nil)and(url~=nil)then
local createDeathMonitor
createDeathMonitor=function(player)
if player.Character then
local humanoid=waitForChild(player.Character,"Humanoid")
return humanoid.Died:connect(function()
return onDied(player,humanoid)
end)
end
end
game:GetService"Players".ChildAdded:connect(function(player)
createDeathMonitor(player)
return player.Changed:connect(function(property)
if property=="Character"then
return createDeathMonitor(player)
end
end)
end)
end
game:GetService"Players".PlayerAdded:connect(function(player)
print("Player "..tostring(player.userId).." added")
if url and access and placeId and player and player.userId then
game:HttpGet(tostring(url).."/Game/ClientPresence.ashx?action=connect&"..tostring(access).."&PlaceID="..tostring(placeId).."&UserID="..tostring(player.userId))
return game:HttpGet(tostring(url).."/Game/PlaceVisit.ashx?UserID="..tostring(player.userId).."&AssociatedPlaceID="..tostring(placeId).."&"..tostring(access))
end
end)
game:GetService"Players".PlayerRemoving:connect(function(player)
print("Player "..tostring(player.userId).." leaving")
if url and access and placeId and player and player.userId then
return game:HttpGet(tostring(url).."/Game/ClientPresence.ashx?action=disconnect&"..tostring(access).."&PlaceID="..tostring(placeId).."&UserID="..tostring(player.userId))
end
end)
if(placeId~=nil)and(url~=nil)then
wait()
game:Load(tostring(url).."/asset/?id="..tostring(placeId))
end
if _MAP_LOCATION_EXISTS then
wait()
game:Load"_MAP_LOCATION"
end
ns:Start(_SERVER_PORT,sleeptime)
game:GetService"Visit":SetPing("_SERVER_PRESENCE_URL",30)
if timeout then
scriptContext:SetTimeout(timeout)
end
scriptContext.ScriptsDisabled=false
local reset=";mc"
return game.Players.PlayerAdded:connect(function(player)
return player.Chatted:connect(function(msg)
if msg==reset then
if player.Character then
player.Character.Humanoid.Health=0
end
end
end)
end)

230
processed/join.lua
View File

@ -1,230 +0,0 @@
print"[Mercury]: Loaded Join corescript"-- MultiplayerSharedScript.lua inserted here ------ Prepended to Join.lua --
pcall(function()
return game:SetPlaceID(_PLACE_ID,false)
end)
local isTouchDevice=Game:GetService"UserInputService".TouchEnabled
settings()["Game Options"].CollisionSoundEnabled=true
pcall(function()
settings().Rendering.EnableFRM=true
end)
pcall(function()
settings().Physics.Is30FpsThrottleEnabled=false
end)
pcall(function()
settings()["Task Scheduler"].PriorityMethod=Enum.PriorityMethod.AccumulatedError
end)
pcall(function()
settings().Physics.PhysicsEnvironmentalThrottle=Enum.EnviromentalPhysicsThrottle.DefaultAuto
end)
local threadSleepTime=...
if threadSleepTime==nil then
threadSleepTime=15
end
local test=_IS_STUDIO_JOIN
print"! Joining game '_PLACE_ID' place _PLACE_ID at _SERVER_ADDRESS"
game:GetService"ChangeHistoryService":SetEnabled(false)
game:GetService"ContentProvider":SetThreadPool(16)
do
local _with_0=game:GetService"InsertService"
_with_0:SetBaseSetsUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=10&type=base"
_with_0:SetUserSetsUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d"
_with_0:SetCollectionUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?sid=%d"
_with_0:SetAssetUrl"http://banland.xyz/Asset/?id=%d"
_with_0:SetAssetVersionUrl"http://www.roblox.com/Asset/?assetversionid=%d"
end
do
local _with_0=game:GetService"SocialService"
pcall(function()
return _with_0:SetFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetBestFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetGroupUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRankUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRoleUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d"
end)
end
pcall(function()
return game:GetService"GamePassService":SetPlayerHasPassUrl"http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d"
end)
pcall(function()
return game:GetService"MarketplaceService":SetProductInfoUrl"https://banland.xyz/marketplace/productinfo?assetId=%d"
end)
pcall(function()
return game:GetService"MarketplaceService":SetPlayerOwnsAssetUrl"https://banland.xyz/ownership/hasasset?userId=%d&assetId=%d"
end)
pcall(function()
return game:SetCreatorID(_CREATOR_ID,Enum.CreatorType.User)
end)
pcall(function()
return game:GetService"Players":SetChatStyle(Enum.ChatStyle.ClassicAndBubble)
end)
local waitingForCharacter=false
pcall(function()
if settings().Network.MtuOverride==0 then
settings().Network.MtuOverride=1400
end
end)
client=game:GetService"NetworkClient"
visit=game:GetService"Visit"
setMessage=function(message)
return game:SetMessage((function()do
return message end
end)())
end
showErrorWindow=function(message,_,_)
return game:SetMessage(message)
end
reportError=function(err,message)
print("***ERROR*** "..tostring(err))
if not test then
visit:SetUploadUrl""
end
client:disconnect()
wait(4)
return showErrorWindow("Error: "..tostring(err),message,"Other")
end
onDisconnection=function(_,lostConnection)
if lostConnection then
return showErrorWindow("You have lost the connection to the game","LostConnection","LostConnection")
else
return showErrorWindow("This game has shut down","Kick","Kick")
end
end
requestCharacter=function(replicator)
local connection
connection=player.Changed:connect(function(property)
if property=="Character"then
game:ClearMessage()
waitingForCharacter=false
return connection:disconnect()
end
end)
setMessage"Requesting character"
local success,err=pcall(function()
replicator:RequestCharacter()
setMessage"Waiting for character"
waitingForCharacter=true
end)
if not success then
reportError(err,"W4C")
return
end
end
onConnectionAccepted=function(url,replicator)
local connectResolved,
waitingForMarker=true,true
local success,err=pcall(function()
if not test then
visit:SetPing("_PING_URL",30)
end do
game:SetMessageBrickCount()end
replicator.Disconnection:connect(onDisconnection)
local marker=replicator:SendMarker()
return marker.Received:connect(function()
waitingForMarker=false
return requestCharacter(replicator)
end)
end)
if not success then
reportError(err,"ConnectionAccepted")
return
end
while waitingForMarker do
workspace:ZoomToExtents()
wait(0.5)
end
end
onConnectionFailed=function(_,err)
return showErrorWindow("Failed to connect to the Game. (ID="..tostring(err)..")","ID"..tostring(err),"Other")
end
onConnectionRejected=function()
connectionFailed:disconnect()
return showErrorWindow("This game is not available. Please try another","WrongVersion","WrongVersion")
end
local idled=false
onPlayerIdled=function(time)
if time>12E2 then
showErrorWindow(string.format("You were disconnected for being idle %d minutes",time/60),"Idle","Idle")
client:disconnect()
if not idled then
idled=true
end
end
end
pcall(function()
return settings().Diagnostics:LegacyScriptMode()
end)
local success,err=pcall(function()
game:SetRemoteBuildMode(true)
setMessage"Connecting to Server"
client.ConnectionAccepted:connect(onConnectionAccepted)
client.ConnectionRejected:connect(onConnectionRejected)
connectionFailed=client.ConnectionFailed:connect(onConnectionFailed)
client.Ticket=""
playerConnectSucces,player=pcall(function()
return client:PlayerConnect(_USER_ID,"_SERVER_ADDRESS",_SERVER_PORT,0,threadSleepTime)
end)
if not playerConnectSucces then
player=game:GetService"Players":CreateLocalPlayer(_USER_ID)
client:Connect("_SERVER_ADDRESS",_SERVER_PORT,0,threadSleepTime)
end
if not test then
delay(300,function()
end)
end
do
local _with_0=player
_with_0:SetSuperSafeChat(false)
pcall(function()
return _with_0:SetUnder13(false)
end)
pcall(function()
return _with_0:SetMembershipType(Enum.MembershipType._MEMBERSHIP_TYPE)
end)
pcall(function()
return _with_0:SetAccountAge(1)
end)
end
player.Idled:connect(onPlayerIdled)
pcall(function()
player.Name=[========[_USER_NAME]========]
end)
player.CharacterAppearance="_CHAR_APPEARANCE"
if not test then
return visit:SetUploadUrl""
end
end)
if not success then
reportError(err,"CreatePlayer")
end
if not test then
loadfile(("")("",-1,0))
end
pcall(function()
return game:SetScreenshotInfo""
end)
return pcall(function()
return game:SetVideoInfo'<?xml version="1.0"?><entry xmlns="http://www.w3.org/2005/Atom" xmlns:media="http://search.yahoo.com/mrss/" xmlns:yt="http://gdata.youtube.com/schemas/2007"><media:group><media:title type="plain"><![CDATA[ROBLOX Place]]></media:title><media:description type="plain"><![CDATA[ For more games visit http://www.roblox.com]]></media:description><media:category scheme="http://gdata.youtube.com/schemas/2007/categories.cat">Games</media:category><media:keywords>ROBLOX, video, free game, online virtual world</media:keywords></media:group></entry>'
end)

58
processed/studio.lua
View File

@ -1,58 +0,0 @@
print"[Mercury]: Loaded Studio corescript"
do
local _with_0=game:GetService"InsertService"
pcall(function()
return _with_0:SetFreeModelUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?type=fm&q=%s&pg=%d&rs=%d"
end)
pcall(function()
return _with_0:SetFreeDecalUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?type=fd&q=%s&pg=%d&rs=%d"
end)
game:GetService"ScriptInformationProvider":SetAssetUrl"http://banland.xyz/Asset/"
_with_0:SetBaseSetsUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?nsets=10&type=base"
_with_0:SetUserSetsUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d"
_with_0:SetCollectionUrl"http://banland.xyz/Game/Tools/InsertAsset.ashx?sid=%d"
_with_0:SetAssetUrl"http://banland.xyz/Asset/?id=%d"
_with_0:SetAssetVersionUrl"http://www.roblox.com/Asset/?assetversionid=%d"
_with_0:SetTrustLevel(0)
end
do
local _with_0=game:GetService"SocialService"
pcall(function()
return _with_0:SetFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetBestFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetGroupUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRankUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRoleUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d"
end)
end
pcall(function()
return game:GetService"GamePassService":SetPlayerHasPassUrl"http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d"
end)
do
local _with_0=game:GetService"MarketplaceService"
pcall(function()
return _with_0:SetProductInfoUrl"https://banland.xyz/marketplace/productinfo?assetId=%d"
end)
pcall(function()
return _with_0:SetDevProductInfoUrl"https://banland.xyz/marketplace/productDetails?productId=%d"
end)
pcall(function()
return _with_0:SetPlayerOwnsAssetUrl"https://banland.xyz/ownership/hasasset?userId=%d&assetId=%d"
end)
end
local result,_=pcall(function()
return game:GetService"ScriptContext":AddStarterScript(37801172)
end)
if not result then
return pcall(function()
return game:GetService"ScriptContext":AddCoreScript(37801172,game:GetService("ScriptContext","StarterScript"))
end)
end

145
processed/visit.lua
View File

@ -1,145 +0,0 @@
print"[Mercury]: Loaded Visit corescript"do
pcall(function()
return game:SetPlaceID(_PLACE_ID)
end)end
local visit,
message=game:GetService"Visit",Instance.new"Message"
message.Parent=workspace
message.archivable=false
game:GetService"ScriptInformationProvider":SetAssetUrl"http://banland.xyz/Asset/"
game:GetService"ContentProvider":SetThreadPool(16)
pcall(function()
return game:GetService"InsertService":SetFreeModelUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?type=fm&q=%s&pg=%d&rs=%d"
end)
pcall(function()
return game:GetService"InsertService":SetFreeDecalUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?type=fd&q=%s&pg=%d&rs=%d"
end)
settings().Diagnostics:LegacyScriptMode()
do
local _with_0=game:GetService"InsertService"
_with_0:SetBaseSetsUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=10&type=base"
_with_0:SetUserSetsUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?nsets=20&type=user&userid=%d"
_with_0:SetCollectionUrl"http://www.roblox.com/Game/Tools/InsertAsset.ashx?sid=%d"
_with_0:SetAssetUrl"http://banland.xyz/Asset/?id=%d"
_with_0:SetAssetVersionUrl"http://www.roblox.com/Asset/?assetversionid=%d"
end
do
local _with_0=game:GetService"SocialService"
pcall(function()
return _with_0:SetFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetBestFriendUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsBestFriendsWith&playerid=%d&userid=%d"
end)
pcall(function()
return _with_0:SetGroupUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=IsInGroup&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRankUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRank&playerid=%d&groupid=%d"
end)
pcall(function()
return _with_0:SetGroupRoleUrl"http://banland.xyz/Game/LuaWebService/HandleSocialRequest.ashx?method=GetGroupRole&playerid=%d&groupid=%d"
end)
end
pcall(function()
return game:GetService"GamePassService":SetPlayerHasPassUrl"http://banland.xyz/Game/GamePass/GamePassHandler.ashx?Action=HasPass&UserID=%d&PassID=%d"
end)
pcall(function()
return game:SetCreatorID(0,Enum.CreatorType.User)
end)
pcall(function()
return game:SetScreenshotInfo""
end)
pcall(function()
return game:SetVideoInfo""
end)
pcall(function()
settings().Rendering.EnableFRM=true
end)
pcall(function()
settings()["Task Scheduler"].PriorityMethod=Enum.PriorityMethod.AccumulatedError
end)
game:GetService"ChangeHistoryService":SetEnabled(false)
pcall(function()
return game:GetService"Players":SetBuildUserPermissionsUrl"http://banland.xyz/Game/BuildActionPermissionCheck.ashx?assetId=0&userId=%d&isSolo=true"
end)
workspace:SetPhysicsThrottleEnabled(true)
local addedBuildTools,
screenGui,
doVisit=false,game:GetService"CoreGui":FindFirstChild"RobloxGui",nil
doVisit=function()
message.Text="Loading Game"do
pcall(function()
return visit:SetUploadUrl""
end)end
message.Text="Running"
game:GetService"RunService":Run()
message.Text="Creating Player"do
player=game:GetService"Players":CreateLocalPlayer(0)end
player.CharacterAppearance=""
local propExists,
canAutoLoadChar=false,false
propExists=pcall(function()
canAutoLoadChar=game.Players.CharacterAutoLoads
end)
if(propExists and canAutoLoadChar)or not propExists then
player:LoadCharacter()
end
message.Text="Setting GUI"
player:SetSuperSafeChat(true)
pcall(function()
return player:SetMembershipType(Enum.MembershipType.None)
end)
pcall(function()
return player:SetAccountAge(0)
end)
end
local success,err=pcall(doVisit)
if not addedBuildTools then
do
local _with_0=Instance.new"StringValue"
_with_0.Name="PlayerName"
_with_0.Value=player.Name
_with_0.RobloxLocked=true
_with_0.Parent=screenGui
end
pcall(function()
return game:GetService"ScriptContext":AddCoreScript(59431535,screenGui,"BuildToolsScript")
end)
addedBuildTools=true
end
if success then
message.Parent=nil
else
print(err)
wait(5)
message.Text="Error on visit: "..tostring(err)
end