Advertisement
Guest User

Untitled

a guest
Sep 20th, 2019
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.90 KB | None | 0 0
  1. --GUIs
  2. local QuirkGUI = script.Parent.Parent
  3. local QuirkFrame = QuirkGUI:WaitForChild("QuirkFRAME")
  4. --Text and useful button
  5. local Quirk = QuirkFrame:WaitForChild("Quirk")
  6. local Close = QuirkFrame:WaitForChild("Close")
  7. local Normal_Spin = QuirkFrame:WaitForChild("Normal_Spin")
  8. local Rare_Spin = QuirkFrame:WaitForChild("Rare_Spin")
  9. local Epic_Spin = QuirkFrame:WaitForChild("Epic_Spin")
  10. --Events
  11. local Rare_Event = QuirkFrame:WaitForChild("Rare_SpinEvent")
  12. local Normal_SpinEvent = QuirkFrame:WaitForChild("Common_SpinEvent")
  13. local Epic_SpinEvent = QuirkFrame:WaitForChild("Epic_SpinEvent")
  14. --Quirks
  15. local quirks = QuirkFrame:WaitForChild("Quirks")
  16. local normal_quirks = quirks:WaitForChild("CommonQuirks")
  17. local rare_quirks = quirks:WaitForChild("RareQuirks")
  18. local epic_quirks = quirks:WaitForChild("EpicQuirks")
  19. local current_quirk = QuirkFrame:WaitForChild("Quirk_On_Screen")
  20. --Amount of spins
  21. local norm_amount = 5
  22. local uncommon_amount = 6
  23. local rare_amount = 10
  24. local epic_amount = 15
  25. local legendary_amount = 20
  26. --On events
  27. Normal_SpinEvent.OnServerEvent:Connect(function(plr)
  28. print("Rollingg!")
  29. wait(2)
  30. local quirkFramePlr = plr.PlayerGui.QuirkGUI.QuirkFRAME
  31. for _, norm_quirks in pairs(normal_quirks) do
  32. quirkFramePlr.Quirk.Text = norm_quirks.Name
  33. norm_amount = norm_amount - 1
  34. if norm_amount <= 0 then
  35. quirkFramePlr["Quirk_On_Screen"].Value = quirkFramePlr.Quirk.Text
  36. plr.leaderstats.Quirk.Value = quirkFramePlr["Quirk_On_Screen"].Value
  37. wait(1)
  38. quirkFramePlr.Quirk.Text = ""
  39. wait(1)
  40. quirkFramePlr.Quirk.Text = quirkFramePlr["Quirk_On_Screen"].Value
  41. wait(1)
  42. quirkFramePlr.Quirk.Text = ""
  43. wait(1)
  44. quirkFramePlr.Quirk.Text = quirkFramePlr["Quirk_On_Screen"].Value
  45. break
  46. end
  47. end
  48. end)
  49. --[[Engine, Voice, Gigantification, Hardening, Jet, Regeneration, Zero Gravity, Somnambulist, Navel Laser, Tail]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement