Advertisement
NightGolden

1111

May 14th, 2023 (edited)
3,724
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.42 KB | None | 0 0
  1. local ui = {}
  2.  
  3. if game.CoreGui:FindFirstChild("卡密系统") then
  4. game.CoreGui["卡密系统"]:Destroy()
  5. end
  6.  
  7. function ui:Create(title,key,group,func)
  8. local ScreenGui = Instance.new("ScreenGui")
  9. local Frame = Instance.new("Frame")
  10. local TextLabel = Instance.new("TextLabel")
  11. local TextLabel_2 = Instance.new("TextLabel")
  12. local UI = Instance.new("UICorner")
  13. local TextLabel_3 = Instance.new("TextLabel")
  14. local TextBox = Instance.new("TextBox")
  15. local TextButton = Instance.new("TextButton")
  16.  
  17. ScreenGui.Name = "卡密系统"
  18. ScreenGui.Parent = game.CoreGui
  19. ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
  20.  
  21. Frame.Name = "卡密系统框架"
  22. Frame.Parent = ScreenGui
  23. Frame.AnchorPoint = Vector2.new(0.5, 0.5)
  24. Frame.BackgroundColor3 = Color3.fromRGB(61, 61, 61)
  25. Frame.Position = UDim2.new(0.5, 0, 0.5, 0)
  26. Frame.Size = UDim2.new(0.349999994, 0, 0.699999988, 0)
  27.  
  28. TextLabel.Name = "标题"
  29. TextLabel.Parent = Frame
  30. TextLabel.AnchorPoint = Vector2.new(0.5, 0.5)
  31. TextLabel.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
  32. TextLabel.BackgroundTransparency = 1.000
  33. TextLabel.Position = UDim2.new(0.5, 0, 0.0500000007, 0)
  34. TextLabel.Size = UDim2.new(0.699999988, 0, 0.100000001, 0)
  35. TextLabel.Font = Enum.Font.SourceSans
  36. TextLabel.Text = title
  37. TextLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
  38. TextLabel.TextScaled = true
  39. TextLabel.TextSize = 14.000
  40. TextLabel.TextWrapped = true
  41.  
  42. TextLabel_2.Name = "状态"
  43. TextLabel_2.Parent = Frame
  44. TextLabel_2.AnchorPoint = Vector2.new(0.5, 0.5)
  45. TextLabel_2.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
  46. TextLabel_2.BackgroundTransparency = 1.000
  47. TextLabel_2.Position = UDim2.new(0.5, 0, 0.800000012, 0)
  48. TextLabel_2.Size = UDim2.new(0.699999988, 0, 0.0500000007, 0)
  49. TextLabel_2.Font = Enum.Font.SourceSans
  50. TextLabel_2.Text = "状态"
  51. TextLabel_2.TextColor3 = Color3.fromRGB(255, 255, 255)
  52. TextLabel_2.TextScaled = true
  53. TextLabel_2.TextSize = 14.000
  54. TextLabel_2.TextWrapped = true
  55.  
  56. UI.CornerRadius = UDim.new(0, 50)
  57. UI.Name = "UI圆润"
  58. UI.Parent = Frame
  59.  
  60. TextLabel_3.Name = "状态框"
  61. TextLabel_3.Parent = Frame
  62. TextLabel_3.AnchorPoint = Vector2.new(0.5, 0.5)
  63. TextLabel_3.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
  64. TextLabel_3.BorderColor3 = Color3.fromRGB(0, 0, 0)
  65. TextLabel_3.BorderSizePixel = 10
  66. TextLabel_3.Position = UDim2.new(0.5, 0, 0.899999976, 0)
  67. TextLabel_3.Size = UDim2.new(0.699999988, 0, 0.100000001, 0)
  68. TextLabel_3.Font = Enum.Font.SourceSans
  69. TextLabel_3.Text = "状态: 输入卡密中..."
  70. TextLabel_3.TextColor3 = Color3.fromRGB(0, 0, 0)
  71. TextLabel_3.TextScaled = true
  72. TextLabel_3.TextSize = 14.000
  73. TextLabel_3.TextWrapped = true
  74.  
  75. TextBox.Name = "卡密输入框"
  76. TextBox.Parent = Frame
  77. TextBox.AnchorPoint = Vector2.new(0.5, 0.5)
  78. TextBox.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
  79. TextBox.Position = UDim2.new(0.400000006, 0, 0.600000024, 0)
  80. TextBox.Size = UDim2.new(0.699999988, 0, 0.100000001, 0)
  81. TextBox.Font = Enum.Font.SourceSans
  82. TextBox.Text = ""
  83. TextBox.TextColor3 = Color3.fromRGB(0, 0, 0)
  84. TextBox.TextScaled = true
  85. TextBox.TextSize = 14.000
  86. TextBox.TextWrapped = true
  87.  
  88. TextButton.Parent = Frame
  89. TextButton.AnchorPoint = Vector2.new(0.5, 0.5)
  90. TextButton.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
  91. TextButton.Position = UDim2.new(0.899999976, 0, 0.600000024, 0)
  92. TextButton.Size = UDim2.new(0.119999997, 0, 0.100000001, 0)
  93. TextButton.Font = Enum.Font.SourceSans
  94. TextButton.Text = "确认"
  95. TextButton.TextColor3 = Color3.fromRGB(0, 0, 0)
  96. TextButton.TextScaled = true
  97. TextButton.TextSize = 14.000
  98. TextButton.TextWrapped = true
  99.  
  100. TextButton.MouseButton1Click:Connect(function()
  101. _G.EnterKey = TextBox.Text
  102. if _G.EnterKey == key then
  103. TextLabel_3.Text = "状态: 卡密正确!!!"
  104. wait(2)
  105. for t = 1,0,0.1 do
  106. wait(0.03)
  107. Frame.Transparency = t
  108. end
  109. wait(1)
  110. ScreenGui:Destroy()
  111. func()
  112. else
  113. TextLabel_3.Text = "状态: 卡密错误!"..group
  114. wait(3)
  115. TextLabel_3.Text = "状态: 输入卡密中..."
  116. end
  117. end)
  118. end
  119.  
  120. return ui
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement