iiFlamez

Untitled

Oct 12th, 2017
107
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.15 KB | None | 0 0
  1. -- params : ...
  2.  
  3. local p = game.Players.LocalPlayer
  4. local c = p.Character
  5. local quests = script:WaitForChild("Quests", 30)
  6. local saved = false
  7. local hbarP = script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Bar.Position.X.Offset
  8. local hbarS = script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Bar.Size.X.Scale
  9. c:WaitForChild("Spawned")
  10. c.Humanoid.HealthChanged:connect(function(h)
  11. local health = c.Humanoid.Health
  12. local maxhealth = c.Humanoid.MaxHealth
  13. local val = health / maxhealth
  14. script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Label.Text = math.floor(health) .. "/" .. maxhealth
  15. script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Bar.Position = UDim2.new(0, hbarP + (1 - val) / hbarS, 0, 0)
  16. script.Parent.Hud:WaitForChild("HealthBarOuter").HealthBarInner.Bar.Size = UDim2.new(hbarS * val, 0, 1, 0)
  17. end)
  18. script.Parent.UIEvent.OnClientEvent:connect(function()
  19. for i = 2, 0, -1 do
  20. if i == 2 then
  21. for o = 30, 1, -1 do
  22. 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
  23. p.PlayerGui:WaitForChild("gameUI").InfoWindowSecondary.Autosave.Text = i .. ":0" .. o
  24. else
  25. p.PlayerGui:WaitForChild("gameUI").InfoWindowSecondary.Autosave.Text = i .. ":" .. o
  26. end
  27. wait(1)
  28. end
  29. else
  30. do
  31. for o = 60, 1, -1 do
  32. 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
  33. p.PlayerGui:WaitForChild("gameUI").InfoWindowSecondary.Autosave.Text = i .. ":0" .. o
  34. else
  35. p.PlayerGui:WaitForChild("gameUI").InfoWindowSecondary.Autosave.Text = i .. ":" .. o
  36. end
  37. wait(1)
  38. end
  39. do
  40. -- DECOMPILER ERROR at PC109: LeaveBlock: unexpected jumping out DO_STMT
  41.  
  42. -- DECOMPILER ERROR at PC109: LeaveBlock: unexpected jumping out IF_ELSE_STMT
  43.  
  44. -- DECOMPILER ERROR at PC109: LeaveBlock: unexpected jumping out IF_STMT
  45.  
  46. end
  47. end
  48. end
  49. end
  50. script.Parent.UIEvent:FireServer("Save", true)
  51. end)
  52. script.Parent.InfoWindowSecondary.OptionsButton.MouseButton1Down:connect(function()
  53. if not script.Parent.Options.Visible then
  54. script.Parent.Options.Visible = true
  55. else
  56. if script.Parent.Options.Visible then
  57. script.Parent.Options.Visible = false
  58. end
  59. end
  60. end)
  61. script.Parent.Hud:WaitForChild("Mode).MouseButton1Down:connect(function()
  62. if script.Parent.Tutorial.Visible then
  63. script.Parent.Tutorial.Visible = false
  64. else
  65. script.Parent.Tutorial.Visible = true
  66. end
  67. end)
  68. script.Parent.Hud:WaitForChild("Aura1).MouseButton1Down:connect(function()
  69. if script.Parent.Hud.AuraColor.Visible == false or script.Parent.Hud.AuraColor.Named.Text == "Secondary" then
  70. script.Parent.Hud.AuraColor.Named.Text = "Primary"
  71. script.Parent.Hud.AuraColor.Visible = true
  72. else
  73. script.Parent.Hud.AuraColor.Visible = false
  74. end
  75. end)
  76. script.Parent.Hud:WaitForChild("Aura2).MouseButton1Down:connect(function()
  77. if script.Parent.Hud.AuraColor.Visible == false or script.Parent.Hud.AuraColor.Named.Text == "Primary" then
  78. script.Parent.Hud.AuraColor.Named.Text = "Secondary"
  79. script.Parent.Hud.AuraColor.Visible = true
  80. else
  81. script.Parent.Hud.AuraColor.Visible = false
  82. end
  83. end)
  84. script.Parent.InfoWindowSecondary.Save.MouseButton1Down:connect(function()
  85. if not saved then
  86. script.Parent.UIEvent:FireServer("Save", false)
  87. saved = true
  88. for i = 30, 1, -1 do
  89. script.Parent.InfoWindowSecondary:WaitForChild("Save").Text = "(" .. i .. ")"
  90. wait(1)
  91. end
  92. script.Parent.InfoWindowSecondary:WaitForChild("Save").Text = "Save"
  93. saved = false
  94. end
  95. end)
  96. script.Parent.Hud:WaitForChild("WeaponEquip).MouseButton1Down:connect(function()
  97. script.Parent.UIEvent:FireServer("WeaponUI")
  98. end)
  99. script.Parent.Hud:WaitForChild("HatsuWeaponEquip).MouseButton1Down:connect(function()
  100. script.Parent.UIEvent:FireServer("HatsuWeapon")
  101. end)
  102. script.Parent.Hud.Weapons:WaitForChild("Unequip).MouseButton1Down:connect(function()
  103. script.Parent.UIEvent:FireServer("Unequip1")
  104. end)
  105. script.Parent.Hud.Weapons:WaitForChild("Unequip).MouseButton2Down:connect(function()
  106. script.Parent.UIEvent:FireServer("Unequip2")
  107. end)
  108. script.Parent.Quest.Info.MouseEnter:connect(function(x, y)
  109. if not script.Parent.Quest:FindFirstChild("Tooltip") then
  110. local textlabel = Instance.new("TextLabel")
  111. textlabel.Name = "Tooltip"
  112. textlabel.Parent = script.Parent.Quest
  113. textlabel.Text = quests[script:WaitForChild("QuestId").Value].description.Value
  114. textlabel.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
  115. textlabel.TextColor3 = Color3.fromRGB(255, 255, 255)
  116. textlabel.BackgroundTransparency = 0.5
  117. textlabel.Position = UDim2.new(0, x, 0, y)
  118. textlabel.Size = UDim2.new(0, 400, 0, 22)
  119. end
  120. end)
  121. script.Parent.Quest.Info.MouseMoved:connect(function(x, y)
  122. if script.Parent.Quest:FindFirstChild("Tooltip") then
  123. script.Parent.Quest:FindFirstChild("Tooltip").Position = UDim2.new(0, x, 0, y)
  124. end
  125. end)
  126. script.Parent.Quest.Info.MouseLeave:connect(function(x, y)
  127. if script.Parent.Quest:FindFirstChild("Tooltip") then
  128. script.Parent.Quest:FindFirstChild("Tooltip"):Destroy()
  129. end
  130. end)
  131. for _,v in pairs(script.Parent.InfoWindow.NenWindow:GetChildren()) do
  132. do
  133. if v:IsA("TextButton") then
  134. do
  135. v.MouseButton1Down:connect(function()
  136. script.Parent.NenMastery:FireServer(string.sub(v.Name, 1, string.len(v.Name) - 9))
  137. end)
  138. -- DECOMPILER ERROR at PC183: LeaveBlock: unexpected jumping out IF_THEN_STMT
  139.  
  140. -- DECOMPILER ERROR at PC183: LeaveBlock: unexpected jumping out IF_STMT
  141.  
  142. end
  143. end
  144. end
  145. end
  146. script.Parent.WeaponEvent.OnClientEvent:connect(function()
  147. for _,v in pairs(script.Parent.Hud.Weapons:GetChildren()) do
  148. do
  149. if v:IsA("Frame") and v.Name ~= "Unequip" then
  150. do
  151. v.TextButton.MouseButton1Down:connect(function()
  152. script.Parent:WaitForChild("WeaponHandle"):FireServer(v.Name, "Primary")
  153. end)
  154. v.TextButton.MouseButton2Down:connect(function()
  155. script.Parent:WaitForChild("WeaponHandle"):FireServer(v.Name, "Secondary")
  156. end)
  157. -- DECOMPILER ERROR at PC29: LeaveBlock: unexpected jumping out IF_THEN_STMT
  158.  
  159. -- DECOMPILER ERROR at PC29: LeaveBlock: unexpected jumping out IF_STMT
  160.  
  161. end
  162. end
  163. end
  164. end
  165. end)
Add Comment
Please, Sign In to add comment