RealBadAngel
2013-07-17 3bc6cad6710ad76f8a829a575f03fea00c589134
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
local mining_drill_max_charge=60000
local mining_drill_mk2_max_charge=240000
local mining_drill_mk3_max_charge=960000
local mining_drill_power_usage=200
local mining_drill_mk2_power_usage=600
local mining_drill_mk3_power_usage=1800
 
minetest.register_craft({
    output = 'technic:mining_drill',
    recipe = {
        {'technic:stainless_steel_ingot',     'technic:diamond_drill_head',     'technic:stainless_steel_ingot'},
        {'technic:stainless_steel_ingot',     'technic:motor',                 'technic:stainless_steel_ingot'},
        {'',                                'technic:red_energy_crystal',     'moreores:copper_ingot'},
    }
})
minetest.register_craft({
    output = 'technic:mining_drill_mk2',
    recipe = {
        {'technic:diamond_drill_head',         'technic:diamond_drill_head',     'technic:diamond_drill_head'},
        {'technic:stainless_steel_ingot',     'technic:mining_drill',         'technic:stainless_steel_ingot'},
        {'',                                 'technic:green_energy_crystal', ''},
    }
})
minetest.register_craft({
    output = 'technic:mining_drill_mk3',
    recipe = {
        {'technic:diamond_drill_head',         'technic:diamond_drill_head',     'technic:diamond_drill_head'},
        {'technic:stainless_steel_ingot',     'technic:mining_drill_mk2',     'technic:stainless_steel_ingot'},
        {'',                                 'technic:blue_energy_crystal',     ''},
    }
})
 
function drill_dig_it (pos, player,drill_type,mode)
    
    local charge
 
    if mode==1 then
        drill_dig_it0 (pos,player)
    end
    
    if mode==2 then -- 3 deep
        dir=drill_dig_it1(player)
        if dir==0 then -- x+
            drill_dig_it0 (pos,player)
            pos.x=pos.x+1
            drill_dig_it0 (pos,player)
            pos.x=pos.x+1
            drill_dig_it0 (pos,player)
        end
        if dir==1 then  -- x-
            drill_dig_it0 (pos,player)
            pos.x=pos.x-1
            drill_dig_it0 (pos,player)
            pos.x=pos.x-1
            drill_dig_it0 (pos,player)
        end
        if dir==2 then  -- z+
            drill_dig_it0 (pos,player)
            pos.z=pos.z+1
            drill_dig_it0 (pos,player)
            pos.z=pos.z+1
            drill_dig_it0 (pos,player)
        end
        if dir==3 then  -- z-
            drill_dig_it0 (pos,player)
            pos.z=pos.z+1
            drill_dig_it0 (pos,player)
            pos.z=pos.z+1
            drill_dig_it0 (pos,player)
        end
    end
    
    if mode==3 then -- 3 wide
        dir=drill_dig_it1(player)
        if dir==0 or dir==1 then -- x
            drill_dig_it0 (pos,player)
            pos.z=pos.z+1
            drill_dig_it0 (pos,player)
            pos.z=pos.z-2
            drill_dig_it0 (pos,player)
        end
        if dir==2 or dir==3 then  -- z
            drill_dig_it0 (pos,player)
            pos.x=pos.x+1
            drill_dig_it0 (pos,player)
            pos.x=pos.x-2
            drill_dig_it0 (pos,player)
        end
    end
    
    if mode==4 then -- 3 tall, selected in the middle
        drill_dig_it0 (pos,player)
        pos.y=pos.y+1
        drill_dig_it0 (pos,player)
        pos.y=pos.y-2
        drill_dig_it0 (pos,player)
    end
 
    if mode==5 then -- 3 x 3
        local dir=player:get_look_dir()
        if math.abs(dir.y)<0.5 then
            dir=drill_dig_it1(player)
                if dir==0 or dir==1 then -- x
                    drill_dig_it2(pos,player)
                end
                if dir==2 or dir==3 then  -- z
                    drill_dig_it3(pos,player)
                end
        else
        drill_dig_it4(pos,player)
        end
    end
    
    if drill_type==1 then charge=mining_drill_power_usage end
    if drill_type==2 then 
        if  mode==1 then charge=mining_drill_mk2_power_usage end
        if (mode==2 or mode==3 or mode==4) then charge=mining_drill_mk2_power_usage*3 end
    end
    if drill_type==3 then 
        if  mode==1 then charge=mining_drill_power_usage end
        if (mode==2 or mode==3 or mode==4) then charge=mining_drill_mk2_power_usage*6 end
        if mode==5 then charge=mining_drill_mk2_power_usage*9 end
    end
    minetest.sound_play("mining_drill", {pos = pos, gain = 1.0, max_hear_distance = 10,})
    return charge
