From b285e7e168c58063cfda18b764283902295aa05f Mon Sep 17 00:00:00 2001 From: Lewin Kelly Date: Thu, 20 Apr 2023 04:32:56 +0100 Subject: [PATCH] Improve formatting of some corescripts --- lua/152908679.lua | 2 +- lua/153556783.lua | 2 +- lua/46295863.lua | 6 +- lua/60595411.lua | 2 +- lua/97188756.lua | 8 +- processed/46295863.lua | 8 +- processed/60595411.lua | 290 +++++++++++++++++++++-------------------- processed/89449093.lua | 18 ++- processed/97188756.lua | 2 +- yue/45374389.lua | 4 +- yue/45374389.yue | 16 +-- 11 files changed, 179 insertions(+), 179 deletions(-) diff --git a/lua/152908679.lua b/lua/152908679.lua index f3f5b33..ee0d5a7 100644 --- a/lua/152908679.lua +++ b/lua/152908679.lua @@ -1,5 +1,5 @@ -- ContextActionTouch.lua --- Copyright ROBLOX 2014, created by Ben Tkacheff +-- 2014, created by Ben Tkacheff -- this script controls ui and firing of lua functions that are bound in ContextActionService for touch inputs -- Essentially a user can bind a lua function to a key code, input type (mousebutton1 etc.) and this diff --git a/lua/153556783.lua b/lua/153556783.lua index 77a9a33..61509bf 100644 --- a/lua/153556783.lua +++ b/lua/153556783.lua @@ -1,6 +1,6 @@ -- This is responsible for all touch controls we show (as of this writing, only on iOS) -- this includes character move thumbsticks, and buttons for jump, use of items, camera, etc. --- Written by Ben Tkacheff, Copyright Roblox 2013 +-- Written by Ben Tkacheff, 2013 -- obligatory stuff to make sure we don't access nil data while not Game do diff --git a/lua/46295863.lua b/lua/46295863.lua index b59b634..b2ca1f2 100644 --- a/lua/46295863.lua +++ b/lua/46295863.lua @@ -1746,7 +1746,7 @@ if LoadLibrary then local saveDialogMessageBox = RbxGui.CreateStyledMessageDialog( "Unsaved Changes", - "Save your changes to ROBLOX before leaving?", + "Save your changes to Mercury before leaving?", "Confirm", messageBoxButtons ) @@ -1777,7 +1777,7 @@ if LoadLibrary then local errorDialogMessageBox = RbxGui.CreateStyledMessageDialog( "Upload Failed", - "Sorry, we could not save your changes to ROBLOX.", + "Sorry, we could not save your changes to Mercury.", "Error", errorBoxButtons ) @@ -1795,7 +1795,7 @@ if LoadLibrary then local waitingLabel = Instance.new "TextLabel" waitingLabel.Name = "WaitingLabel" - waitingLabel.Text = "Saving to ROBLOX..." + waitingLabel.Text = "Saving to Mercury..." waitingLabel.Font = Enum.Font.ArialBold waitingLabel.FontSize = Enum.FontSize.Size18 waitingLabel.Position = UDim2.new(0.5, 25, 0.5, 0) diff --git a/lua/60595411.lua b/lua/60595411.lua index b242d6b..7c8fadd 100644 --- a/lua/60595411.lua +++ b/lua/60595411.lua @@ -10,7 +10,7 @@ local t = {} --JSON Encoder and Parser for Lua 5.1 -- ---Copyright 2007 Shaun Brown (http://www.chipmunkav.com) +--2007 Shaun Brown (http://www.chipmunkav.com) --All Rights Reserved. --Permission is hereby granted, free of charge, to any person diff --git a/lua/97188756.lua b/lua/97188756.lua index df3fa90..e3a4bad 100644 --- a/lua/97188756.lua +++ b/lua/97188756.lua @@ -1,8 +1,8 @@ --[[ //FileName: ChatScript.LUA //Written by: Sorcus - //Description: Code for lua side chat on ROBLOX. Supports Scrolling. - //NOTE: If you find any bugs or inaccuracies PM Sorcus on ROBLOX or @Canavus on Twitter + //Description: Code for lua side chat on Mercury. Supports Scrolling. + //NOTE: If you find any bugs or inaccuracies PM Sorcus on Roblox or @Canavus on Twitter ]] local forceChatGUI = false @@ -175,7 +175,7 @@ local Chat = { --[[ Admins_List = {'Sorcus', 'Shedletsky', 'Telamon', 'Tarabyte', 'StickMasterLuke', 'OnlyTwentyCharacters', 'FusRoblox', 'SolarCrane', 'HotThoth', 'JediTkacheff', 'Builderman', 'Brighteyes', 'ReeseMcblox', 'GemLocker', 'GongfuTiger', 'Erik.Cassel', 'Matt Dusek', 'Keith', - 'Totbl', 'LordRugDump', 'David.Baszucki', 'Dbapostle', 'DaveYorkRBX', 'nJay', 'OstrichSized', 'TobotRobot', 'twberg', 'ROBLOX', 'RBAdam', 'Doughtless', + 'Totbl', 'LordRugDump', 'David.Baszucki', 'Dbapostle', 'DaveYorkRBX', 'nJay', 'OstrichSized', 'TobotRobot', 'twberg', 'Mercury', 'RBAdam', 'Doughtless', 'Anaminus', 'Stravant', 'Cr3470r', 'CodeWriter', 'Games', 'AcesWayUpHigh', 'Phil' }, --]] Admins_List = { "taskmanager", "Heliodex", "tako" }, @@ -241,7 +241,7 @@ local Chat = { ["Merry Christmas!"] = true, ["Happy May Day!"] = true, ["Happy Towel Day!"] = true, - ["Happy ROBLOX Day!"] = true, + ["Happy Mercury Day!"] = true, ["Happy LOL Day!"] = true, }, diff --git a/processed/46295863.lua b/processed/46295863.lua index 0976c58..211f065 100644 --- a/processed/46295863.lua +++ b/processed/46295863.lua @@ -424,17 +424,17 @@ local u,v,w,x,y,z=nil,nil,nil,nil,nil,{}z[1]={}z[1].Text='Save'z[1].Style=Enum. ButtonStyle.RobloxButtonDefault z[1].Function=function()v()end z[2]={}z[2].Text= 'Cancel'z[2].Function=function()y()end z[3]={}z[3].Text="Don't Save"z[3]. Function=function()x()end local A=RbxGui.CreateStyledMessageDialog( -'Unsaved Changes','Save your changes to ROBLOX before leaving?','Confirm',z)A. +'Unsaved Changes','Save your changes to Mercury before leaving?','Confirm',z)A. Visible=true A.Parent=t local B,C={},1 if game.LocalSaveEnabled then B[C]={}B[C] .Text='Save to Disk'B[C].Function=function()w()end C=C+1 end B[C]={}B[C].Text= 'Keep Playing'B[C].Function=function()y()end B[C+1]={}B[C+1].Text="Don't Save"B[ C+1].Function=function()x()end local D=RbxGui.CreateStyledMessageDialog( -'Upload Failed','Sorry, we could not save your changes to ROBLOX.','Error',B)D. +'Upload Failed','Sorry, we could not save your changes to Mercury.','Error',B)D. Visible=false D.Parent=t local E=Instance.new'Frame'E.Name='SpinnerDialog'E. Style=Enum.FrameStyle.RobloxRound E.Size=UDim2.new(0,350,0,150)E.Position=UDim2. new(0.5,-175,0.5,-75)E.Visible=false E.Active=true E.Parent=t local F=Instance. -new'TextLabel'F.Name='WaitingLabel'F.Text='Saving to ROBLOX...'F.Font=Enum.Font. -ArialBold F.FontSize=Enum.FontSize.Size18 F.Position=UDim2.new(0.5,25,0.5,0)F. +new'TextLabel'F.Name='WaitingLabel'F.Text='Saving to Mercury...'F.Font=Enum.Font +.ArialBold F.FontSize=Enum.FontSize.Size18 F.Position=UDim2.new(0.5,25,0.5,0)F. TextColor3=Color3.new(1,1,1)F.Parent=E local G=Instance.new'Frame'G.Name= 'Spinner'G.Size=UDim2.new(0,80,0,80)G.Position=UDim2.new(0.5,-150,0.5,-40)G. BackgroundTransparency=1 G.Parent=E local H,I={},1 while I<=8 do local J= diff --git a/processed/60595411.lua b/processed/60595411.lua index 043d6f2..47a45ea 100644 --- a/processed/60595411.lua +++ b/processed/60595411.lua @@ -1,159 +1,163 @@ -local a,b,c,d,e,f,g,h,i,j,k,l,m={},string,math,table,error,tonumber,tostring, -type,setmetatable,pairs,ipairs,assert,{buffer={}}function m:New()local n={}i(n, -self)self.__index=self n.buffer={}return n end function m:Append(n)self.buffer[# -self.buffer+1]=n end function m:ToString()return d.concat(self.buffer)end local -n={backslashes={['\b']='\\b',['\t']='\\t',['\n']='\\n',['\f']='\\f',['\r']='\\r' -,['"']='\\"',['\\']='\\\\',['/']='\\/'}}function n:New()local o={}o.writer=m: -New()i(o,self)self.__index=self return o end function n:Append(o)self.writer: -Append(o)end function n:ToString()return self.writer:ToString()end function n: -Write(o)local p=h(o)if p=='nil'then self:WriteNil()elseif p=='boolean'or p== -'number'then self:WriteString(o)elseif p=='string'then self:ParseString(o)elseif -p=='table'then self:WriteTable(o)elseif p=='function'then self:WriteFunction(o) -elseif p=='thread'or p=='userdata'then self:WriteError(o)end end function n: -WriteNil()self:Append'null'end function n:WriteString(o)self:Append(g(o))end -function n:ParseString(o)self:Append'"'self:Append(b.gsub(o,'[%z%c\\"/]', -function(p)local q=self.backslashes[p]if q then return q end return b.format( -'\\u%.4X',b.byte(p))end))self:Append'"'end function n:IsArray(o)local p,q=0, -function(p)if h(p)=='number'and p>0 then if c.floor(p)==p then return true end -end return false end for r,s in j(o)do if not q(r)then return false,'{','}'else -p=c.max(p,r)end end return true,'[',']',p end function n:WriteTable(o)local p,q, -r,s=self:IsArray(o)self:Append(q)if p then for t=1,s do self:Write(o[t])if t0 then if +math.floor(f)==f then return true end end return false end for h,i in pairs(e)do +if not g(h)then return false,'{','}'else f=math.max(f,h)end end return true,'[', +']',f end function d:WriteTable(e)local f,g,h,i=self:IsArray(e)self:Append(g)if +f then for j=1,i do self:Write(e[j])if j0 then J=F[1]['part']K=F[1]['box']d.remove(F,1)K.Visible=true else J=G: -Clone()J.Archivable=false K=H:Clone()K.Archivable=false K.Adornee=J K.Parent=z K -.Adornee=J K.Parent=z end if I then K.Color=I end return J,K end function -cleanUpAdornments()for I,J in j(E)do if J.KeepAlive~=B then J.SelectionBox. -Visible=false d.insert(F,{part=J.SelectionPart,box=J.SelectionBox})E[I]=nil end -end end function incrementAliveCounter()C=C+1 if C>1000000 then C=0 end return C -end function adornFullCellsInRegion(I,J)local K,L=I.CFrame.p-(I.Size/2)+Vector3. -new(2,2,2),I.CFrame.p+(I.Size/2)-Vector3.new(2,2,2)local M,N=w(u,K),w(u,L)B= -incrementAliveCounter()for O=M.y,N.y do for P=M.z,N.z do for Q=M.x,N.x do local -R=v(u,Q,O,P)if R~=y then local S,T,U=x(u,Q,O,P),Vector3int16.new(Q,O,P),false -for V,W in j(E)do if V==T then W.KeepAlive=B if J then W.SelectionBox.Color=J -end U=true break end end if not U then local X,Y=createAdornment(J)X.Size= -Vector3.new(4,4,4)X.CFrame=CFrame.new(S)local Z={SelectionPart=X,SelectionBox=Y, -KeepAlive=B}E[T]=Z end end end end end cleanUpAdornments()end D=q if s then -local I,J=createAdornment(r)I.Size=q.Size I.CFrame=q.CFrame E.SelectionPart=I E. -SelectionBox=J A=function(K,L)if K and K~=D then D=K I.Size=K.Size I.CFrame=K. -CFrame end if L then J.Color=L end end else adornFullCellsInRegion(q,r)A= -function(I,J)if I and I~=D then D=I adornFullCellsInRegion(I,J)end end end local -I=function()A=nil if z then z:Destroy()end E=nil end return A,I end function a. -CreateSignal()local q,r,s={},Instance.new'BindableEvent',{}function q:connect(t) -if self~=q then e('connect must be called with `:`, not `.`',2)end if h(t)~= -'function'then e('Argument #1 of connect must be a function, got a '..h(t),2)end -local u=r.Event:connect(t)s[u]=true local v={}function v:disconnect()u: -disconnect()s[u]=nil end v.Disconnect=v.disconnect return v end function q: -disconnect()if self~=q then e('disconnect must be called with `:`, not `.`',2) -end for t,u in j(s)do t:disconnect()s[t]=nil end end function q:wait()if self~=q -then e('wait must be called with `:`, not `.`',2)end return r.Event:wait()end -function q:fire(...)if self~=q then e('fire must be called with `:`, not `.`',2) -end r:Fire(...)end q.Connect=q.connect q.Disconnect=q.disconnect q.Wait=q.wait q -.Fire=q.fire return q end local function Create_PrivImpl(q)if h(q)~='string'then -e('Argument of Create must be a string',2)end return function(r)r=r or{}local s, -t,u=Instance.new(q),nil,nil for v,w in j(r)do if h(v)=='string'then if v== -'Parent'then t=w else s[v]=w end elseif h(v)=='number'then if h(w)~='userdata' -then e( +end)return Encode(g)end a.MakeWedge=function(g,h,i,j)return game:GetService +'Terrain':AutoWedgeCell(g,h,i)end a.SelectTerrainRegion=function(g,h,i,j)local k +=game.Workspace:FindFirstChild'Terrain'if not k then return end b(g)b(h)if not +type(g)=='Region3'then error( +[[regionToSelect (first arg), should be of type Region3, but is type]],type(g)) +end if not type(h)=='BrickColor'then error( +[[color (second arg), should be of type BrickColor, but is type]],type(h))end +local l,m,n,o,p=k.GetCell,k.WorldToCellPreferSolid,k.CellCenterToWorld,Enum. +CellMaterial.Empty,Instance.new'Model'p.Name='SelectionContainer'p.Archivable= +false if j then p.Parent=j else p.Parent=game.Workspace end local q,r,s,t,u,v,w= +nil,nil,0,nil,{},{},Instance.new'Part'w.Name='SelectionPart'w.Transparency=1 w. +Anchored=true w.Locked=true w.CanCollide=false w.Size=Vector3.new(4.2,4.2,4.2) +local x=Instance.new'SelectionBox'function createAdornment(y)local z,A=nil,nil +if#v>0 then z=v[1]['part']A=v[1]['box']table.remove(v,1)A.Visible=true else z=w: +Clone()z.Archivable=false A=x:Clone()A.Archivable=false A.Adornee=z A.Parent=p A +.Adornee=z A.Parent=p end if y then A.Color=y end return z,A end function +cleanUpAdornments()for y,z in pairs(u)do if z.KeepAlive~=r then z.SelectionBox. +Visible=false table.insert(v,{part=z.SelectionPart,box=z.SelectionBox})u[y]=nil +end end end function incrementAliveCounter()s=s+1 if s>1000000 then s=0 end +return s end function adornFullCellsInRegion(y,z)local A,B=y.CFrame.p-(y.Size/2) ++Vector3.new(2,2,2),y.CFrame.p+(y.Size/2)-Vector3.new(2,2,2)local C,D=m(k,A),m(k +,B)r=incrementAliveCounter()for E=C.y,D.y do for F=C.z,D.z do for G=C.x,D.x do +local H=l(k,G,E,F)if H~=o then local I,J,K=n(k,G,E,F),Vector3int16.new(G,E,F), +false for L,M in pairs(u)do if L==J then M.KeepAlive=r if z then M.SelectionBox. +Color=z end K=true break end end if not K then local N,O=createAdornment(z)N. +Size=Vector3.new(4,4,4)N.CFrame=CFrame.new(I)local P={SelectionPart=N, +SelectionBox=O,KeepAlive=r}u[J]=P end end end end end cleanUpAdornments()end t=g +if i then local y,z=createAdornment(h)y.Size=g.Size y.CFrame=g.CFrame u. +SelectionPart=y u.SelectionBox=z q=function(A,B)if A and A~=t then t=A y.Size=A. +Size y.CFrame=A.CFrame end if B then z.Color=B end end else +adornFullCellsInRegion(g,h)q=function(y,z)if y and y~=t then t=y +adornFullCellsInRegion(y,z)end end end local y=function()q=nil if p then p: +Destroy()end u=nil end return q,y end function a.CreateSignal()local g,h,i={}, +Instance.new'BindableEvent',{}function g:connect(j)if self~=g then error( +'connect must be called with `:`, not `.`',2)end if type(j)~='function'then +error('Argument #1 of connect must be a function, got a '..type(j),2)end local k +=h.Event:connect(j)i[k]=true local l={}function l:disconnect()k:disconnect()i[k] +=nil end l.Disconnect=l.disconnect return l end function g:disconnect()if self~= +g then error('disconnect must be called with `:`, not `.`',2)end for j,k in +pairs(i)do j:disconnect()i[j]=nil end end function g:wait()if self~=g then +error('wait must be called with `:`, not `.`',2)end return h.Event:wait()end +function g:fire(...)if self~=g then error( +'fire must be called with `:`, not `.`',2)end h:Fire(...)end g.Connect=g.connect +g.Disconnect=g.disconnect g.Wait=g.wait g.Fire=g.fire return g end +local function Create_PrivImpl(g)if type(g)~='string'then error( +'Argument of Create must be a string',2)end return function(h)h=h or{}local i,j, +k=Instance.new(g),nil,nil for l,m in pairs(h)do if type(l)=='string'then if l== +'Parent'then j=m else i[l]=m end elseif type(l)=='number'then if type(m)~= +'userdata'then error( [[Bad entry in Create body: Numeric keys must be paired with children, got a: ]] -..h(w),2)end w.Parent=s elseif h(v)=='table'and v.__eventname then if h(w)~= -'function'then e("Bad entry in Create body: Key `[Create.E'"..v.__eventname.. -"']` must have a function value, got: "..g(w),2)end s[v.__eventname]:connect(w) -elseif v==a.Create then if h(w)~='function'then e( +..type(m),2)end m.Parent=i elseif type(l)=='table'and l.__eventname then if +type(m)~='function'then error("Bad entry in Create body: Key `[Create.E'"..l. +__eventname.."']` must have a function value, got: "..tostring(m),2)end i[l. +__eventname]:connect(m)elseif l==a.Create then if type(m)~='function'then error( [[Bad entry in Create body: Key `[Create]` should be paired with a constructor function, got: ]] -..g(w),2)elseif u then e( -[[Bad entry in Create body: Only one constructor function is allowed]],2)end u=w -else e('Bad entry ('..g(v)..' => '..g(w)..') in Create body',2)end end if u then -u(s)end if t then s.Parent=t end return s end end a.Create=i({},{__call=function -(q,...)return Create_PrivImpl(...)end})a.Create.E=function(q)return{__eventname= -q}end a.Help=function(q)if q=='DecodeJSON'or q==a.DecodeJSON then return +..tostring(m),2)elseif k then error( +[[Bad entry in Create body: Only one constructor function is allowed]],2)end k=m +else error('Bad entry ('..tostring(l)..' => '..tostring(m)..') in Create body',2 +)end end if k then k(i)end if j then i.Parent=j end return i end end a.Create= +setmetatable({},{__call=function(g,...)return Create_PrivImpl(...)end})a.Create. +E=function(g)return{__eventname=g}end a.Help=function(g)if g=='DecodeJSON'or g== +a.DecodeJSON then return [[Function DecodeJSON. Arguments: (string). Side effect: returns a table with all parsed JSON values]] -end if q=='EncodeJSON'or q==a.EncodeJSON then return +end if g=='EncodeJSON'or g==a.EncodeJSON then return [[Function EncodeJSON. Arguments: (table). Side effect: returns a string composed of argument table in JSON data format]] -end if q=='MakeWedge'or q==a.MakeWedge then return +end if g=='MakeWedge'or g==a.MakeWedge then return [[Function MakeWedge. Arguments: (x, y, z, [default material]). Description: Makes a wedge at location x, y, z. Sets cell x, y, z to default material if parameter is provided, if not sets cell x, y, z to be whatever material it previously was. Returns true if made a wedge, false if the cell remains a block ]] -end if q=='SelectTerrainRegion'or q==a.SelectTerrainRegion then return +end if g=='SelectTerrainRegion'or g==a.SelectTerrainRegion then return [[Function SelectTerrainRegion. Arguments: (regionToSelect, color, selectEmptyCells, selectionParent). Description: Selects all terrain via a series of selection boxes within the regionToSelect (this should be a region3 value). The selection box color is detemined by the color argument (should be a brickcolor value). SelectionParent is the parent that the selection model gets placed to (optional).SelectEmptyCells is bool, when true will select all cells in the region, otherwise we only select non-empty cells. Returns a function that can update the selection,arguments to said function are a new region3 to select, and the adornment color (color arg is optional). Also returns a second function that takes no arguments and destroys the selection]] -end if q=='CreateSignal'or q==a.CreateSignal then return +end if g=='CreateSignal'or g==a.CreateSignal then return [[Function CreateSignal. Arguments: None. Returns: The newly created Signal object. This object is identical to the RBXScriptSignal class used for events in Objects, but is a Lua-side object so it can be used to create custom events inLua code. Methods of the Signal object: :connect, :wait, :fire, :disconnect. For more info you can pass the method name to the Help function, or view the wiki page for this library. EG: Help('Signal:connect').]] -end if q=='Signal:connect'then return +end if g=='Signal:connect'then return [[Method Signal:connect. Arguments: (function handler). Return: A connection object which can be used to disconnect the connection to this handler. Description: Connectes a handler function to this Signal, so that when |fire| is called the handler function will be called with the arguments passed to |fire|.]] -end if q=='Signal:wait'then return +end if g=='Signal:wait'then return [[Method Signal:wait. Arguments: None. Returns: The arguments passed to the next call to |fire|. Description: This call does not return until the next call to |fire| is made, at which point it will return the values which were passed as arguments to that |fire| call.]] -end if q=='Signal:fire'then return +end if g=='Signal:fire'then return [[Method Signal:fire. Arguments: Any number of arguments of any type. Returns: None. Description: This call will invoke any connected handler functions, and notify any waiting code attached to this Signal to continue, with the arguments passed to this function. Note: The calls to handlers are made asynchronously, so this call will return immediately regardless of how long it takes the connected handler functions to complete.]] -end if q=='Signal:disconnect'then return +end if g=='Signal:disconnect'then return [[Method Signal:disconnect. Arguments: None. Returns: None. Description: This call disconnects all handlers attacched to this function, note however, it does NOT make waiting code continue, as is the behavior of normal Roblox events. This method can also be called on the connection object which is returned from Signal:connect to only disconnect a single handler, as opposed to this method, which will disconnect all handlers.]] -end if q=='Create'then return +end if g=='Create'then return [[Function Create. Arguments: A table containing information about how to construct a collection of objects. Returns: The constructed objects. Descrition: Create is a very powerfull function, whose description is too long to fit here, and is best described via example, please see the wiki page for a description of how to use it.]] end end return a \ No newline at end of file diff --git a/processed/89449093.lua b/processed/89449093.lua index ccd8849..cd9ad76 100644 --- a/processed/89449093.lua +++ b/processed/89449093.lua @@ -68,16 +68,14 @@ IsA'TextButton')if F.Selected then return end F.BackgroundColor3=Color3.new( 0.15294117647058825,0.15294117647058825,0.15294117647058825)end function newTabClicked(F)assert(F)F=string.lower(F)g=F updateTabGui(F)C:Fire(F) resetSearch()end function trim(F)return(F:gsub('^%s*(.-)%s*$','%1'))end function -splitByWhitespace(F)if type(F)~='string'then return nil end local G={}for H in -string.gmatch(F,'[^%s]+')do if string.len(H)>0 then table.insert(G,H)end end -return G end function resetSearchBoxGui()k.Visible=false i.Text=v end function -doSearch()local F=i.Text if F==''then resetSearch()return end F=trim(F)k.Visible -=true D:Fire(F)end function resetSearch()resetSearchBoxGui()D:Fire()end local F= -function()p=true end function coreGuiChanged(G,H)if G==Enum.CoreGuiType.Backpack -or G==Enum.CoreGuiType.All then r=H s=not H if s then pcall(function()game: -GetService'GuiService':RemoveKey(w)game:GetService'GuiService':RemoveKey(x)end) -else game:GetService'GuiService':AddKey(w)game:GetService'GuiService':AddKey(x) -end resetSearch()h.Visible=H and q m.Visible=H a.Visible=H f.Visible=H end end +resetSearchBoxGui()k.Visible=false i.Text=v end function doSearch()local F=i. +Text if F==''then resetSearch()return end F=trim(F)k.Visible=true D:Fire(F)end +function resetSearch()resetSearchBoxGui()D:Fire()end local F=function()p=true +end function coreGuiChanged(G,H)if G==Enum.CoreGuiType.Backpack or G==Enum. +CoreGuiType.All then r=H s=not H if s then pcall(function()game:GetService +'GuiService':RemoveKey(w)game:GetService'GuiService':RemoveKey(x)end)else game: +GetService'GuiService':AddKey(w)game:GetService'GuiService':AddKey(x)end +resetSearch()h.Visible=H and q m.Visible=H a.Visible=H f.Visible=H end end createPublicFunction('CloseBackpack',E)createPublicFunction('BackpackReady',F) pcall(function()coreGuiChanged(Enum.CoreGuiType.Backpack,Game.StarterGui: GetCoreGuiEnabled(Enum.CoreGuiType.Backpack))Game.StarterGui. diff --git a/processed/97188756.lua b/processed/97188756.lua index 4e2a850..63a0d97 100644 --- a/processed/97188756.lua +++ b/processed/97188756.lua @@ -45,7 +45,7 @@ Admins_List={'taskmanager','Heliodex','tako'},SafeChat_List={[ 'Happy Easter!']=true,['Happy Earth Day!']=true,['Happy 4th of July!']=true,[ 'Happy Thanksgiving!']=true,['Happy Halloween!']=true,['Happy Hanukkah!']=true,[ 'Merry Christmas!']=true,['Happy May Day!']=true,['Happy Towel Day!']=true,[ -'Happy ROBLOX Day!']=true,['Happy LOL Day!']=true},[1]='/sc 2'},['Goodbye']={[ +'Happy Mercury Day!']=true,['Happy LOL Day!']=true},[1]='/sc 2'},['Goodbye']={[ 'Good Night']={'/sc 3_0',true,['Sweet dreams']=true,['Go to sleep!']=true,[ 'Lights out!']=true,['Bedtime']=true,['Going to bed now']=true},['Later']={ '/sc 3_1',true,['See ya later']=true,['Later gator!']=true,['See you tomorrow']= diff --git a/yue/45374389.lua b/yue/45374389.lua index f0f0941..79c36ab 100644 --- a/yue/45374389.lua +++ b/yue/45374389.lua @@ -6,9 +6,9 @@ t.Bar = function() return print("bar") end t.Help = function(funcNameOrFunc) - if funcNameOrFunc == "Foo" or funcNameOrFunc == t.Foo then + if "Foo" == funcNameOrFunc or t.Foo == funcNameOrFunc then return "Function Foo. Arguments: None. Side effect: prints foo" - elseif funcNameOrFunc == "Bar" or funcNameOrFunc == t.Bar then + elseif "Bar" == funcNameOrFunc or t.Bar == funcNameOrFunc then return "Function Bar. Arguments: None. Side effect: prints bar" end end diff --git a/yue/45374389.yue b/yue/45374389.yue index 0caa56b..a86c498 100644 --- a/yue/45374389.yue +++ b/yue/45374389.yue @@ -1,16 +1,14 @@ t = {} -t.Foo = -> - print "foo" - -t.Bar = -> - print "bar" +t.Foo = -> print "foo" +t.Bar = -> print "bar" t.Help = (funcNameOrFunc) -> --input argument can be a string or a function. Should return a description (of arguments and expected side effects) - if funcNameOrFunc == "Foo" or funcNameOrFunc == t.Foo - return "Function Foo. Arguments: None. Side effect: prints foo" - elseif funcNameOrFunc == "Bar" or funcNameOrFunc == t.Bar - return "Function Bar. Arguments: None. Side effect: prints bar" + switch funcNameOrFunc + when "Foo", t.Foo + "Function Foo. Arguments: None. Side effect: prints foo" + when "Bar", t.Bar + "Function Bar. Arguments: None. Side effect: prints bar" t