123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494 |
- if not minetest.global_exists("tide") then tide = {} end
- tide.modpath = minetest.get_modpath("machines")
- local math_random = math.random
- local item_group = minetest.get_item_group
- local vector_distance = vector.distance
- local BUFFER_SIZE = tech.tidal.buffer
- local ENERGY_AMOUNT = tech.tidal.power
- local function is_water(nn)
- if item_group(nn, "water") ~= 0 then
- return true
- end
- end
- local function count_nearby_ocean(startpos)
- local traversal = {}
- local queue = {}
- local curpos, hash, exists, name, found_water, found_tide, depth
- local first = true
- local get_node_hash = minetest.hash_node_position
- local get_node = minetest.get_node
- local num_waters = 0
- local num_tidals = 0
- startpos.d = 1
- queue[#queue+1] = startpos
- ::continue::
- curpos = queue[#queue]
- queue[#queue] = nil
- depth = curpos.d
- curpos.d = nil
- hash = get_node_hash(curpos)
- exists = false
- if traversal[hash] then
- exists = true
- if depth >= traversal[hash] then
- goto next
- end
- end
- if depth >= 20 then
- goto next
- end
- name = get_node(curpos).name
- found_water = false
- found_tide = false
- if is_water(name) then
- found_water = true
- elseif name == "tide:tide" then
- found_tide = true
- end
- if not found_water and not found_tide then
- goto next
- end
- traversal[hash] = depth
- if not exists then
- if found_tide then
-
-
- local mult = vector_distance(startpos, curpos) / -20 + 1
- if mult < 0 then mult = 0 end
- num_tidals = num_tidals + mult
- elseif found_water then
- num_waters = num_waters + 1
- end
- end
-
- queue[#queue+1] = {x=curpos.x+1, y=curpos.y, z=curpos.z, d=depth+1}
- queue[#queue+1] = {x=curpos.x-1, y=curpos.y, z=curpos.z, d=depth+1}
- queue[#queue+1] = {x=curpos.x, y=curpos.y+1, z=curpos.z, d=depth+1}
- queue[#queue+1] = {x=curpos.x, y=curpos.y-1, z=curpos.z, d=depth+1}
- queue[#queue+1] = {x=curpos.x, y=curpos.y, z=curpos.z+1, d=depth+1}
- queue[#queue+1] = {x=curpos.x, y=curpos.y, z=curpos.z-1, d=depth+1}
- ::next::
- first = false
- if #queue > 0 then
- goto continue
- end
- return num_waters, num_tidals
- end
- tide.on_energy_get =
- function(pos, energy)
- local meta = minetest.get_meta(pos)
- local inv = meta:get_inventory()
- local have = inv:get_stack("buffer", 1):get_count()
- if have < energy then
- inv:set_stack("buffer", 1, ItemStack(""))
- tide.trigger_update(pos)
- return have
- end
- have = have - energy
- inv:set_stack("buffer", 1, ItemStack("atomic:energy " .. have))
- tide.trigger_update(pos)
- return energy
- end
- tide.compose_formspec =
- function(pos)
- local formspec =
- "size[2,2.5]" ..
- default.gui_bg ..
- default.gui_bg_img ..
- default.gui_slots ..
- "label[0,0.5;Energy Buffer]" ..
- "list[context;buffer;0,1;1,1]"
- return formspec
- end
- tide.compose_infotext =
- function(pos)
- local meta = minetest.get_meta(pos)
- local eups = meta:get_int("eups")
- local state = "Standby"
- if meta:get_int("active") == 1 then
- state = "Active"
- end
- local infotext = "MV Tidal Generator (" .. state .. ")\n" ..
- "Output: " .. eups .. " EU Per/Sec"
- local err = meta:get_string("error")
- if err ~= "" and err ~= "DUMMY" then
- infotext = infotext .. "\n" .. err
- end
- return infotext
- end
- tide.trigger_update =
- function(pos)
- local timer = minetest.get_node_timer(pos)
-
- timer:start(1.0)
- end
- tide.on_punch =
- function(pos, node, puncher, pointed_thing)
- tide.trigger_update(pos)
- tide.privatize(minetest.get_meta(pos))
- end
- tide.can_dig =
- function(pos, player)
- return true
- end
- tide.check_environment =
- function(pos, meta)
- local timer = meta:get_int("chktmr")
- local active = meta:get_int("active")
- if timer <= 0 then
- local result = false
- local good = false
- local eups = ENERGY_AMOUNT
- local sides = {
- {x=pos.x+1, y=pos.y, z=pos.z},
- {x=pos.x-1, y=pos.y, z=pos.z},
- {x=pos.x, y=pos.y, z=pos.z+1},
- {x=pos.x, y=pos.y, z=pos.z-1},
- }
- local sidewater = 0
- for k, v in ipairs(sides) do
- if is_water(minetest.get_node(v).name) then
- sidewater = sidewater + 1
- end
- end
-
- local ocean, tidals = count_nearby_ocean({x=pos.x, y=pos.y, z=pos.z})
- if ocean >= 500 and sidewater >= 4 then
- good = true
- end
- if good then
-
-
- local div = tidals or 0
- if div < 1 then div = 1 end
-
-
-
-
- local amount = eups * (ocean / (17*11*17))
- if amount > eups then amount = eups end
-
-
-
- amount = amount / (div * 0.85)
-
- meta:set_int("chktmr", math_random(1, 60*3))
- meta:set_int("active", 1)
- meta:set_int("eups", amount)
- meta:set_string("error", "DUMMY")
- result = true
- else
-
-
-
- meta:set_int("chktmr", 0)
- meta:set_int("active", 0)
- meta:set_int("eups", 0)
- if sidewater < 4 then
- meta:set_string("error", "Machine not properly submerged!")
- elseif ocean == 0 then
- meta:set_string("error", "Turbine has insufficient contact with water!")
- elseif ocean < 500 then
- meta:set_string("error", "Insufficient current strength (" .. ocean .. ")!")
- else
- meta:set_string("error", "Unknown issue, please contact admin.")
- end
- result = false
- end
- meta:set_string("infotext", tide.compose_infotext(pos))
- return result
- end
-
- timer = timer - 1
- meta:set_int("chktmr", timer)
-
- return (active == 1)
- end
- tide.on_timer =
- function(pos, elapsed)
- local meta = minetest.get_meta(pos)
- local owner = meta:get_string("owner")
- local inv = meta:get_inventory()
- local keeprunning = false
-
-
- local canrun = tide.check_environment(pos, meta)
-
-
- if not canrun then
- local energy = inv:get_stack("buffer", 1)
- energy:set_count(net2.put_energy(pos, owner, energy:get_count(), "mv"))
- inv:set_stack("buffer", 1, energy)
- end
-
- local needdischarge = false
- if canrun then
- local eups = meta:get_int("eups")
- local energy = "atomic:energy " .. eups
- local stack = inv:get_stack("buffer", 1)
- if stack:get_count() >= BUFFER_SIZE then
- needdischarge = true
- end
- if not needdischarge then
- if inv:room_for_item("buffer", energy) then
- inv:add_item("buffer", energy)
- end
- end
- keeprunning = true
-
- if eups < 1 then
- keeprunning = false
- end
- end
-
- if needdischarge then
- local energy = inv:get_stack("buffer", 1)
-
- local old = energy:get_count()
- energy:set_count(net2.put_energy(pos, owner, old, "mv"))
- inv:set_stack("buffer", 1, energy)
- if energy:get_count() < old then
- keeprunning = true
- else
-
- keeprunning = false
- end
- end
-
- if keeprunning then
- minetest.get_node_timer(pos):start(1.0)
- else
-
- minetest.get_node_timer(pos):start(math_random(1, 3*60))
- meta:set_int("chktmr", 0)
- meta:set_int("active", 0)
- meta:set_int("eups", 0)
- meta:set_string("infotext", tide.compose_infotext(pos))
- end
- end
- tide.on_construct =
- function(pos)
- local meta = minetest.get_meta(pos)
- meta:set_int("eups", 0)
- meta:set_int("active", 0)
- meta:set_int("chktmr", 0)
- meta:set_string("error", "DUMMY")
- meta:set_string("owner", "DUMMY")
- meta:set_string("nodename", "DUMMY")
- tide.privatize(meta)
- end
- tide.privatize =
- function(meta)
- meta:mark_as_private({
- "nodename",
- "owner",
- "chktmr",
- "error",
- "eups",
- "active",
- })
- end
- tide.after_place_node =
- function(pos, placer, itemstack, pointed_thing)
- local meta = minetest.get_meta(pos)
- local node = minetest.get_node(pos)
- local owner = placer:get_player_name()
- local inv = meta:get_inventory()
- meta:set_string("owner", owner)
- meta:set_string("nodename", node.name)
- inv:set_size("buffer", 1)
- net2.clear_caches(pos, owner, "mv")
- meta:set_string("formspec", tide.compose_formspec(pos))
- meta:set_string("infotext", tide.compose_infotext(pos))
- nodestore.add_node(pos)
- local timer = minetest.get_node_timer(pos)
- timer:start(1.0)
- end
- tide.on_blast =
- function(pos)
- local drops = {}
- drops[#drops+1] = "tide:tide"
- minetest.remove_node(pos)
- return drops
- end
- tide.allow_metadata_inventory_put =
- function(pos, listname, index, stack, player)
- return 0
- end
- tide.allow_metadata_inventory_move =
- function(pos, from_list, from_index, to_list, to_index, count, player)
- return 0
- end
- tide.allow_metadata_inventory_take =
- function(pos, listname, index, stack, player)
- return 0
- end
- tide.on_metadata_inventory_move =
- function(pos)
- tide.trigger_update(pos)
- end
- tide.on_metadata_inventory_put =
- function(pos)
- tide.trigger_update(pos)
- end
- tide.on_metadata_inventory_take =
- function(pos, listname, index, stack, player)
- tide.trigger_update(pos)
- end
- tide.on_destruct =
- function(pos)
- local meta = minetest.get_meta(pos)
- net2.clear_caches(pos, meta:get_string("owner"), "mv")
- nodestore.del_node(pos)
- end
- if not tide.run_once then
- local nodebox = {
- {0, 16, 0, 16, 15, 16},
- {2, 15, 2, 14, 10, 14},
- {7, 15, 7, 9, -1, 9},
- {-6, 3, 6, 22, 4, 10},
- {6, 0, -6, 10, 1, 22},
- }
- for k, v in ipairs(nodebox) do
- for m, n in ipairs(v) do
- local p = nodebox[k][m]
- p = p / 16
- p = p - 0.5
- nodebox[k][m] = p
- end
- end
- minetest.register_node(":tide:tide", {
- drawtype = "nodebox",
- description = "MV Tidal Generator",
- tiles = {"technic_carbon_steel_block.png"},
- groups = utility.dig_groups("machine"),
- node_box = {
- type = "fixed",
- fixed = nodebox,
- },
- paramtype = "light",
- paramtype2 = "facedir",
- is_ground_content = false,
- sounds = default.node_sound_metal_defaults(),
- drop = "tide:tide",
- on_energy_get = function(...)
- return tide.on_energy_get(...) end,
- on_rotate = function(...)
- return screwdriver.rotate_simple(...) end,
- allow_metadata_inventory_put = function(...)
- return tide.allow_metadata_inventory_put(...) end,
- allow_metadata_inventory_move = function(...)
- return tide.allow_metadata_inventory_move(...) end,
- allow_metadata_inventory_take = function(...)
- return tide.allow_metadata_inventory_take(...) end,
- on_metadata_inventory_move = function(...)
- return tide.on_metadata_inventory_move(...) end,
- on_metadata_inventory_put = function(...)
- return tide.on_metadata_inventory_put(...) end,
- on_metadata_inventory_take = function(...)
- return tide.on_metadata_inventory_take(...) end,
- on_punch = function(...)
- return tide.on_punch(...) end,
- can_dig = function(...)
- return tide.can_dig(...) end,
- on_timer = function(...)
- return tide.on_timer(...) end,
- on_construct = function(...)
- return tide.on_construct(...) end,
- on_destruct = function(...)
- return tide.on_destruct(...) end,
- on_blast = function(...)
- return tide.on_blast(...) end,
- after_place_node = function(...)
- return tide.after_place_node(...) end,
- })
- minetest.register_craft({
- output = 'tide:tide',
- recipe = {
- {'', 'cb2:mv', ''},
- {'carbon_steel:ingot', 'techcrafts:machine_casing', 'carbon_steel:ingot'},
- {'', 'techcrafts:electric_motor', ''},
- }
- })
- local c = "tide:core"
- local f = tide.modpath .. "/tide.lua"
- reload.register_file(c, f, false)
- tide.run_once = true
- end
|