View difference between Paste ID: 4rSSVitc and F3Hhc15D
SHOW: | | - or go back to the newest paste.
1
local SuperHeroTycoonGui = Instance.new("ScreenGui")
2
local SiperHeroTycoonFrame = Instance.new("Frame")
3
local SuperHeroTycoonTitle = Instance.new("TextLabel")
4
local LineFrame = Instance.new("Frame")
5
local PlayerMoney = Instance.new("TextBox")
6
local Money = Instance.new("TextBox")
7
local SetMoneyButton = Instance.new("TextButton")
8
--Properties:
9
SuperHeroTycoonGui.Name = "SuperHeroTycoonGui"
10
SuperHeroTycoonGui.Parent = game.CoreGui
11
12
SiperHeroTycoonFrame.Name = "SiperHeroTycoonFrame"
13
SiperHeroTycoonFrame.Parent = SuperHeroTycoonGui
14
SiperHeroTycoonFrame.BackgroundColor3 = Color3.new(0.419608, 0.419608, 0.419608)
15
SiperHeroTycoonFrame.BackgroundTransparency = 0.30000001192093
16
SiperHeroTycoonFrame.BorderColor3 = Color3.new(0, 0, 0)
17
SiperHeroTycoonFrame.Position = UDim2.new(0.349934459, 0, 0.125498012, 0)
18
SiperHeroTycoonFrame.Size = UDim2.new(0, 210, 0, 221)
19
SiperHeroTycoonFrame.Visible = true
20
SiperHeroTycoonFrame.Active = true
21
SiperHeroTycoonFrame.Draggable = true
22
23
SuperHeroTycoonTitle.Name = "SuperHeroTycoonTitle"
24
SuperHeroTycoonTitle.Parent = SiperHeroTycoonFrame
25
SuperHeroTycoonTitle.BackgroundColor3 = Color3.new(1, 0, 0)
26
SuperHeroTycoonTitle.BorderColor3 = Color3.new(0, 0, 0)
27
SuperHeroTycoonTitle.Size = UDim2.new(0, 210, 0, 17)
28
SuperHeroTycoonTitle.Font = Enum.Font.SourceSans
29
SuperHeroTycoonTitle.Text = "~~ACHMAD_FAUZAN~~"
30
SuperHeroTycoonTitle.TextColor3 = Color3.new(0, 0, 0)
31
SuperHeroTycoonTitle.TextSize = 14
32
33
LineFrame.Name = "LineFrame"
34
LineFrame.Parent = SiperHeroTycoonFrame
35
LineFrame.BackgroundColor3 = Color3.new(0, 0, 0)
36
LineFrame.Position = UDim2.new(0, 0, 0.416289598, 0)
37
LineFrame.Size = UDim2.new(0, 210, 0, 1)
38
39
PlayerMoney.Name = "PlayerMoney"
40
PlayerMoney.Parent = SiperHeroTycoonFrame
41
PlayerMoney.BackgroundColor3 = Color3.new(0.333333, 0.666667, 0.498039)
42
PlayerMoney.BorderColor3 = Color3.new(0, 0, 0)
43
PlayerMoney.Position = UDim2.new(0.0817387402, 0, 0.498467684, 0)
44
PlayerMoney.Size = UDim2.new(0, 89, 0, 25)
45
PlayerMoney.Font = Enum.Font.SourceSans
46
PlayerMoney.PlaceholderColor3 = Color3.new(0, 0, 0)
47
PlayerMoney.PlaceholderText = "Player"
48
PlayerMoney.Text = "Player"
49
PlayerMoney.TextColor3 = Color3.new(0, 0, 0)
50
PlayerMoney.TextSize = 14
51
52
Money.Name = "Money"
53
Money.Parent = SiperHeroTycoonFrame
54
Money.BackgroundColor3 = Color3.new(0.333333, 0.666667, 0.498039)
55
Money.BorderColor3 = Color3.new(0, 0, 0)
56
Money.Position = UDim2.new(0.503145516, 0, 0.498467684, 0)
57
Money.Size = UDim2.new(0, 89, 0, 25)
58
Money.Font = Enum.Font.SourceSans
59
Money.PlaceholderColor3 = Color3.new(0, 0, 0)
60
Money.PlaceholderText = "Amount of Money"
61
Money.Text = "Amount of Money"
62
Money.TextColor3 = Color3.new(0, 0, 0)
63
Money.TextScaled = true
64
Money.TextSize = 14
65
Money.TextWrapped = true
66
67
SetMoneyButton.Name = "SetMoneyButton"
68
SetMoneyButton.Parent = SiperHeroTycoonFrame
69
SetMoneyButton.BackgroundColor3 = Color3.new(0.333333, 0.666667, 0.498039)
70
SetMoneyButton.BorderColor3 = Color3.new(0, 0, 0)
71
SetMoneyButton.Position = UDim2.new(0.0817387402, 0, 0.695796013, 0)
72
SetMoneyButton.Size = UDim2.new(0, 178, 0, 27)
73
SetMoneyButton.Font = Enum.Font.SourceSans
74
SetMoneyButton.Text = "Set Player Money"
75
SetMoneyButton.TextColor3 = Color3.new(0, 0, 0)
76
SetMoneyButton.TextSize = 14
77
78
79
-- Scripts:
80
SetMoneyButton.MouseButton1Click:connect(function()
81
               if PlayerMoney.Text == "others" then
82
                       for i,v in pairs(game.ReplicatedStorage.PlayerMoney:GetChildren()) do
83
                           if v.Name ~= game.Players.LocalPlayer.Name then
84
                               game.ReplicatedStorage.Events.changeValue:InvokeServer(v, Money.Text)
85
                           end
86
                       end
87
               else
88
               if PlayerMoney.Text == "all" then
89
                       for i,v in pairs(game.ReplicatedStorage.PlayerMoney:GetChildren()) do
90
                               game.ReplicatedStorage.Events.changeValue:InvokeServer(v, Money.Text)
91
                           end
92
                      
93
               else
94
               if PlayerMoney.Text == "me" then
95
                       for i,v in pairs(game.ReplicatedStorage.PlayerMoney:GetChildren()) do
96
                           if v.Name == game.Players.LocalPlayer.Name then
97
                               game.ReplicatedStorage.Events.changeValue:InvokeServer(v, Money.Text)
98
                           end
99
                       end
100
else
101
               for i,v in pairs(game.ReplicatedStorage.PlayerMoney:GetChildren()) do
102
if v.Name == PlayerMoney.Text then
103
game.ReplicatedStorage.Events.changeValue:InvokeServer(v, Money.Text)
104
end
105
end
106
end
107
end
108
end
109
end)
110
OpenSecondFrame.MouseButton1Click:connect(function()
111
if SecondFrame.Visible == false then
112
SecondFrame.Visible = true
113
OpenSecondFrame.Text = "^"
114
else
115
SecondFrame.Visible = false
116
OpenSecondFrame.Text = "v"
117
118
end
119
end)