end
 
function drill_dig_it0 (pos,player)
    local node=minetest.env:get_node(pos)
    if node.name == "air" or node.name == "ignore" then return end
    if node.name == "default:lava_source" then return end
    if node.name == "default:lava_flowing" then return end
    if node.name == "default:water_source" then minetest.env:remove_node(pos) return end
    if node.name == "default:water_flowing" then minetest.env:remove_node(pos) return end
    minetest.node_dig(pos,node,player)
end
 
function drill_dig_it1 (player)
    local dir=player:get_look_dir()
    if math.abs(dir.x)>math.abs(dir.z) then 
        if dir.x>0 then return 0 end
        return 1
    end
    if dir.z>0 then return 2 end
    return 3
end
 
function drill_dig_it2 (pos,player)
    drill_dig_it0 (pos,player)
    pos.z=pos.z+1
    drill_dig_it0 (pos,player)
    pos.z=pos.z-2
    drill_dig_it0 (pos,player)
    pos.z=pos.z+1
    pos.y=pos.y+1
    drill_dig_it0 (pos,player)
    pos.z=pos.z+1
    drill_dig_it0 (pos,player)
    pos.z=pos.z-2
    drill_dig_it0 (pos,player)
    pos.z=pos.z+1
    pos.y=pos.y-2
    drill_dig_it0 (pos,player)
    pos.z=pos.z+1
    drill_dig_it0 (pos,player)
    pos.z=pos.z-2
    drill_dig_it0 (pos,player)
end
function drill_dig_it3 (pos,player)
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    drill_dig_it0 (pos,player)
    pos.x=pos.x-2
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    pos.y=pos.y+1
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    drill_dig_it0 (pos,player)
    pos.x=pos.x-2
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    pos.y=pos.y-2
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    drill_dig_it0 (pos,player)
    pos.x=pos.x-2
    drill_dig_it0 (pos,player)
end
 
function drill_dig_it4 (pos,player)
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    drill_dig_it0 (pos,player)
    pos.x=pos.x-2
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    pos.z=pos.z+1
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    drill_dig_it0 (pos,player)
    pos.x=pos.x-2
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    pos.z=pos.z-2
    drill_dig_it0 (pos,player)
    pos.x=pos.x+1
    drill_dig_it0 (pos,player)
    pos.x=pos.x-2
    drill_dig_it0 (pos,player)
end
 
technic.register_power_tool ("technic:mining_drill",mining_drill_max_charge)
minetest.register_tool("technic:mining_drill", {
    description = "Mining Drill Mk1",
    inventory_image = "technic_mining_drill.png",
    stack_max = 1,
    on_use = function(itemstack, user, pointed_thing)
        if pointed_thing.type=="node" then 
        local item=itemstack:to_table()
        local meta=get_item_meta(item["metadata"])
        if meta==nil then return end --tool not charghed
        if meta["charge"]==nil then return end
        local charge=meta["charge"]
        if charge-mining_drill_power_usage>0 then
            charge_to_take=drill_dig_it(minetest.get_pointed_thing_position(pointed_thing, above),user,1,1)
            charge =charge-mining_drill_power_usage;
            meta["charge"]=charge
            item["metadata"]=set_item_meta(meta)
            technic.set_RE_wear(item,charge,mining_drill_max_charge)
            itemstack:replace(item)
            end
        return itemstack
        end
    end,
})
 
minetest.register_tool("technic:mining_drill_mk2", {
    description = "Mining Drill Mk2",
    inventory_image = "technic_mining_drill_mk2.png",
    on_use = function(itemstack, user, pointed_thing)
    mining_drill_mk2_handler(itemstack,user,pointed_thing)
    return itemstack
    end,
})
technic.register_power_tool ("technic:mining_drill_mk2",mining_drill_mk2_max_charge)
 
for i=1,4,1 do
technic.register_power_tool ("technic:mining_drill_mk2_"..i,mining_drill_mk2_max_charge)
minetest.register_tool("technic:mining_drill_mk2_"..i, {
    description = "Mining Drill Mk2 in Mode "..i,
    inventory_image = "technic_mining_drill_mk2.png^technic_tool_mode"..i..".png",
    wield_image = "technic_mining_drill_mk2.png",
    groups = {not_in_creative_inventory=1},
    on_use = function(itemstack, user, pointed_thing)
    mining_drill_mk2_handler(itemstack,user,pointed_thing)
    return itemstack
    end,
})
end
 
minetest.register_tool("technic:mining_drill_mk3", {
    description = "Mining Drill Mk3",
    inventory_image = "technic_mining_drill_mk3.png",
    on_use = function(itemstack, user, pointed_thing)
    mining_drill_mk3_handler(itemstack,user,pointed_thing)
    return itemstack
    end,
})
technic.register_power_tool ("technic:mining_drill_mk3",mining_drill_mk3_max_charge)
 
