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