commit 0d7990f8a47c028ad1c48983c2cad3b1b7267f0e
Author: Sokomine <wegwerf@anarres.dyndns.org>
Date:   Wed Jan 9 02:03:26 2013 +0100

    first commit without textures and sound

diff --git a/README.md b/README.md
new file mode 100644
index 0000000..2ae085e
--- /dev/null
+++ b/README.md
@@ -0,0 +1,9 @@
+Bell that rings every hour as many times as the hour counts (1-12 times)
+Works like a church bell.
+
+Sound and textures not yet included.
+
+The positions of placed bells are saved. Thus, each bell can ring independently of the load status of the area the bell is in.
+
+You can ring a bell manually.
+
diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..1b4cda5
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,153 @@
+
+-- bell_positions are saved through server restart
+-- bells ring every hour
+-- they ring as many times as a bell ought to
+
+RING_INTERVAL = 3600; --60*60; -- ring each hour
+
+BELL_SAVE_FILE = minetest.get_modpath("bell").."/bell_positions.data";
+
+bell = {};
+
+local bell_positions = {};
+
+
+bell.save_bell_positions = function( player )
+  
+   str = minetest.serialize( ({ bell_data = bell_positions}) );
+
+   local file, err = io.open( BELL_SAVE_FILE, "wb");
+   if (err ~= nil) then
+      if( player ) then
+         minetest.chat_send_player(player:get_player_name(), "Error: Could not save bell data");
+      end
+      return
+   end
+   file:write( str );
+   file:flush();
+   file:close();
+   --minetest.chat_send_all("Wrote data to savefile "..tostring( BELL_SAVE_FILE ));
+end
+
+
+bell.restore_bell_data = function()
+
+   local bell_position_table;
+
+   local file, err = io.open(BELL_SAVE_FILE, "rb");
+   if (err ~= nil) then
+      if( player ) then
+         print("Error: Could not open bell data savefile (ignore this message on first start)");
+      end
+      return
+   end
+   local str = file:read();
+   file:close();
+   
+   bell_positions_table = minetest.deserialize( str );
+   if( bell_positions_table and bell_positions_table.bell_data ) then
+     bell_positions = bell_positions_table.bell_data;
+     print("[bell] Read positions of bells from savefile.");
+   end
+end
+   
+
+-- actually ring the bell
+bell.ring_bell_once = function()
+
+   for i,v in ipairs( bell_positions ) do
+-- print("Ringing bell at "..tostring( minetest.pos_to_string( v )));
+      minetest.sound_play( "bell_bell",
+        { pos = v, gain = 1.5, max_hear_distance = 300,});
+   end
+end
+
+
+
+bell.ring_bell = function()
+
+   -- figure out if this is the right time to ring
+   local sekunde = tonumber( os.date( "%S"));
+   local minute  = tonumber( os.date( "%M"));
+   local stunde  = tonumber( os.date( "%I")); -- in 12h-format (a bell that rings 24x at once would not survive long...)
+   local delay   = RING_INTERVAL;
+ 
+   --print("[bells]It is now H:"..tostring( stunde ).." M:"..tostring(minute).." S:"..tostring( sekunde ));
+
+   --local datum = os.date( "Stunde:%l Minute:%M Sekunde:%S");
+   --print('[bells] ringing bells at '..tostring( datum ))
+
+   delay = RING_INTERVAL - sekunde - (minute*60);
+
+   -- make sure the bell rings the next hour
+   minetest.after( delay, bell.ring_bell );
+
+   -- if no bells are around then don't ring
+   if( bell_positions == nil or #bell_positions < 1 ) then
+      return;
+   end
+
+   if( sekunde > 10 ) then
+--      print("[bells] Too late. Waiting for "..tostring( delay ).." seconds.");
+      return;
+   end
+
+   -- ring the bell for each hour once
+   for i=1,stunde do
+     minetest.after( (i-1)*5,  bell.ring_bell_once );
+   end
+
+end
+
+-- first call (after the server has been started)
+minetest.after( 10, bell.ring_bell );
+-- read data about bell positions
+bell.restore_bell_data();
+
+
+minetest.register_node("bell:bell", {
+    description = "bell",
+    node_placement_prediction = "",
+	tiles = {"bell_bell.png"},
+	paramtype = "light",
+	is_ground_content = true,
+    inventory_image = 'bell_bell.png',
+    wield_image = 'bell_bell.png',
+    stack_max = 1,
+	drawtype = "plantlike",
+    on_punch = function (pos,node,puncher)
+        minetest.sound_play( "bell_bell",
+           { pos = pos, gain = 1.5, max_hear_distance = 300,});
+	minetest.chat_send_all(puncher:get_player_name().." has rung the bell!")
+	end,
+
+    after_place_node = function(pos, placer)
+       if( placer ~= nil ) then
+          minetest.chat_send_all(placer:get_player_name().." has placed a new bell at "..tostring( minetest.pos_to_string( pos )));
+       end
+       -- remember that there is a bell at that position
+       table.insert( bell_positions, pos );
+       bell.save_bell_positions( placer );
+    end,
+
+    after_dig_node = function(pos, oldnode, oldmetadata, digger)
+       if( digger ~= nil ) then
+          minetest.chat_send_all(digger:get_player_name().." has removed the bell at "..tostring( minetest.pos_to_string( pos )));
+       end
+
+       local found = 0;
+       -- actually remove the bell from the list
+       for i,v in ipairs( bell_positions ) do
+          if( v ~= nil and v.x == pos.x and v.y == pos.y and v.z == pos.z ) then
+             found = i;
+          end
+       end
+       -- actually remove the bell
+       if( found > 0 ) then
+          table.remove( bell_positions, found );
+          bell.save_bell_positions( digger );
+       end
+    end,
+ 
+    groups = {cracky=2},
+})