From 053fa59739f4b772174bf0a090969b3395ab3f98 Mon Sep 17 00:00:00 2001
From: kpoppel <poulsen.kim@gmail.com>
Date: Tue, 02 Jul 2013 00:19:06 +0200
Subject: [PATCH] Merge pull request #38 from kpoppel/master
---
technic/water_mill.lua | 187 ++++++++++++++++++++++------------------------
1 files changed, 89 insertions(+), 98 deletions(-)
diff --git a/technic/water_mill.lua b/technic/water_mill.lua
index 52966ed..e6314f0 100644
--- a/technic/water_mill.lua
+++ b/technic/water_mill.lua
@@ -1,3 +1,6 @@
+-- A water mill produces LV EUs by exploiting flowing water across it
+-- It is a LV EU supplyer and fairly low yield (max 120EUs)
+-- It is a little under half as good as the thermal generator.
minetest.register_alias("water_mill", "technic:water_mill")
minetest.register_craft({
@@ -14,7 +17,7 @@
stack_max = 99,
})
-water_mill_formspec =
+local water_mill_formspec =
"invsize[8,4;]"..
"image[1,1;1,2;technic_power_meter_bg.png]"..
"label[0,0;Water Mill]"..
@@ -22,110 +25,98 @@
"list[current_player;main;0,5;8,4;]"
-minetest.register_node("technic:water_mill", {
- description = "Water Mill",
- tiles = {"technic_water_mill_top.png", "technic_machine_bottom.png", "technic_water_mill_side.png",
- "technic_water_mill_side.png", "technic_water_mill_side.png", "technic_water_mill_side.png"},
- paramtype2 = "facedir",
- groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
- legacy_facedir_simple = true,
- sounds = default.node_sound_wood_defaults(),
- technic_power_machine=1,
- internal_EU_buffer=0;
- internal_EU_buffer_size=5000;
- burn_time=0;
- on_construct = function(pos)
- local meta = minetest.env:get_meta(pos)
- meta:set_string("infotext", "Water Mill")
- meta:set_float("technic_power_machine", 1)
- meta:set_float("internal_EU_buffer", 0)
- meta:set_float("internal_EU_buffer_size", 3000)
- meta:set_string("formspec", water_mill_formspec)
- end,
+minetest.register_node(
+ "technic:water_mill",
+ {
+ description = "Water Mill",
+ tiles = {"technic_water_mill_top.png", "technic_machine_bottom.png", "technic_water_mill_side.png",
+ "technic_water_mill_side.png", "technic_water_mill_side.png", "technic_water_mill_side.png"},
+ paramtype2 = "facedir",
+ groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
+ legacy_facedir_simple = true,
+ sounds = default.node_sound_wood_defaults(),
+ on_construct = function(pos)
+ local meta = minetest.env:get_meta(pos)
+ meta:set_string("infotext", "Water Mill")
+ meta:set_float("technic_power_machine", 1)
+ meta:set_int("LV_EU_supply", 0)
+ meta:set_string("formspec", water_mill_formspec)
+ end,
+ })
+minetest.register_node(
+ "technic:water_mill_active",
+ {
+ description = "Water Mill",
+ tiles = {"technic_water_mill_top_active.png", "technic_machine_bottom.png", "technic_water_mill_side.png",
+ "technic_water_mill_side.png", "technic_water_mill_side.png", "technic_water_mill_side.png"},
+ paramtype2 = "facedir",
+ groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
+ legacy_facedir_simple = true,
+ sounds = default.node_sound_wood_defaults(),
+ drop="technic:water_mill",
})
-minetest.register_node("technic:water_mill_active", {
- description = "Water Mill",
- tiles = {"technic_water_mill_top_active.png", "technic_machine_bottom.png", "technic_water_mill_side.png",
- "technic_water_mill_side.png", "technic_water_mill_side.png", "technic_water_mill_side.png"},
- paramtype2 = "facedir",
- groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
- legacy_facedir_simple = true,
- sounds = default.node_sound_wood_defaults(),
- drop="technic:water_mill",
- technic_power_machine=1,
- internal_EU_buffer=0;
- internal_EU_buffer_size=0;
-})
+local check_node_around_mill = function(pos)
+ local node=minetest.env:get_node(pos)
+ if node.name=="default:water_flowing" then return 1 end
+ return 0
+ end
-minetest.register_abm({
- nodenames = {"technic:water_mill","technic:water_mill_active"},
- interval = 1,
- chance = 1,
- action = function(pos, node, active_object_count, active_object_count_wider)
+minetest.register_abm(
+ {
+ nodenames = {"technic:water_mill","technic:water_mill_active"},
+ interval = 1,
+ chance = 1,
+ action = function(pos, node, active_object_count, active_object_count_wider)
+ local meta = minetest.env:get_meta(pos)
+ local water_nodes = 0
+ local lava_nodes = 0
+ local production_level = 0
+ local eu_supply = 0
- local meta = minetest.env:get_meta(pos)
- local charge= meta:get_float("internal_EU_buffer")
- local max_charge= meta:get_float("internal_EU_buffer_size")
- local water_nodes = 0
- local lava_nodes = 0
- local production_level=0
- local load_step=0
-
- pos.x=pos.x+1
- local check=check_node_around_mill (pos)
- if check==1 then water_nodes=water_nodes+1 end
- pos.x=pos.x-2
- check=check_node_around_mill (pos)
- if check==1 then water_nodes=water_nodes+1 end
- pos.x=pos.x+1
- pos.z=pos.z+1
- check=check_node_around_mill (pos)
- if check==1 then water_nodes=water_nodes+1 end
- pos.z=pos.z-2
- check=check_node_around_mill (pos)
- if check==1 then water_nodes=water_nodes+1 end
- pos.z=pos.z+1
+ pos.x=pos.x+1
+ local check=check_node_around_mill (pos)
+ if check==1 then water_nodes=water_nodes+1 end
+ pos.x=pos.x-2
+ check=check_node_around_mill (pos)
+ if check==1 then water_nodes=water_nodes+1 end
+ pos.x=pos.x+1
+ pos.z=pos.z+1
+ check=check_node_around_mill (pos)
+ if check==1 then water_nodes=water_nodes+1 end
+ pos.z=pos.z-2
+ check=check_node_around_mill (pos)
+ if check==1 then water_nodes=water_nodes+1 end
+ pos.z=pos.z+1
- if water_nodes==1 then production_level=25 load_step=30 end
- if water_nodes==2 then production_level=50 load_step=60 end
- if water_nodes==3 then production_level=75 load_step=90 end
- if water_nodes==4 then production_level=100 load_step=120 end
+ if water_nodes==1 then production_level = 25; eu_supply = 30 end
+ if water_nodes==2 then production_level = 50; eu_supply = 60 end
+ if water_nodes==3 then production_level = 75; eu_supply = 90 end
+ if water_nodes==4 then production_level = 100; eu_supply = 120 end
- if production_level>0 then
- if charge+load_step>max_charge then
- load_step=max_charge-charge
- end
- if load_step>0 then
- charge=charge+load_step
- meta:set_float("internal_EU_buffer",charge)
- end
- end
+ if production_level>0 then
+ meta:set_int("LV_EU_supply", eu_supply)
+ end
- local load = math.floor((charge/max_charge)*100)
- meta:set_string("formspec",
- "invsize[8,4;]"..
- "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
- (load)..":technic_power_meter_fg.png]"..
- "label[0,0;Water Mill]"..
- "label[1,3;Power level]"..
- "label[4,0;Production at "..tostring(production_level).."%]"
- )
+ local load = 1 -- math.floor((charge/max_charge)*100)
+ meta:set_string("formspec",
+ "invsize[8,4;]"..
+ "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
+ (load)..":technic_power_meter_fg.png]"..
+ "label[0,0;Water Mill]"..
+ "label[1,3;Power level]"..
+ "label[4,0;Production at "..tostring(production_level).."%]"
+ )
- if production_level>0 and minetest.env:get_node(pos).name=="technic:water_mill" then
- hacky_swap_node (pos,"technic:water_mill_active")
- return
- end
- if production_level==0 then hacky_swap_node (pos,"technic:water_mill") end
-end
-})
+ if production_level>0 and minetest.env:get_node(pos).name=="technic:water_mill" then
+ hacky_swap_node (pos,"technic:water_mill_active")
+ meta:set_int("LV_EU_supply", 0)
+ return
+ end
+ if production_level==0 then hacky_swap_node (pos,"technic:water_mill") end
+ end
+ })
-function check_node_around_mill (pos)
-local node=minetest.env:get_node(pos)
-if node.name=="default:water_flowing" then return 1 end
-return 0
-end
-
-register_LV_machine ("technic:water_mill","PR")
-register_LV_machine ("technic:water_mill_active","PR")
+technic.register_LV_machine ("technic:water_mill","PR")
+technic.register_LV_machine ("technic:water_mill_active","PR")
--
Gitblit v1.8.0