Advertisement
Martinman117

WL3S

Aug 19th, 2022
618
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 9.48 KB | None | 0 0
  1. --Settings;
  2. --What you're probably wanting;
  3. local Unlock_Everything = true --Unlocks every gamepass for free
  4. --Enable certain in-game features;
  5. local Unlock_VIW = true --Just puts the viw tag above the User's wolf
  6. local Unlock_VIW_Music = true --allows the User to play music without VIW
  7. local Unlock_VIW_Name_Color =  true --allows the User to change their name and description color without VIW
  8. local Unlock_PlayerCustomization_Gamepasses = true
  9. --Other Features;
  10. local ViewPlayersPoints = true --allows the User to view other wolves/players "paw coins" (and uses math to caculate the hours they put in to collect it, Example: D:0 H:1 M:55 < They spent rounded up to 1 hour or 55 minutes of game time to get 550 or so points (I think the math is a bit off tho tbh)(the numbers r rounded up))
  11. --Main Script  (don't mess with this unless you know what you're doing.)
  12. --Locals or wtv
  13. local LocalPlayer = game.Players.LocalPlayer
  14. local PlayerGui = LocalPlayer.PlayerGui
  15. local CoreGui = game.CoreGui
  16. --Local Functions
  17. local AddVIW = function()
  18.     local Key = ("\230\139\154\230\136\172i\235\156\146(\238\138\155\201\172XD")
  19.     game.ReplicatedStorage.MasterKey:FireServer("AddVIWTag", nil, Key)
  20. end
  21. local UnlockViwMusic = function()
  22.     local Main = game.Players.LocalPlayer.PlayerGui:WaitForChild("Pc")
  23.     Main.Radio:WaitForChild("VIWMusic").Visible = true
  24.     Main.Radio:WaitForChild("BuyVIWMusic").Visible = false
  25. end
  26. local UnlockNameColor = function()
  27.     local Main = game.Players.LocalPlayer.PlayerGui:WaitForChild("Pc")
  28.     local NameS = Main["NameS"]
  29.     local ColorScreen = Main["Colors"]
  30.  
  31.     local ColorsButton = NameS["Colors"]
  32.     ColorsButton:FindFirstChildOfClass("LocalScript"):Destroy()
  33.     ColorsButton.MouseButton1Click:connect(function()
  34.         if ColorsButton.Text == "Name Color" then
  35.             ColorScreen:TweenPosition(UDim2.new(0.3, 0, 0.75, 0), "InOut", "Quad", 1, true);
  36.             ColorsButton.Text = "Close";
  37.         else
  38.             if ColorsButton.Text then
  39.                 ColorScreen:TweenPosition(UDim2.new(0.3, 0, 1.2, 0), "InOut", "Quad", 1, true);
  40.                 ColorsButton.Text = "Name Color";
  41.             end
  42.         end
  43.     end)
  44. end
  45. local UnlockGamepasses = function()
  46.     local Dir = game.Players.LocalPlayer.PlayerGui["MorphGUI"]
  47.     local Gamepasses = Dir.Custom.Frame2.Gamepasses
  48.     Dir.Custom.Accessories.Coloring.Material.Neon.Robux.Text = "N3M0 R$"
  49.     if Gamepasses:FindFirstChild("LocalScript") then
  50.         Gamepasses.LocalScript:Destroy()
  51.     end
  52.  
  53.     local Des = Gamepasses:GetDescendants()
  54.     for i,v in pairs(Des) do
  55.         if v.ClassName == "ImageButton" then
  56.             v.Parent.Robux.Text = "N3M0 R$"
  57.             v.MouseButton1Down:Connect(function()
  58.                 local GamepassName = v.Parent.Name
  59.                 if v.SelectImg.Visible == true then
  60.                     v.SelectImg.Visible = not v.SelectImg.Visible
  61.                     game.ReplicatedStorage.MasterKey:FireServer(GamepassName, 1, "\230\139\154\230\136\172i\235\156\146(\238\138\155\201\172XD")
  62.                 else
  63.                     v.SelectImg.Visible = not v.SelectImg.Visible
  64.                     game.ReplicatedStorage.MasterKey:FireServer(GamepassName, 0, "\230\139\154\230\136\172i\235\156\146(\238\138\155\201\172XD")
  65.  
  66.                 end
  67.             end)
  68.         end
  69.     end
  70.     Dir.Custom.Opener:Destroy()
  71.     Dir.Custom:WaitForChild("Extra").MouseButton1Click:connect(function()
  72.         local l__LocalPlayer__1 = game.Players.LocalPlayer;
  73.         if Dir.Custom.Extra.Text == "Extra Colors"  then
  74.             Dir.Custom.AdvaOpen.Text = "Advanced";
  75.             Dir.Custom.Frame1.Normal.Visible = false;
  76.             Dir.Custom.Frame1.Extra.Visible = true;
  77.             Dir.Custom.Frame1.Advanced.Visible = false;
  78.             Dir.Custom.Frame1.AdvancedExtra.Visible = false;
  79.             Dir.Custom.Extra.Text = "Normal Colors";
  80.             return;
  81.         end;
  82.         if Dir.Custom.Extra.Text ~= "Normal Colors" then
  83.             local u1 = nil;
  84.             u1 = game:GetService("MarketplaceService").PromptPurchaseFinished:connect(function(p1, p2, p3)
  85.                 if p1 == l__LocalPlayer__1 then
  86.                     u1:Disconnect();
  87.                     if p2 == 1344824646 and p3 then
  88.                         Dir.Custom.AdvaOpen.Text = "Advanced";
  89.                         Dir.Custom.Frame1.Normal.Visible = false;
  90.                         Dir.Custom.Frame1.Extra.Visible = true;
  91.                         Dir.Custom.Frame1.Advanced.Visible = false;
  92.                         Dir.Custom.Frame1.AdvancedExtra.Visible = false;
  93.                         Dir.Custom.Extra.Text = "Normal Colors";
  94.                     end;
  95.                 end
  96.             end)
  97.             return;
  98.         end;
  99.         Dir.Custom.AdvaOpen.Text = "Advanced";
  100.         Dir.Custom.Frame1.Normal.Visible = true;
  101.         Dir.Custom.Frame1.Extra.Visible = false;
  102.         Dir.Custom.Frame1.Advanced.Visible = false;
  103.         Dir.Custom.Frame1.AdvancedExtra.Visible = false;
  104.         Dir.Custom.Extra.Text = "Extra Colors";
  105.     end);
  106.     Dir.Custom:WaitForChild("AdvaOpen").MouseButton1Click:connect(function()
  107.         if Dir.Custom.AdvaOpen.Text == "Advanced" then
  108.             if Dir.Custom.Frame1.Normal.Visible == true and Dir.Custom.Frame1.Extra.Visible == false then
  109.                 Dir.Custom.Frame1.Advanced.Visible = true;
  110.                 Dir.Custom.Frame1.Normal.Visible = false;
  111.             elseif Dir.Custom.Frame1.Extra.Visible == true then
  112.                 Dir.Custom.Frame1.AdvancedExtra.Visible = true;
  113.                 Dir.Custom.Frame1.Extra.Visible = false;
  114.             end;
  115.             Dir.Custom.AdvaOpen.Text = "Normal";
  116.             return;
  117.         end;
  118.         if Dir.Custom.Frame1.Normal.Visible == false and Dir.Custom.Frame1.AdvancedExtra.Visible == false then
  119.             Dir.Custom.Frame1.Advanced.Visible = false;
  120.             Dir.Custom.Frame1.Normal.Visible = true;
  121.         elseif Dir.Custom.Frame1.Extra.Visible == false then
  122.             Dir.Custom.Frame1.AdvancedExtra.Visible = false;
  123.             Dir.Custom.Frame1.Extra.Visible = true;
  124.         end;
  125.         Dir.Custom.AdvaOpen.Text = "Advanced";
  126.     end);
  127.     Dir.Custom:WaitForChild("AccOpen").MouseButton1Click:connect(function()
  128.         if Dir.Custom.AccOpen.Text == "Accessories" then
  129.             Dir.Custom.Accessories:TweenPosition(UDim2.new(0, 0, 0, 0), "InOut", "Quad", 1, true);
  130.             Dir.Custom.Frame1:TweenPosition(UDim2.new(0, 0, 1, 0), "InOut", "Quad", 1, true);
  131.             Dir.Custom.Frame2:TweenPosition(UDim2.new(0.775, 0, 1, 0), "InOut", "Quad", 1, true);
  132.             Dir.Custom.AccOpen.Text = "Coloring";
  133.             return;
  134.         end;
  135.         Dir.Custom.Accessories:TweenPosition(UDim2.new(0, 0, -1, 0), "InOut", "Quad", 1, true);
  136.         Dir.Custom.Frame1:TweenPosition(UDim2.new(0, 0, 0, 0), "InOut", "Quad", 1, true);
  137.         Dir.Custom.Frame2:TweenPosition(UDim2.new(0.775, 0, 0, 0), "InOut", "Quad", 1, true);
  138.         Dir.Custom.AccOpen.Text = "Accessories";
  139.     end);
  140. end
  141. local VPP = function()
  142.     local function RoundNumber(num)
  143.         return(math.floor(num+0.5))
  144.     end
  145.     local Calc = function(a)
  146.         local minutes = a/10
  147.         local hours = minutes/60
  148.         local days = hours/24
  149.  
  150.         return ("(!ESTIMATE!) D: "..RoundNumber(days).." H: "..RoundNumber(hours).." M: "..RoundNumber(minutes))
  151.     end
  152.     local LocalPlayer = game.Players.LocalPlayer;
  153.     while true do
  154.         wait();
  155.         if LocalPlayer.PlayerGui.Pc.Enabled and LocalPlayer.Character then
  156.             break;
  157.         end;
  158.     end;
  159.     if LocalPlayer.PlayerGui.Pc:FindFirstChild("GameData") then
  160.         LocalPlayer.PlayerGui.Pc.GameData:Destroy()
  161.     end
  162.  
  163.     local LOCALMOUSE = LocalPlayer:GetMouse();
  164.     local SELECTEDCHARACTER = nil;
  165.     local MOUSEHOVER = LocalPlayer.PlayerGui.Pc:WaitForChild("MouseHover");
  166.     LOCALMOUSE.Move:connect(function()
  167.         if LocalPlayer.PlayerGui.Pc.Enabled and LOCALMOUSE.Target and (game.Players:GetPlayerFromCharacter(LOCALMOUSE.Target.Parent) and game.Players[LOCALMOUSE.Target.Parent.Name] ~= LocalPlayer) then
  168.             SELECTEDCHARACTER = LOCALMOUSE.Target.Parent;
  169.             if game.Players:GetPlayerFromCharacter(LOCALMOUSE.Target.Parent):GetRankInGroup(5618499) > 0 then
  170.                 MOUSEHOVER.TextColor3 = Color3.fromRGB(0, 255, 0)
  171.             end
  172.             MOUSEHOVER.Text = ("~| Username: '"..SELECTEDCHARACTER.Name.."' | DisplayName: '"..game.Players:GetPlayerFromCharacter(LOCALMOUSE.Target.Parent).DisplayName.."' | Gender: "..game.Players:GetPlayerFromCharacter(LOCALMOUSE.Target.Parent).GameData.Gender.Value.." | Coins: "..game.Players:GetPlayerFromCharacter(LOCALMOUSE.Target.Parent).Saving.Coins.Value.." | Time Wasted: "..Calc(game.Players:GetPlayerFromCharacter(LOCALMOUSE.Target.Parent).Saving.Coins.Value).." |~")
  173.  
  174.             MOUSEHOVER.Position = UDim2.new(0, LOCALMOUSE.X+30, 0, LOCALMOUSE.Y-20);
  175.             MOUSEHOVER.Visible = true;
  176.             return;
  177.         end;
  178.         SELECTEDCHARACTER = nil;
  179.         MOUSEHOVER.TextColor3 = Color3.new(1, 1, 1);
  180.         MOUSEHOVER.Visible = false;
  181.         MOUSEHOVER.Text = "Player";
  182.         MOUSEHOVER.Size = UDim2.new(0,250,0,50)
  183.     end);
  184. end
  185.  
  186. --Script
  187. if Unlock_Everything then
  188.     spawn(function()while wait(.5) do
  189.         if PlayerGui:FindFirstChild("Loading") then else
  190.             spawn(function()UnlockGamepasses()end)
  191.             spawn(function()while wait(.5) do
  192.                 if PlayerGui:FindFirstChild("MorphGUI") then else
  193.                     spawn(function()AddVIW()end)
  194.                     spawn(function()UnlockViwMusic()end)
  195.                     spawn(function()UnlockNameColor()end)
  196.                     break;
  197.                 end
  198.             end end)
  199.             break;
  200.         end
  201.     end end)
  202. end
  203. if not Unlock_Everything then
  204.     if Unlock_PlayerCustomization_Gamepasses then
  205.             spawn(function() while wait(.5) do
  206.             if PlayerGui:FindFirstChild("Loading") then else
  207.                 spawn(function()UnlockGamepasses()end)
  208.                 break;
  209.             end
  210.         end end)
  211.     end
  212.     if Unlock_VIW then
  213.         spawn(function() while wait(.5) do
  214.             if PlayerGui:FindFirstChild("MorphGUI") then else
  215.                 spawn(function()AddVIW()end)
  216.             end
  217.         end end)
  218.     end
  219.     if Unlock_VIW_Music then
  220.         spawn(function() while wait(.5) do
  221.             if PlayerGui:FindFirstChild("MorphGUI") then else
  222.                 spawn(function()UnlockViwMusic()end)
  223.                 break;
  224.             end
  225.         end end)
  226.     end
  227.     if Unlock_VIW_Name_Color then
  228.         spawn(function() while wait(.5) do
  229.             if PlayerGui:FindFirstChild("MorphGUI") then else
  230.                 spawn(function()UnlockNameColor()end)
  231.                 break;
  232.             end
  233.         end end)
  234.     end
  235. end
  236. if ViewPlayersPoints then
  237.     spawn(function() while wait(.5) do
  238.         if PlayerGui:FindFirstChild("MorphGUI") then else
  239.             spawn(function()VPP()end)
  240.             break;
  241.         end
  242.     end end)
  243. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement