API tools faq
paste
View difference between Paste ID: d6yfQnpR and tmzB9BSF
SHOW: | | - or go back to the newest paste.
1
--made by pdnghiaqoi [marseio]
2
--do not change this credit
3
local chatting = false
4
local currentgui
5
local currentline = 2
6
BillboardGui0 = Instance.new("BillboardGui")
7
Frame1 = Instance.new("Frame")
8
Frame2 = Instance.new("Frame")
9
ImageLabel3 = Instance.new("ImageLabel")
10
TextLabel4 = Instance.new("TextLabel")
11
TextLabel5 = Instance.new("TextLabel")
12
BillboardGui0.Parent = mas
13
BillboardGui0.Size = UDim2.new(15, 0, 4.5, 0)
14
BillboardGui0.ClipsDescendants = true
15
BillboardGui0.Adornee = nil
16
BillboardGui0.AlwaysOnTop = true
17
BillboardGui0.MaxDistance = 35
18
BillboardGui0.SizeOffset = Vector2.new(0, 1)
19
Frame1.Name = "White"
20
Frame1.Parent = BillboardGui0
21
Frame1.Size = UDim2.new(1, 0, 1, 0)
22
Frame1.BackgroundColor = BrickColor.new("Institutional white")
23
Frame1.BackgroundColor3 = Color3.new(1, 1, 1)
24
Frame1.BorderSizePixel = 0
25
Frame2.Name = "Black"
26
Frame2.Parent = Frame1
27
Frame2.Position = UDim2.new(0, 5, 0, 5)
28
Frame2.Size = UDim2.new(1, -10, 1, -10)
29
Frame2.BackgroundColor = BrickColor.new("Really black")
30
Frame2.BackgroundColor3 = Color3.new(0, 0, 0)
31
Frame2.BorderColor = BrickColor.new("Pastel violet")
32
Frame2.BorderColor3 = Color3.new(0.588235, 0.588235, 1)
33
Frame2.BorderSizePixel = 4
34
ImageLabel3.Name = "Portrait"
35
ImageLabel3.Parent = Frame2
36
ImageLabel3.Position = UDim2.new(0.0195086356, 0, 0.0609827824, 0)
37
ImageLabel3.Size = UDim2.new(0.227539942, 0, 0.870999992, 0)
38
ImageLabel3.BackgroundColor = BrickColor.new("Institutional white")
39
ImageLabel3.BackgroundColor3 = Color3.new(1, 1, 1)
40
ImageLabel3.BackgroundTransparency = 9
41
ImageLabel3.BorderSizePixel = 0
42
ImageLabel3.Image = "rbxassetid://2634816264"
43
TextLabel4.Name = "Shadow"
44
TextLabel4.Parent = Frame2
45
TextLabel4.Position = UDim2.new(0.277011365, 0, 0.0826922357, 0)
46
TextLabel4.Size = UDim2.new(0.716000021, 0, 0.870999992, 0)
47
TextLabel4.BackgroundColor = BrickColor.new("Really black")
48
TextLabel4.BackgroundColor3 = Color3.new(0, 0, 0)
49
TextLabel4.BackgroundTransparency = 9
50
TextLabel4.Font = Enum.Font.Arcade
51
TextLabel4.FontSize = Enum.FontSize.Size60
52
TextLabel4.Text = "* "
53
TextLabel4.TextColor = BrickColor.new("Medium lilac")
54
TextLabel4.TextColor3 = Color3.new(0.215686, 0.215686, 0.392157)
55
TextLabel4.TextSize = 50
56
TextLabel4.TextTruncate = Enum.TextTruncate.AtEnd
57
TextLabel4.TextWrap = true
58
TextLabel4.TextWrapped = true
59
TextLabel4.TextXAlignment = Enum.TextXAlignment.Left
60
TextLabel5.Name = "Msg"
61
TextLabel5.Parent = Frame2
62
TextLabel5.Position = UDim2.new(0.275019109, 0, 0.0744685978, 0)
63
TextLabel5.Size = UDim2.new(0.716000021, 0, 0.870531261, 0)
64
TextLabel5.BackgroundColor = BrickColor.new("Institutional white")
65
TextLabel5.BackgroundColor3 = Color3.new(1, 1, 1)
66
TextLabel5.BackgroundTransparency = 9
67
TextLabel5.Font = Enum.Font.Arcade
68
TextLabel5.FontSize = Enum.FontSize.Size60
69
TextLabel5.Text = "* "
70
TextLabel5.TextColor = BrickColor.new("Institutional white")
71
TextLabel5.TextColor3 = Color3.new(1, 1, 1)
72
TextLabel5.TextSize = 50
73
TextLabel5.TextTruncate = Enum.TextTruncate.AtEnd
74
TextLabel5.TextWrap = true
75
TextLabel5.TextWrapped = true
76
TextLabel5.TextXAlignment = Enum.TextXAlignment.Left
77
wait()
78
function saymsg(player,mes,style)
79
pcall(function()
80
local gui = BillboardGui0:Clone()
81
gui.Parent = player.Character:WaitForChild("Head")
82
local white = gui:WaitForChild("White")
83
local blk = white:WaitForChild("Black")
84
local msg = blk:WaitForChild("Msg")
85
local shd = blk:WaitForChild("Shadow")
86
local img = blk:WaitForChild("Portrait")
87
local ms
88
if style == "normal" then
89
    img.Image = "rbxassetid://2537357477"
90
elseif style == "happy" then
91
    img.Image = "rbxassetid://2537357477"
92
elseif style == "angry" then
93
    img.Image = "rbxassetid://2537357477"
94
elseif style == "blush" then
95
    img.Image = "rbxassetid://2537357477"
96
elseif style == "sincere" then
97
    img.Image = "rbxassetid://2537357477"
98
elseif style == "sarcasm" then
99
    img.Image = "rbxassetid://2537357477"
100
end
101
102
ms = "* "..mes
103
104
if string.len(ms) > 25 then
105
    msg.TextYAlignment = Enum.TextYAlignment.Top
106
    shd.TextYAlignment = Enum.TextYAlignment.Top
107
end
108
if string.len(ms) > 58 then
109
    msg.TextSize = 40
110
    shd.TextSize = 40
111
end
112
if string.len(ms) > 108 then
113
    msg.TextSize = 30
114
    shd.TextSize = 30
115
end
116
117
white.Visible = true
118
local sound = Instance.new("Sound")
119
    sound.SoundId = "rbxassetid://2545012765"
120
        sound.Volume = 1
121
        sound.Looped = false
122
        sound.Parent = player.Character
123
for i = 1, #ms do
124
    msg.Text = string.sub(ms, 1, i)
125
    shd.Text = string.sub(ms, 1, i)
126
    if string.sub(msg.Text, string.len(msg.Text) - 1) ~= " " and string.sub(msg.Text, string.len(msg.Text) - 1) ~= "," and string.sub(msg.Text, string.len(msg.Text) - 1) ~= "." then
127
      if not sound then
128
        local sound = Instance.new("Sound")
129
        sound.SoundId = "rbxassetid://2545012765"
130
        sound.Volume = 1
131
        sound.Looped = false
132
        sound.Parent = player.Character
133
      end
134
        sound:Play()
135
    elseif string.sub(msg.Text, string.len(msg.Text) - 1) == "," or string.sub(msg.Text, string.len(msg.Text) - 1) == "." then
136
        wait(0.26)
137
    end
138
    wait(0.1)
139
end
140
wait(3)
141
gui:Remove()
142
end)
143
end
144
owner.CharacterAdded:Connect(function()
145
    wait(0.5)
146
147
function findplayer(speaker,plr)

148
    local plrs = {}

149
    if tostring(plr) then

150
        if plr == "me" then

151
            return speaker

152
        elseif plr == "random" then

153
            for i,v in pairs(game:GetService("Players"):GetPlayers()) do

154
                if v ~= speaker then

155
                    table.insert(plrs,v)

156
                end

157
            end

158
            return plrs[math.random(1,#plrs)]

159
        end        

160
         for i,v in pairs(game:GetService("Players"):GetPlayers()) do

161
            if string.sub(v.Name, 1, #plr) == plr then

162
                table.insert(plrs,v)

163
            end

164
        end

165
        return plrs[math.random(1,#plrs)]

166
    end

167
end

168
local tb = {}

169
local style = "normal"

170
owner.Chatted:Connect(function(msg)

171
    local mes = msg

172
    if string.sub(msg,1,3) == "/e " or string.sub(msg,1,3) == "/w " then

173
        mes = string.sub(msg,4)

174
        if string.sub(mes, 1,6) == "style:" then

175
            style = getstyle(tonumber(string.sub(mes,7)))

176
        elseif string.sub(mes, 1,7) == "pacify:" then

177
            local a = findplayer(owner,string.sub(mes,8))

178
            if not a then return end

179
            pcall(function()

180
            a.Character:FindFirstChildOfClass("Humanoid").Health = 0

181
            end)

182
        elseif string.sub(mes, 1, 5) == "heal:" then

183
            local a = findplayer(owner,string.sub(m,6))

184
            if not a then return end

185
            pcall(function()

186
            a.Character:FindFirstChildOfClass("Humanoid").Health = a.Character:FindFirstChildOfClass("Humanoid").MaxHealth

187
            end)   

188
        end

189
        return

190
    end

191
    saymsg(owner,mes,style)

192
end)

193
function play(human)

194
    spawn(function()

195
    local sound = Instance.new("Sound")

196
    sound.Parent = human

197
    sound.Volume = 1

198
    sound.SoundId = "rbxassetid://2545012765"

199
    sound:Play()

200
    end)

201
end

202
203
 

204
for i,v in pairs(game:GetService("Players"):GetPlayers()) do

205
v.Chatted:Connect(function(msg)

206
for i,a in pairs(tb) do

207
if v.UserId == a then

208
local mes = msg

209
if string.sub(msg,1,3) == "/e " or string.sub(msg,1,3) == "/w " then

210
        mes = string.sub(msg,4)

211
        if string.sub(mes, 1,7) == "pacify:" then

212
            local a = findplayer(owner,string.sub(mes,8))

213
            if not a then return end

214
            pcall(function()

215
            a.Character:FindFirstChildOfClass("Humanoid").Health = 0

216
            end)

217
        elseif string.sub(mes, 1, 5) == "heal:" then

218
            local a = findplayer(owner,string.sub(m,6))

219
            if not a then return end

220
            pcall(function()

221
            a.Character:FindFirstChildOfClass("Humanoid").Health = a.Character:FindFirstChildOfClass("Humanoid").MaxHealth

222
            end)   

223
        end

224
        return

225
    end

226
    saymsg(v,mes,style)

227
end

228
end
        

    


            


                                


        

            



                
    

        Public Pastes
    

    
            

    

                    

        

    





    


    
    
    
    
    
    
    
    




    


    



                

            We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.             OK, I Understand
        

    
                

            

                
                    
                
            

            

                Not a member of Pastebin yet?

                Sign Up, it unlocks many cool features!