API tools faq
paste
Advertisement
Martinman117

WL3S

Martinman117
Aug 19th, 2022
728
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 9.48 KB | None | 0 0
raw download clone embed print report
  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
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!