for i=1,5,1 do
technic.register_power_tool ("technic:mining_drill_mk3_"..i,mining_drill_mk3_max_charge)
minetest.register_tool("technic:mining_drill_mk3_"..i, {
    description = "Mining Drill Mk3 in Mode "..i,
    inventory_image = "technic_mining_drill_mk3.png^technic_tool_mode"..i..".png",
    wield_image = "technic_mining_drill_mk3.png",
    groups = {not_in_creative_inventory=1},
    on_use = function(itemstack, user, pointed_thing)
    mining_drill_mk3_handler(itemstack,user,pointed_thing)
    return itemstack
    end,
})
end
 
function mining_drill_mk2_handler (itemstack,user,pointed_thing)
    local keys=user:get_player_control()
    local player_name=user:get_player_name()
    local item=itemstack:to_table()
    local meta=get_item_meta(item["metadata"])
    if meta==nil or keys["sneak"]==true then return mining_drill_mk2_setmode(user,itemstack) end
    if meta["mode"]==nil then return mining_drill_mk2_setmode(user,itemstack) end
    if pointed_thing.type~="node" then return end
    if meta["charge"]==nil then return end
    charge=meta["charge"]
    if charge-mining_drill_power_usage>0 then
        local charge_to_take=drill_dig_it(minetest.get_pointed_thing_position(pointed_thing, above),user,2,meta["mode"])
        charge=charge-charge_to_take;
        if charge<0 then charge=0 end
        meta["charge"]=charge
        item["metadata"]=set_item_meta(meta)
        technic.set_RE_wear(item,charge,mining_drill_mk2_max_charge)
        itemstack:replace(item)
    end
    return itemstack
end
 
function mining_drill_mk3_handler (itemstack,user,pointed_thing)
    local keys=user:get_player_control()
    local player_name=user:get_player_name()
    local item=itemstack:to_table()
    local meta=get_item_meta(item["metadata"])
    if meta==nil or keys["sneak"]==true then return mining_drill_mk3_setmode(user,itemstack) end
    if meta["mode"]==nil then return mining_drill_mk3_setmode(user,itemstack) end
    if pointed_thing.type~="node" then return end
    if meta["charge"]==nil then return end
    local charge=meta["charge"]
    if charge-mining_drill_power_usage>0 then
        local charge_to_take=drill_dig_it(minetest.get_pointed_thing_position(pointed_thing, above),user,3,meta["mode"])
        charge=charge-charge_to_take;
        if charge<0 then charge=0 end
        meta["charge"]=charge
        item["metadata"]=set_item_meta(meta)
        technic.set_RE_wear(item,charge,mining_drill_mk3_max_charge)
        itemstack:replace(item)
    end
    return itemstack
end
 
mining_drill_mode_text={
{"Single node."},
{"3 nodes deep."},
{"3 modes wide."},
{"3 modes tall."},
{"3x3 nodes."},
}
 
function mining_drill_mk2_setmode(user,itemstack)
    local player_name=user:get_player_name()
    local item=itemstack:to_table()
    local meta=get_item_meta(item["metadata"])
    if meta==nil then
        meta={}
        mode=0
    end
    if meta["mode"]==nil then
        minetest.chat_send_player(player_name,"Hold shift and use to change Mining Drill Mk2 modes.")
        meta["mode"]=0
        mode=0
    end
    mode=(meta["mode"])
    mode=mode+1
    if mode>=5 then mode=1 end
    minetest.chat_send_player(player_name, "Mining Drill Mk2 mode : "..mode.." - "..mining_drill_mode_text[mode][1] )
    item["name"]="technic:mining_drill_mk2_"..mode
    meta["mode"]=mode
    item["metadata"]=set_item_meta(meta)
    itemstack:replace(item)
    return itemstack
end
 
function mining_drill_mk3_setmode(user,itemstack)
    local player_name=user:get_player_name()
    local item=itemstack:to_table()
    local meta=get_item_meta(item["metadata"])
    if meta==nil then
        meta={}
        mode=0
    end
    if meta["mode"]==nil then
        minetest.chat_send_player(player_name,"Hold shift and use to change Mining Drill Mk3 modes.")
        meta["mode"]=0
        mode=0
    end
    mode=(meta["mode"])
    mode=mode+1
    if mode>=6 then mode=1 end
    minetest.chat_send_player(player_name, "Mining Drill Mk3 mode : "..mode.." - "..mining_drill_mode_text[mode][1] )
    item["name"]="technic:mining_drill_mk3_"..mode
    meta["mode"]=mode
    item["metadata"]=set_item_meta(meta)
    itemstack:replace(item)
    return itemstack
end