Scripting Helpers is winding down operations and is now read-only. More info→

What is wrong With This chat Bubble script?

Asked by

Mauvn 100

11 years ago

I have a Chat Bubble Script that if a Player Talk The chat bubble over his head will show his Group rank, But it's not working. Please Help!

001function clear(char)
002local c = char:GetChildren()
003    for i = 1,#c do
004    if c[i].className == "Model" then
005    c[i]:Remove()
006    end
007    end
008end
009 
010 
011function onChatted(msg, recipient, speaker) 
012    if speaker.Character ~= nil then
013        clear(speaker.Character)
014        if msg == "RANK" then
015            local person = game.Workspace.MainScript.Members:findFirstChild(speaker.Name)
016            if person ~= nil then
017                local bubble = script.BubbleSpeech:clone()
018                bubble.PrevL.Value = 30
019                bubble.Name = person.Name.." is rank "..tostring(person.Value)  
020                bubble.Head.BrickColor = BrickColor.new("Toothpaste")
021                bubble.Parent = speaker.Character
022            else
023                local bubble = script.BubbleSpeech:clone()
024                bubble.PrevL.Value = 30
025                bubble.Name = speaker.Name.." is not a member of SS"   
026                bubble.Head.BrickColor = BrickColor.new("Toothpaste")   
027                bubble.Parent = speaker.Character
028            end
029        else
030 
031            if string.len(msg) < 101 then
032                local bubble = script.BubbleSpeech:clone()
033                bubble.Name = msg
034                bubble.PrevL.Value = string.len(bubble.Name)
035                bubble.Parent = speaker.Character
036                bubble.Head.Anchored = false
037                bubble.Head.CanCollide = false
038            end
039            if string.len(msg) > 100 and string.len(msg) < 201 then
040 
041                local bubble = script.BubbleSpeech:clone()
042                bubble.Name = string.sub(msg,1,100)
043                bubble.PrevL.Value = 100
044                bubble.Parent = speaker.Character
045                bubble.Head.Anchored = false
046                bubble.Head.CanCollide = false
047                --bubble.Row.Value = 1.5
048 
049                local bubble2 = script.BubbleSpeech:clone()
050                bubble2.Name = string.sub(msg,100,200)
051                bubble2.PrevL.Value = 100 + string.len(bubble2.Name)
052                bubble2.Parent = speaker.Character
053                bubble2.Head.Anchored = false
054                bubble2.Head.CanCollide = false
055 
056 
057 
058 
059 
060            end
061            if string.len(msg) > 200 and string.len(msg) < 301 then
062 
063                local bubble = script.BubbleSpeech:clone()
064                bubble.Name = string.sub(msg,1,100)
065                bubble.PrevL.Value = 100
066                bubble.Parent = speaker.Character
067                bubble.Head.Anchored = false
068                bubble.Head.CanCollide = false
069                --bubble.Row.Value = 3
070 
071 
072 
073                wait(0.5)
074 
075                local bubble2 = script.BubbleSpeech:clone()
076                bubble2.Name = string.sub(msg,100,200)
077                bubble2.PrevL.Value = 200
078                bubble2.Parent = speaker.Character
079                bubble2.Head.Anchored = false
080                bubble2.Head.CanCollide = false
081 
082                --bubble2.Row.Value = 1.5
083 
084                wait(0.5)
085                local bubble3 = script.BubbleSpeech:clone()
086                bubble3.Name = string.sub(msg,200,300)
087                bubble3.PrevL.Value = 200 + string.len(bubble3.Name)
088                bubble3.Parent = speaker.Character
089                bubble3.Head.Anchored = false
090                bubble3.Head.CanCollide = false
091 
092 
093 
094 
095            end
096        end
097    end
098 
099end
100 
101function onPlayerEntered(newPlayer) 
102 
103    newPlayer.Chatted:connect(function(msg, recipient) onChatted(msg, recipient, newPlayer) end) 
104end
105 
106game.Players.ChildAdded:connect(onPlayerEntered)
 View all 106 lines...

I'm afraid this script will took too much time to look trough so you are most likely not going to get an answer unless you narrow the problem Destrings 406 — 11y

Sorry for that some people need the hole script to solve it :/ Mauvn 100 — 11y

1 answer

Answered by

TheMyrco 375

11 years ago

I don't know what BubbleSpeech exactly is, but try this:

01function clear(char)
02    for _,v in pairs(char:GetChildren()) do
03        if v:IsA("Model") then
04            v:Destroy()
05        end
06    end
07end
08 
09game.Players.PlayerAdded:connect(function(p)
10    p.Chatted:connect(function(msg)
11        if p.Character then
12            clear(p.Character)
13            if msg == "RANK" then
14                local player = workspace.MainScript.Members:FindFirstChild(p.Name)
15                local bubble = script.BubbleSpeech:Clone()
16                bubble.PrevL.Value = 30
17                bubble.Head.BrickColor = BrickColor.new("Toothpaste")
18                bubble.Parent = p.Character
19                if player then
20                    bubble.Name = p.Name.." is rank "..tostring(player.Value)  
21                else
22                    bubble.Name = p.Name.." is not a member of SS" 
23                end
24                if msg:len() / 100 < 1 then
25                    local bubble = script.BubbleSpeech:Clone()
26                    bubble.Name = msg
27                    bubble.PrevL.Value = msg:len()
28                    bubble.Parent = p.Character
29                    bubble.Head.Anchored = false
30                    bubble.Head.CanCollide = false
31                elseif msg:len() / 100 > 1 then
32                    for x = 0, math.ceil(msg:len() / 100) do
33                        local bubble = script.BubbleSpeech:Clone()
34                        if x == 0 and math.floor(msg:len() / 100) == 0 then
35                            bubble.Name = msg:sub(1, 100)
36                        elseif x > 0 and math.floor(msg:len() / 100) == x then
37                            bubble.Name = msg:sub((x * 100) + 1, msg:len())
38                        elseif x > 0 and math.floor(msg.len() / 100) ~= x then
39                            bubble.Name = msg:sub((x * 100) + 1, (x+ 1) * 100)
40                        end
41                        bubble.PrevL.Value = x * 100
42                        bubble.Parent = p.Character
43                        bubble.Head.Anchored = false
44                        bubble.Head.CanCollide = false
45                    end
46                else
47                    print("Error.")
48                end
49            end
50        end
51    end)
52end)
 View all 52 lines...

What is wrong With This chat Bubble script?

1 answer

Answer this question