From 30bc79cf83e9de480dc58beb319b6ca110b5d93c Mon Sep 17 00:00:00 2001 From: Lewin Kelly Date: Fri, 5 May 2023 19:21:17 +0100 Subject: [PATCH] Improve formatting of corescripts --- processed/107893730.lua | 8 +- processed/153556783.lua | 20 +- processed/157877000.lua | 397 +++++++++-------- processed/38037565.lua | 22 +- processed/39250920.lua | 24 +- processed/45284430.lua | 76 ++-- processed/46295863.lua | 52 +-- processed/48488235.lua | 10 +- processed/53878047.lua | 47 +- processed/73157242.lua | 918 ++++++++++++++++++++-------------------- processed/89449093.lua | 22 +- processed/host.lua | 7 +- selene.toml | 1 - yue/107893730.yue | 19 +- yue/152908679.yue | 8 +- yue/153556783.yue | 7 +- yue/157877000.yue | 499 ++++++++++------------ yue/38037565.yue | 30 +- yue/39250920.yue | 10 +- yue/45284430.yue | 163 +++---- yue/46295863.yue | 53 ++- yue/48488235.yue | 45 +- yue/48488398.yue | 3 +- yue/53878047.yue | 6 +- yue/53878057.yue | 3 +- yue/60595411.yue | 4 +- yue/73157242.yue | 473 +++++++++++---------- yue/89449093.yue | 6 +- yue/97188756.yue | 36 +- yue/host.yue | 12 +- 30 files changed, 1437 insertions(+), 1544 deletions(-) diff --git a/processed/107893730.lua b/processed/107893730.lua index 80a9dcf..acf1bf3 100644 --- a/processed/107893730.lua +++ b/processed/107893730.lua @@ -192,10 +192,10 @@ 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),Name=aC})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 +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 diff --git a/processed/153556783.lua b/processed/153556783.lua index 82b1322..f3fa3b6 100644 --- a/processed/153556783.lua +++ b/processed/153556783.lua @@ -80,16 +80,16 @@ 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',{Name='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. +'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. diff --git a/processed/157877000.lua b/processed/157877000.lua index a38f528..bbe0825 100644 --- a/processed/157877000.lua +++ b/processed/157877000.lua @@ -1,202 +1,197 @@ -print'[Mercury]: Loaded corescript 157877000'local a,b=assert(LoadLibrary -'RbxUtility').Create,script.Parent:FindFirstChild'ControlFrame'or script.Parent -local c,d,e,f=a'Frame'{Name='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'{Name= -'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'{Name='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)}local x=a'Frame'{Name='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=a -'Frame'{Name='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)}local z=a'TextButton'{Name='ErrorToggleButton',Parent=y,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'{Name='CheckFrame',Parent=z, -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)}local A=a'TextButton'{Name= -'InfoToggleButton',Parent=y,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'{Name='CheckFrame',Parent=A,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)}local B=a'TextButton'{Name='OutputToggleButton',Parent=y, -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'{Name='CheckFrame', -Parent=B,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)}local C=a'TextButton'{Name -='WarningToggleButton',Parent=y,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'{Name='CheckFrame',Parent=C,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)}local D=a'TextButton'{Name='WordWrapToggleButton',Parent=y, -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'{Name= -'CheckFrame',Parent=D,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'{Name='Filter',Parent=y,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'{Name='WordWrap',Parent=y,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)}local E=a'Frame'{ -Name='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}local F=a'Frame'{Name='ScrollArea',Parent=E, -BackgroundTransparency=1,Position=UDim2.new(0,0,0,23),Size=UDim2.new(1,0,1,-46)} -local G=a'ImageButton'{Name='Handle',Parent=F,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'{Name='ImageLabel',Parent=G,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'}local H=a'ImageButton'{Name='Down', -Parent=E,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'{Name='ImageLabel', -Parent=H,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'}local I=a -'ImageButton'{Name='Up',Parent=E,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'{Name='ImageLabel',Parent=I,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 J=a'Frame'{Name='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 K,L=a -'Frame'{Name='TextHolder',Parent=J,BackgroundTransparency=1,Position=UDim2.new(0 -,0,0,0),Size=UDim2.new(1,0,1,0)},a'ImageButton'{Name='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'{Name='ImageLabel',Parent=L, -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'}local M=a -'ImageButton'{Name='ResizeButton',Parent=w,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'{Name='ImageLabel',Parent=M,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'{Name='LocalConsole', -Parent=w,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'{Name='ServerConsole', -Parent=w,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 N=a'Frame'{Name='TitleBar', +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,0),Size=UDim2.new(1,0,0,20)}local O=a'ImageButton'{Name= -'CloseButton',Parent=N,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'{ -Parent=O,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'{Name='TextButton', -Parent=N,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'{Name= -'TitleText',Parent=N,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}local P,Q,R,S,T,U,V,W,X=nil,nil,nil,nil,nil,nil,false,false, -nil X=function()P=nil Q=nil R=nil S=nil T=nil U=nil V=false W=false end local Y -Y=function(Z,_)if not P then return end local aa=Vector2.new(Z,_-P)c.Position= -UDim2.new(0,Q.X+aa.X,0,Q.Y+aa.Y)end N.TextButton.MouseButton1Down:connect( -function(aa,Z)P=Vector2.new(aa,Z)Q=c.AbsolutePosition end)N.TextButton. -MouseButton1Up:connect(X)local aa aa=function(Z,_)if not R then return end local -ab=Vector2.new(Z,_-R)c.Size=UDim2.new(0,math.max(S.X+ab.X,j.X),0,math.max(S.Y+ab -.Y,j.Y))end c.Body.ResizeButton.MouseButton1Down:connect(function(ab,Z)R=Vector2 -.new(ab,Z)S=c.AbsoluteSize end)c.Body.ResizeButton.MouseButton1Up:connect(X)N. -CloseButton.MouseButton1Down:connect(function()c.Visible=false end)c.TitleBar. -CloseButton.MouseButton1Up:connect(X)local ab,Z,_=true,false,nil _=function()if -Z then return end Z=true repeat v=v+(function()if ab then return-1 else return 1 -end end)()local ac=v/5 local ad=ac*ac*(3-(2*ac))L.ImageLabel.Rotation=ad*5*9 y. -Position=UDim2.new(0,(ad*5*50)-250,0,4)wait()if(v<=0 and ab)or(v>=5 and not ab) -then Z=false end until not Z end L.MouseButton1Down:connect(function()ab=not ab -return _()end)local ac ac=function()if k==g then n=math.min(math.max(n,0),u-c. -Body.TextBox.AbsoluteSize.Y)K.Size=UDim2.new(1,0,0,u)elseif k==h then o=math. -min(math.max(o,0),u-c.Body.TextBox.AbsoluteSize.Y)K.Size=UDim2.new(1,0,0,u)end -local ad=c.Body.TextBox.AbsoluteSize.Y/K.AbsoluteSize.Y if ad>=1 then c.Body. -ScrollBar.Visible=false c.Body.TextBox.Size=UDim2.new(1,-4,1,-28)if k==g or k==h -then K.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 ae,af=1-ad,nil if k==g then af=n/K -.AbsoluteSize.Y elseif k==h then af=o/K.AbsoluteSize.Y end local ag,ah=math.max( -0,ae-af),math.max(F.AbsoluteSize.Y*ad,21)local ai=ah/F.AbsoluteSize.Y local aj=( -1-ai)/(1-ad)local ak=ag*aj local al=math.min(F.AbsoluteSize.Y*ak,F.AbsoluteSize. -Y-ah)F.Handle.Size=UDim2.new(1,0,0,ah)F.Handle.Position=UDim2.new(0,0,0,al)K. -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 ad ad=function(ae)if k==g then n=n+ae elseif k -==h then o=o+ae end return ac()end local ae ae=function()local af,ag=K: -GetChildren(),nil if k==g then ag=l elseif k==h then ag=m end local ah=0 for ai= -1,#af do af[ai].Visible=false end for ai=1,#ag do local aj,ak=nil,false if ai># -af then aj=a'TextLabel'{Name='Message',Parent=K,BackgroundTransparency=1, -TextXAlignment='Left',Size=UDim2.new(1,0,0,14),FontSize='Size10',ZIndex=1}ak= -true else aj=af[ai]end if(s or ag[ai].Type~=Enum.MessageType.MessageOutput)and(r -or ag[ai].Type~=Enum.MessageType.MessageInfo)and(q or ag[ai].Type~=Enum. -MessageType.MessageWarning)and(p or ag[ai].Type~=Enum.MessageType.MessageError) -then do aj.TextWrapped=t aj.Size=UDim2.new(0.98,0,0,2000)aj.Parent=c aj.Text= -tostring(ag[ai].Time)..' -- '..tostring(ag[ai].Message)aj.Size=UDim2.new(0.98,0, -0,aj.TextBounds.Y)aj.Position=UDim2.new(0,5,0,ah)aj.Parent=K ah=ah+aj.TextBounds -.Y end if ak then if(k==g and n>0)or(k==h and o>0)then ad(aj.TextBounds.Y)end -end aj.Visible=true aj.TextColor3=Color3.new((function()if ag[ai].Type==Enum. -MessageType.MessageError then return 1,0,0 elseif ag[ai].Type==Enum.MessageType. -MessageInfo then return 0.4,0.5,1 elseif ag[ai].Type==Enum.MessageType. -MessageWarning then return 1,0.6,0.4 else return 1,1,1 end end)())end end u=ah -end local af,ag=false,nil ag=function()if af then return end Delay(0.1,function( -)af=false return ae()end)af=true end local ah,ai=0,nil ai=function()if V then -return end V=true wait(0.6)ah=ah+1 while V and ah<2 do wait()ad(12)end ah=ah-1 -end local aj aj=function()if W then return end W=true wait(0.6)ah=ah+1 while W -and ah<2 do wait()ad(-12)end ah=ah-1 end c.Body.ScrollBar.Up.MouseButton1Click: -connect(function()return ad(10)end)c.Body.ScrollBar.Up.MouseButton1Down:connect( -function()ad(10)return ai()end)c.Body.ScrollBar.Up.MouseButton1Up:connect(X)c. -Body.ScrollBar.Down.MouseButton1Down:connect(function()ad(-10)return aj()end)c. -Body.ScrollBar.Down.MouseButton1Up:connect(X)local ak ak=function(al,am)if not T -then return end local an,ao,ap=(Vector2.new(al,am-T)).Y,1-(c.Body.TextBox. -AbsoluteSize.Y/K.AbsoluteSize.Y),F.AbsoluteSize.Y-F.Handle.AbsoluteSize.Y local -aq=math.max(math.min(an,ap),0-ap)local ar,as=aq/ap,(ao*K.AbsoluteSize.Y)local at -=as*ar if k==g then n=U-at elseif k==h then o=U-at end end F.Handle. -MouseButton1Down:connect(function(al,am)T=Vector2.new(al,am)if k==g then U=n -elseif k==h then U=o end end)F.Handle.MouseButton1Up:connect(X)local al al= -function(am,an,ao)local ap,aq=am.AbsolutePosition,am.AbsoluteSize if anap.X+aq.X or aoap.y+aq.y then return false end return true end -local am am=function(an)if an<10 then return'0'..tostring(an)else return an end -end local an,ao='%s:%s:%s',nil ao=function(ap)local aq=ap-os.time()+math.floor( -tick())local ar=aq%86400 local as=math.floor(ar/3600)ar=ar-(as*3600)local at= -math.floor(ar/60)ar=ar-(at*60)local au,av,aw=am(as),am(at),am(ar)return an: -format(au,av,aw)end y.ErrorToggleButton.MouseButton1Down:connect(function()p=not -p y.ErrorToggleButton.CheckFrame.Visible=p ag()return ac()end)y. -WarningToggleButton.MouseButton1Down:connect(function()q=not q y. -WarningToggleButton.CheckFrame.Visible=q ag()return ac()end)y.InfoToggleButton. -MouseButton1Down:connect(function()r=not r y.InfoToggleButton.CheckFrame.Visible -=r ag()return ac()end)y.OutputToggleButton.MouseButton1Down:connect(function()s= -not s y.OutputToggleButton.CheckFrame.Visible=s ag()return ac()end)y. -WordWrapToggleButton.MouseButton1Down:connect(function()t=not t y. -WordWrapToggleButton.CheckFrame.Visible=t ag()return ac()end)local ap ap= -function(aq,ar,as)l[#l+1]={Message=aq,Time=ao(as),Type=ar}while#l>i do table. -remove(l,1)end ag()return ac()end local aq aq=function(ar,as,at)m[#m+1]={Message -=ar,Time=ao(at),Type=as}while#m>i do table.remove(m,1)end ag()return ac()end c. -Body.LocalConsole.MouseButton1Click:connect(function()if k==h then k=g local ar, -as=c.Body.LocalConsole,c.Body.ServerConsole ar.Size=UDim2.new(0,90,0,20)as.Size= -UDim2.new(0,90,0,17)ar.BackgroundTransparency=0.6 as.BackgroundTransparency=0.8 -if game:FindFirstChild'Players'and game.Players['LocalPlayer']then local at=game -.Players.LocalPlayer:GetMouse()Y(at.X,at.Y)aa(at.X,at.Y)ak(at.X,at.Y)end ag() -return ac()end end)c.Body.LocalConsole.MouseButton1Up:connect(X)local ar=false c -.Body.ServerConsole.MouseButton1Click:connect(function()if not ar then ar=true -game:GetService'LogService':RequestServerOutput()end if k==g then k=h local as, -at=c.Body.LocalConsole,c.Body.ServerConsole at.Size=UDim2.new(0,90,0,20)as.Size= -UDim2.new(0,90,0,17)at.BackgroundTransparency=0.6 as.BackgroundTransparency=0.8 -if game:FindFirstChild'Players'and game.Players['LocalPlayer']then local au=game -.Players.LocalPlayer:GetMouse()Y(au.X,au.Y)aa(au.X,au.Y)ak(au.X,au.Y)end ag() -return ac()end end)c.Body.ServerConsole.MouseButton1Up:connect(X)if game: -FindFirstChild'Players'and game.Players['LocalPlayer']then local as=game.Players -.LocalPlayer:GetMouse()as.Move:connect(function()if not c.Visible then return -end local at=game.Players.LocalPlayer:GetMouse()Y(at.X,at.Y)aa(at.X,at.Y)ak(at.X -,at.Y)ag()return ac()end)as.Button1Up:connect(X)as.WheelForward:connect(function -()if not c.Visible then return end if al(c,as.X,as.Y)then return ad(10)end end) -as.WheelBackward:connect(function()if not c.Visible then return end if al(c,as.X -,as.Y)then return ad(-10)end end)end F.Handle.MouseButton1Down:connect(function( -)return ac()end)local as=game:GetService'LogService':GetLogHistory()for at=1,#as -do ap(as[at].message,as[at].messageType,as[at].timestamp)end local at=game: -GetService'LogService'at.MessageOut:connect(function(au,av)return ap(au,av,os. -time())end)at.ServerMessageOut:connect(aq)return at end local aa=false d. -OnInvoke=function()if aa then return end aa=true f()c.Visible=not c.Visible aa= -false end \ No newline at end of file +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 aeag.X+ah.X or afag. +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 \ No newline at end of file diff --git a/processed/38037565.lua b/processed/38037565.lua index 4749dc7..6e85a5d 100644 --- a/processed/38037565.lua +++ b/processed/38037565.lua @@ -4,22 +4,22 @@ 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=d(e, -'Humanoid'),d(e,'Torso'),e:FindFirstChild'PlayerStats',Instance.new'BoolValue'i. -Name='InCharTag'local j=Instance.new'BoolValue'j.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: +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=(function()if p>0 then return Color3.new(0,1,0)else -return Color3.new(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 return q:remove()end +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 diff --git a/processed/39250920.lua b/processed/39250920.lua index d42555e..1eba2b5 100644 --- a/processed/39250920.lua +++ b/processed/39250920.lua @@ -60,18 +60,18 @@ 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 local L=u:Clone()L.archivable=false L.Disabled=false L.Parent=K 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.Name0 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 +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]] diff --git a/processed/46295863.lua b/processed/46295863.lua index 4e263c8..d4fefee 100644 --- a/processed/46295863.lua +++ b/processed/46295863.lua @@ -33,30 +33,30 @@ 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)local G=Instance.new'TextButton'G.Font=Enum.Font.Arial G. -FontSize=D G.Size=E G.Position=F G.Style=C G.TextColor3=Color3.new(1,1,1)G.Text= -B return G 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( +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: @@ -167,9 +167,9 @@ 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 local X=game.Players. +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 local X=A('Reset Character',Enum.ButtonStyle.RobloxButton,Enum.FontSize. +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, diff --git a/processed/48488235.lua b/processed/48488235.lua index 051aa20..0b7ef6f 100644 --- a/processed/48488235.lua +++ b/processed/48488235.lua @@ -81,12 +81,12 @@ 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',{Name= -'MidTemplate',BackgroundTransparency=1,Position=UDim2.new(100,0,0.07,0),Size= -UDim2.new(0.5,0,0.025,0),e('ImageLabel',{Name='BCLabel',Active=true, +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',{Name= -'FriendLabel',Active=true,BackgroundTransparency=1,Position=UDim2.new(0.005,5, +,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', diff --git a/processed/53878047.lua b/processed/53878047.lua index 28b0bb6..6853e15 100644 --- a/processed/53878047.lua +++ b/processed/53878047.lua @@ -20,27 +20,26 @@ UDim2.new(-0.1,0,-0.1,0),ZIndex=0,Visible=false,a('ImageLabel',{Size=UDim2.new(1 ,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',{Name='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), +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), @@ -146,9 +145,9 @@ 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',{Name=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',{ +'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' diff --git a/processed/73157242.lua b/processed/73157242.lua index 4242644..46130f0 100644 --- a/processed/73157242.lua +++ b/processed/73157242.lua @@ -1,480 +1,478 @@ -print'[Mercury]: Loaded corescript 73157242'local a,b={},nil b=function(c)local -d,e,f=false,game.Workspace.CurrentCamera,nil do local g=e.CoordinateFrame.p f= -Vector3.new(g.X,g.Y,g.Z)end local g,h,i=Vector3.new(c.X,c.Y,c.Z),Vector3.new(0,1 -,0),Vector3.new(0,0,0)local j,k=h:Dot(g-f),c if j~=0 then a=h:Dot(i-f)/j if a>=0 -and a<=1 then local l=((g-f)*a)+f k=game.Workspace.Terrain:WorldToCell(l)d=true -end end return k,d end local c c=function(d)local e,f=game.Workspace.Terrain: -WorldToCellPreferSolid(Vector3.new(d.hit.x,d.hit.y,d.hit.z)),nil if 0==game. -Workspace.Terrain:GetCell(e.X,e.Y,e.Z).Value then e=nil local g f,g=b(Vector3. -new(d.hit.x,d.hit.y,d.hit.z))if g then e=f end end return e end local d,e= -Vector3.new(0.3,0.3,0.3),nil e=function(f,g,h)if f:IsA'BasePart'then f.CFrame=(g -*(f.CFrame-h))+h end local i=f:GetChildren()for j=1,#i do e(i[j],g,h)end end -local f f=function(g,h)local i,j=CFrame.Angles(0,h,0),g:GetModelCFrame().p -return e(g,i,j)end local g g=function(h,i,j,k)if h:IsA'BasePart'then i[#i+1]=h -elseif h:IsA'Script'then j[#j+1]=h elseif h:IsA'Decal'then k[#k+1]=h end for l,m -in pairs(h:GetChildren())do g(m,i,j,k)end end local h h=function(i,j)local k= -game.Workspace:FindFirstChild'Terrain'local l,m=k:WorldToCell(i),k:WorldToCell(j -)local n,o,p,q,r,s=l.X,l.Y,l.Z,m.X,m.Y,m.Z if nk.MaxExtents.Max.X then q= -k.MaxExtents.Max.X end if r>k.MaxExtents.Max.Y then r=k.MaxExtents.Max.Y end if -s>k.MaxExtents.Max.Z then s=k.MaxExtents.Max.Z end for t=n,q do for u=o,r do for -v=p,s do if k:GetCell(t,u,v).Value>0 then return true end end end end return -false end local i i=function(j,k)if not j then return end if j.className=='Seat' -or j.className=='VehicleSeat'then table.insert(k,j)end local l=j:GetChildren() -for m=1,#l do i(l[m],k)end end local j j=function(k,l)local m={}i(k,m)if l then -for n=1,#m do local o=m[n]:FindFirstChild'SeatWeld'while o do o:Remove()o=m[n]: -FindFirstChild'SeatWeld'end end else for n=1,#m do local o=Instance.new'Weld'o. -Name='SeatWeld'o.Parent=m[n]end end end local k k=function(l)local m=l: -FindFirstChild'AutoAlignToFace'if m then return m.Value else return false end -end local l l=function(m)local n,o,p=Vector3.new(1,0,0),Vector3.new(0,1,0), -Vector3.new(0,0,1)local q,r,s=m.x*n.x+m.y*n.y+m.z*n.z,m.x*o.x+m.y*o.y+m.z*o.z,m. -x*p.x+m.y*p.y+m.z*p.z if math.abs(q)>math.abs(r)and math.abs(q)>math.abs(s)then -if q>0 then return 0 else return 3 end elseif math.abs(r)>math.abs(q)and math. -abs(r)>math.abs(s)then if r>0 then return 1 else return 4 end else if s>0 then -return 2 else return 5 end end end local m m=function(n,o)local p if not o then -return o end if o and(o:IsA'Model'or o:IsA'Tool')then p=o:GetModelCFrame()o: -TranslateBy(n.p-p.p)else o.CFrame=n end return o end local n n=function(o,p,q)if -math.abs(p)<0.01 then return 0 end return(q-o)/p end local o o=function(p,q,r)if -not p then return 0 end local s,t if p:IsA'Model'then s=p:GetModelCFrame()t=p: -GetModelSize()else s=p.CFrame t=p.Size end local u,v=s:pointToObjectSpace(q),s: -pointToObjectSpace(r)local w,x,y,z=v-u,1,1,1 if w.X>0 then x=-1 end if w.Y>0 -then y=-1 end if w.Z>0 then z=-1 end local A,B,C,D=n(u.X,w.X,t.X/2*x),n(u.Y,w.Y, -t.Y/2*y),n(u.Z,w.Z,t.Z/2*z),0 if A>B then if A>C then D=1*x else D=3*z end else -if B>C then D=2*y else D=3*z end end return D end local p p=function(q)local r,s +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 ol.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 q:IsA'Terrain'then r=Vector3.new(-2,-2,-2)s=Vector3.new(2,2,2) -elseif q:IsA'BasePart'then r=-0.5*q.Size s=-r else s=q:GetModelSize()*0.5 r=-s -end local t=q:FindFirstChild'Justification'if(t~=nil)then local u,v,w=t.Value, -Vector3.new(2,2,2),s-r-Vector3.new(0.01,0.01,0.01)local x=Vector3.new(4*math. -ceil(w.x/4),4*math.ceil(w.y/4),4*math.ceil(w.z/4))local y=x-w r=r-(0.5*y*u)s=s+( -0.5*y*(v-u))end return r,s 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 -'BasePart'and not r:IsA'Terrain'then local u,v=r.CFrame:pointToWorldSpace(-0.5*r -.Size),r.CFrame:pointToWorldSpace(0.5*r.Size)s=Vector3.new(math.min(u.X,v.X), -math.min(u.Y,v.Y),math.min(u.Z,v.Z))t=Vector3.new(math.max(u.X,v.X),math.max(u.Y -,v.Y),math.max(u.Z,v.Z))elseif not r:IsA'Terrain'then local u,v=r: -GetModelCFrame():pointToWorldSpace(-0.5*r:GetModelSize()),r:GetModelCFrame(): -pointToWorldSpace(0.5*r:GetModelSize())s=Vector3.new(math.min(u.X,v.X),math.min( -u.Y,v.Y),math.min(u.Z,v.Z))t=Vector3.new(math.max(u.X,v.X),math.max(u.Y,v.Y), -math.max(u.Z,v.Z))end return s,t end local r r=function(s)return p((function()if -(s.Parent:FindFirstChild'RobloxModel'~=nil)then return s.Parent else return s -end end)())end local s s=function(t)if(t.Parent:FindFirstChild'RobloxModel'~=nil -)then if t.Parent:IsA'Tool'then return t.Parent.Handle.CFrame else return t. -Parent:GetModelCFrame()end else return t.CFrame end end local t t=function(u)if -not u then return false end if not u.Parent then return false end if u: -FindFirstChild'Humanoid'then return false end if u:FindFirstChild'RobloxStamper' -then return true end if u:IsA'Part'and not u.CanCollide then return false end if -u==game.Lighting then return false end return t(u.Parent)end local u u=function( -v,w,x)local y=game.Workspace:FindPartsInRegion3(Region3.new(Vector3.new(v. -Position.X,w,v.Position.Z)-Vector3.new(0.75,2.75,0.75),Vector3.new(v.Position.X, -w,v.Position.Z)+Vector3.new(0.75,1.75,0.75)),v.Parent,100)for z=1,#y do if y[z]. -CanCollide and not y[z]:IsDescendantOf(x.CurrentParts)then return false end end -if h(Vector3.new(v.Position.X,w,v.Position.Z)-Vector3.new(0.75,2.75,0.75), -Vector3.new(v.Position.X,w,v.Position.Z)+Vector3.new(0.75,1.75,0.75))then return -false end return true end local v v=function(w,x)if not w then return end if not -x then return error'findConfigAtMouseTarget: stampData is nil'end if not x[ -'CurrentParts']then return end local y,z,A,B,C=4,false,CFrame.new(0,0,0),p(x. -CurrentParts)local D,E=C-B,nil if x.CurrentParts:IsA'Model'or x.CurrentParts:IsA -'Tool'then E=x.CurrentParts:GetModelCFrame()else E=x.CurrentParts.CFrame end if -w then if x.CurrentParts:IsA'Tool'then w.TargetFilter=x.CurrentParts.Handle else -w.TargetFilter=x.CurrentParts end end local F,G=false,nil local H=pcall(function -()G=w.Target end)if not H then return z,A end local I=Vector3.new(0,0,0)if w -then I=Vector3.new(w.Hit.x,w.Hit.y,w.Hit.z)end local J if nil==G then J=c(w)if -nil==J then F=false return z,A else G=game.Workspace.Terrain F=true J=Vector3. -new(J.X-1,J.Y,J.Z)I=game.Workspace.Terrain:CellCenterToWorld(J.x,J.y,J.z)end end -local K,L=r(G)local M,N=L-K,s(G)if G:IsA'Terrain'then if not cluster then -cluster=game.Workspace:FindFirstChild'Terrain'end local O=cluster: -WorldToCellPreferSolid(I)if F then O=J end N=CFrame.new(game.Workspace.Terrain: -CellCenterToWorld(O.x,O.y,O.z))end local O,P=N:pointToObjectSpace(I),Vector3. -new(0,0,0)if w then P=G.CFrame:vectorToWorldSpace(Vector3.FromNormalId(w. -TargetSurface))end local Q,R,S if l(P)==0 then Q=N:vectorToObjectSpace(Vector3. -new(1,-1,1))R=E:vectorToObjectSpace(Vector3.new(-1,-1,1))S=Vector3.new(0,1,1) -elseif l(P)==3 then Q=N:vectorToObjectSpace(Vector3.new(-1,-1,-1))R=E: -vectorToObjectSpace(Vector3.new(1,-1,-1))S=Vector3.new(0,1,1)elseif l(P)==1 then -Q=N:vectorToObjectSpace(Vector3.new(-1,1,1))R=E:vectorToObjectSpace(Vector3.new( --1,-1,1))S=Vector3.new(1,0,1)elseif l(P)==4 then Q=N:vectorToObjectSpace(Vector3 -.new(-1,-1,1))R=E:vectorToObjectSpace(Vector3.new(-1,1,1))S=Vector3.new(1,0,1) -elseif l(P)==2 then Q=N:vectorToObjectSpace(Vector3.new(-1,-1,1))R=E: -vectorToObjectSpace(Vector3.new(-1,-1,-1))S=Vector3.new(1,1,0)else Q=N: -vectorToObjectSpace(Vector3.new(1,-1,-1))R=E:vectorToObjectSpace(Vector3.new(1,- -1,1))S=Vector3.new(1,1,0)end Q=Q*((0.5*M)+0.5*(L+K))R=R*((0.5*D)+0.5*(C+B))local -T=O-Q local U=Vector3.new(y*math.modf(T.x/y),y*math.modf(T.y/y),y*math.modf(T.z/ -y))U=U*S local V=U+Q local W,X=N:pointToWorldSpace(V),E:vectorToWorldSpace(R) -local Y,Z,_,aa,ab,ac,ad,ae,af,ag,ah,ai,aj=W-X,E:components()A=CFrame.new(Y.x,Y.y -,Y.z,ab,ac,ad,ae,af,ag,ah,ai,aj)z=true return z,A,l(P)end local aa aa=function( -ab,ac)local ad,ae=math.abs(ab),math.abs(ac)local af=math.sqrt(ad*ad+ae*ae)local -ag,ah,ai=ae/af,1,1 if ab<0 then ah=-1 end if ac<0 then ai=-1 end if ag> -0.382683432 then return 0.707106781*af*ah,0.707106781*af*ai else return af*ah,0 -end end local ab ab=function(ac,ad,ae)if ac:IsA'ManualWeld'or ac:IsA'Rotate'then -table.insert(ad,ac)return table.insert(ae,ac.Parent)else local af=ac: -GetChildren()for ag=1,#af do ab(af[ag],ad,ae)end end end local ac ac=function(ad -,ae)for af=1,#ad do ad[af].Parent=ae[af]end end a.CanEditRegion=function(ad,ae) -if not ae then return true,false end local af,ag=q(ad)if af.Xae.CFrame.p.X+ae.Size.X/2 or ag.Y>ae.CFrame. -p.Y+ae.Size.Y/2 or ag.Z>ae.CFrame.p.Z+ae.Size.Z/2 then return false,false end -return true,false end a.GetStampModel=function(ad,ae,af)if ad==0 then return nil -,'No Asset'end if ad<0 then return nil,'Negative Asset'end local ag ag=function( -ah)if ah:IsA'BasePart'then ah.Locked=false end for ai,aj in pairs(ah: -GetChildren())do ag(aj)end end local ah ah=function(ai)return BrickColor.new(( -function()if 1==ai then return'Bright green'elseif 2==ai then return -'Bright yellow'elseif 3==ai then return'Bright red'elseif 4==ai then return -'Sand red'elseif 5==ai then return'Black'elseif 6==ai then return -'Dark stone grey'elseif 7==ai then return'Sand blue'elseif 8==ai then return -'Deep orange'elseif 9==ai then return'Dark orange'elseif 10==ai then return -'Reddish brown'elseif 11==ai then return'Light orange'elseif 12==ai then return -'Light stone grey'elseif 13==ai then return'Sand green'elseif 14==ai then return -'Medium stone grey'elseif 15==ai then return'Really red'elseif 16==ai then -return'Really blue'elseif 17==ai then return'Bright blue'else return -'Bright green'end end)())end local ai ai=function(aj,w,x)local y if w==1 or w==4 -then y=Instance.new'WedgePart'y.formFactor='Custom'elseif w==2 then y=Instance. -new'CornerWedgePart'else y=Instance.new'Part'y.formFactor='Custom'end y.Name= -'MegaClusterCube'y.Size=Vector3.new(4,4,4)y.BottomSurface='Smooth'y.TopSurface= -'Smooth'y.BrickColor=ah(aj)local z,A=0,math.pi if w==4 then z=-math.pi/2 end if -w==2 or w==3 then A=0 end y.CFrame=CFrame.Angles(0,math.pi/2*x+A,z)if w==3 then -local B=Instance.new'SpecialMesh'B.MeshType='FileMesh'B.MeshId= -'http://www.roblox.com/asset?id=66832495'B.Scale=Vector3.new(2,2,2)B.Parent=y -end local B=Instance.new'Vector3Value'B.Value=Vector3.new(aj,w,x)B.Name= -'ClusterMaterial'B.Parent=y return y end local aj,w,x=nil,nil,true if af then w= -coroutine.create(function()aj=game:GetService'InsertService':LoadAssetVersion(ad -)x=false end)coroutine.resume(w)else w=coroutine.create(function()aj=game: -GetService'InsertService':LoadAsset(ad)x=false end)coroutine.resume(w)end local -y,z,A=0,0,8 while x and z=A -then return nil,'Load Time Fail'end if aj==nil then return nil,'Load Asset Fail' -end if not aj:IsA'Model'then return nil,'Load Type Fail'end local B=aj: -GetChildren()if#B==0 then return nil,'Empty Model Fail'end ag(aj)aj=aj: -GetChildren()[1]for C,D in pairs(B)do if D:IsA'Team'then D.Parent=game: -GetService'Teams'elseif D:IsA'Sky'then local E=game:GetService'Lighting'for F,G -in pairs(E:GetChildren())do if G:IsA'Sky'then G:Remove()end end D.Parent=E -return end end if not(aj:FindFirstChild'RobloxModel'~=nil)then local E=Instance. -new'BoolValue'E.Name='RobloxModel'E.Parent=aj if not(aj:FindFirstChild -'RobloxStamper'~=nil)then local F=Instance.new'BoolValue'F.Name='RobloxStamper'F -.Parent=aj end end if ae then if aj.Name=='MegaClusterCube'then if ae==6 then -local E=Instance.new'BoolValue'E.Name='AutoWedge'E.Parent=aj else local E=aj: -FindFirstChild'ClusterMaterial'if E then if E:IsA'Vector3Value'then aj=ai(E. -Value.X,ae,E.Value.Z)else aj=ai(E.Value,ae,0)end else aj=ai(1,ae,0)end end end -end return aj end a.SetupStamperDragger=function(ad,ae,af,ag,ah)if not ad then -error +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.Xaf.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 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 ad:IsA'Model'and not ad:IsA'BasePart'then error +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 ae then error +return nil end if not af then error [[SetupStamperDragger: Mouse (second arg) is nil! Should be a mouse object]] -return nil end if not ae:IsA'Mouse'then error +return nil end if not af:IsA'Mouse'then error [[SetupStamperDragger: Mouse (second arg) is not of type Mouse!]]return nil end -local ai,aj,w if af then if not af:IsA'Model'then error +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 ag then error +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 w=ah ai=af aj=ag end local x,y,z,A=0,nil,nil,Instance.new -'SelectionBox'A.Color=BrickColor.new'Bright red'A.Transparency=0 A.Archivable= -false local B=Instance.new'Part'B.Parent=nil B.formFactor='Custom'B.Size=Vector3 -.new(4,4,4)B.CFrame=CFrame.new()B.Archivable=false local C=Instance.new -'SelectionBox'C.Color=BrickColor.new'Toothpaste'C.Adornee=B C.Visible=true C. -Transparency=0 C.Name='HighScalabilityStamperLine'C.Archivable=false local D={}D -.Start=nil D.End=nil D.Adorn=C D.AdornPart=B D.InternalLine=nil D.NewHint=true D -.MorePoints={nil,nil}D.MoreLines={nil,nil}D.Dimensions=1 local E,F,G,H,I,J,K={}, -false,false,false,{},nil,Instance.new'BoolValue'K.Archivable=false K.Value=false -local L={}L.TerrainOrientation=0 L.CFrame=0 local M={}M.Material=1 M.clusterType -=0 M.clusterOrientation=0 local N N=function()if not y then return false end if -not y.CurrentParts then return false end return y.CurrentParts:FindFirstChild( -'ClusterMaterial',true)or(y.CurrentParts.Name=='MegaClusterCube')end local O O= -function()local P=y.CurrentParts:FindFirstChild'MegaClusterCube'if not P then if -not y.CurrentParts.Name=='MegaClusterCube'then return else P=y.CurrentParts end -end D.End=P.CFrame.p local Q,R,S=nil,Vector3.new(0,0,0),Vector3.new(0,0,0)if D. -Dimensions==1 then Q=(D.End-D.Start)if math.abs(Q.X)math.abs(Q.Z)then T,U=aa(Q -.Y,Q.Z)else U,T=aa(Q.Z,Q.Y)end Q=Vector3.new(0,T,U)else local T,U=aa(Q.Y,Q.X)Q= -Vector3.new(U,T,0)end else if math.abs(Q.Y)math.abs(Q.Z)then T,U=aa(Q.X,Q.Z)else U,T=aa(Q.Z,Q.X)end Q=Vector3.new( -T,0,U)else local T,U=aa(Q.X,Q.Y)Q=Vector3.new(T,U,0)end end D.InternalLine=Q -elseif D.Dimensions==2 then Q=D.MoreLines[1]R=D.End-D.MorePoints[1]R=R-(Q.unit*Q -.unit:Dot(R))local T=CFrame.new(D.Start,D.Start+Q)local U,V=T: -vectorToWorldSpace(Vector3.new(0,1,0)),T:vectorToWorldSpace(Vector3.new(1,0,0)) -local W,X=V:Dot(R),U:Dot(R)if math.abs(X)>math.abs(W)then R=R-(V*W)else R=R-(U*X -)end D.InternalLine=R elseif D.Dimensions==3 then Q=D.MoreLines[1]R=D.MoreLines[ -2]S=D.End-D.MorePoints[2]S=S-(Q.unit*Q.unit:Dot(S))S=S-(R.unit*R.unit:Dot(S))D. -InternalLine=S end local T=CFrame.new(D.Start,D.Start+Q)if D.Dimensions==1 then -D.AdornPart.Size=Vector3.new(4,4,Q.magnitude+4)D.AdornPart.CFrame=T+T: -vectorToWorldSpace(Vector3.new(2,2,2)-D.AdornPart.Size/2)else local U=T: -vectorToObjectSpace(Q+R+S)D.AdornPart.Size=Vector3.new(4,4,4)+Vector3.new(math. -abs(U.X),math.abs(U.Y),math.abs(U.Z))D.AdornPart.CFrame=T+T:vectorToWorldSpace(U -/2)end local U if game.Players['LocalPlayer']then U=game.Players.LocalPlayer: -FindFirstChild'PlayerGui'if U and U:IsA'PlayerGui'then if(D.Dimensions==1 and Q. -magnitude>3)or D.Dimensions>1 then D.Adorn.Parent=U end end end if not(U~=nil) -then U=game:GetService'CoreGui'if(D.Dimensions==1 and Q.magnitude>3)or D. -Dimensions>1 then D.Adorn.Parent=U end end end local P P=function(Q)if not Q +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.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 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 -Q:IsA'Mouse'then error('Error: RbxStamper.DoStamperMouseMove: Mouse is of type', -Q.className,'should be of type Mouse')return end if not Q.Target then local R=c( -Q)if nil==R then return end end if not y then return end local R,S,T=v(Q,y)if -not R then error'RbxStamper.DoStamperMouseMove No configFound, returning'return -end local U=0 if k(y.CurrentParts)and T~=1 and T~=4 then if T==3 then U=0-x+k(y. -CurrentParts)elseif T==0 then U=2-x+k(y.CurrentParts)elseif T==5 then U=3-x+k(y. -CurrentParts)elseif T==2 then U=1-x+k(y.CurrentParts)end end local V=math.pi/2 x -=x+U if y.CurrentParts:IsA'Model'or y.CurrentParts:IsA'Tool'then f(y. -CurrentParts,V*U)else y.CurrentParts.CFrame=CFrame.fromEulerAnglesXYZ(0,V*U,0){y -.CurrentParts.CFrame}end local W,X=q(y.CurrentParts)local Y if y.CurrentParts: -IsA'Model'then Y=y.CurrentParts:GetModelCFrame()else Y=y.CurrentParts.CFrame end -W=W+(S.p-Y.p)X=X+(S.p-Y.p)if h(W+d,X-d)then if L.CFrame then if y.CurrentParts: -FindFirstChild('ClusterMaterial',true)then local ak=y.CurrentParts: -FindFirstChild('ClusterMaterial',true)if ak:IsA'Vector3Value'then local al=y. -CurrentParts:FindFirstChild('ClusterMaterial',true)if al then al=clusterMat end -end end end return end if N()then local ak=game.Workspace.Terrain:WorldToCell(S. -p)local al,am,an,ao,ap,aq,ar,as,at,au,av,aw,ax=game.Workspace.Terrain: -CellCenterToWorld(ak.X,ak.Y,ak.Z),S:components()S=CFrame.new(al.X,al.Y,al.Z,ap, -aq,ar,as,at,au,av,aw,ax)end m(S,y.CurrentParts)L.CFrame=S if y.CurrentParts: -FindFirstChild('ClusterMaterial',true)then local ak=y.CurrentParts: -FindFirstChild('ClusterMaterial',true)if ak:IsA'Vector3Value'then L. -TerrainOrientation=ak.Value.Z end end if Q and Q.Target and Q.Target.Parent then -local ak=Q.Target:FindFirstChild'RobloxModel'if not ak then ak=Q.Target.Parent: -FindFirstChild'RobloxModel'end local al=y.CurrentParts:FindFirstChild -'UnstampableFaces'do local ao,ap='',''if ak and ak.Parent:FindFirstChild -'UnstampableFaces'then ao=ak.Parent.UnstampableFaces.Value end if al then ap=al. -Value end local aq=0 if ak then aq=o(ak.Parent,game.Workspace.CurrentCamera. -CoordinateFrame.p,Q.Hit.p)end for ar in string.gmatch(ao,'[^,]+')do if aq== -tonumber(ar)then H=true game.JointsService:ClearJoinAfterMoveJoints()return end -end aq=o(y.CurrentParts,Q.Hit.p,game.Workspace.CurrentCamera.CoordinateFrame.p) -for as in string.gmatch(ap,'[^,]+')do if aq==tonumber(as)then H=true game. -JointsService:ClearJoinAfterMoveJoints()return end end end end H=false game. -JointsService:SetJoinAfterMoveInstance(y.CurrentParts)if(not pcall(function()if -Q and Q.Target and not(Q.Target.Parent:FindFirstChild'RobloxModel'~=nil)then -return else return end end))then error +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()Q=nil return end if Q and Q.Target and -not(Q.Target.Parent:FindFirstChild'RobloxModel'~=nil)then game.JointsService: -SetJoinAfterMoveTarget(Q.Target)else game.JointsService:SetJoinAfterMoveTarget( -nil)end game.JointsService:ShowPermissibleJoints()if N()and D and D.Start then -return O()end end local ak ak=function(al,ao)if E and E['Paused']then return end -al=string.lower(al)if al=='r'and not k(y.CurrentParts)then x=x+1 local ap=y. -CurrentParts:FindFirstChild('ClusterMaterial',true)if ap and ap:IsA -'Vector3Value'then ap.Value=Vector3.new(ap.Value.X,ap.Value.Y,(ap.Value.Z+1)%4) -end local aq=math.pi/2 if y.CurrentParts:IsA'Model'or y.CurrentParts:IsA'Tool' -then f(y.CurrentParts,aq)else y.CurrentParts.CFrame=CFrame.fromEulerAnglesXYZ(0, -aq,0)*y.CurrentParts.CFrame end local as,at=v(ao,y)if as then m(at,y. -CurrentParts)return P(ao)end elseif al=='c'then if D.InternalLine and D. -InternalLine.magnitude>0 and D.Dimensions<3 then D.MorePoints[D.Dimensions]=D. -End D.MoreLines[D.Dimensions]=D.InternalLine D.Dimensions=D.Dimensions+1 D. -NewHint=true end end end J=ae.KeyDown:connect(function(al)return ak(al,ae)end) -local al al=function()if D then D.Start=nil D.End=nil D.InternalLine=nil D. -NewHint=true end end local ao ao=function()local ap=game.CoreGui if game: -FindFirstChild'Players'then if game.Players['LocalPlayer']then if game.Players. -LocalPlayer:FindFirstChild'PlayerGui'then ap=game.Players.LocalPlayer.PlayerGui -end end end if not y['ErrorBox']then return end y.ErrorBox.Parent=ap if y. -CurrentParts:IsA'Tool'then y.ErrorBox.Adornee=y.CurrentParts.Handle else y. -ErrorBox.Adornee=y.CurrentParts end return delay(0,function()for aq=1,3 do if y[ -'ErrorBox']then y.ErrorBox.Visible=true end wait(0.13)if y['ErrorBox']then y. -ErrorBox.Visible=false end wait(0.13)end if y['ErrorBox']then y.ErrorBox.Adornee -=nil y.ErrorBox.Parent=Tool end end)end local ap ap=function(aq)if not aq then -error'Error: RbxStamper.DoStamperMouseDown: Mouse is nil'return end if not aq: -IsA'Mouse'then error('Error: RbxStamper.DoStamperMouseDown: Mouse is of type',aq -.className,'should be of type Mouse')return end if not y then return end if N() -then if aq and D then local as,at=y.CurrentParts:FindFirstChild( -'MegaClusterCube',true),game.Workspace.Terrain if as then D.Dimensions=1 local -au=at:WorldToCell(as.CFrame.p)D.Start=at:CellCenterToWorld(au.X,au.Y,au.Z)return -else D.Dimensions=1 local au=at:WorldToCell(y.CurrentParts.CFrame.p)D.Start=at: -CellCenterToWorld(au.X,au.Y,au.Z)return end end end end local aq aq=function(as, -at)as.TopSurface=at[1]as.BottomSurface=at[2]as.LeftSurface=at[3]as.RightSurface= -at[4]as.FrontSurface=at[5]as.BackSurface=at[6]return as end local as as=function -(at,au)local av={}av[1]=at.TopSurface av[2]=at.BottomSurface av[3]=at. -LeftSurface av[4]=at.RightSurface av[5]=at.FrontSurface av[6]=at.BackSurface au[ -at]=av end local at at=function(au)if not au then return nil end local av,aw,ax, -Q,R,S=0.7,1,au:Clone(),{},{},{}y={}y.DisabledScripts={}y.TransparencyTable={}y. -MaterialTable={}y.CanCollideTable={}y.AnchoredTable={}y.ArchivableTable={}y. -DecalTransparencyTable={}y.SurfaceTypeTable={}g(ax,R,Q,S)if#R<=0 then return nil -,'no parts found in modelToStamp'end for T,U in pairs(Q)do if not U.Disabled -then U.Disabled=true y.DisabledScripts[#y.DisabledScripts+1]=U end end for V,W -in pairs(R)do y.TransparencyTable[W]=W.Transparency W.Transparency=aw+(1-aw)*W. -Transparency y.MaterialTable[W]=W.Material W.Material=Enum.Material.Plastic y. -CanCollideTable[W]=W.CanCollide W.CanCollide=false y.AnchoredTable[W]=W.Anchored -W.Anchored=true y.ArchivableTable[W]=W.Archivable W.Archivable=false as(W,y. -SurfaceTypeTable)local X,Y=0.5,0.5 delay(0,function()wait(X)local ay=tick()local -az=ay while(az-ay)av do local aA= -1-(((az-ay)/Y)*(aw-av))if y['TransparencyTable']and y.TransparencyTable[W]then W -.Transparency=aA+(1-aA)*y.TransparencyTable[W]end wait(0.03)az=tick()end if W -and W:IsA'BasePart'then if y['TransparencyTable']and y.TransparencyTable[W]then -W.Transparency=av+(1-av)*y.TransparencyTable[W]end end end)end for ay,az in -pairs(S)do y.DecalTransparencyTable[az]=az.Transparency az.Transparency=av+(1-av -)*az.Transparency end j(ax,true)j(ax,false)y.CurrentParts=ax if k(ax)then y. -CurrentParts:ResetOrientationToIdentity()x=0 else local aA=x*math.pi/2 if y. -CurrentParts:IsA'Model'or y.CurrentParts:IsA'Tool'then f(y.CurrentParts,aA)else -y.CurrentParts.CFrame=CFrame.fromEulerAnglesXYZ(0,aA,0)*y.CurrentParts.CFrame -end end local aA=y.CurrentParts:FindFirstChild('ClusterMaterial',true)if aA and -aA:IsA'Vector3Value'then aA.Value=Vector3.new(aA.Value.X,aA.Value.Y,(aA.Value.Z+ -x)%4)end local X,Y=v(ae,y)if X then y.CurrentParts=m(Y,y.CurrentParts)end game. -JointsService:SetJoinAfterMoveInstance(y.CurrentParts)return ax,R end local au -au=function(av,aw)local ax=game.Workspace.Terrain.CellCenterToWorld local ay=ax( -game.Workspace.Terrain,av.X,av.Y,av.Z)local az,aA=game.Workspace: -FindPartsInRegion3(Region3.new(ay-Vector3.new(2,2,2)+d,ay+Vector3.new(2,2,2)-d), -y.CurrentParts,100),false for Q=1,#az do if t(az[Q])then aA=true break end end -if not aA then local Q={}for R=1,#az do if az[R].Parent and not Q[az[R].Parent] -and az[R].Parent:FindFirstChild(az[R].Parent:FindFirstChild'Humanoid':IsA -'Humanoid')then local S=az[R].Parent:FindFirstChild'Torso'Q[az[R].Parent]=true -if S then local U=ay.Y+5 if u(S,U,y)then S.CFrame=S.CFrame+Vector3.new(0,U-S. -CFrame.p.Y,0)else aA=true break end end end end end if not aA then local Q=true -if aw then if aj then av=ax(game.Workspace.Terrain,av.X,av.Y,av.Z)if(av.X+2>aj. -CFrame.p.X+aj.Size.X/2)or(av.X-2aj.CFrame.p -.Y+aj.Size.Y/2)or(av.Y-2aj.CFrame.p.Z+aj. -Size.Z/2)or(av.Z-21)or(az -and az.magnitude>0))then local X,Y,aB,aC,aD,aE,aF,aG=game.Workspace.Terrain: -WorldToCell(D.Start),{0,0,0},{0,0,0},{0,0,0},{nil,nil,nil},{Vector3.new(0,0,0), +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)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-2ak.CFrame.p +.Y+ak.Size.Y/2)or(aw.Y-2ak.CFrame.p.Z+ak. +Size.Z/2)or(aw.Z-21)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 D.Dimensions>1 then table.insert(aG,D.MoreLines[1])end -if az and az.magnitude>0 then table.insert(aG,az)end if D.Dimensions>2 then -table.insert(aG,D.MoreLines[2])end for aH=1,#aG do aG[aH]=Vector3.new(math. -floor(aG[aH].X+0.5),math.floor(aG[aH].Y+0.5),math.floor(aG[aH].Z+0.5))if aG[aH]. -X>0 then Y[aH]=1 elseif aG[aH].X<0 then Y[aH]=-1 end if aG[aH].Y>0 then aB[aH]=1 -elseif aG[aH].Y<0 then aB[aH]=-1 end if aG[aH].Z>0 then aC[aH]=1 elseif aG[aH].Z -<0 then aC[aH]=-1 end aD[aH]=Vector3.new(Y[aH],aB[aH],aC[aH])if aD[aH].magnitude -<0.9 then aD[aH]=nil end end if not aG[2]then aG[2]=Vector3.new(0,0,0)end if not -aG[3]then aG[3]=Vector3.new(0,0,0)end local aH,aI=y.CurrentParts:FindFirstChild( -'WaterForceTag',true),y.CurrentParts:FindFirstChild('WaterForceDirectionTag', -true)while aE[3].magnitude*4<=aG[3].magnitude do local aJ=1 while aJ<4 do aE[2]= -Vector3.new(0,0,0)while aE[2].magnitude*4<=aG[2].magnitude do local aK=1 while -aK<4 do aE[1]=Vector3.new(0,0,0)while aE[1].magnitude*4<=aG[1].magnitude do -local aL=aE[1]+aE[2]+aE[3]local aM=Vector3int16.new(X.X+aL.X,X.Y+aL.Y,X.Z+aL.Z) -if aM.X>=Q.X and aM.Y>=Q.Y and aM.Z>=Q.Z and aM.XaG[2]. -magnitude then aK=4 end end end if aD[3]then while aJ<4 and aF[aJ]:Dot(aD[3])==0 -do aJ=aJ+1 end if aJ<4 then aE[3]=aE[3]+aF[aJ]*aF[aJ]:Dot(aD[3])end aJ=aJ+1 else -aE[3]=Vector3.new(1,0,0)aJ=4 end if aE[3].magnitude*4>aG[3].magnitude then aJ=4 -end end end end D.Start=nil D.Adorn.Parent=nil if ax then y.CurrentParts.Parent= +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.XaH[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 ax end local aw aw=function(ax)if not ax then error -'Error: RbxStamper.DoStamperMouseUp: Mouse is nil'return false end if not ax:IsA -'Mouse'then error('Error: RbxStamper.DoStamperMouseUp: Mouse is of type',ax. -className,'should be of type Mouse')return false end if not y.Dragger then error +'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 D then return false end local ay if ai then local az,aA=nil,N()if aA and -D and D.Start and D.InternalLine and D.InternalLine.magnitude>0 then az=true ay= -true else az,ay=a.CanEditRegion(y.CurrentParts,aj)end if not az then if w then -w()end return false end end if H then ao()return false end local az az,ay=a. -CanEditRegion(y.CurrentParts,aj)if not az then if w then w()end return false end -local aA,aB=q(y.CurrentParts)local aC,aD=v(ax,y)if aC and not D.Adorn.Parent -then if h(aA+d,aB-d)then ao()return false end local aE=game.Workspace: -FindPartsInRegion3(Region3.new(aA+d,aB-d),y.CurrentParts,100)for aF=1,#aE do if -t(aE[aF])then ao()return false end end local aF={}for aG=1,#aE do if aE[aG]. -Parent and not aF[aE[aG].Parent]and aE[aG].Parent:FindFirstChild'Humanoid'and aE -[aG].Parent:FindFirstChild'Humanoid':IsA'Humanoid'then local aH=aE[aG].Parent: -FindFirstChild'Torso'aF[aE[aG].Parent]=true if aH then local aI=aB.Y+3 if u(aH, -aI,y)then aH.CFrame=aH.CFrame+Vector3.new(0,aI-aH.CFrame.p.Y,0)else ao()return -false end end end end elseif(not aC)and not(D.Start and D.Adorn.Parent)then al() +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 aE=game. -Players.LocalPlayer.Character local aF=aE:FindFirstChild'StampTracker'if aF and -not aF.Value then aF.Value=true end end end end if D.Start and D.Adorn.Parent -and N()then if av(ay)or ay then y.CurrentParts.Parent=nil return true end end D. -Start=nil D.Adorn.Parent=nil local aE=game.Workspace.Terrain if N()then local aF -if y.CurrentParts:IsA'Model'then aF=aE:WorldToCell(y.CurrentParts: -GetModelCFrame().p)else aF=aE:WorldToCell(y.CurrentParts.CFrame.p)end local aG, -aH=game.Workspace.Terrain.MaxExtents.Max,game.Workspace.Terrain.MaxExtents.Min -if au(aF,false)then local aI,aJ,aK=y.CurrentParts:FindFirstChild( -'ClusterMaterial',true),y.CurrentParts:FindFirstChild('WaterForceTag',true),y. -CurrentParts:FindFirstChild('WaterForceDirectionTag',true)if aF.X>=aH.X and aF.Y ->=aH.Y and aF.Z>=aH.Z and aF.X=aI.X and aG.Y +>=aI.Y and aG.Z>=aI.Z and aG.Xmath.abs(aL -.Y)then if math.abs(aL.X)>math.abs(aL.Z)then if aL.X>0 then aJ.RightSurface= -'Unjoinable'else aJ.LeftSurface='Unjoinable'end else if aL.Z>0 then aJ. -BackSurface='Unjoinable'else aJ.FrontSurface='Unjoinable'end end else if math. -abs(aL.Y)>math.abs(aL.Z)then if aL.Y>0 then aJ.TopSurface='Unjoinable'else aJ. -BottomSurface='Unjoinable'end else if aL.Z>0 then aJ.BackSurface='Unjoinable' -else aJ.FrontSurface='Unjoinable'end end end end end local az az=function()local -aA,aB=at(ad)if not aA or not aB then return end local aC=aA:FindFirstChild( -'UnjoinableFaces',true)if aC then for aD in string.gmatch(aC.Value,'[^,]*')do if -tonumber(aD)then if aA:IsA'Model'then ay(aA:GetModelCFrame(),aB,tonumber(aD)) -else ay(aA.CFrame,aB,tonumber(aD))end end end end y.ErrorBox=A if ai then aA. -Parent=ai else aA.Parent=game.Workspace end if aA:FindFirstChild( -'ClusterMaterial',true)then local aD=aA:FindFirstChild('ClusterMaterial',true)if -aD:IsA'Vector3Value'then M.Material=aD.Value.X M.clusterType=aD.Value.Y M. -clusterOrientation=aD.Value.Z elseif aD:IsA'IntValue'then M.Material=aD.Value -end end pcall(function()z=ae.Target end)if z and not(z.Parent:FindFirstChild -'RobloxModel'~=nil)then game.JointsService:SetJoinAfterMoveTarget(z)else game. -JointsService:SetJoinAfterMoveTarget(nil)end game.JointsService: -ShowPermissibleJoints()for aD,aE in pairs(y.DisabledScripts)do if aE.Name== -'GhostRemovalScript'then aE.Parent=y.CurrentParts end end y.Dragger=Instance.new -'Dragger'y.Dragger:MouseDown(aB[1],Vector3.new(0,0,0,aB))y.Dragger:MouseUp()P(ae -)table.insert(I,ae.Move:connect(function()if F or G then return end F=true P(ae) -F=false end))table.insert(I,ae.Button1Down:connect(function()return ap(ae)end)) -table.insert(I,ae.Button1Up:connect(function()G=true while F do wait()end K. -Value=aw(ae)al()G=false end))K.Value=false end local aA aA=function(aB)if aB -then if not aB:IsA'Model'and not aB:IsA'BasePart'then error +'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 ad=aB end ax()return az()end aA()E.Stamped=K E.Paused=false E.LoadNewModel= -function(aB)if aB and not aB:IsA'Model'and not aB:IsA'BasePart'then error +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 aA(aB)end E.ReloadModel=function()return aA()end E.Pause= -function()if not E.Paused then ax()E.Paused=true else return print +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 -E.Resume=function()if E.Paused then az()E.Paused=false else return print +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 E.ResetRotation=function()end E.Destroy=function()for aB=1,#I do I[aB]: -disconnect()I[aB]=nil end if J~=nil then J:disconnect()end game.JointsService: -ClearJoinAfterMoveJoints()if C~=nil then C:Destroy()end if B~=nil then B: -Destroy()end if A~=nil then A:Destroy()end if y~=nil then do local aB=y.Dragger -if aB~=nil then aB:Destroy()end end end if y~=nil then do local aB=y. -CurrentParts if aB~=nil then aB:Destroy()end end end if E and E['Stamped']then E -.Stamped:Destroy()end E=nil end return E end a.Help=function(ad)if -'GetStampModel'==ad or a.GetStampModel==ad then return +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'==ad or a.SetupStamperDragger==ad then return +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 a \ No newline at end of file +end end return b \ No newline at end of file diff --git a/processed/89449093.lua b/processed/89449093.lua index 74155b3..737f597 100644 --- a/processed/89449093.lua +++ b/processed/89449093.lua @@ -49,17 +49,17 @@ Selected=false h.Image='http://www.roblox.com/asset/?id=97617958'p.Image= 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 local S=R:GetChildren()[1]S.Active=true S.Draggable=false 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. +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 diff --git a/processed/host.lua b/processed/host.lua index 3b9f160..2b32b80 100644 --- a/processed/host.lua +++ b/processed/host.lua @@ -17,11 +17,8 @@ end local getKillerOfHumanoidIfStillInGame getKillerOfHumanoidIfStillInGame=function(humanoid) local tag=humanoid:findFirstChild"creator" -if tag then -local killer=tag.Value -if killer.Parent then -return killer -end +if tag and tag.Value.Parent then +return tag.Value end end local onDied diff --git a/selene.toml b/selene.toml index 30d8c32..ee0ed93 100644 --- a/selene.toml +++ b/selene.toml @@ -2,4 +2,3 @@ std = "mercury" [lints] multiple_statements = "allow" -shadowing = "allow" diff --git a/yue/107893730.yue b/yue/107893730.yue index c7c5053..c85161a 100644 --- a/yue/107893730.yue +++ b/yue/107893730.yue @@ -313,11 +313,9 @@ getPlayerBalance = -> print "Get player balance failed because", errorCode return nil - if playerBalance == "" return nil - playerBalance = getRbxUtility!.DecodeJSON playerBalance playerBalance @@ -473,7 +471,7 @@ canPurchaseItem = -> notRightBc = true - updatedBalance, insufficientFunds = updateAfterBalanceText(playerBalance, notRightBc) + updatedBalance, insufficientFunds = updateAfterBalanceText playerBalance, notRightBc if notRightBc purchaseDialog.BodyFrame.AfterBalanceButton.Active = true @@ -609,11 +607,9 @@ getToolAssetID = (assetID) -> if not newTool return nil - if newTool\IsA "Tool" return newTool - toolChildren = newTool\GetChildren! for i = 1, #toolChildren if toolChildren[i]\IsA "Tool" @@ -629,14 +625,14 @@ purchaseFailed = (inGamePurchasesDisabled) -> name = currentProductInfo["Name"] - newPurchasedFailedText = string.gsub(purchaseFailedText, "itemName", "#{name}") + newPurchasedFailedText = string.gsub purchaseFailedText, "itemName", "#{name}" if inGamePurchasesDisabled newPurchasedFailedText = string.gsub( newPurchasedFailedText, "errorReason", "#{errorPurchasesDisabledText}" ) else - newPurchasedFailedText = string.gsub(newPurchasedFailedText, "errorReason", "#{errorPurchasesUnknownText}") + newPurchasedFailedText = string.gsub newPurchasedFailedText, "errorReason", "#{errorPurchasesUnknownText}" purchaseDialog.BodyFrame.ItemPreview.ItemDescription.Text = newPurchasedFailedText @@ -827,7 +823,6 @@ createTextObject = (name, text, type, size) -> createImageButton = (name) -> New "ImageButton", name, Size: UDim2.new 0, 153, 0, 46 - Name: name userPurchaseProductActionsEnded = (userIsClosingDialog) -> checkingPlayerFunds = false @@ -1056,21 +1051,21 @@ createPurchasePromptGui = -> cutSizeInHalfRecursive = (_) -> -- todo: change the gui size based on how much space we have - --[[changeSize(instance,0.5) + --[[changeSize instance,0.5 children = instance\GetChildren! for i = 1, #children - cutSizeInHalfRecursive(children[i]) + cutSizeInHalfRecursive children[i] end]] doubleSizeRecursive = (_) -> -- todo: change the gui size based on how much space we have - --[[changeSize(instance,2) + --[[changeSize instance,2 children = instance\GetChildren! for i = 1, #children - doubleSizeRecursive(children[i]) + doubleSizeRecursive children[i] end]] -- depending on screen size, we need to change the gui diff --git a/yue/152908679.yue b/yue/152908679.yue index 5dfec14..2fdc21b 100644 --- a/yue/152908679.yue +++ b/yue/152908679.yue @@ -125,13 +125,13 @@ createNewButton = (actionName, functionInfoTable) -> if inputObject.UserInputState == Enum.UserInputState.Begin and not currentButtonTouch? currentButtonTouch = inputObject - contextButtonDown(contextButton, inputObject, actionName) + contextButtonDown contextButton, inputObject, actionName contextButton.InputChanged\connect (inputObject) -> return if oldTouches[inputObject] or currentButtonTouch ~= inputObject - contextButtonMoved(contextButton, inputObject, actionName) + contextButtonMoved contextButton, inputObject, actionName contextButton.InputEnded\connect (inputObject) -> return if oldTouches[inputObject] or @@ -139,7 +139,7 @@ createNewButton = (actionName, functionInfoTable) -> currentButtonTouch = nil oldTouches[inputObject] = true - contextButtonUp(contextButton, inputObject, actionName) + contextButtonUp contextButton, inputObject, actionName actionIcon = New "ImageLabel", "ActionIcon" Position: UDim2.new 0.175, 0, 0.175, 0 @@ -169,7 +169,7 @@ createNewButton = (actionName, functionInfoTable) -> contextButton createButton = (actionName, functionInfoTable) -> - button = createNewButton(actionName, functionInfoTable) + button = createNewButton actionName, functionInfoTable local position for i = 1, #buttonVector do diff --git a/yue/153556783.yue b/yue/153556783.yue index fd67b74..b3c9f32 100644 --- a/yue/153556783.yue +++ b/yue/153556783.yue @@ -180,7 +180,7 @@ followThumbstickTouchMove = (thumbstickFrame, thumbstickOuter, touchLocation) -> crossOuterToInnerWithMovement = (outerToInnerVectorCurrentUnit.x * movementVectorUnit.y) - (outerToInnerVectorCurrentUnit.y * movementVectorUnit.x) angle = math.atan2 crossOuterToInnerWithMovement, dotProduct outerToInnerVectorCurrentUnit, movementVectorUnit - anglePercent = angle * math.min(movementVector.magnitude / outerToInnerVectorCurrent.magnitude, 1.0) + anglePercent = angle * math.min movementVector.magnitude / outerToInnerVectorCurrent.magnitude, 1.0 -- If angle is significant, rotate about the inner thumbsticks current center if math.abs(anglePercent) > 0.00001 @@ -267,7 +267,7 @@ constructThumbstick = (defaultThumbstickPos, updateFunction, stationaryThumbstic thumbstickTouch = inputObject table.insert thumbstickTouches, thumbstickTouch - thumbstickFrame.Position = transformFromCenterToTopLeft(thumbstickTouch.Position, thumbstickFrame) + thumbstickFrame.Position = transformFromCenterToTopLeft thumbstickTouch.Position, thumbstickFrame outerThumbstick.Position = thumbstickFrame.Position userInputServiceTouchMovedCon = userInputService.TouchMoved\connect (movedInput) -> @@ -453,8 +453,7 @@ setupCameraControl = (parentFrame, refreshCharacterMoveFunc) -> -- track pinching in new frame pinchFrame?\Destroy! -- make sure we didn't track in any mud - pinchFrame = New "Frame" - Name: "PinchFrame" + pinchFrame = New "Frame", "PinchFrame" BackgroundTransparency: 1 Size: UDim2.new 1, 0, 1, 0 Parent: parentFrame diff --git a/yue/157877000.yue b/yue/157877000.yue index 75b7cab..d4f4ca3 100644 --- a/yue/157877000.yue +++ b/yue/157877000.yue @@ -1,16 +1,36 @@ import "macros" as { $ } $load $FILE ---Include -Create = assert(LoadLibrary "RbxUtility").Create +-- Heliodex's basic New function (basically a simplified version of melt) +New = (className, name, props) -> + if not props? -- no name was provided + props = name + name = nil + + obj = Instance.new className + obj.Name = name if name + local parent + + for k, v in pairs props + if type(k) == "string" then + if k == "Parent" + parent = v + else + obj[k] = v + + elseif type(k) == "number" and type(v) == "userdata" + v.Parent = obj + + obj.Parent = parent + obj +-- -- A Few Script Globals gui = script.Parent\FindFirstChild"ControlFrame" or script.Parent -- Dev-Console Root -Dev_Container = Create"Frame" - Name: "DevConsoleContainer" +Dev_Container = New "Frame", "DevConsoleContainer" Parent: gui BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 0.9 @@ -18,8 +38,7 @@ Dev_Container = Create"Frame" Size: UDim2.new 0.5, 20, 0.5, 20 Visible: false -ToggleConsole = Create"BindableFunction" - Name: "ToggleDevConsole" +ToggleConsole = New "BindableFunction", "ToggleDevConsole" Parent: gui devConsoleInitialized = false @@ -54,16 +73,49 @@ initializeDeveloperConsole = -> --Create Dev-Console - Dev_Body = Create"Frame" - Name: "Body" + Dev_Body = New "Frame", "Body" Parent: Dev_Container BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 0.5 Position: UDim2.new 0, 0, 0, 21 Size: UDim2.new 1, 0, 1, -25 - Dev_OptionsHolder = Create"Frame" - Name: "OptionsHolder" + * New "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 + + * New "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" + + * New "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 + + * New "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 + + Dev_OptionsHolder = New "Frame", "OptionsHolder" Parent: Dev_Body BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 1 @@ -71,139 +123,113 @@ initializeDeveloperConsole = -> Size: UDim2.new 1, -255, 0, 24 ClipsDescendants: true - Dev_OptionsBar = Create"Frame" - Name: "OptionsBar" + Dev_OptionsBar = New "Frame", "OptionsBar" Parent: Dev_OptionsHolder BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 1 Position: UDim2.new 0, -250, 0, 4 Size: UDim2.new 0, 234, 0, 18 - Dev_ErrorToggleFilter = Create"TextButton" - Name: "ErrorToggleButton" - Parent: Dev_OptionsBar - 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 + * New "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 - Create"Frame" - Name: "CheckFrame" - Parent: Dev_ErrorToggleFilter - 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 + * New "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 - Dev_InfoToggleFilter = Create"TextButton" - Name: "InfoToggleButton" - Parent: Dev_OptionsBar - BackgroundColor3: Color3.new 0, 0, 0 - BorderColor3: Color3.new 0.4, 0.5, 1.0 - 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.0 + * New "TextButton", "InfoToggleButton" + BackgroundColor3: Color3.new 0, 0, 0 + BorderColor3: Color3.new 0.4, 0.5, 1.0 + 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.0 - Create"Frame" - Name: "CheckFrame" - Parent: Dev_InfoToggleFilter - BackgroundColor3: Color3.new 0.4, 0.5, 1.0 - BorderColor3: Color3.new 0.4, 0.5, 1.0 - Position: UDim2.new 0, 4, 0, 4 - Size: UDim2.new 0, 10, 0, 10 + * New "Frame", "CheckFrame" + BackgroundColor3: Color3.new 0.4, 0.5, 1.0 + BorderColor3: Color3.new 0.4, 0.5, 1.0 + Position: UDim2.new 0, 4, 0, 4 + Size: UDim2.new 0, 10, 0, 10 - Dev_OutputToggleFilter = Create"TextButton" - Name: "OutputToggleButton" - Parent: Dev_OptionsBar - BackgroundColor3: Color3.new 0, 0, 0 - BorderColor3: Color3.new 1, 1, 1.0 - 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.0 + * New "TextButton", "OutputToggleButton" + BackgroundColor3: Color3.new 0, 0, 0 + BorderColor3: Color3.new 1, 1, 1.0 + 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.0 - Create"Frame" - Name: "CheckFrame" - Parent: Dev_OutputToggleFilter - BackgroundColor3: Color3.new 1, 1, 1.0 - BorderColor3: Color3.new 1, 1, 1.0 - Position: UDim2.new 0, 4, 0, 4 - Size: UDim2.new 0, 10, 0, 10 + * New "Frame", "CheckFrame" + BackgroundColor3: Color3.new 1, 1, 1.0 + BorderColor3: Color3.new 1, 1, 1.0 + Position: UDim2.new 0, 4, 0, 4 + Size: UDim2.new 0, 10, 0, 10 - Dev_WarningToggleFilter = Create"TextButton" - Name: "WarningToggleButton" - Parent: Dev_OptionsBar - 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 + * New "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 - Create"Frame" - Name: "CheckFrame" - Parent: Dev_WarningToggleFilter - 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 + * New "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 - Dev_WordWrapToggle = Create"TextButton" - Name: "WordWrapToggleButton" - Parent: Dev_OptionsBar - 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 + * New "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 - Create"Frame" - Name: "CheckFrame" - Parent: Dev_WordWrapToggle - 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 + * New "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 - Create"TextLabel" - Name: "Filter" - Parent: Dev_OptionsBar - 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 + * New "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 - Create"TextLabel" - Name: "WordWrap" - Parent: Dev_OptionsBar - 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, + * New "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, - Dev_ScrollBar = Create"Frame" - Name: "ScrollBar" + Dev_ScrollBar = New "Frame", "ScrollBar" Parent: Dev_Body BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 0.9 @@ -211,65 +237,52 @@ initializeDeveloperConsole = -> Size: UDim2.new 0, 20, 1, -50 Visible: false - Dev_ScrollArea = Create"Frame" - Name: "ScrollArea" + * New "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 + + * New "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" + + * New "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 + + * New "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" + + Dev_ScrollArea = New "Frame", "ScrollArea" Parent: Dev_ScrollBar BackgroundTransparency: 1 Position: UDim2.new 0, 0, 0, 23 Size: UDim2.new 1, 0, 1, -46 - Dev_Handle = Create"ImageButton" - Name: "Handle" - Parent: Dev_ScrollArea - BackgroundColor3: Color3.new 0, 0, 0 - BackgroundTransparency: 0.5 - Position: UDim2.new 0, 0, 0.2, 0 - Size: UDim2.new 0, 20, 0, 40 + * New "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 - Create"ImageLabel" - Name: "ImageLabel" - Parent: Dev_Handle - 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" + * New "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" - Dev_DownButton = Create"ImageButton" - Name: "Down" - Parent: Dev_ScrollBar - BackgroundColor3: Color3.new 0, 0, 0 - BackgroundTransparency: 0.5 - Position: UDim2.new 0, 0, 1, -20 - Size: UDim2.new 0, 20, 0, 20 - Create"ImageLabel" - Name: "ImageLabel" - Parent: Dev_DownButton - 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" - - Dev_UpButton = Create"ImageButton" - Name: "Up" - Parent: Dev_ScrollBar - BackgroundColor3: Color3.new 0, 0, 0 - BackgroundTransparency: 0.5 - Position: UDim2.new 0, 0, 0, 0 - Size: UDim2.new 0, 20, 0, 20 - - Create"ImageLabel" - Name: "ImageLabel" - Parent: Dev_UpButton - BackgroundTransparency: 1 - Position: UDim2.new 0, 3, 0, 3 - Size: UDim2.new 0, 14, 0, 14 - Image: "http://www.roblox.com/Asset?id=151205813" - - Dev_TextBox = Create"Frame" - Name: "TextBox" + Dev_TextBox = New "Frame", "TextBox" Parent: Dev_Body BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 0.6 @@ -277,118 +290,63 @@ initializeDeveloperConsole = -> Size: UDim2.new 1, -4, 1, -28 ClipsDescendants: true - Dev_TextHolder = Create"Frame" - Name: "TextHolder" + Dev_TextHolder = New "Frame", "TextHolder" Parent: Dev_TextBox BackgroundTransparency: 1 Position: UDim2.new 0, 0, 0, 0 Size: UDim2.new 1, 0, 1, 0 - Dev_OptionsButton = Create"ImageButton" - Name: "OptionsButton" + Dev_OptionsButton = New "ImageButton", "OptionsButton" Parent: Dev_Body BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 1 Position: UDim2.new 0, 200, 0, 2 Size: UDim2.new 0, 20, 0, 20 - Create"ImageLabel" - Name: "ImageLabel" - Parent: Dev_OptionsButton - 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" + * New "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" - Dev_ResizeButton = Create"ImageButton" - Name: "ResizeButton" - Parent: Dev_Body - BackgroundColor3: Color3.new 0, 0, 0 - BackgroundTransparency: 0.5 - Position: UDim2.new 1, -20, 1, -20 - Size: UDim2.new 0, 20, 0, 20 - - Create"ImageLabel" - Name: "ImageLabel" - Parent: Dev_ResizeButton - 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" - - Create"TextButton" - Name: "LocalConsole" - Parent: Dev_Body - 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 - - Create"TextButton" - Name: "ServerConsole" - Parent: Dev_Body - 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 - - Dev_TitleBar = Create"Frame" - Name: "TitleBar" + Dev_TitleBar = New "Frame", "TitleBar" Parent: Dev_Container BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 0.5 Position: UDim2.new 0, 0, 0, 0 Size: UDim2.new 1, 0, 0, 20 - Dev_CloseButton = Create"ImageButton" - Name: "CloseButton" - Parent: Dev_TitleBar - BackgroundColor3: Color3.new 0, 0, 0 - BackgroundTransparency: 0.5 - Position: UDim2.new 1, -20, 0, 0 - Size: UDim2.new 0, 20, 0, 20 + * New "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 - Create"ImageLabel" - Parent: Dev_CloseButton - 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" + * New "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" - Create"TextButton" - Name: "TextButton" - Parent: Dev_TitleBar - BackgroundColor3: Color3.new 0, 0, 0 - BackgroundTransparency: 0.5 - Position: UDim2.new 0, 0, 0, 0 - Size: UDim2.new 1, -23, 1, 0 - Text: "" + * New "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: "" - Create"TextLabel" - Name: "TitleText" - Parent: Dev_TitleBar - BackgroundTransparency: 1 - Position: UDim2.new 0, 0, 0, 0 - Size: UDim2.new 0, 185, 0, 20 - Font: "SourceSansBold" - FontSize: Enum.FontSize.Size18 - -- Text: "Server Console" - TextColor3: Color3.new 1, 1, 1 - Text: "Roblox Developer Console" - TextYAlignment: Enum.TextYAlignment.Top + * New "TextLabel", "TitleText" + BackgroundTransparency: 1 + Position: UDim2.new 0, 0, 0, 0 + Size: UDim2.new 0, 185, 0, 20 + Font: "SourceSansBold" + FontSize: Enum.FontSize.Size18 + -- Text: "Server Console" + TextColor3: Color3.new 1, 1, 1 + Text: "Roblox Developer Console" + TextYAlignment: Enum.TextYAlignment.Top ---Saved Mouse Information local previousMousePos @@ -570,8 +528,7 @@ initializeDeveloperConsole = -> movePosition = false if i > #childMessages - message = Create"TextLabel" - Name: "Message" + message = New "TextLabel", "Message" Parent: Dev_TextHolder BackgroundTransparency: 1 TextXAlignment: "Left" @@ -724,7 +681,7 @@ initializeDeveloperConsole = -> num - str = "%s:%s:%s" + timestr = "%s:%s:%s" ConvertTimeStamp = (timeStamp) -> localTime = timeStamp - os.time! + math.floor tick! @@ -741,7 +698,7 @@ initializeDeveloperConsole = -> m = numberWithZero minute s = numberWithZero dayTime - str\format h, m, s + timestr\format h, m, s --Filter diff --git a/yue/38037565.yue b/yue/38037565.yue index 6df5315..be61767 100644 --- a/yue/38037565.yue +++ b/yue/38037565.yue @@ -45,11 +45,11 @@ Torso = waitForChild Figure, "Torso" config = Figure\FindFirstChild "PlayerStats" -inCharTag = Instance.new "BoolValue" -inCharTag.Name = "InCharTag" +inCharTag = New "BoolValue" + Name: "InCharTag" -hider = Instance.new "BoolValue" -hider.Name = "RobloxBuildTool" +hider = New "BoolValue" + Name: "RobloxBuildTool" if not config? config = New "Configuration", "PlayerStats" @@ -87,25 +87,25 @@ if not dotGui? print "newHealth declarations finished" billboardHealthChange = (dmg) -> - textLabel = New "TextLabel" - Text: tostring dmg - TextColor3: if dmg > 0 - Color3.new 0, 1, 0 + with New "TextLabel", + Text: "#{dmg}" + TextColor3: Color3.new if dmg > 0 + 0, 1, 0 else - Color3.new 1, 0, 1 + 1, 0, 1 size: UDim2.new 1, 0, 1, 0.0 Active: true FontSize: 6 BackgroundTransparency: 1 Parent: dotGui - for t = 1, 10 - wait 0.1 - textLabel.TextTransparency = t / 10 - textLabel.Position = UDim2.new 0, 0, 0, -t * 5 - textLabel.FontSize = 6 - t * 0.6 + for t = 1, 10 + wait 0.1 + .TextTransparency = t / 10 + .Position = UDim2.new 0, 0, 0, -t * 5 + .FontSize = 6 - t * 0.6 - textLabel\remove! + \remove! setMaxHealth = -> --print Humanoid.Health diff --git a/yue/39250920.yue b/yue/39250920.yue index e5eec5e..2407472 100644 --- a/yue/39250920.yue +++ b/yue/39250920.yue @@ -194,10 +194,10 @@ endDialog = -> dialog = currentConversationDialog currentConversationDialog = nil if dialog and dialog.InUse - reenableScript = reenableDialogScript\Clone! - reenableScript.archivable = false - reenableScript.Disabled = false - reenableScript.Parent = dialog + with reenableDialogScript\Clone! + .archivable = false + .Disabled = false + .Parent = dialog for dialog, gui in pairs dialogMap if dialog and gui @@ -288,7 +288,7 @@ selectChoice = (choice) -> --First hide the Gui mainFrame.Visible = false if choice == lastChoice - game.Chat\Chat game.Players.LocalPlayer.Character, "Goodbye!", getChatColor(currentTone!) + game.Chat\Chat game.Players.LocalPlayer.Character, "Goodbye!", getChatColor currentTone! normalEndDialog! else diff --git a/yue/45284430.yue b/yue/45284430.yue index 963b02e..ccc104a 100644 --- a/yue/45284430.yue +++ b/yue/45284430.yue @@ -332,9 +332,7 @@ t.CreateDropDownMenu = (items, onSelect, forRoblox) -> children = droppedDownMenu\GetChildren! - if not children - return - + return if not children childNum = 1 for _, obj in ipairs children @@ -405,16 +403,14 @@ t.CreateDropDownMenu = (items, onSelect, forRoblox) -> scrollBarPosition += 1 updateScroll! return true - - return false + false scrollUp = -> if scrollBarPosition > 1 scrollBarPosition -= 1 updateScroll! return true - - return false + false if useScrollButtons @@ -529,8 +525,7 @@ t.CreatePropertyDropDownMenu = (instance, property, enum) -> nameToItem[obj.Name] = obj - local frame - local updateSelection + local frame, updateSelection frame, updateSelection = t.CreateDropDownMenu names, (text) -> instance[property] = nameToItem[text] @@ -773,7 +768,7 @@ t.CreateSlider = (steps, width, position) -> sliderPosition.Changed\connect (_) -> - sliderPosition.Value = math.min steps, math.max(1, sliderPosition.Value) + sliderPosition.Value = math.min steps, math.max 1, sliderPosition.Value relativePosX = (sliderPosition.Value - 1) / (steps - 1) slider.Position = UDim2.new relativePosX, -slider.AbsoluteSize.X / 2, slider.Position.Y.Scale, slider.Position.Y.Offset @@ -1015,9 +1010,7 @@ t.CreateTrueScrollingFrame = -> setSliderSizeAndPosition = -> - if not highY or not lowY - return - + return if not highY or not lowY totalYSpan = math.abs highY - lowY if totalYSpan == 0 @@ -1071,9 +1064,7 @@ t.CreateTrueScrollingFrame = -> buttonScrollAmountPixels = 7 reentrancyGuardScrollUp = false doScrollUp = -> - if reentrancyGuardScrollUp - return - + return if reentrancyGuardScrollUp reentrancyGuardScrollUp = true if positionScrollBar 0, scrollbar.AbsolutePosition.Y - buttonScrollAmountPixels, 0 @@ -1084,9 +1075,7 @@ t.CreateTrueScrollingFrame = -> reentrancyGuardScrollDown = false doScrollDown = -> - if reentrancyGuardScrollDown - return - + return if reentrancyGuardScrollDown reentrancyGuardScrollDown = true if positionScrollBar 0, scrollbar.AbsolutePosition.Y + buttonScrollAmountPixels, 0 @@ -1171,9 +1160,7 @@ t.CreateTrueScrollingFrame = -> reentrancyGuardMouseScroll = false dragCon = mouseDrag.MouseMoved\connect (x, y) -> - if reentrancyGuardMouseScroll - return - + return if reentrancyGuardMouseScroll reentrancyGuardMouseScroll = true if positionScrollBar x, y, mouseOffset @@ -1228,11 +1215,8 @@ t.CreateTrueScrollingFrame = -> descendantChanged = (this, prop) -> - if internalChange - return - - if not this.Visible - return + return if internalChange + return if not this.Visible if prop == "Size" or prop == "Position" @@ -1241,9 +1225,7 @@ t.CreateTrueScrollingFrame = -> scrollingFrame.DescendantAdded\connect (instance) -> - if not instance\IsA "GuiObject" - return - + return if not instance\IsA "GuiObject" if instance.Visible wait! -- wait a heartbeat for sizes to reconfig @@ -1255,8 +1237,7 @@ t.CreateTrueScrollingFrame = -> scrollingFrame.DescendantRemoving\connect (instance) -> - if not instance\IsA "GuiObject" - return + return if not instance\IsA "GuiObject" if descendantsChangeConMap[instance] descendantsChangeConMap[instance]\disconnect! @@ -1268,15 +1249,13 @@ t.CreateTrueScrollingFrame = -> scrollingFrame.Changed\connect (prop) -> if prop == "AbsoluteSize" - if not highY or not lowY - return - + return if not highY or not lowY highLowRecheck! setSliderSizeAndPosition! - return scrollingFrame, controlFrame + scrollingFrame, controlFrame t.CreateScrollingFrame = (orderList, scrollStyle) -> @@ -1581,9 +1560,7 @@ t.CreateScrollingFrame = (orderList, scrollStyle) -> guiObjects += 1 - if not scrollDrag.Parent - return - + return if not scrollDrag.Parent dragSizeY = scrollDrag.Parent.AbsoluteSize.y * (1 / (guiObjects - howManyDisplayed + 1)) if dragSizeY < 16 @@ -1608,9 +1585,7 @@ t.CreateScrollingFrame = (orderList, scrollStyle) -> reentrancyGuard = false recalculate = -> - if reentrancyGuard - return - + return if reentrancyGuard reentrancyGuard = true wait! local success, err @@ -1810,8 +1785,7 @@ binaryGrow = (min, max, fits) -> --Doesn't fit, shrink max = mid - 1 - - return biggestLegal + biggestLegal binaryShrink = (min, max, fits) -> @@ -1831,8 +1805,7 @@ binaryShrink = (min, max, fits) -> --Doesn't fit, grow min = mid + 1 - - return smallestLegal + smallestLegal getGuiOwner = (instance) -> @@ -1842,30 +1815,28 @@ getGuiOwner = (instance) -> instance = instance.Parent - return nil + nil t.AutoTruncateTextObject = (textLabel) -> text = textLabel.Text fullLabel = textLabel\Clone! - fullLabel.Name = "Full" .. textLabel.Name - fullLabel.BorderSizePixel = 0 - fullLabel.BackgroundTransparency = 0 - fullLabel.Text = text - fullLabel.TextXAlignment = Enum.TextXAlignment.Center - fullLabel.Position = UDim2.new 0, -3, 0, 0 - fullLabel.Size = UDim2.new 0, 100, 1, 0 - fullLabel.Visible = false - fullLabel.Parent = textLabel + with fullLabel + .Name = "Full" .. textLabel.Name + .BorderSizePixel = 0 + .BackgroundTransparency = 0 + .Text = text + .TextXAlignment = Enum.TextXAlignment.Center + .Position = UDim2.new 0, -3, 0, 0 + .Size = UDim2.new 0, 100, 1, 0 + .Visible = false + .Parent = textLabel - local shortText - local mouseEnterConnection - local mouseLeaveConnection + local shortText, mouseEnterConnection, mouseLeaveConnection checkForResize = -> - if getGuiOwner textLabel == nil - return + return if getGuiOwner(textLabel) == nil textLabel.Text = text if textLabel.TextFits @@ -2602,14 +2573,14 @@ t.CreateSetPanel = (userIdsForSets, objectSelected, dialogClosed, size, position ZIndex: 7 Parent: button - configIcon = buttonImage\clone! - configIcon.Name = "ConfigIcon" - configIcon.Visible = false - configIcon.Position = UDim2.new 1, -23, 1, -24 - configIcon.Size = UDim2.new 0, 16, 0, 16 - configIcon.Image = "" - configIcon.ZIndex = 6 - configIcon.Parent = insertAssetButtonExample + with buttonImage\clone! + .Name = "ConfigIcon" + .Visible = false + .Position = UDim2.new 1, -23, 1, -24 + .Size = UDim2.new 0, 16, 0, 16 + .Image = "" + .ZIndex = 6 + .Parent = insertAssetButtonExample insertAssetButtonExample @@ -2950,12 +2921,13 @@ t.CreateSetPanel = (userIdsForSets, objectSelected, dialogClosed, size, position scrollFrame, controlFrame = t.CreateTrueScrollingFrame! - scrollFrame.Size = UDim2.new 0.54, 0, 0.85, 0 - scrollFrame.Position = UDim2.new 0.24, 0, 0.085, 0 - scrollFrame.Name = "ItemsFrame" - scrollFrame.ZIndex = 6 - scrollFrame.Parent = setGui.SetPanel - scrollFrame.BackgroundTransparency = 1 + with scrollFrame + .Size = UDim2.new 0.54, 0, 0.85, 0 + .Position = UDim2.new 0.24, 0, 0.085, 0 + .Name = "ItemsFrame" + .ZIndex = 6 + .Parent = setGui.SetPanel + .BackgroundTransparency = 1 drillDownSetZIndex controlFrame, 7 @@ -3186,8 +3158,7 @@ t.CreateTerrainMaterialSelector = (size, position) -> if selectedButton ~= buttonWrap goToNewMaterial buttonWrap, "#{name}" - - return buttonWrap + buttonWrap for i = 1, #materialNames @@ -3202,12 +3173,8 @@ t.CreateTerrainMaterialSelector = (size, position) -> forceTerrainMaterialSelection = (newMaterialType) -> - if not newMaterialType - return - - if currentMaterial == newMaterialType - return - + return if not newMaterialType + return if currentMaterial == newMaterialType matName = getNameFromEnum newMaterialType buttons = scrollFrame\GetChildren! @@ -3534,20 +3501,22 @@ t.CreatePluginFrame = (name, size, position, scrollable, parent) -> if scrollable --frame for widgets frame, control = t.CreateTrueScrollingFrame! - frame.Size = UDim2.new 1, 0, 1, 0 - frame.BackgroundColor3 = Color3.new 72 / 255, 72 / 255, 72 / 255 - frame.BorderColor3 = Color3.new 0, 0, 0 - frame.Active = true - frame.Parent = widgetContainer - control.Parent = dragBar - control.BackgroundColor3 = Color3.new 72 / 255, 72 / 255, 72 / 255 - control.BorderSizePixel = 0 - control.BackgroundTransparency = 0 - control.Position = UDim2.new 1, -21, 1, 1 - control.Size = if size - UDim2.new 0, 21, size.Y.Scale, size.Y.Offset - else - UDim2.new 0, 21, 0, 400 + with frame + .Size = UDim2.new 1, 0, 1, 0 + .BackgroundColor3 = Color3.new 72 / 255, 72 / 255, 72 / 255 + .BorderColor3 = Color3.new 0, 0, 0 + .Active = true + .Parent = widgetContainer + with control + .Parent = dragBar + .BackgroundColor3 = Color3.new 72 / 255, 72 / 255, 72 / 255 + .BorderSizePixel = 0 + .BackgroundTransparency = 0 + .Position = UDim2.new 1, -21, 1, 1 + .Size = UDim2.new 0, 21, if size + size.Y.Scale, size.Y.Offset + else + 0, 400 control\FindFirstChild"ScrollDownButton".Position = UDim2.new 0, 0, 1, -20 diff --git a/yue/46295863.yue b/yue/46295863.yue index 5b65187..9701e98 100644 --- a/yue/46295863.yue +++ b/yue/46295863.yue @@ -101,7 +101,7 @@ resumeGameFunction = (shield) -> goToMenu = (container, menuName, moveDirection, size, position) -> return if type(menuName) ~= "string" - table.insert(lastMenuSelection, currentMenuSelection) + table.insert lastMenuSelection, currentMenuSelection if menuName == "GameMainMenu" lastMenuSelection = {} @@ -191,15 +191,14 @@ resetLocalCharacter = -> createTextButton = (text, style, fontSize, buttonSize, buttonPosition) -> - newTextButton = Instance.new "TextButton" - newTextButton.Font = Enum.Font.Arial - newTextButton.FontSize = fontSize - newTextButton.Size = buttonSize - newTextButton.Position = buttonPosition - newTextButton.Style = style - newTextButton.TextColor3 = Color3.new 1, 1, 1 - newTextButton.Text = text - newTextButton + New "TextButton" + Font: Enum.Font.Arial + FontSize: fontSize + Size: buttonSize + Position: buttonPosition + Style: style + TextColor3: Color3.new 1, 1, 1 + Text: text CreateTextButtons = (frame, buttons, yPos, ySize) -> @@ -236,7 +235,7 @@ CreateTextButtons = (frame, buttons, yPos, ySize) -> buttonNum += 1 - toggleSelection(buttonObjs[1]) + toggleSelection buttonObjs[1] numButtons = buttonNum - 1 @@ -299,7 +298,7 @@ setDisabledState = (guiObject) -> guiObject.Active = false else if guiObject["ClassName"] - print("setDisabledState! got object of unsupported type. object type is ", guiObject.ClassName) + print "setDisabledState! got object of unsupported type. object type is ", guiObject.ClassName createHelpDialog = (baseZIndex) -> @@ -728,8 +727,7 @@ createGameMainMenu = (baseZIndex, shield) -> gameSettingsButton.Parent = gameMainMenuFrame gameSettingsButton.MouseButton1Click\connect -> if game\FindFirstChild "Players" and game.Players["LocalPlayer"] - loadingGui = game.Players.LocalPlayer\FindFirstChild "PlayerLoadingGui" - if loadingGui + if loadingGui = game.Players.LocalPlayer\FindFirstChild "PlayerLoadingGui" loadingGui.Visible = true @@ -969,7 +967,7 @@ createGameSettingsMenu = (baseZIndex, _) -> if explicitLevel == graphicsLevel.Value -- make sure we are actually in right graphics mode - setGraphicsQualityLevel(graphicsLevel.Value) + setGraphicsQualityLevel graphicsLevel.Value if not explicitLevel @@ -1444,7 +1442,7 @@ if LoadLibrary --showFunction -> settingsButton.Active = false - updateCameraDropDownSelection(UserSettings!.GameSettings.ControlMode.Name) + updateCameraDropDownSelection UserSettings!.GameSettings.ControlMode.Name if syncVideoCaptureSetting syncVideoCaptureSetting! @@ -1511,7 +1509,7 @@ if LoadLibrary resumeGameFunction shield - gameSettingsMenu = createGameSettingsMenu(baseZIndex, shield) + gameSettingsMenu = createGameSettingsMenu baseZIndex, shield gameSettingsMenu.Visible = false gameSettingsMenu.Parent = settingsFrame @@ -2103,8 +2101,7 @@ if LoadLibrary -- waitForChild game, "Players" -- waitForProperty game.Players, "LocalPlayer" - -- chatBar = New "Frame" - -- Name: "ChatBar" + -- chatBar = New "Frame", "ChatBar" -- Size: UDim2.new 1, 0, 0, 22 -- Position: UDim2.new 0, 0, 1, 0 -- BackgroundColor3: Color3.new 0, 0, 0 @@ -2150,11 +2147,11 @@ if LoadLibrary -- -- guiService = game\GetService "GuiService" -- --[[newChatMode = ]]try - -- --guiService\AddSpecialKey(Enum.SpecialKey.ChatHotkey) + -- --guiService\AddSpecialKey Enum.SpecialKey.ChatHotkey -- --guiService.SpecialKeyPressed\connect (key) -> if key == Enum.SpecialKey.ChatHotkey and hotKeyEnabled then activateChat! -- -- if not newChatMode - -- --guiService\AddKey("/") + -- --guiService\AddKey "/" -- --guiService.KeyPressed\connect (key) -> if key == "/" and hotKeyEnabled then activateChat! -- chatBox.FocusLost\connect (enterPressed) -> @@ -2212,8 +2209,8 @@ if LoadLibrary -- if success and luaChat --[[delay 0, -> - waitForChild(game, "Players") - waitForProperty(game.Players, "LocalPlayer") + waitForChild game, "Players" + waitForProperty game.Players, "LocalPlayer" advancedChatBarSupported = game.Players.LocalPlayer.ChatMode chatBar, toggleHotKey = createChatBar! @@ -2222,24 +2219,24 @@ if LoadLibrary toggleChatBar = (chatMode) -> if chatMode == Enum.ChatMode.Menu chatBar.Parent = nil - game.GuiService\SetGlobalSizeOffsetPixel(0,0) + game.GuiService\SetGlobalSizeOffsetPixel 0,0 toggleHotKey false elseif chatMode == Enum.ChatMode.TextAndMenu --chatBar.Parent = gui - --game.GuiService\SetGlobalSizeOffsetPixel(0,-22) + --game.GuiService\SetGlobalSizeOffsetPixel 0,-22 toggleHotKey true game.Players.LocalPlayer.Changed\connect( function prop if prop == "ChatMode" - toggleChatBar(game.Players.LocalPlayer.ChatMode) + toggleChatBar game.Players.LocalPlayer.ChatMode - toggleChatBar(game.Players.LocalPlayer.ChatMode) + toggleChatBar game.Players.LocalPlayer.ChatMode else --chatBar.Parent = gui - --game.GuiService\SetGlobalSizeOffsetPixel(0,-22) + --game.GuiService\SetGlobalSizeOffsetPixel 0,-22 ]] BurningManPlaceID = 41324860 diff --git a/yue/48488235.yue b/yue/48488235.yue index 9c05191..a835830 100644 --- a/yue/48488235.yue +++ b/yue/48488235.yue @@ -305,7 +305,7 @@ WaitForChild = (parent, child) -> -- might want to move all this to an init function, wait for localplayer elsewhere Players = game\GetService "Players" --- make sure this doesn't run on the server(it will if you dont do this) +-- make sure this doesn't run on the server (it will if you dont do this) while not Players.LocalPlayer Players.Changed\wait! @@ -471,14 +471,12 @@ IsMaximized = Instance.new "BoolValue" IsTabified = Instance.new "BoolValue" AreNamesExpanded = Instance.new "BoolValue" -MiddleTemplate = New "Frame" - Name: "MidTemplate" +MiddleTemplate = New "Frame", "MidTemplate" BackgroundTransparency: 1 Position: UDim2.new 100, 0, 0.07, 0 Size: UDim2.new 0.5, 0, 0.025, 0 --UDim2.new 1, 0, .03, 0 - * New "ImageLabel" - Name: "BCLabel" + * New "ImageLabel", "BCLabel" Active: true BackgroundTransparency: 1 Position: UDim2.new 0.005, 5, 0.20, 0 @@ -487,8 +485,7 @@ MiddleTemplate = New "Frame" Image: "" ZIndex: 3 - * New "ImageLabel" - Name: "FriendLabel" + * New "ImageLabel", "FriendLabel" Active: true BackgroundTransparency: 1 Position: UDim2.new 0.005, 5, 0.15, 0 @@ -811,8 +808,8 @@ for _, i in pairs Images -- ordered array of 'score data', each entry has: --- Name(String) --- Priority(number) +-- Name String +-- Priority number -- IsPrimary (bool, should it be shown in upper right) -- MaxLength (integer, of the length of the longest element for this column) ScoreNames = {} @@ -916,7 +913,7 @@ game.Workspace.ChildAdded\connect (nchild) -> -- Static Functions ------------------------------- -- GetTotalEntries = -> --- return math.min(#MiddleFrameBackgrounds, DefaultEntriesOnScreen) +-- return math.min #MiddleFrameBackgrounds, DefaultEntriesOnScreen -- GetEntryListLength = -> -- numEnts = #PlayerFrames + #TeamFrames @@ -966,7 +963,7 @@ TweenProperty = (obj, propName, inita, enda, length) -> --[[ UGLY UGLY HACK FUNCTION replace with some sort of global input catching A.S.A. FREAKING P. - creates a fullsize gui element to catch next mouse up event(completeing a click) + creates a fullsize gui element to catch next mouse up event completeing a click @Args: frameParent Object to parent fullscreen gui to polledFunction function to call on mouse moved events in this gui @@ -1273,8 +1270,8 @@ local BaseUpdate property Name of stat changed --]] StatChanged = (_, _) -> --playerEntry, property) - -- if(playerEntry['MyTeam']) - -- UpdateSingleTeam(playerEntry['MyTeam']) + -- if playerEntry['MyTeam'] + -- UpdateSingleTeam playerEntry['MyTeam'] -- else BaseUpdate! -- end @@ -1367,7 +1364,7 @@ DoesStatExist = (statName, exception) -> --[[ Called when stat is removed from player for all players, destroys the stat frame associated with this value, - then calls statchanged(to resize frame) + then calls statchanged to resize frame if playerEntry==localplayer, will remove from scorenames @Args: nchild ___value to be removed @@ -1787,7 +1784,7 @@ UpdateMaximize = -> for j = 1, #ScoreNames, 1 scoreval = ScoreNames[j] if i\FindFirstChild(scoreval["Name"]) and scoreval["XOffset"] - --print('updateing stat position: ' .. scoreval['Name']) + -- print "updateing stat position: #{scoreval["Name"]}" i[scoreval["Name"]]\TweenPosition( UDim2.new(RightEdgeSpace, -scoreval["XOffset"], 0, 0), "Out", @@ -2143,7 +2140,7 @@ AddMiddleBGFrame = -> table.insert MiddleFrameBackgrounds, nBGFrame if #MiddleFrameBackgrounds < DefaultListSize and not DidMinimizeDrag - --print('readjusting bottom clip') + --print 'readjusting bottom clip' DefaultBottomClipPos = -1 + #MiddleFrameBackgrounds * MiddleBGTemplate.Size.Y.Scale @@ -2228,7 +2225,7 @@ OnPlayerEntrySelect = (entry, startx, starty) -> --]] PlayerListModeUpdate = -> RecreateScoreColumns PlayerFrames - table.sort(PlayerFrames, PlayerSortFunction) + table.sort PlayerFrames, PlayerSortFunction for i, val in ipairs PlayerFrames MiddleFrames[i] = val["Frame"] @@ -2255,7 +2252,7 @@ RemoveNeutralTeam = -> index index of player in 'MyPlayers' list to remove --]] RemovePlayerFromTeam = (teamEntry, index) -> - table.remove(teamEntry["MyPlayers"], index) + table.remove teamEntry["MyPlayers"], index --if teamEntry['AutoHide'] and #teamEntry['MyPlayers'] == 0 if teamEntry == NeutralTeam and #teamEntry["MyPlayers"] == 0 RemoveNeutralTeam! @@ -2440,7 +2437,7 @@ InsertPlayerFrame = (nplayer) -> nfriendstatus = GetFriendStatus nplayer - nFrame\FindFirstChild"BCLabel".Image = getMembershipTypeIcon(nplayer.MembershipType, nplayer.Name) + nFrame\FindFirstChild"BCLabel".Image = getMembershipTypeIcon nplayer.MembershipType, nplayer.Name nFrame\FindFirstChild"FriendLabel".Image = getFriendStatusIcon nfriendstatus nFrame.Name = nplayer.Name WaitForChild(WaitForChild(nFrame, "TitleFrame"), "Title").Text = nplayer.Name @@ -2586,7 +2583,7 @@ Players.ChildRemoved\connect RemovePlayerFrame UnrollTeams = (tframes, outframes) -> numEntries = 0 if NeutralTeam and not NeutralTeam["IsHidden"] - for _, val in ipairs(NeutralTeam["MyPlayers"]) + for _, val in ipairs NeutralTeam["MyPlayers"] numEntries += 1 outframes[numEntries] = val["Frame"] @@ -2595,7 +2592,7 @@ UnrollTeams = (tframes, outframes) -> for _, val in ipairs tframes if not val["IsHidden"] - for _, pval in ipairs(val.MyPlayers) + for _, pval in ipairs val.MyPlayers numEntries += 1 outframes[numEntries] = pval["Frame"] @@ -2631,7 +2628,7 @@ AddTeamScores = (team) -> for j = 1, #ScoreNames, 1 i = ScoreNames[j] tscore = 0 - for _, j in ipairs(team["MyPlayers"]) + for _, j in ipairs team["MyPlayers"] tval = j["Player"]\FindFirstChild "leaderstats" and j["Player"].leaderstats\FindFirstChild i["Name"] if tval and not tval\IsA "StringValue" tscore += GetScoreValue (j["Player"].leaderstats)[i["Name"]] @@ -2664,7 +2661,7 @@ TeamListModeUpdate = -> SortTeams TeamFrames if NeutralTeam AddTeamScores NeutralTeam - --RecreateScoreColumns(NeutralTeam['MyPlayers']) + --RecreateScoreColumns NeutralTeam['MyPlayers'] UnrollTeams TeamFrames, MiddleFrames @@ -2890,7 +2887,7 @@ BaseUpdate = -> UpdateScrollPosition! UpdateScrollBarVisibility! - --debugprint('EndBaseUpdate') + --debugprint 'EndBaseUpdate' BaseUpdateLock = false diff --git a/yue/48488398.yue b/yue/48488398.yue index e45f881..737e484 100644 --- a/yue/48488398.yue +++ b/yue/48488398.yue @@ -106,8 +106,7 @@ game.Players.FriendRequestEvent\connect (fromPlayer, toPlayer, event) -> ) elseif toPlayer == localPlayer if event == Enum.FriendRequestEvent.Issue - if friendRequestBlacklist[fromPlayer] - return + return if friendRequestBlacklist[fromPlayer] -- previously cancelled friend request, we don't want it! game\GetService"GuiService"\SendNotification( "Friend Request", diff --git a/yue/53878047.yue b/yue/53878047.yue index 77202d7..874ad66 100644 --- a/yue/53878047.yue +++ b/yue/53878047.yue @@ -99,8 +99,7 @@ if IsPhone! CurrentLoadout.Position = UDim2.new 0.5, -90, 1, -85 for i = 0, NumSlots - slotFrame = New "Frame" - Name: "Slot#{i}" + slotFrame = New "Frame", "Slot#{i}" RobloxLocked: true BackgroundColor3: Color3.new 0, 0, 0 BackgroundTransparency: 1 @@ -568,8 +567,7 @@ makeStyledButton = (buttonName, size, position, parent, buttonStyle) -> button makeTextLabel = (TextLabelName, text, position, parent) -> - New "TextLabel" - Name: TextLabelName + New "TextLabel", TextLabelName, RobloxLocked: true BackgroundTransparency: 1 Size: UDim2.new 0, 32, 0, 14 diff --git a/yue/53878057.yue b/yue/53878057.yue index c6cb7e8..5db7182 100644 --- a/yue/53878057.yue +++ b/yue/53878057.yue @@ -254,8 +254,7 @@ reorganizeLoadout = (gear, inserting, _, addToSlot) -> checkToolAncestry = (child, parent) -> - if child\FindFirstChild "RobloxBuildTool" - return + return if child\FindFirstChild "RobloxBuildTool" -- don't show roblox build tools if child\IsA"Tool" or child\IsA "HopperBin" for i = 1, #gearSlots diff --git a/yue/60595411.yue b/yue/60595411.yue index 5c7359b..5c2afb7 100644 --- a/yue/60595411.yue +++ b/yue/60595411.yue @@ -776,7 +776,7 @@ model = Create'Model'{ An example using the event syntax: part = Create'Part'{ - [Create.E'Touched'] = function part + [Create.E'Touched'] = function(part) print("I was touched by "..part.Name) end, } @@ -787,7 +787,7 @@ An example using the general constructor syntax: model = Create'Part'{ [Create] = function this print("Constructor running!") - this.Name = GetGlobalFoosAndBars this + this.Name = GetGlobalFoosAndBars(this) end, } diff --git a/yue/73157242.yue b/yue/73157242.yue index dfd5acc..95b1fb6 100644 --- a/yue/73157242.yue +++ b/yue/73157242.yue @@ -1,6 +1,30 @@ import "macros" as { $ } $load $FILE +-- Heliodex's basic New function (basically a simplified version of melt) +New = (className, name, props) -> + if not props? -- no name was provided + props = name + name = nil + + obj = Instance.new className + obj.Name = name if name + local parent + + for k, v in pairs props + if type(k) == "string" then + if k == "Parent" + parent = v + else + obj[k] = v + + elseif type(k) == "number" and type(v) == "userdata" + v.Parent = obj + + obj.Parent = parent + obj +-- + t = {} -- waitForChild = (instance, name) -> @@ -9,7 +33,7 @@ t = {} -- end -- end --- Do a line/plane intersection. The line starts at the camera. The plane is at y == 0, normal(0, 1, 0) +-- Do a line/plane intersection. The line starts at the camera. The plane is at y == 0, normal 0, 1, 0 -- -- vectorPos - End point of the line. -- @@ -24,9 +48,9 @@ PlaneIntersection = (vectorPos) -> startPos = Vector3.new .X, .Y, .Z endPos = Vector3.new vectorPos.X, vectorPos.Y, vectorPos.Z - normal = Vector3.new(0, 1, 0) + normal = Vector3.new 0, 1, 0 p3 = Vector3.new 0, 0, 0 - startEndDot = normal\Dot(endPos - startPos) + startEndDot = normal\Dot endPos - startPos cellPos = vectorPos if startEndDot ~= 0 t = normal\Dot(p3 - startPos) / startEndDot @@ -158,14 +182,12 @@ setSeatEnabledStatus = (model, isEnabled) -> -- put a weld called "SeatWeld" in every seat -- this tricks it into thinking there's already someone sitting there, and it won't make you sit XD for i = 1, #seatList - fakeWeld = Instance.new "Weld" - fakeWeld.Name = "SeatWeld" - fakeWeld.Parent = seatList[i] + New "Weld", "SeatWeld" + Parent: seatList[i] autoAlignToFace = (parts) -> - aatf = parts\FindFirstChild "AutoAlignToFace" - if aatf + if aatf = parts\FindFirstChild "AutoAlignToFace" aatf.Value else false @@ -257,21 +279,21 @@ modelTargetSurface = (partOrModel, rayStart, rayEnd) -> hitFace = 0 --if xHitTime >= 0 and yHitTime >= 0 and zHitTime >= 0 - if xHitTime > yHitTime + hitFace = if xHitTime > yHitTime if xHitTime > zHitTime -- xFace is hit - hitFace = 1 * xPositive + 1 * xPositive else -- zFace is hit - hitFace = 3 * zPositive + 3 * zPositive else if yHitTime > zHitTime -- yFace is hit - hitFace = 2 * yPositive + 2 * yPositive else -- zFace is hit - hitFace = 3 * zPositive + 3 * zPositive hitFace @@ -298,7 +320,7 @@ getBoundingBox2 = (partOrModel) -> if justifyValue? -- find the multiple of 4 that contains the model justify = justifyValue.Value - two = Vector3.new(2, 2, 2) + two = Vector3.new 2, 2, 2 actualBox = maxVec - minVec - Vector3.new 0.01, 0.01, 0.01 containingGridBox = Vector3.new( 4 * math.ceil(actualBox.x / 4), @@ -323,8 +345,8 @@ getBoundingBoxInWorldCoordinates = (partOrModel) -> maxVec = Vector3.new math.max(vec1.X, vec2.X), math.max(vec1.Y, vec2.Y), math.max vec1.Z, vec2.Z elseif not partOrModel\IsA "Terrain" -- we shouldn't have to deal with this case - --minVec = Vector3.new(-2, -2, -2) - --maxVec = Vector3.new(2, 2, 2) + --minVec = Vector3.new -2, -2, -2 + --maxVec = Vector3.new 2, 2, 2 -- else vec1 = partOrModel\GetModelCFrame!\pointToWorldSpace -0.5 * partOrModel\GetModelSize! vec2 = partOrModel\GetModelCFrame!\pointToWorldSpace 0.5 * partOrModel\GetModelSize! @@ -359,7 +381,7 @@ isBlocker = (part) -> -- returns whether or not we want to cancel the stamp beca if part\FindFirstChild "Humanoid" return false - if part\FindFirstChild "RobloxStamper" or part\FindFirstChild "RobloxModel" + if part\FindFirstChild"RobloxStamper" or part\FindFirstChild "RobloxModel" return true if part\IsA"Part" and not part.CanCollide @@ -376,7 +398,7 @@ spaceAboveCharacter = (charTorso, newTorsoY, stampData) -> partsAboveChar = game.Workspace\FindPartsInRegion3( Region3.new( Vector3.new(charTorso.Position.X, newTorsoY, charTorso.Position.Z) - Vector3.new(0.75, 2.75, 0.75), - Vector3.new(charTorso.Position.X, newTorsoY, charTorso.Position.Z) + Vector3.new(0.75, 1.75, 0.75) + Vector3.new(charTorso.Position.X, newTorsoY, charTorso.Position.Z) + Vector3.new 0.75, 1.75, 0.75 ), charTorso.Parent, 100 @@ -388,7 +410,7 @@ spaceAboveCharacter = (charTorso, newTorsoY, stampData) -> if clusterPartsInRegion( Vector3.new(charTorso.Position.X, newTorsoY, charTorso.Position.Z) - Vector3.new(0.75, 2.75, 0.75), - Vector3.new(charTorso.Position.X, newTorsoY, charTorso.Position.Z) + Vector3.new(0.75, 1.75, 0.75) + Vector3.new(charTorso.Position.X, newTorsoY, charTorso.Position.Z) + Vector3.new 0.75, 1.75, 0.75 ) return false @@ -406,8 +428,8 @@ findConfigAtMouseTarget = (Mouse, stampData) -> return if not Mouse -- This can happen sometimes, return if so - return if not stampData - error "findConfigAtMouseTarget: stampData is nil" + if not stampData + return error "findConfigAtMouseTarget: stampData is nil" return if not stampData["CurrentParts"] @@ -426,10 +448,10 @@ findConfigAtMouseTarget = (Mouse, stampData) -> if Mouse - if stampData.CurrentParts\IsA "Tool" - Mouse.TargetFilter = stampData.CurrentParts.Handle + Mouse.TargetFilter = if stampData.CurrentParts\IsA "Tool" + stampData.CurrentParts.Handle else - Mouse.TargetFilter = stampData.CurrentParts + stampData.CurrentParts hitPlane = false local targetPart @@ -445,7 +467,6 @@ findConfigAtMouseTarget = (Mouse, stampData) -> if Mouse mouseHitInWorld = Vector3.new Mouse.Hit.x, Mouse.Hit.y, Mouse.Hit.z - local cellPos -- Nothing was hit, so check for the default plane. @@ -458,8 +479,8 @@ findConfigAtMouseTarget = (Mouse, stampData) -> targetPart = game.Workspace.Terrain hitPlane = true -- Take into account error that will occur. - cellPos = Vector3.new(cellPos.X - 1, cellPos.Y, cellPos.Z) - mouseHitInWorld = game.Workspace.Terrain\CellCenterToWorld(cellPos.x, cellPos.y, cellPos.z) + cellPos = Vector3.new cellPos.X - 1, cellPos.Y, cellPos.Z + mouseHitInWorld = game.Workspace.Terrain\CellCenterToWorld cellPos.x, cellPos.y, cellPos.z -- test mouse hit location @@ -486,13 +507,13 @@ findConfigAtMouseTarget = (Mouse, stampData) -> -- (ideally, we would want to make the Mouse.TargetSurface a model-targetsurface instead, but for testing will be using the converse) --targetVectorInWorld = targetCFrame\vectorToWorldSpace(Vector3.FromNormalId(Mouse.TargetSurface)) targetVectorInWorld = targetPart.CFrame\vectorToWorldSpace Vector3.FromNormalId Mouse.TargetSurface -- better, but model cframe would be best - --[[if targetPart.Parent\IsA("Model") + --[[if targetPart.Parent\IsA "Model" hitFace = modelTargetSurface(targetPart.Parent, Mouse.Hit.p, game.Workspace.CurrentCamera.CoordinateFrame.p) -- best, if you get it right - WORLD_AXES = {Vector3.new(1, 0, 0), Vector3.new(0, 1, 0), Vector3.new(0, 0, 1)} + WORLD_AXES = { Vector3.new(1, 0, 0), Vector3.new(0, 1, 0), Vector3.new(0, 0, 1) } if hitFace > 0 - targetVectorInWorld = targetCFrame\vectorToWorldSpace(WORLD_AXES[hitFace]) + targetVectorInWorld = targetCFrame\vectorToWorldSpace WORLD_AXES[hitFace] elseif hitFace < 0 - targetVectorInWorld = targetCFrame\vectorToWorldSpace(-WORLD_AXES[-hitFace]) + targetVectorInWorld = targetCFrame\vectorToWorldSpace -WORLD_AXES[-hitFace] end]] @@ -580,10 +601,10 @@ truncateToCircleEighth = (bigValue, littleValue) -> if frac > 0.382683432 -- between 22.5 and 45 degrees, so truncate to 45-degree tilt - return 0.707106781 * hypotenuse * bigSign, 0.707106781 * hypotenuse * littleSign + 0.707106781 * hypotenuse * bigSign, 0.707106781 * hypotenuse * littleSign else -- between 0 and 22.5 degrees, so truncate to 0-degree tilt - return hypotenuse * bigSign, 0 + hypotenuse * bigSign, 0 saveTheWelds = (object, manualWeldTable, manualWeldParentTable) -> @@ -688,24 +709,22 @@ t.GetStampModel = (assetId, terrainShape, useAssetVersionId) -> newTerrainPiece.CFrame = CFrame.Angles 0, math.pi / 2 * cellOrient + flipped, sideways if cellType == 3 - inverseCornerWedgeMesh = Instance.new "SpecialMesh" - inverseCornerWedgeMesh.MeshType = "FileMesh" - inverseCornerWedgeMesh.MeshId = "http://www.roblox.com/asset?id=66832495" - inverseCornerWedgeMesh.Scale = Vector3.new 2, 2, 2 - inverseCornerWedgeMesh.Parent = newTerrainPiece + New "SpecialMesh" + MeshType: "FileMesh" + MeshId: "http://www.roblox.com/asset?id=66832495" + Scale: Vector3.new 2, 2, 2 + Parent: newTerrainPiece - materialTag = Instance.new "Vector3Value" - materialTag.Value = Vector3.new cellMat, cellType, cellOrient - materialTag.Name = "ClusterMaterial" - materialTag.Parent = newTerrainPiece + New "Vector3Value", "ClusterMaterial" + Value: Vector3.new cellMat, cellType, cellOrient + Parent: newTerrainPiece - return newTerrainPiece + newTerrainPiece -- This call will cause a "wait" until the data comes back -- below we wait a max of 8 seconds before deciding to bail out on loading - local root - local loader + local root, loader loading = true if useAssetVersionId loader = coroutine.create -> @@ -771,36 +790,33 @@ t.GetStampModel = (assetId, terrainShape, useAssetVersionId) -> -- ...and tag all inserted models for subsequent origin identification -- if no RobloxModel tag already exists, then add it. - if not root\FindFirstChild"RobloxModel"? - stringTag = Instance.new "BoolValue" - stringTag.Name = "RobloxModel" - stringTag.Parent = root + if root\FindFirstChild"RobloxModel" == nil + New "BoolValue", "RobloxModel" + Parent: root - if not root\FindFirstChild"RobloxStamper"? - stringTag2 = Instance.new "BoolValue" - stringTag2.Name = "RobloxStamper" - stringTag2.Parent = root + if root\FindFirstChild"RobloxStamper" == nil + New "BoolValue", "RobloxStamper" + Parent: root if terrainShape if root.Name == "MegaClusterCube" if terrainShape == 6 -- insert an autowedging tag - autowedgeTag = Instance.new "BoolValue" - autowedgeTag.Name = "AutoWedge" - autowedgeTag.Parent = root + New "BoolValue", "AutoWedge" + Parent: root else clusterTag = root\FindFirstChild "ClusterMaterial" - if clusterTag + root = if clusterTag if clusterTag\IsA "Vector3Value" - root = setupFakeTerrainPart(clusterTag.Value.X, terrainShape, clusterTag.Value.Z) + setupFakeTerrainPart clusterTag.Value.X, terrainShape, clusterTag.Value.Z else - root = setupFakeTerrainPart(clusterTag.Value, terrainShape, 0) + setupFakeTerrainPart clusterTag.Value, terrainShape, 0 else - root = setupFakeTerrainPart(1, terrainShape, 0) + setupFakeTerrainPart 1, terrainShape, 0 - return root + root t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, StampFailedFunc) -> @@ -843,38 +859,37 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, local stampData local mouseTarget - errorBox = Instance.new "SelectionBox" - errorBox.Color = BrickColor.new "Bright red" - errorBox.Transparency = 0 - errorBox.Archivable = false + errorBox = New "SelectionBox" + Color: BrickColor.new "Bright red" + Transparency: 0 + Archivable: false -- for megacluster MEGA STAMPING - adornPart = Instance.new "Part" - adornPart.Parent = nil - adornPart.formFactor = "Custom" - adornPart.Size = Vector3.new(4, 4, 4) - adornPart.CFrame = CFrame.new! - adornPart.Archivable = false + adornPart = New "Part" + Parent: nil + formFactor: "Custom" + Size: Vector3.new 4, 4, 4 + CFrame: CFrame.new! + Archivable: false - adorn = Instance.new "SelectionBox" - adorn.Color = BrickColor.new "Toothpaste" - adorn.Adornee = adornPart - adorn.Visible = true - adorn.Transparency = 0 - adorn.Name = "HighScalabilityStamperLine" - adorn.Archivable = false + adorn = New "SelectionBox", "HighScalabilityStamperLine" + Color: BrickColor.new "Toothpaste" + Adornee: adornPart + Visible: true + Transparency: 0 + Archivable: false HighScalabilityLine = {} - HighScalabilityLine.Start = nil - HighScalabilityLine.End = nil - HighScalabilityLine.Adorn = adorn - HighScalabilityLine.AdornPart = adornPart - HighScalabilityLine.InternalLine = nil - HighScalabilityLine.NewHint = true - - HighScalabilityLine.MorePoints = { nil, nil } - HighScalabilityLine.MoreLines = { nil, nil } - HighScalabilityLine.Dimensions = 1 + with HighScalabilityLine + .Start = nil + .End = nil + .Adorn = adorn + .AdornPart = adornPart + .InternalLine = nil + .NewHint = true + .MorePoints = { nil, nil } + .MoreLines = { nil, nil } + .Dimensions = 1 control = {} movingLock = false @@ -883,9 +898,9 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, mouseCons = {} local keyCon - stamped = Instance.new "BoolValue" - stamped.Archivable = false - stamped.Value = false + stamped = New "BoolValue" + Archivable: false + Value: false lastTarget = {} lastTarget.TerrainOrientation = 0 @@ -924,37 +939,37 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- extract the line from these positions and limit to a 2D plane made from 2 of the world axes -- then use dominating axis to limit line to be at 45-degree intervals -- will use this internal representation of the line for the actual stamping - line = (HighScalabilityLine.End - HighScalabilityLine.Start) + line = HighScalabilityLine.End - HighScalabilityLine.Start - if math.abs(line.X) < math.abs(line.Y) - if math.abs(line.X) < math.abs(line.Z) + if math.abs(line.X) < math.abs line.Y + if math.abs(line.X) < math.abs line.Z -- limit to Y/Z plane, domination unknown local newY, newZ - if math.abs(line.Y) > math.abs(line.Z) - newY, newZ = truncateToCircleEighth(line.Y, line.Z) + if math.abs(line.Y) > math.abs line.Z + newY, newZ = truncateToCircleEighth line.Y, line.Z else - newZ, newY = truncateToCircleEighth(line.Z, line.Y) + newZ, newY = truncateToCircleEighth line.Z, line.Y - line = Vector3.new(0, newY, newZ) + line = Vector3.new 0, newY, newZ else -- limit to X/Y plane, with Y dominating - newY, newX = truncateToCircleEighth(line.Y, line.X) - line = Vector3.new(newX, newY, 0) + newY, newX = truncateToCircleEighth line.Y, line.X + line = Vector3.new newX, newY, 0 else - if math.abs(line.Y) < math.abs(line.Z) + if math.abs(line.Y) < math.abs line.Z -- limit to X/Z plane, domination unknown local newX, newZ - if math.abs(line.X) > math.abs(line.Z) - newX, newZ = truncateToCircleEighth(line.X, line.Z) + if math.abs(line.X) > math.abs line.Z + newX, newZ = truncateToCircleEighth line.X, line.Z else - newZ, newX = truncateToCircleEighth(line.Z, line.X) + newZ, newX = truncateToCircleEighth line.Z, line.X - line = Vector3.new(newX, 0, newZ) + line = Vector3.new newX, 0, newZ else -- limit to X/Y plane, with X dominating - newX, newY = truncateToCircleEighth(line.X, line.Y) - line = Vector3.new(newX, newY, 0) + newX, newY = truncateToCircleEighth line.X, line.Y + line = Vector3.new newX, newY, 0 HighScalabilityLine.InternalLine = line @@ -965,7 +980,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- take out any component of line2 along line1, so you get perpendicular to line1 component line2 -= line.unit * line.unit\Dot line2 - tempCFrame = CFrame.new(HighScalabilityLine.Start, HighScalabilityLine.Start + line) + tempCFrame = CFrame.new HighScalabilityLine.Start, HighScalabilityLine.Start + line -- then zero out whichever is the smaller component yAxis = tempCFrame\vectorToWorldSpace(Vector3.new(0, 1, 0)) @@ -994,14 +1009,14 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- resize the "line" graphic to be the correct size and orientation - tempCFrame = CFrame.new(HighScalabilityLine.Start, HighScalabilityLine.Start + line) + tempCFrame = CFrame.new HighScalabilityLine.Start, HighScalabilityLine.Start + line if HighScalabilityLine.Dimensions == 1 -- faster calculation for line - HighScalabilityLine.AdornPart.Size = Vector3.new(4, 4, line.magnitude + 4) + HighScalabilityLine.AdornPart.Size = Vector3.new 4, 4, line.magnitude + 4 HighScalabilityLine.AdornPart.CFrame = tempCFrame + tempCFrame\vectorToWorldSpace Vector3.new(2, 2, 2) - HighScalabilityLine.AdornPart.Size / 2 else - boxSize = tempCFrame\vectorToObjectSpace(line + line2 + line3) + boxSize = tempCFrame\vectorToObjectSpace line + line2 + line3 HighScalabilityLine.AdornPart.Size = Vector3.new(4, 4, 4) + Vector3.new(math.abs(boxSize.X), math.abs(boxSize.Y), math.abs(boxSize.Z)) HighScalabilityLine.AdornPart.CFrame = tempCFrame + tempCFrame\vectorToWorldSpace boxSize / 2 @@ -1032,24 +1047,20 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, return if not Mouse\IsA "Mouse" - error("Error: RbxStamper.DoStamperMouseMove: Mouse is of type", Mouse.className, "should be of type Mouse") + error "Error: RbxStamper.DoStamperMouseMove: Mouse is of type", Mouse.className, "should be of type Mouse" return -- There wasn't a target (no part or terrain), so check for plane intersection. if not Mouse.Target cellPos = GetTerrainForMouse Mouse - if nil == cellPos - return - - - if not stampData - return + return if nil == cellPos + return if not stampData -- don't move with dragger - will move in one step on mouse down -- draw ghost at acceptable positions - configFound, targetCFrame, targetSurface = findConfigAtMouseTarget(Mouse, stampData) + configFound, targetCFrame, targetSurface = findConfigAtMouseTarget Mouse, stampData if not configFound error "RbxStamper.DoStamperMouseMove No configFound, returning" return @@ -1057,28 +1068,28 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, numRotations = 0 -- update this according to how many rotations you need to get it to target surface if autoAlignToFace(stampData.CurrentParts) and targetSurface ~= 1 and targetSurface ~= 4 -- pre-rotate the flag or portrait so it's aligned correctly - if targetSurface == 3 - numRotations = 0 - gInitial90DegreeRotations + autoAlignToFace(stampData.CurrentParts) + numRotations = if targetSurface == 3 + 0 - gInitial90DegreeRotations + autoAlignToFace stampData.CurrentParts elseif targetSurface == 0 - numRotations = 2 - gInitial90DegreeRotations + autoAlignToFace(stampData.CurrentParts) + 2 - gInitial90DegreeRotations + autoAlignToFace stampData.CurrentParts elseif targetSurface == 5 - numRotations = 3 - gInitial90DegreeRotations + autoAlignToFace(stampData.CurrentParts) + 3 - gInitial90DegreeRotations + autoAlignToFace stampData.CurrentParts elseif targetSurface == 2 - numRotations = 1 - gInitial90DegreeRotations + autoAlignToFace(stampData.CurrentParts) + 1 - gInitial90DegreeRotations + autoAlignToFace stampData.CurrentParts ry = math.pi / 2 gInitial90DegreeRotations += numRotations if stampData.CurrentParts\IsA"Model" or stampData.CurrentParts\IsA "Tool" - --stampData.CurrentParts\Rotate(0, ry*numRotations, 0) - modelRotate(stampData.CurrentParts, ry * numRotations) + --stampData.CurrentParts\Rotate 0, ry*numRotations, 0 + modelRotate stampData.CurrentParts, ry * numRotations else - stampData.CurrentParts.CFrame = CFrame.fromEulerAnglesXYZ(0, ry * numRotations, 0) + stampData.CurrentParts.CFrame = CFrame.fromEulerAnglesXYZ 0, ry * numRotations, 0 * stampData.CurrentParts.CFrame -- CODE TO CHECK FOR DRAGGING GHOST PART INTO A COLLIDING STATE - minBB, maxBB = getBoundingBoxInWorldCoordinates(stampData.CurrentParts) + minBB, maxBB = getBoundingBoxInWorldCoordinates stampData.CurrentParts -- need to offset by distance to be dragged local currModelCFrame @@ -1092,12 +1103,12 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, maxBB += targetCFrame.p - currModelCFrame.p -- don't drag into terrain - if clusterPartsInRegion(minBB + insertBoundingBoxOverlapVector, maxBB - insertBoundingBoxOverlapVector) + if clusterPartsInRegion minBB + insertBoundingBoxOverlapVector, maxBB - insertBoundingBoxOverlapVector if lastTarget.CFrame - if stampData.CurrentParts\FindFirstChild("ClusterMaterial", true) - theClusterMaterial = stampData.CurrentParts\FindFirstChild("ClusterMaterial", true) + if stampData.CurrentParts\FindFirstChild "ClusterMaterial", true + theClusterMaterial = stampData.CurrentParts\FindFirstChild "ClusterMaterial", true if theClusterMaterial\IsA "Vector3Value" - stampClusterMaterial = stampData.CurrentParts\FindFirstChild("ClusterMaterial", true) + stampClusterMaterial = stampData.CurrentParts\FindFirstChild "ClusterMaterial", true if stampClusterMaterial stampClusterMaterial = clusterMat @@ -1193,13 +1204,12 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- most common mouse inactive error occurs here, so check mouse active one more time in a pcall if (not try - if Mouse and Mouse.Target and not Mouse.Target.Parent\FindFirstChild"RobloxModel"? - return - else - return - -- ? + -- if Mouse and Mouse.Target and not Mouse.Target.Parent\FindFirstChild"RobloxModel"? + -- return + -- else + -- return + return ) - error "Error: RbxStamper.DoStamperMouseMove Mouse is nil on second check" game.JointsService\ClearJoinAfterMoveJoints! Mouse = nil @@ -1239,7 +1249,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- Rotate the parts or all the parts in the model ry = math.pi / 2 if stampData.CurrentParts\IsA"Model" or stampData.CurrentParts\IsA "Tool" - --stampData.CurrentParts\Rotate(0, ry, 0) + --stampData.CurrentParts\Rotate 0, ry, 0 modelRotate stampData.CurrentParts, ry else stampData.CurrentParts.CFrame = CFrame.fromEulerAnglesXYZ(0, ry, 0) * stampData.CurrentParts.CFrame @@ -1254,14 +1264,14 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, DoStamperMouseMove Mouse elseif key == "c" -- try to expand our high scalability dragger dimension - if HighScalabilityLine.InternalLine and - HighScalabilityLine.InternalLine.magnitude > 0 and - HighScalabilityLine.Dimensions < 3 - - HighScalabilityLine.MorePoints[HighScalabilityLine.Dimensions] = HighScalabilityLine.End - HighScalabilityLine.MoreLines[HighScalabilityLine.Dimensions] = HighScalabilityLine.InternalLine - HighScalabilityLine.Dimensions = HighScalabilityLine.Dimensions + 1 - HighScalabilityLine.NewHint = true + with HighScalabilityLine + if .InternalLine and + .InternalLine.magnitude > 0 and + .Dimensions < 3 + .MorePoints[.Dimensions] = .End + .MoreLines[.Dimensions] = .InternalLine + .Dimensions = .Dimensions + 1 + .NewHint = true keyCon = Mouse.KeyDown\connect (key) -> -- init key connection (keeping code close to func) setupKeyListener key, Mouse @@ -1275,10 +1285,11 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, flashRedBox = -> gui = game.CoreGui - if game\FindFirstChild "Players" - if game.Players["LocalPlayer"] - if game.Players.LocalPlayer\FindFirstChild "PlayerGui" - gui = game.Players.LocalPlayer.PlayerGui + if game\FindFirstChild"Players" and + game.Players["LocalPlayer"] and + game.Players.LocalPlayer\FindFirstChild "PlayerGui" + + gui = game.Players.LocalPlayer.PlayerGui return if not stampData["ErrorBox"] @@ -1312,22 +1323,20 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, error "Error: RbxStamper.DoStamperMouseDown: Mouse is of type", Mouse.className, "should be of type Mouse" return - if not stampData - return - + return if not stampData if isMegaClusterPart! if Mouse and HighScalabilityLine - megaCube = stampData.CurrentParts\FindFirstChild("MegaClusterCube", true) + megaCube = stampData.CurrentParts\FindFirstChild "MegaClusterCube", true terrain = game.Workspace.Terrain if megaCube HighScalabilityLine.Dimensions = 1 - tempCell = terrain\WorldToCell(megaCube.CFrame.p) + tempCell = terrain\WorldToCell megaCube.CFrame.p HighScalabilityLine.Start = terrain\CellCenterToWorld tempCell.X, tempCell.Y, tempCell.Z return else HighScalabilityLine.Dimensions = 1 - tempCell = terrain\WorldToCell(stampData.CurrentParts.CFrame.p) + tempCell = terrain\WorldToCell stampData.CurrentParts.CFrame.p HighScalabilityLine.Start = terrain\CellCenterToWorld tempCell.X, tempCell.Y, tempCell.Z return @@ -1371,16 +1380,17 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, decals = {} stampData = {} - stampData.DisabledScripts = {} - stampData.TransparencyTable = {} - stampData.MaterialTable = {} - stampData.CanCollideTable = {} - stampData.AnchoredTable = {} - stampData.ArchivableTable = {} - stampData.DecalTransparencyTable = {} - stampData.SurfaceTypeTable = {} + with stampData + .DisabledScripts = {} + .TransparencyTable = {} + .MaterialTable = {} + .CanCollideTable = {} + .AnchoredTable = {} + .ArchivableTable = {} + .DecalTransparencyTable = {} + .SurfaceTypeTable = {} - collectParts(clone, parts, scripts, decals) + collectParts clone, parts, scripts, decals if #parts <= 0 return nil, "no parts found in modelToStamp" @@ -1404,7 +1414,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, stampData.ArchivableTable[part] = part.Archivable part.Archivable = false - saveSurfaceTypes(part, stampData.SurfaceTypeTable) + saveSurfaceTypes part, stampData.SurfaceTypeTable fadeInDelayTime = 0.5 transFadeInTime = 0.5 @@ -1447,7 +1457,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, else -- pre-rotate if necessary ry = gInitial90DegreeRotations * math.pi / 2 if stampData.CurrentParts\IsA"Model" or stampData.CurrentParts\IsA "Tool" - --stampData.CurrentParts\Rotate(0, ry, 0) + --stampData.CurrentParts\Rotate 0, ry, 0 modelRotate stampData.CurrentParts, ry else stampData.CurrentParts.CFrame = CFrame.fromEulerAnglesXYZ(0, ry, 0) * stampData.CurrentParts.CFrame @@ -1467,13 +1477,13 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- After rotating, update the position - configFound, targetCFrame = findConfigAtMouseTarget(Mouse, stampData) + configFound, targetCFrame = findConfigAtMouseTarget Mouse, stampData if configFound - stampData.CurrentParts = positionPartsAtCFrame3(targetCFrame, stampData.CurrentParts) + stampData.CurrentParts = positionPartsAtCFrame3 targetCFrame, stampData.CurrentParts -- to show joints during the mouse move - game.JointsService\SetJoinAfterMoveInstance(stampData.CurrentParts) + game.JointsService\SetJoinAfterMoveInstance stampData.CurrentParts return clone, parts @@ -1532,7 +1542,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, if checkHighScalabilityStamp -- check to see if cell is in region, if not we'll skip set if allowedStampRegion - cellPos = cellCenterToWorld(game.Workspace.Terrain, cellPos.X, cellPos.Y, cellPos.Z) + cellPos = cellCenterToWorld game.Workspace.Terrain, cellPos.X, cellPos.Y, cellPos.Z if (cellPos.X + 2 > allowedStampRegion.CFrame.p.X + allowedStampRegion.Size.X / 2) or (cellPos.X - 2 < allowedStampRegion.CFrame.p.X - allowedStampRegion.Size.X / 2) or (cellPos.Y + 2 > allowedStampRegion.CFrame.p.Y + allowedStampRegion.Size.Y / 2) or @@ -1563,8 +1573,8 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, autoWedgeClusterParts = true - if stampData.CurrentParts\FindFirstChild("ClusterMaterial", true) - clusterMaterial = stampData.CurrentParts\FindFirstChild("ClusterMaterial", true) + if stampData.CurrentParts\FindFirstChild "ClusterMaterial", true + clusterMaterial = stampData.CurrentParts\FindFirstChild "ClusterMaterial", true if clusterMaterial\IsA "Vector3Value" clusterType = clusterMaterial.Value.Y clusterOrientation = clusterMaterial.Value.Z @@ -1577,7 +1587,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, HighScalabilityLine.Start and ((HighScalabilityLine.Dimensions > 1) or (line and line.magnitude > 0)) - startCell = game.Workspace.Terrain\WorldToCell(HighScalabilityLine.Start) + startCell = game.Workspace.Terrain\WorldToCell HighScalabilityLine.Start xInc = { 0, 0, 0 } yInc = { 0, 0, 0 } zInc = { 0, 0, 0 } @@ -1595,20 +1605,20 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, lines = {} if HighScalabilityLine.Dimensions > 1 - table.insert(lines, HighScalabilityLine.MoreLines[1]) + table.insert lines, HighScalabilityLine.MoreLines[1] if line and line.magnitude > 0 - table.insert(lines, line) + table.insert lines, line if HighScalabilityLine.Dimensions > 2 - table.insert(lines, HighScalabilityLine.MoreLines[2]) + table.insert lines, HighScalabilityLine.MoreLines[2] for i = 1, #lines lines[i] = Vector3.new( math.floor(lines[i].X + 0.5), math.floor(lines[i].Y + 0.5), - math.floor(lines[i].Z + 0.5) + math.floor lines[i].Z + 0.5 ) -- round to integers if lines[i].X > 0 @@ -1627,7 +1637,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, zInc[i] = -1 - incrementVect[i] = Vector3.new(xInc[i], yInc[i], zInc[i]) + incrementVect[i] = Vector3.new xInc[i], yInc[i], zInc[i] if incrementVect[i].magnitude < 0.9 incrementVect[i] = nil @@ -1639,8 +1649,8 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, lines[3] = Vector3.new 0, 0, 0 - waterForceTag = stampData.CurrentParts\FindFirstChild("WaterForceTag", true) - waterForceDirectionTag = stampData.CurrentParts\FindFirstChild("WaterForceDirectionTag", true) + waterForceTag = stampData.CurrentParts\FindFirstChild "WaterForceTag", true + waterForceDirectionTag = stampData.CurrentParts\FindFirstChild "WaterForceDirectionTag", true while stepVect[3].magnitude * 4 <= lines[3].magnitude outerStepVectIndex = 1 @@ -1712,7 +1722,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, innerStepVectIndex += 1 else - stepVect[2] = Vector3.new(1, 0, 0) + stepVect[2] = Vector3.new 1, 0, 0 innerStepVectIndex = 4 -- skip all remaining loops if stepVect[2].magnitude * 4 > lines[2].magnitude @@ -1754,7 +1764,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, return false if not Mouse\IsA "Mouse" - error("Error: RbxStamper.DoStamperMouseUp: Mouse is of type", Mouse.className, "should be of type Mouse") + error "Error: RbxStamper.DoStamperMouseUp: Mouse is of type", Mouse.className, "should be of type Mouse" return false @@ -1782,13 +1792,11 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, canStamp = true checkHighScalabilityStamp = true else - canStamp, checkHighScalabilityStamp = t.CanEditRegion(stampData.CurrentParts, allowedStampRegion) + canStamp, checkHighScalabilityStamp = t.CanEditRegion stampData.CurrentParts, allowedStampRegion if not canStamp - if stampFailedFunc - stampFailedFunc! - + stampFailedFunc?! return false @@ -1799,25 +1807,23 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- recheck if we can stamp, as we just moved part - canStamp, checkHighScalabilityStamp = t.CanEditRegion(stampData.CurrentParts, allowedStampRegion) + canStamp, checkHighScalabilityStamp = t.CanEditRegion stampData.CurrentParts, allowedStampRegion if not canStamp - if stampFailedFunc - stampFailedFunc! - + stampFailedFunc?! return false -- Prevent part from being stamped on top of a player - minBB, maxBB = getBoundingBoxInWorldCoordinates(stampData.CurrentParts) + minBB, maxBB = getBoundingBoxInWorldCoordinates stampData.CurrentParts -- HotThoth's note: Now that above CurrentParts positioning has been commented out, to be truly correct, we would need to use the -- value of configFound from the previous onStamperMouseMove call which moved the CurrentParts -- Shouldn't this be true when lastTargetCFrame has been set and false otherwise? - configFound, targetCFrame = findConfigAtMouseTarget(Mouse, stampData) + configFound, targetCFrame = findConfigAtMouseTarget Mouse, stampData if configFound and not HighScalabilityLine.Adorn.Parent - if clusterPartsInRegion(minBB + insertBoundingBoxOverlapVector, maxBB - insertBoundingBoxOverlapVector) + if clusterPartsInRegion minBB + insertBoundingBoxOverlapVector, maxBB - insertBoundingBoxOverlapVector flashRedBox! return false @@ -1829,7 +1835,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, ) for b = 1, #blockingParts - if isBlocker(blockingParts[b]) + if isBlocker blockingParts[b] flashRedBox! return false @@ -1893,22 +1899,22 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- if target point is in cluster, just use cluster\SetCell if isMegaClusterPart! -- if targetCFrame is inside cluster, just set that cell to 1 and return - --cellPos = cluster\WorldToCell(targetCFrame.p) + --cellPos = cluster\WorldToCell targetCFrame.p local cellPos if stampData.CurrentParts\IsA "Model" - cellPos = cluster\WorldToCell(stampData.CurrentParts\GetModelCFrame!.p) + cellPos = cluster\WorldToCell stampData.CurrentParts\GetModelCFrame!.p else - cellPos = cluster\WorldToCell(stampData.CurrentParts.CFrame.p) + cellPos = cluster\WorldToCell stampData.CurrentParts.CFrame.p cMax = game.Workspace.Terrain.MaxExtents.Max cMin = game.Workspace.Terrain.MaxExtents.Min - if checkTerrainBlockCollisions(cellPos, false) - clusterValues = stampData.CurrentParts\FindFirstChild("ClusterMaterial", true) - waterForceTag = stampData.CurrentParts\FindFirstChild("WaterForceTag", true) - waterForceDirectionTag = stampData.CurrentParts\FindFirstChild("WaterForceDirectionTag", true) + if checkTerrainBlockCollisions cellPos, false + clusterValues = stampData.CurrentParts\FindFirstChild "ClusterMaterial", true + waterForceTag = stampData.CurrentParts\FindFirstChild "WaterForceTag", true + waterForceDirectionTag = stampData.CurrentParts\FindFirstChild "WaterForceDirectionTag", true if cellPos.X >= cMin.X and cellPos.Y >= cMin.Y and @@ -1944,7 +1950,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, clusterValues.Value.Z ) else - cluster\SetCell(cellPos.X, cellPos.Y, cellPos.Z, clusterValues.Value, 0, 0) + cluster\SetCell cellPos.X, cellPos.Y, cellPos.Z, clusterValues.Value, 0, 0 autoWedgeClusterParts = false @@ -1957,7 +1963,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, game.Workspace.Terrain\AutowedgeCells( Region3int16.new( Vector3int16.new(cellPos.x - 1, cellPos.y - 1, cellPos.z - 1), - Vector3int16.new(cellPos.x + 1, cellPos.y + 1, cellPos.z + 1) + Vector3int16.new cellPos.x + 1, cellPos.y + 1, cellPos.z + 1 ) ) @@ -1978,12 +1984,10 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, getPlayer = -> - if game\FindFirstChild "Players" - if game.Players["LocalPlayer"] - return game.Players.LocalPlayer - - - return nil + if game\FindFirstChild"Players" and + game.Players["LocalPlayer"] + + return game.Players.LocalPlayer -- Post process: after positioning the part or model, restore transparency, material, anchored and collide states and create joints @@ -1992,10 +1996,10 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- Tyler's magical hack-code for allowing/preserving clones of both Surface and Manual Welds... just don't ask X< manualWeldTable = {} manualWeldParentTable = {} - saveTheWelds(stampData.CurrentParts, manualWeldTable, manualWeldParentTable) + saveTheWelds stampData.CurrentParts, manualWeldTable, manualWeldParentTable stampData.CurrentParts\BreakJoints! stampData.CurrentParts\MakeJoints! - restoreTheWelds(manualWeldTable, manualWeldParentTable) + restoreTheWelds manualWeldTable, manualWeldParentTable -- if it's a model, we also want to fill in the playerID and playerName tags, if it has those (e.g. for the friend-only door) @@ -2017,22 +2021,19 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- ...and tag all inserted models for subsequent origin identification -- if no RobloxModel tag already exists, then add it. if not stampData.CurrentParts\FindFirstChild"RobloxModel"? - stringTag = Instance.new "BoolValue" - stringTag.Name = "RobloxModel" - stringTag.Parent = stampData.CurrentParts + New "BoolValue", "RobloxModel" + Parent: stampData.CurrentParts if not stampData.CurrentParts\FindFirstChild"RobloxStamper"? - stringTag2 = Instance.new "BoolValue" - stringTag2.Name = "RobloxStamper" - stringTag2.Parent = stampData.CurrentParts + New "BoolValue", "RobloxStamper" + Parent: stampData.CurrentParts else stampData.CurrentParts\BreakJoints! if not stampData.CurrentParts\FindFirstChild"RobloxStamper"? - stringTag2 = Instance.new "BoolValue" - stringTag2.Name = "RobloxStamper" - stringTag2.Parent = stampData.CurrentParts + New "BoolValue", "RobloxStamper" + Parent: stampData.CurrentParts -- make sure all the joints are activated before restoring anchor states @@ -2061,7 +2062,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, for part, surfaces in pairs stampData.SurfaceTypeTable - loadSurfaceTypes(part, surfaces) + loadSurfaceTypes part, surfaces if isMegaClusterPart! @@ -2069,21 +2070,21 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, -- re-enable all seats - setSeatEnabledStatus(stampData.CurrentParts, true) + setSeatEnabledStatus stampData.CurrentParts, true - stampData.TransparencyTable = nil - stampData.ArchivableTable = nil - stampData.MaterialTable = nil - stampData.CanCollideTable = nil - stampData.AnchoredTable = nil - stampData.SurfaceTypeTable = nil + with stampData + .TransparencyTable = nil + .ArchivableTable = nil + .MaterialTable = nil + .CanCollideTable = nil + .AnchoredTable = nil + .SurfaceTypeTable = nil -- ...and tag all inserted models for subsequent origin identification -- if no RobloxModel tag already exists, then add it. if not stampData.CurrentParts\FindFirstChild"RobloxModel"? - stringTag = Instance.new "BoolValue" - stringTag.Name = "RobloxModel" - stringTag.Parent = stampData.CurrentParts + New "BoolValue", "RobloxModel" + Parent: stampData.CurrentParts -- and make sure we don't delete it, now that it's not a ghost part @@ -2141,7 +2142,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, isPositive *= -1 whichSurface *= -1 - surfaceNormal = isPositive * modelCFrame\vectorToWorldSpace(AXIS_VECTORS[whichSurface]) + surfaceNormal = isPositive * modelCFrame\vectorToWorldSpace AXIS_VECTORS[whichSurface] for i = 1, #parts currPart = parts[i] @@ -2178,9 +2179,7 @@ t.SetupStamperDragger = (modelToStamp, Mouse, StampInModel, AllowedStampRegion, resumeStamper = -> clone, parts = prepareModel modelToStamp - if not clone or not parts - return - + return if not clone or not parts -- if we have unjoinable faces, then we want to change those surfaces to be Unjoinable unjoinableTag = clone\FindFirstChild "UnjoinableFaces", true diff --git a/yue/89449093.yue b/yue/89449093.yue index 9429a96..94ae6bf 100644 --- a/yue/89449093.yue +++ b/yue/89449093.yue @@ -223,9 +223,9 @@ toggleBackpack = -> backpackButton.Visible = true loadoutBackground.Visible = true if frame\GetChildren![1]\IsA "ImageButton" - imgButton = frame\GetChildren![1] - imgButton.Active = true - imgButton.Draggable = false + with frame\GetChildren![1] + .Active = true + .Draggable = false activateBackpack = -> diff --git a/yue/97188756.yue b/yue/97188756.yue index a989ae0..fc08ca9 100644 --- a/yue/97188756.yue +++ b/yue/97188756.yue @@ -1021,10 +1021,10 @@ Chat.IsTouchDevice ==> -- Chat.ScrollQueue = (value) => -- for i = 1, #@MessageQueue -- if @MessageQueue[i] --- for _, label in pairs(@MessageQueue[i]) +-- for _, label in pairs @MessageQueue[i] -- next = @MessageQueue[i].Next -- previous = @MessageQueue[i].Previous --- if label and label\IsA('TextLabel') or label\IsA('TextButton') +-- if label and label\IsA('TextLabel') or label\IsA 'TextButton' -- if value > 0 and previous and previous['Message'] -- label.Position = previous['Message'].Position -- elseif value < 1 and next['Message'] @@ -1039,7 +1039,7 @@ Chat.UpdateQueue = (field, diff) => if label and type(label) ~= "table" and type(label) ~= "number" if label\IsA"TextLabel" or label\IsA "TextButton" if diff - label.Position = label.Position - UDim2.new(0, 0, diff, 0) + label.Position = label.Position - UDim2.new 0, 0, diff, 0 else if field == @MessageQueue[i] label.Position = UDim2.new( @@ -1148,17 +1148,17 @@ Chat.UpdateChat = (cPlayer, message) => heightField = mLabel.TextBounds.Y - mLabel.Size = UDim2.new(1, 0, heightField/@RenderFrame.AbsoluteSize.Y, 0) + mLabel.Size = UDim2.new 1, 0, heightField/@RenderFrame.AbsoluteSize.Y, 0 pLabel.Size = mLabel.Size diff = mLabel.Size.Y.Scale - prevYScale - Chat\UpdateQueue(@MessageQueue[i], diff) + Chat\UpdateQueue @MessageQueue[i], diff end ]] -- Chat.ApplyFilter = (str) => --- --[[for _, word in pair(@Filter_List) --- if string.find(str, word) +-- --[[for _, word in pair @Filter_List +-- if string.find str, word -- str\gsub word, '@#$^' -- ]] @@ -1232,12 +1232,10 @@ Chat.CreateMessage = (cPlayer, message) => else pLabel.TextColor3 = cPlayer.TeamColor.Color - local nString - - if not @CachedSpaceStrings_List[pName] - nString = Chat\ComputeSpaceString pLabel + nString = if not @CachedSpaceStrings_List[pName] + Chat\ComputeSpaceString pLabel else - nString = @CachedSpaceStrings_List[pName] + @CachedSpaceStrings_List[pName] mLabel = New "TextLabel", "#{pName} - message" -- Max is 3 lines @@ -1299,7 +1297,7 @@ Chat.FindButtonTree = (scButton, rootList) => list = rootList[button] elseif type(rootList[button]) == "table" list = Chat\FindButtonTree scButton, rootList[button] - return list + list Chat.ToggleSafeChatMenu = (scButton) => list = Chat\FindButtonTree scButton, @SafeChatTree @@ -1308,7 +1306,7 @@ Chat.ToggleSafeChatMenu = (scButton) => if button\IsA"TextButton" or button\IsA "ImageButton" button.Visible = not button.Visible return true - return false + false Chat.CreateSafeChatOptions = (list, rootButton) => text_List = {} @@ -1338,7 +1336,7 @@ Chat.CreateSafeChatOptions = (list, rootButton) => if type(list[msg]) == "table" text_List[rootButton][chatText] = Chat\CreateSafeChatOptions list[msg], chatText -- else - -- --table.insert(text_List[chatText], true) + -- --table.insert text_List[chatText], true chatText.MouseEnter\connect -> Chat\ToggleSafeChatMenu chatText @@ -1351,7 +1349,7 @@ Chat.CreateSafeChatOptions = (list, rootButton) => -- for i, v in pairs lList try PlayersService\Chat lList[1] - return text_List + text_List Chat.CreateSafeChatGui ==> @SafeChatFrame = New "Frame", "SafeChatFrame" @@ -1455,7 +1453,7 @@ Chat.CreateChatBar ==> ClearTextOnFocus: false -- Engine has code to offset the entire world, so if we do it by -20 pixels nothing gets in our chat's way - --GuiService\SetGlobalSizeOffsetPixel(0, -20) + --GuiService\SetGlobalSizeOffsetPixel 0, -20 success, error = try GuiService\SetGlobalGuiInset 0, 0, 0, 20 if not success @@ -1600,7 +1598,7 @@ Chat.FindMessageInSafeChat = (message, list) => -- Just a wrapper around our PlayerChatted event Chat.PlayerChatted = (...) => args = { ... } - -- argCount = select("#", ...) + -- argCount = select "#", ... local player, message -- This doesn't look very good, but what else to do? if args[2] @@ -1624,7 +1622,7 @@ Chat.PlayerChatted = (...) => Chat.CullThread ==> while true if #@MessageQueue > 0 - for _, field in pairs(@MessageQueue) + for _, field in pairs @MessageQueue if field["SpawnTime"] and field["Player"] and field["Message"] and diff --git a/yue/host.yue b/yue/host.yue index daf3ea9..d6ad1a3 100644 --- a/yue/host.yue +++ b/yue/host.yue @@ -29,10 +29,8 @@ getKillerOfHumanoidIfStillInGame = (humanoid) -> tag = humanoid\findFirstChild "creator" -- find player with name on tag - if tag - killer = tag.Value - if killer.Parent -- killer still in game - return killer + if tag and tag.Value.Parent -- killer still in game + return tag.Value -- send kill and death stats when a player dies @@ -82,7 +80,7 @@ try scriptContext.ScriptsDisabled = true --- game\SetPlaceID(nil, false) +-- game\SetPlaceID nil, false game\GetService"ChangeHistoryService"\SetEnabled false -- establish this peer as the Server @@ -99,7 +97,7 @@ if url? game\GetService"ContentProvider"\SetBaseUrl "#{url}/" -- try - -- game\GetService"Players"\SetChatFilterUrl(url .. "/Game/ChatFilter.ashx") + -- game\GetService"Players"\SetChatFilterUrl url .. "/Game/ChatFilter.ashx" -- game\GetService"BadgeService"\SetPlaceId placeId if access? @@ -134,7 +132,7 @@ try game\GetService"NetworkServer"\SetIsPlayerAuthenticationRequired true settings!.Diagnostics.LuaRamLimit = 0 ---settings!.Network\SetThroughputSensitivity(0.08, 0.01) +--settings!.Network\SetThroughputSensitivity 0.08, 0.01 --settings!.Network.SendRate = 35 --settings!.Network.PhysicsSend = 0 -- 1==RoundRobin