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

'Infinite mining' and preventing overlapping?

Asked by

Dummiez 360

11 years ago

Alright, so I decided to work on a pickaxe that basically generates new blocks when the previous block is destroyed, creating an 'infinite mine' effect. If you ever heard of, or played the game Epic Mining 2 by Piedude777, his is able to detect whether that area has already been mined.

01-- This is a portion of the script that handles generation of dirt.
02 
03function onMouseButton1Down(mouse)
04 
05-- Target, Surface selection and storage (shortened).
06 
07local target = mouse.Target
08local surface = mouse.TargetSurface
09local dirt = game.ReplicatedStorage.Dirt
10 
11local a,b,c,d,e = dirt:Clone(), dirt:Clone(), dirt:Clone(), dirt:Clone(), dirt:Clone() -- such mess
12a.Parent, b.Parent, c.Parent, d.Parent, e.Parent = Workspace, Workspace, Workspace, Workspace, Workspace
13 
14-- Checking mouse target and generate according to where they clicked.
15 
16if surface == Enum.NormalId.Left then print("Left")
17    a.CFrame = CFrame.new(target.CFrame.x + 8,target.CFrame.y,target.CFrame.z)
18    b.CFrame = CFrame.new(target.CFrame.x,target.CFrame.y + 8,target.CFrame.z)
19    c.CFrame = CFrame.new(target.CFrame.x,target.CFrame.y - 8,target.CFrame.z)
20    d.CFrame = CFrame.new(target.CFrame.x,target.CFrame.y,target.CFrame.z + 8)
21    e.CFrame = CFrame.new(target.CFrame.x,target.CFrame.y,target.CFrame.z - 8)
22elseif surface == Enum.NormalId.Top then print("Top")
23    a.CFrame = CFrame.new(target.CFrame.x + 8,target.CFrame.y,target.CFrame.z)
24    b.CFrame = CFrame.new(target.CFrame.x - 8,target.CFrame.y,target.CFrame.z)
25    c.CFrame = CFrame.new(target.CFrame.x,target.CFrame.y - 8,target.CFrame.z)
26    d.CFrame = CFrame.new(target.CFrame.x,target.CFrame.y,target.CFrame.z + 8)
27    e.CFrame = CFrame.new(target.CFrame.x,target.CFrame.y,target.CFrame.z - 8)      
28elseif surface == Enum.NormalId.Bottom then print("Bottom")
29 
30--- And you get the rest.. (Bottom,  Right,  Back,  Front)
31 
32end
33game:GetService("Debris"):AddItem(target, 0)
34 
35end
 View all 35 lines...

I'm trying to get that same effect in this, any ideas on how I could do that? (Basically not generating new blocks over areas where the block has been mined.)

1 answer

Answered by

IPlayOnline -2

11 years ago

in Workspace you need a RBXAPI/RBXAPIServer/OnMined

ServerScriptService you need:

