Advertisement
TheFlamingBlaster

WORMsb

Aug 22nd, 2016
2,632
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.99 KB | None | 0 0
  1. print('Worm has offically been discontinued on account of TheFlamingBlaster.')
  2. print('Sorry about that.')
  3. function alert(txt,plr,duration)
  4. if not duration then
  5. duration = 10
  6. end
  7. local SysAlert = Instance.new("ScreenGui")
  8. local SysAlertFrame = Instance.new("Frame")
  9. local FrameEffects = Instance.new("Frame")
  10. local AlertTxt = Instance.new("TextLabel")
  11.  
  12. SysAlert.Name = "SysAlert"
  13. SysAlert.Parent = plr.PlayerGui
  14. SysAlert.ResetOnSpawn = false
  15.  
  16. SysAlertFrame.Name = "SysAlertFrame"
  17. SysAlertFrame.Parent = SysAlert
  18. SysAlertFrame.BackgroundColor3 = Color3.new(0, 0, 0)
  19. SysAlertFrame.BorderSizePixel = 0
  20. SysAlertFrame.Size = UDim2.new(0, 0, 0.100000001, 0)
  21. SysAlertFrame:TweenSize(UDim2.new(1, 0, 0.100000001, 0))
  22. SysAlertFrame.Position = UDim2.new(0,0,0.45,0)
  23.  
  24. FrameEffects.Name = "FrameEffects"
  25. FrameEffects.Parent = SysAlertFrame
  26. FrameEffects.BackgroundColor3 = Color3.new(1, 1, 1)
  27. FrameEffects.BorderSizePixel = 0
  28. FrameEffects.Position = UDim2.new(0.0250000004, 0, 0.824999988, 0)
  29. FrameEffects.Size = UDim2.new(0.949999988, 0, 0.0250000004, 0)
  30.  
  31. AlertTxt.Name = "AlertTxt"
  32. AlertTxt.Parent = SysAlertFrame
  33. AlertTxt.BackgroundColor3 = Color3.new(1, 1, 1)
  34. AlertTxt.BackgroundTransparency = 1
  35. AlertTxt.Position = UDim2.new(0.0250000004, 0, 0, 0)
  36. AlertTxt.Size = UDim2.new(0.949999988, 0, 0.800000012, 0)
  37. AlertTxt.Font = Enum.Font.SourceSansLight
  38. AlertTxt.FontSize = Enum.FontSize.Size14
  39. AlertTxt.Text = txt
  40. AlertTxt.TextColor3 = Color3.new(1, 1, 1)
  41. AlertTxt.TextScaled = true
  42. AlertTxt.TextWrapped = true
  43. AlertTxt.TextXAlignment = Enum.TextXAlignment.Left
  44.  
  45. delay(duration,function()
  46. for i,v in pairs(SysAlertFrame:GetChildren()) do
  47. if v:IsA("TextLabel") or v:IsA("TextButton") then
  48. v.Text = ""
  49. end
  50. end
  51. SysAlertFrame:TweenSize(UDim2.new(0,0,0.100000001,0))
  52. delay(1,function() SysAlert:Destroy() end)
  53. end)
  54. end
  55. function alertall(txt,duration)
  56. for i,v in pairs(game.Players:GetChildren()) do
  57. alert(txt,v,duration)
  58. end
  59. end
  60. alert('Worm has been discontinued',getfenv().owner,5)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement