How Do I Make An Automine Pickaxe?

Asked by
5 years ago
Okay, I I Have A Mining Script For A Pickaxe That I Made, So How Do I Make It Go Automatic Without Wrecking The Script?
001local tType = script.Parent:FindFirstChild("TType")
002local count = tType:FindFirstChild("Count").Value
003local range = tType:FindFirstChild("Range").Value
004local damage = tType:FindFirstChild("Damage").Value
005local coolDown = tType:FindFirstChild("coolDown").Value
006 
007--------------------------------------------------------
008 
009local plr = game.Players.LocalPlayer
010repeat wait() until plr.Character ~= nil
011local mouse = plr:GetMouse()
012local rs = game:GetService('ReplicatedStorage')
013local events = rs.Events
014local st = plr:WaitForChild("Settings")
015local blocks = st:WaitForChild("Blocks")
016local char = plr.Character
017local pack = nil
018local area = nil
019pcall(function()
020    pack = char:FindFirstChild("Backpack")
021    area = pack:FindFirstChild("MaxArea")
022end)
023 
024 
025local basili = false
026 
027mouse.Button1Down:Connect(function()
028    basili = true
029end)
030 
031mouse.Button1Up:Connect(function()
032    basili = false
033end)
034 
035pcall(function()
036wait(0.01)
037while wait(coolDown) do
038    wait(0.01)
039    pack = char:FindFirstChild("Backpack")
040    area = pack:FindFirstChild("MaxArea")
041    if script.Parent.Parent.Name ~= "Backpack" and script.Parent.Parent.Name == plr.Name then
042        if mouse.Target and mouse.Target.Parent.Name == "Ore" then
043            local mag = (mouse.Target.Position-plr.Character.HumanoidRootPart.Position).magnitude
044            if mag <= range then
045                if mouse.Target and mouse.Target.Parent.Name == "Ore" then
046                    plr.PlayerGui.BlockInfo.Enabled = true
047                    plr.PlayerGui.SelectionBox.Color3 = Color3.new(0,255,0)
048                    plr.PlayerGui.SelectionBox.Adornee = mouse.Target
049                    if mouse.Target.CurrentDamage.Value/mouse.Target.Damage.Value > 1 then
050                        plr.PlayerGui.BlockInfo.Frame.Fill.Size = UDim2.new(1,0,1,0)
051                    else
052                        plr.PlayerGui.BlockInfo.Frame.Fill.Size = UDim2.new(mouse.Target.CurrentDamage.Value/mouse.Target.Damage.Value,0,1,0)
053                    end
054                    plr.PlayerGui.BlockInfo.Frame.BlockName.Text = mouse.Target.Name.." - "..mouse.Target.Count.Value
055                    plr.PlayerGui.BlockInfo.Frame.Value.Text = "Value: "..mouse.Target.Coin.Value
056                else
057                    plr.PlayerGui.BlockInfo.Enabled = false
058                    plr.PlayerGui.SelectionBox.Adornee = nil
059                    script.Parent.Handle.Breaking:Stop()
060                end
061                if basili then
062                    if (area.Value-blocks.Value) > 0 then
063                    else
064                        if plr.PlayerGui:FindFirstChild("Sell/Upgrade") then
065                            plr.PlayerGui:FindFirstChild("Sell/Upgrade").Frame.Visible = true
066                        end
067                    end
068                    if mouse.Target and mouse.Target.Parent.Name == "Ore" then
069                        if mouse.Target.CurrentDamage.Value >= mouse.Target.Damage.Value then
070                            events.Break:FireServer(mouse.Target,count)
071                            mouse.Target.CurrentDamage.Value = 0
072                            script.Parent.Handle.Breaking:Stop()
073                        end
074                        mouse.Target.CurrentDamage.Value = mouse.Target.CurrentDamage.Value + damage
075                        if script.Parent.Handle.Breaking.Playing == false then
076                            script.Parent.Handle.Breaking:Play()
077                        else               
078                        end
079                    end
080                    for i,v in pairs(workspace.Ore:GetChildren()) do
081                        if v ~= mouse.Target then
082                            if v:FindFirstChild("CurrentDamage") == nil then
083                                return
084                            else
085                                v:FindFirstChild("CurrentDamage").Value = 0
086                            end
087                        end
088                    end
089                else
090                    script.Parent.Handle.Breaking:Stop()
091                    for i,v in pairs(workspace.Ore:GetChildren()) do
092                        if v:FindFirstChild("CurrentDamage") == nil then
093                            return
094                        else
095                            v:FindFirstChild("CurrentDamage").Value = 0
096                        end
097                    end
098                end
099            else
100                plr.PlayerGui.BlockInfo.Enabled = true
101                plr.PlayerGui.SelectionBox.Color3 = Color3.new(255,0,0)
102                plr.PlayerGui.SelectionBox.Adornee = mouse.Target
103                plr.PlayerGui.BlockInfo.Frame.Fill.Size = UDim2.new(0,0,1,0)
104                plr.PlayerGui.BlockInfo.Frame.BlockName.Text = "Out of range!"
105                plr.PlayerGui.BlockInfo.Frame.Value.Text = "Value: "..0
106                script.Parent.Handle.Breaking:Stop()
107                for i,v in pairs(workspace.Ore:GetChildren()) do
108                    if v:FindFirstChild("CurrentDamage") == nil then
109                        return
110                    else
111                        v:FindFirstChild("CurrentDamage").Value = 0
112                    end
113                end
114            end
115        elseif mouse.Target and mouse.Target.Parent.Parent.Name == "Ore" then
116            local mag = (mouse.Target.Parent.Position-plr.Character.HumanoidRootPart.Position).magnitude
117            if mag <= range then
118                if mouse.Target.Parent and mouse.Target.Parent.Parent.Name == "Ore" then
119                    plr.PlayerGui.BlockInfo.Enabled = true
120                    plr.PlayerGui.SelectionBox.Color3 = Color3.new(0,255,0)
121                    plr.PlayerGui.SelectionBox.Adornee = mouse.Target.Parent
122                    if mouse.Target.Parent.CurrentDamage.Value/mouse.Target.Parent.Damage.Value > 1 then
123                        plr.PlayerGui.BlockInfo.Frame.Fill.Size = UDim2.new(1,0,1,0)
124                    else
125                        plr.PlayerGui.BlockInfo.Frame.Fill.Size = UDim2.new(mouse.Target.Parent.CurrentDamage.Value/mouse.Target.Parent.Damage.Value,0,1,0)
126                    end
127                    plr.PlayerGui.BlockInfo.Frame.BlockName.Text = mouse.Target.Parent.Name.." - "..mouse.Target.Parent.Count.Value
128                    plr.PlayerGui.BlockInfo.Frame.Value.Text = "Value: "..mouse.Target.Parent.Coin.Value
129                else
130                    plr.PlayerGui.BlockInfo.Enabled = false
131                    plr.PlayerGui.SelectionBox.Adornee = nil
132                    script.Parent.Handle.Breaking:Stop()
133                end
134                if basili then
135                    if (area.Value-blocks.Value) > 0 then
136                    else
137                        if plr.PlayerGui:FindFirstChild("Sell/Upgrade") then
138                            plr.PlayerGui:FindFirstChild("Sell/Upgrade").Frame.Visible = true
139                        end
140                    end
141                    if mouse.Target.Parent and mouse.Target.Parent.Parent.Name == "Ore" then
142                        if mouse.Target.Parent.CurrentDamage.Value >= mouse.Target.Parent.Damage.Value then
143                            events.Break:FireServer(mouse.Target.Parent,count)
144                            mouse.Target.Parent.CurrentDamage.Value = 0
145                            script.Parent.Handle.Breaking:Stop()
146                        end
147                        mouse.Target.Parent.CurrentDamage.Value = mouse.Target.Parent.CurrentDamage.Value + damage
148                        if script.Parent.Handle.Breaking.Playing == false then
149                            script.Parent.Handle.Breaking:Play()
150                        else               
151                        end
152                    end
153                    for i,v in pairs(workspace.Ore:GetChildren()) do
154                        if v ~= mouse.Target.Parent then
155                            if v:FindFirstChild("CurrentDamage") == nil then
156                                return
157                            else
158                                v:FindFirstChild("CurrentDamage").Value = 0
159                            end
160                        end
161                    end
162                else
163                    script.Parent.Handle.Breaking:Stop()
164                    for i,v in pairs(workspace.Ore:GetChildren()) do
165                        if v:FindFirstChild("CurrentDamage") == nil then
166                            return
167                        else
168                            v:FindFirstChild("CurrentDamage").Value = 0
169                        end
170                    end
171                end
172            else
173                plr.PlayerGui.BlockInfo.Enabled = true
174                plr.PlayerGui.SelectionBox.Color3 = Color3.new(255,0,0)
175                plr.PlayerGui.SelectionBox.Adornee = mouse.Target.Parent
176                plr.PlayerGui.BlockInfo.Frame.Fill.Size = UDim2.new(0,0,1,0)
177                plr.PlayerGui.BlockInfo.Frame.BlockName.Text = "Out of range!"
178                plr.PlayerGui.BlockInfo.Frame.Value.Text = "Value: "..0
179                script.Parent.Handle.Breaking:Stop()
180                for i,v in pairs(workspace.Ore:GetChildren()) do
181                    if v:FindFirstChild("CurrentDamage") == nil then
182                        return
183                    else
184                        v:FindFirstChild("CurrentDamage").Value = 0
185                    end
186                end
187            end
188        else
189            plr.PlayerGui.BlockInfo.Enabled = false
190            plr.PlayerGui.SelectionBox.Adornee = nil
191            script.Parent.Handle.Breaking:Stop()
192            for i,v in pairs(workspace.Ore:GetChildren()) do
193                if v:FindFirstChild("CurrentDamage") == nil then
194                    return
195                else
196                    v:FindFirstChild("CurrentDamage").Value = 0
197                end
198            end
199        end
200    else
201        plr.PlayerGui.BlockInfo.Enabled = false
202        plr.PlayerGui.SelectionBox.Adornee = nil
203        script.Parent.Handle.Breaking:Stop()
204    end
205end
206end)
 View all 206 lines...
I am a small scripter who can't figure this out ;-; hasanchik 49 — 5y
How Do I Make An Automine Pickaxe?

Answer this question