001local rbxapi    = require(workspace.RBXAPI)
002local storage   = game:GetService("ServerStorage")
003local minerals  = {}
004local mineral_count = 0
005local mineral_probability = {
006    {"Grass"},
007    {"Dirt"},
008    {"Dirt", "Dirt", "Dirt", "Coal", "Dirt", "Sand", "Dirt", "Dirt", "Dirt", "Stone", "Stone"},
009    {"Dirt", "Coal", "Dirt", "Dirt", "Dirt", "Stone", "Stone"},
010    {"Coal", "Dirt", "Dirt", "Copper", "Dirt", "Stone", "Stone", "Stone"},
011    {"Gold", "Iron", "Iron", "Stone", "Stone", "Coal", "Coal", "Dirt", "Dirt", "Sand", "Copper", "Stone", "Stone"},
012    {"Gold", "Iron", "Iron", "Stone", "Stone", "Coal", "Coal", "Dirt", "Dirt", "Sand", "Copper", "Stone", "Stone", "Gold", "Ruby"},
013    {"Gold", "Iron", "Iron", "Stone", "Stone", "Coal", "Coal", "Dirt", "Dirt", "Sand", "Copper", "Stone", "Stone", "Emerald", "Gold", "Gold", "Ruby"},
014    {"Gold", "Iron", "Gold", "Stone", "Coal", "Coal", "Stone", "Copper", "Copper", "Emerald", "Gold", "Ruby", "Ruby", "Ruby", "Emerald", "Stone", "Stone", "Stone", "Stone"},
015    {"Gold", "Iron", "Gold", "Stone", "Coal", "Coal", "Stone", "Copper", "Copper", "Emerald", "Gold", "Ruby", "Ruby", "Ruby", "Emerald", "Stone", "Stone", "Stone", "Stone"},
016    {"Gold", "Iron", "Gold", "Stone", "Coal", "Coal", "Stone", "Copper", "Copper", "Emerald", "Gold", "Ruby", "Ruby", "Ruby", "Emerald", "Stone", "Stone", "Stone", "Stone"},
017    {"Gold", "Gold", "Iron", "Iron", "Robloxium", "Copper", "Copper", "Emerald", "Emerald", "Emerald", "Ruby", "Ruby", "Stone", "Stone", "Stone", "Stone", "Dirt", "Stone", "Stone"},
018    {"Gold", "Gold", "Iron", "Iron", "Robloxium", "Copper", "Copper", "Emerald", "Emerald", "Emerald", "Ruby", "Ruby", "Stone", "Stone", "Stone", "Stone", "Dirt", "Stone", "Stone"},
019    {"Gold", "Gold", "Iron", "Iron", "Robloxium", "Copper", "Copper", "Emerald", "Emerald", "Emerald", "Ruby", "Ruby", "Stone", "Stone", "Stone", "Stone", "Dirt", "Stone", "Stone"},
020    {"Gold", "Gold", "Iron", "Iron", "Robloxium", "Copper", "Copper", "Emerald", "Emerald", "Emerald", "Ruby", "Ruby", "Stone", "Stone", "Stone", "Stone", "Dirt", "Stone", "Stone"},
021    {"Gold", "Gold", "Iron", "Iron", "Robloxium", "Copper", "Copper", "Emerald", "Emerald", "Emerald", "Ruby", "Ruby", "Stone", "Stone", "Stone", "Stone", "Dirt", "Stone", "Stone"},
022    {"Gold", "Gold", "Iron", "Iron", "Robloxium", "Copper", "Copper", "Emerald", "Emerald", "Emerald", "Ruby", "Ruby", "Stone", "Stone", "Stone", "Stone", "Dirt", "Stone", "Stone"},
023    {"Gold", "Gold", "Iron", "Iron", "Robloxium", "Copper", "Copper", "Emerald", "Emerald", "Emerald", "Ruby", "Ruby", "Stone", "Stone", "Stone", "Stone", "Dirt", "Stone", "Stone"},
024    {"Gold", "Gold", "Iron", "Iron", "Robloxium", "Copper", "Copper", "Emerald", "Emerald", "Emerald", "Ruby", "Ruby", "Stone", "Stone", "Stone", "Stone", "Dirt", "Stone", "Stone"},
025    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
026    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
027    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
028    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
029    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
030    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
031    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
032    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
033    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
034    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
035    {"Robloxium", "Robloxium", "Robloxium", "Copper", "Gold", "Gold", "Iron", "Iron", "Iron", "Ruby", "Ruby", "Emerald"},
036    {"Marble"}
037}
038local world = {}
039local height
040local size = {64, 64}
041local blockSize = 8
042local app = rbxapi.new("037af93efe04aaf6287fea99ae1c8d5ee0ca1b0c7292641445cd1a4360d49cc9")
043local OnMinedFunction = workspace.OnMined
044local RBXAPIService = workspace.RBXAPIServer
045 
046function OnMinedFunction.OnServerInvoke(player, layerData)
047    local x = layerData.x
048    local y = layerData.y
049    local layerID = layerData.z
050 
051    Instantiate(world[layerID + 1], y, x, layerID + 1)
052    Instantiate(world[layerID - 1], y, x, layerID - 1)
053 
054    Instantiate(world[layerID + 1], y + 1, x, layerID + 1)
055    Instantiate(world[layerID + 1], y, x + 1, layerID + 1)
056    Instantiate(world[layerID + 1], y - 1, x, layerID + 1)
057    Instantiate(world[layerID + 1], y, x - 1, layerID + 1)
058 
059    Instantiate(world[layerID], y + 1, x, layerID)
060    Instantiate(world[layerID], y, x + 1, layerID)
061    Instantiate(world[layerID], y - 1, x, layerID)
062    Instantiate(world[layerID], y, x - 1, layerID)
063 
064    Instantiate(world[layerID - 1], y + 1, x, layerID - 1)
065    Instantiate(world[layerID - 1], y, x + 1, layerID - 1)
066    Instantiate(world[layerID - 1], y - 1, x, layerID - 1)
067    Instantiate(world[layerID - 1], y, x - 1, layerID - 1)
068end
069 
070function RBXAPIService.OnServerInvoke(player, method, key, value)
071    if method == "set" then
072        app:Set(player.Name .. " " .. key, value)
073    elseif method == "get" then
074        RBXAPIService:InvokeClient(player, key, app:Get(player.Name .. " " .. key).output)
075    end
076end
077 
078function GetMineral(name)
079    return minerals[name] ~= nil and minerals[name] or nil
080end
081 
082function GenerateLayer(y, width, depth)
083    local prob  
084 
085    print(y)
086 
087    if y > #mineral_probability then
088        prob = mineral_probability[#mineral_probability]
089    elseif y < 1 then
090        return nil
091    else
092        prob = mineral_probability[y]
093    end
094 
095    local layer = {}
096 
097    for y = 1, depth do
098        layer[y] = {}
099        for x = 1, width do
100            -- type, HasMined, HasInstanced
101            layer[y][x] = {prob[math.random(1, #prob)], false, false}
102        end
103    end
104 
105    return layer
106end
107 
108function Instantiate(layer, y, x, i)
109    if layer == nil then
110        layer = GenerateLayer(i, size[1], size[2])
111 
112        if layer == nil then return end    
113        table.insert(world, layer)
114    end
115 
116    if layer[y] == nil then layer[y] = {} end
117 
118    if layer[y][x] == nil then
119        local prob
120 
121        if i > #mineral_probability then
122            prob = mineral_probability[#mineral_probability]
123        else
124            prob = mineral_probability[i]
125        end    
126 
127        layer[y][x] = {prob[math.random(1, #prob)], false, false}
128    end
129 
130    if layer[y][x][3] then return end
131 
132    local p = GetMineral(layer[y][x][1]):clone()
133    p.Parent = workspace.Minespace
134    p.Size = Vector3.new(blockSize, blockSize, blockSize)
135    p.CFrame = CFrame.new(Vector3.new(x * blockSize, height - (i * blockSize), y * blockSize))
136 
137    local props = Instance.new("Vector3Value")
138    props.Value = Vector3.new(x, y, i)
139    props.Name  = "Layer Data"
140    props.Parent = p
141 
142    layer[y][x][3] = true
143end
144 
145function Load()
146    game:GetService("StarterGui").ResetPlayerGuiOnSpawn = false
147 
148    local objects = storage:GetChildren()
149 
150    for i, v in ipairs(objects) do
151        if v.Name == "Mineral" and v:IsA("Part") and v:FindFirstChild("Type") ~= nil then
152            minerals[v.Type.Value] = v
153            mineral_count = mineral_count + 1
154        end
155    end
156 
157    height = #mineral_probability * blockSize
158 
159    local spawn = Instance.new("SpawnLocation", workspace)
160    spawn.CanCollide = false
161    spawn.Anchored = true
162    spawn.Transparency = 1
163    spawn.Position = Vector3.new(size[1] * blockSize / 2, height + 20, size[2] * blockSize / 2)
164 
165    for i = 1, #mineral_probability do
166        local layer = GenerateLayer(i, size[1], size[2])
167 
168        if i == 1 then
169            for y = 1, #layer do
170                for x = 1, #layer[y] do
171                    Instantiate(layer, y, x, i)
172                end
173            end
174        end    
175 
176        table.insert(world, layer)
177    end
178 
179    print("Loaded")
180end
181 
182Load()
 View all 182 lines...

In ServerStorage you need:

12 Bricks with a Type value in them. Named Mineral

In sound Service you need A bunch of sounds revlant to the script.

For screen GUi there is the model in my models I will have.

And that is the whole thing for a mining game.

'Infinite mining' and preventing overlapping?

1 answer

Answer this question