Advertisement
Martinman117

WL3SG

Aug 19th, 2022
672
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 7.84 KB | None | 0 0
  1. local CheckIfGui = function()
  2.     if game.Players.LocalPlayer.PlayerGui:FindFirstChild("Nemo") then
  3.         return true
  4.     else
  5.         return false
  6.     end
  7. end
  8. if not CheckIfGui() then
  9.     game:GetObjects("rbxassetid://7567340663")[1].Parent = game.Players.LocalPlayer.PlayerGui
  10.     local gui = game.Players.LocalPlayer.PlayerGui:FindFirstChild("ScreenGui")
  11.     gui.Name = "Nemo"
  12. end
  13. local ScreenGui = game.Players.LocalPlayer.PlayerGui:FindFirstChild("Nemo")
  14.  
  15. local ColorCodes = {
  16.     White = {R = 255, G = 255, B = 255};
  17.     Black = {R = 0, G = 0, B = 0};
  18.     Grey = {R = 128, G = 128, B = 128};
  19.     Red = {R = 255, G = 0, B = 0};
  20.     Brown = {R = 77, G = 38, B = 0};
  21.     Green = {R = 0,G = 255,B = 0};
  22.     Blue = {R = 0, G = 0, B = 255};
  23.     Purple = {R = 128, G = 0, B = 128};
  24.     Pink = {R = 255, G = 0, B = 239}
  25.  
  26. }
  27. local ColorNames = {
  28.     "White",
  29.     "Black",
  30.     "Grey",
  31.     "Red",
  32.     "Brown",
  33.     "Green",
  34.     "Blue",
  35.     "Purple",
  36.     "Pink"
  37. }
  38. local Materials = {
  39.     Plastic = {Name = "Plastic",BasePart = true,Terrain = false};
  40.     Wood = {Name = "Wood",BasePart = true,Terrain = false};
  41.     Slate = {Name = "Slate",BasePart = true,Terrain = true};
  42.     Concrete = {Name = "Concrete",BasePart = true,Terrain = true};
  43.     CorrodedMetal = {Name = "CorrodedMetal",BasePart = true,Terrain = false};
  44.     DiamondPlate = {Name = "DiamondPlate",BasePart = true,Terrain = false};
  45.     Foil = {Name = "Foil",BasePart = true, Terrain = false};
  46.     Grass = {Name = "Grass",BasePart = true,Terrain = true};
  47.     Ice = {Name = "Ice",BasePart = true,Terrain = true};
  48.     Marble = {Name = "Marble",BasePart = true,Terrain = false};
  49.     Granite = {Name = "Granite",BasePart = true,Terrain = true};
  50.     Brick = {Name = "Brick",BasePart = true,Terrain = true};
  51.     Pebble = {Name = "Pebble",BasePart = true,Terrain = true};
  52.     Sand = {Name = "Sand",BasePart = true,Terrain = true};
  53.     Fabric = {Name = "Fabric",BasePart = true,Terrain = false};
  54.     SmoothPlastic = {Name = "SmoothPlastic",BasePart = true,Terrain = false};
  55.     Metal = {Name = "Metal",BasePart = true,Terrain = false};
  56.     WoodPlanks = {Name = "WoodPlanks",BasePart = true,Terrain = true};
  57.     CobbleStone = {Name = "CobbleStone",BasePart = true,Terrain = true};
  58.     Air = {Name = "Ait",BasePart = false,Terrain = true};
  59.     Water = {Name = "Water",BasePart = false,Terrain = true};
  60.     Rock = {Name = "Rocl",BasePart = false,Terrain = true};
  61.     Glacier = {Name = "Glacier",BasePart = false,Terrain = true};
  62.     Snow = {Name = "Snow",BasePart = false,Terrain = true};
  63.     Sandstone = {Name = "Sandstone",BasePart = false,Terrain = true};
  64.     Mud = {Name = "Mud",BasePart = false,Terrain = true};
  65.     Basalt = {Name = "Basalt",BasePart = false,Terrain = true};
  66.     Ground = {Name = "Ground",BasePart = false,Terrain = true};
  67.     CrackedLava = {Name = "CrackedLava",BasePart = false,Terrain = true};
  68.     Neon = {Name = "Neon",BasePart = true,Terrain = false};
  69.     Glass = {Name = "Glass",BasePart = true,Terrain = false};
  70.     Asphalt = {Name = "Asphalt",BasePart = false,Terrain = true};
  71.     LeafyGrass = {Name = "LeafyGrass",BasePart = false,Terrain = true};
  72.     Salt = {Name = "Salt",BasePart = false,Terrain = true};
  73.     Limestone = {Name = "Limestone",BasePart = false,Terrain = true};
  74.     Pavement = {Name = "Pavement",BasePart = false,Terrain = true};
  75.     ForceField = {Name = "ForceField",BasePart = true,Terrain = false};
  76. }
  77. local MaterialNames = {
  78.     "Plastic",
  79.     "Wood",
  80.     "Slate",
  81.     "Concrete",
  82.     "CorrodedMetal",
  83.     "DiamondPlate",
  84.     "Foil",
  85.     "Grass",
  86.     "Ice",
  87.     "Marble",
  88.     "Granite",
  89.     "Brick",
  90.     "Pebble",
  91.     "Sand",
  92.     "Fabric",
  93.     "SmoothPlastic",
  94.     "Metal",
  95.     "WoodPlanks",
  96.     "CobbleStone",
  97.     "Neon",
  98.     "Glass",
  99.     "ForceField"
  100. }
  101. local BodyParts = {
  102.     "DragonPrimary",
  103.     "DragonSecondary",
  104.     "DragonThird",
  105.     "DragonClaws",
  106.     "OceanPrimary",
  107.     "OceanSecondary",
  108.     "OceanThird",
  109.     "EarFluff",
  110.     "ChestFluff",
  111.     "LegFluff",
  112.     "Secondary",
  113.     "BackFluff",
  114.     "TailFluff",
  115.     "LeftWingStart",
  116.     "LeftWing2",
  117.     "LeftWing3",
  118.     "RightWingStart",
  119.     "RightWing2",
  120.     "RightWing3",
  121.     "Torso",
  122.     "Tail1",
  123.     "Tail2",
  124.     "Tail3",
  125.     "Tail5",
  126.     "Tail6"
  127. }
  128. local Accessories = {
  129.     "TorsoF",
  130.     "HairF",
  131.     "PierciingsF",
  132.     "FeetF"
  133. }
  134.  
  135. local CCMetaTable = {
  136.     __index = function(table,index)
  137.         return {
  138.             R = 255;
  139.             G = 255;
  140.             B = 255;
  141.         }
  142.     end
  143. }setmetatable(ColorCodes,CCMetaTable)
  144. local MatMetaTable = {
  145.     __index = function(table,index)
  146.         return "Ice"
  147.     end
  148. }setmetatable(Materials,MatMetaTable)
  149.  
  150. local FindColor = function(colorName)
  151.     local Red = ColorCodes[colorName].R
  152.     local Green = ColorCodes[colorName].G
  153.     local Blue = ColorCodes[colorName].B
  154.  
  155.     return Red,Green,Blue
  156. end
  157.  
  158. local SetMaterial = function(Type,Material,Part)
  159.     game:GetService("ReplicatedStorage").MasterKey:FireServer(Type, Materials[Material].Name, {[1]=Part})
  160. end
  161. local Setcolor = function(Part,Color,Type2)
  162.     game:GetService("ReplicatedStorage").MasterKey:FireServer(Part, Color, Type2)
  163. end
  164.  
  165. local DeterminationRemotation = function(PartName)
  166.     if PartName ~= "TorsoF" or PartName ~= "HairF" or PartName ~= "PiercingsF" or PartName ~= "FeetF" then
  167.         return "Advanced"
  168.     end
  169. end
  170.  
  171. for i,v in pairs(BodyParts) do
  172.     local Button = ScreenGui.ASSETS.SelectionButton
  173.     local BC = Button:Clone()
  174.     BC.Name = v
  175.     BC.Text = v
  176.     BC.Parent = ScreenGui.UpperTab.Background.Parts
  177.     BC.Visible = true
  178.     BC.MouseButton1Down:Connect(function()
  179.         ScreenGui.UpperTab.Background.Settings.Part.Value = v  
  180.     end)
  181.     wait()
  182. end
  183.  
  184. for i,v in pairs(ColorNames) do
  185.     local Button = ScreenGui.UpperTab.Parent.ASSETS.ColorButton
  186.     local BC = Button:Clone()
  187.     BC.BackgroundColor3 = Color3.fromRGB(FindColor(v))
  188.     BC.Name = v
  189.     BC.Text = " "
  190.     BC.Parent = ScreenGui.UpperTab.Background.ColorFrame
  191.     BC.Visible = true
  192.     BC.MouseButton1Down:Connect(function()
  193.         ScreenGui.UpperTab.Background.Settings.Color.Value =
  194.         Setcolor(ScreenGui.UpperTab.Background.Settings.Part.Value,Color3.fromRGB(FindColor(v)),"Advanced")
  195.     end)
  196.     wait()
  197. end
  198. for i,v in pairs(MaterialNames) do
  199.     local Button = ScreenGui.UpperTab.Parent.ASSETS.SelectionButton
  200.     local BC = Button:Clone()
  201.     BC.Name = v
  202.     BC.Text = v
  203.     BC.Parent = ScreenGui.UpperTab.Background.Materials
  204.     BC.Visible = true
  205.     BC.MouseButton1Down:Connect(function()
  206.         ScreenGui.UpperTab.Background.Settings.Material.Value = v
  207.         Setcolor(ScreenGui.UpperTab.Background.Settings.Part.Value,ScreenGui.UpperTab.Background.Settings.Color.Value,"Advanced")
  208.         SetMaterial("Material",ScreenGui.UpperTab.Background.Settings.Material.Value,ScreenGui.UpperTab.Background.Settings.Part.Value)
  209.     end)
  210.     wait()
  211. end
  212.  
  213.  
  214. --
  215. local UIS = game:GetService("UserInputService")
  216. function dragify(Frame)
  217.     local dragToggle = nil
  218.     local dragSpeed = 0
  219.     local dragInput = nil
  220.     local dragStart = nil
  221.     local dragPos = nil
  222.     local startPos = nil
  223.  
  224.     local function updateInput(input)
  225.         local Delta = input.Position - dragStart
  226.         local Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + Delta.X, startPos.Y.Scale, startPos.Y.Offset + Delta.Y)
  227.         game:GetService("TweenService"):Create(Frame, TweenInfo.new(0.25), {Position = Position}):Play()
  228.     end
  229.     Frame.InputBegan:Connect(function(input)
  230.         if (input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch) and UIS:GetFocusedTextBox() == nil then
  231.             dragToggle = true
  232.             dragStart = input.Position
  233.             startPos = Frame.Position
  234.             input.Changed:Connect(function()
  235.                 if input.UserInputState == Enum.UserInputState.End then
  236.                     dragToggle = false
  237.                 end
  238.             end)
  239.         end
  240.     end)
  241.     Frame.InputChanged:Connect(function(input)
  242.         if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
  243.             dragInput = input
  244.         end
  245.     end)
  246.     game:GetService("UserInputService").InputChanged:Connect(function(input)
  247.         if input == dragInput and dragToggle then
  248.             updateInput(input)
  249.         end
  250.     end)
  251. end
  252. spawn(function()
  253.     dragify(ScreenGui.UpperTab)
  254. end)
  255. while wait() do
  256.     local a = ScreenGui.UpperTab.Background
  257.     a.Choices.Text = (a.Settings.Part.Value.." -> "..a.Settings.Color.Value.." -> "..a.Settings.Material.Value)
  258. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement