Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- params : ...
- local p = game.Players.LocalPlayer
- local c = p.Character
- local quests = script:WaitForChild("Quests", 30)
- local saved = false
- local hbarP = script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Bar.Position.X.Offset
- local hbarS = script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Bar.Size.X.Scale
- c:WaitForChild("Spawned")
- c.Humanoid.HealthChanged:connect(function(h)
- local health = c.Humanoid.Health
- local maxhealth = c.Humanoid.MaxHealth
- local val = health / maxhealth
- script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Label.Text = math.floor(health) .. "/" .. maxhealth
- script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Bar.Position = UDim2.new(0, hbarP + (1 - val) / hbarS, 0, 0)
- script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Bar.Size = UDim2.new(hbarS * val, 0, 1, 0)
- end)
- script.Parent.UIEvent.OnClientEvent:connect(function()
- for i = 2, 0, -1 do
- if i == 2 then
- for o = 30, 1, -1 do
- if o == 1 or o == 2 or o == 3 or o == 4 or o == 5 or o == 6 or o == 7 or o == 8 or o == 9 then
- p.PlayerGui:WaitForChild("gameUI").InfoWindowSecondary.Autosave.Text = i .. ":0" .. o
- else
- p.PlayerGui:WaitForChild("gameUI").InfoWindowSecondary.Autosave.Text = i .. ":" .. o
- end
- wait(1)
- end
- else
- do
- for o = 60, 1, -1 do
- if o == 1 or o == 2 or o == 3 or o == 4 or o == 5 or o == 6 or o == 7 or o == 8 or o == 9 then
- p.PlayerGui:WaitForChild("gameUI").InfoWindowSecondary.Autosave.Text = i .. ":0" .. o
- else
- p.PlayerGui:WaitForChild("gameUI").InfoWindowSecondary.Autosave.Text = i .. ":" .. o
- end
- wait(1)
- end
- do
- -- DECOMPILER ERROR at PC109: LeaveBlock: unexpected jumping out DO_STMT
- -- DECOMPILER ERROR at PC109: LeaveBlock: unexpected jumping out IF_ELSE_STMT
- -- DECOMPILER ERROR at PC109: LeaveBlock: unexpected jumping out IF_STMT
- end
- end
- end
- end
- script.Parent.UIEvent:FireServer("Save", true)
- end)
- script.Parent.InfoWindowSecondary.OptionsButton.MouseButton1Down:connect(function()
- if not script.Parent.Options.Visible then
- script.Parent.Options.Visible = true
- else
- if script.Parent.Options.Visible then
- script.Parent.Options.Visible = false
- end
- end
- end)
- script.Parent.Hud:WaitForChild("Mode).MouseButton1Down:connect(function()
- if script.Parent.Tutorial.Visible then
- script.Parent.Tutorial.Visible = false
- else
- script.Parent.Tutorial.Visible = true
- end
- end)
- script.Parent.Hud:WaitForChild("Aura1).MouseButton1Down:connect(function()
- if script.Parent.Hud.AuraColor.Visible == false or script.Parent.Hud.AuraColor.Named.Text == "Secondary" then
- script.Parent.Hud.AuraColor.Named.Text = "Primary"
- script.Parent.Hud.AuraColor.Visible = true
- else
- script.Parent.Hud.AuraColor.Visible = false
- end
- end)
- script.Parent.Hud:WaitForChild("Aura2).MouseButton1Down:connect(function()
- if script.Parent.Hud.AuraColor.Visible == false or script.Parent.Hud.AuraColor.Named.Text == "Primary" then
- script.Parent.Hud.AuraColor.Named.Text = "Secondary"
- script.Parent.Hud.AuraColor.Visible = true
- else
- script.Parent.Hud.AuraColor.Visible = false
- end
- end)
- script.Parent.InfoWindowSecondary.Save.MouseButton1Down:connect(function()
- if not saved then
- script.Parent.UIEvent:FireServer("Save", false)
- saved = true
- for i = 30, 1, -1 do
- script.Parent.InfoWindowSecondary:WaitForChild("Save").Text = "(" .. i .. ")"
- wait(1)
- end
- script.Parent.InfoWindowSecondary:WaitForChild("Save").Text = "Save"
- saved = false
- end
- end)
- script.Parent.Hud:WaitForChild("WeaponEquip).MouseButton1Down:connect(function()
- script.Parent.UIEvent:FireServer("WeaponUI")
- end)
- script.Parent.Hud:WaitForChild("HatsuWeaponEquip).MouseButton1Down:connect(function()
- script.Parent.UIEvent:FireServer("HatsuWeapon")
- end)
- script.Parent.Hud.Weapons:WaitForChild("Unequip).MouseButton1Down:connect(function()
- script.Parent.UIEvent:FireServer("Unequip1")
- end)
- script.Parent.Hud.Weapons:WaitForChild("Unequip).MouseButton2Down:connect(function()
- script.Parent.UIEvent:FireServer("Unequip2")
- end)
- script.Parent.Quest.Info.MouseEnter:connect(function(x, y)
- if not script.Parent.Quest:FindFirstChild("Tooltip") then
- local textlabel = Instance.new("TextLabel")
- textlabel.Name = "Tooltip"
- textlabel.Parent = script.Parent.Quest
- textlabel.Text = quests[script:WaitForChild("QuestId").Value].description.Value
- textlabel.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
- textlabel.TextColor3 = Color3.fromRGB(255, 255, 255)
- textlabel.BackgroundTransparency = 0.5
- textlabel.Position = UDim2.new(0, x, 0, y)
- textlabel.Size = UDim2.new(0, 400, 0, 22)
- end
- end)
- script.Parent.Quest.Info.MouseMoved:connect(function(x, y)
- if script.Parent.Quest:FindFirstChild("Tooltip") then
- script.Parent.Quest:FindFirstChild("Tooltip").Position = UDim2.new(0, x, 0, y)
- end
- end)
- script.Parent.Quest.Info.MouseLeave:connect(function(x, y)
- if script.Parent.Quest:FindFirstChild("Tooltip") then
- script.Parent.Quest:FindFirstChild("Tooltip"):Destroy()
- end
- end)
- for _,v in pairs(script.Parent.InfoWindow.NenWindow:GetChildren()) do
- do
- if v:IsA("TextButton") then
- do
- v.MouseButton1Down:connect(function()
- script.Parent.NenMastery:FireServer(string.sub(v.Name, 1, string.len(v.Name) - 9))
- end)
- -- DECOMPILER ERROR at PC183: LeaveBlock: unexpected jumping out IF_THEN_STMT
- -- DECOMPILER ERROR at PC183: LeaveBlock: unexpected jumping out IF_STMT
- end
- end
- end
- end
- script.Parent.WeaponEvent.OnClientEvent:connect(function()
- for _,v in pairs(script.Parent.Hud.Weapons:GetChildren()) do
- do
- if v:IsA("Frame") and v.Name ~= "Unequip" then
- do
- v.TextButton.MouseButton1Down:connect(function()
- script.Parent:WaitForChild("WeaponHandle"):FireServer(v.Name, "Primary")
- end)
- v.TextButton.MouseButton2Down:connect(function()
- script.Parent:WaitForChild("WeaponHandle"):FireServer(v.Name, "Secondary")
- end)
- -- DECOMPILER ERROR at PC29: LeaveBlock: unexpected jumping out IF_THEN_STMT
- -- DECOMPILER ERROR at PC29: LeaveBlock: unexpected jumping out IF_STMT
- end
- end
- end
- end
- end)
Add Comment
Please, Sign In to add comment