diff options
Diffstat (limited to 'markers/init.lua')
-rw-r--r-- | markers/init.lua | 536 |
1 files changed, 536 insertions, 0 deletions
diff --git a/markers/init.lua b/markers/init.lua new file mode 100644 index 0000000..2e72af0 --- /dev/null +++ b/markers/init.lua @@ -0,0 +1,536 @@ + +-- markers are useful for measuring distances and for marking areas +-- markers are protected from digging by other players for one day +-- (the protection for the *marker* auto-expires then, and it can be digged) + +markers = {} + +dofile(minetest.get_modpath("markers").."/config.lua"); +dofile(minetest.get_modpath("markers").."/areas.lua"); +dofile(minetest.get_modpath("markers").."/marker_stone.lua"); +dofile(minetest.get_modpath("markers").."/land_title_register.lua"); + + +-- returns the first area found +markers.get_area_by_pos1_pos2 = function(pos1, pos2) + for id, area in pairs(areas.areas) do + + if( ((area.pos1.x == pos1.x and area.pos1.z == pos1.z ) + or (area.pos1.x == pos1.x and area.pos1.z == pos2.z ) + or (area.pos1.x == pos2.x and area.pos1.z == pos1.z ) + or (area.pos1.x == pos2.x and area.pos1.z == pos2.z )) + + and((area.pos2.x == pos1.x and area.pos2.z == pos1.z ) + or (area.pos2.x == pos1.x and area.pos2.z == pos2.z ) + or (area.pos2.x == pos2.x and area.pos2.z == pos1.z ) + or (area.pos2.x == pos2.x and area.pos2.z == pos2.z ))) then + + -- at least pos1 needs to have a hight value that fits in + if( (area.pos1.y <= pos1.y and area.pos2.y >= pos1.y) + or (area.pos1.y >= pos1.y and area.pos2.y <= pos1.y)) then + + local found = area; + found[ 'id' ] = id; + return found; + + end + end + end + return nil; +end + + + + + + +-- this function is supposed to return a text string describing the price of the land between po1 and pos2 +-- You can return somethiing like "for free" or "the promise to build anything good" as well as any +-- real prices in credits or materials - it's really just a text here. +-- Make sure you do not charge the player more than what you ask here. +markers.calculate_area_price_text = function( pos1, pos2, playername ) + + local price = ( math.abs( pos1.x - pos2.x )+1 ) + * ( math.abs( pos1.z - pos2.z )+1 ); + +-- * math.ceil( ( math.abs( pos1.y - pos2.y )+1 )/10); + + return tostring( price )..' credits'; +end + + + + +markers.marker_placed = function( pos, placer, itemstack ) + + if( not( pos ) or not( placer )) then + return; + end + + local meta = minetest.get_meta( pos ); + local name = placer:get_player_name(); + + meta:set_string( 'infotext', 'Marker at '..minetest.pos_to_string( pos ).. + ' (placed by '..tostring( name )..'). '.. + 'Right-click to update.'); + meta:set_string( 'owner', name ); + -- this allows protection of this particular marker to expire + meta:set_string( 'time', tostring( os.time()) ); + + local txt = ''; + + if( not( markers.positions[ name ] ) or #markers.positions[name]<1) then + markers.positions[ name ] = {}; + markers.positions[ name ][ 1 ] = pos; + + minetest.chat_send_player( name, + 'First marker set to position '.. + minetest.pos_to_string( markers.positions[ name ][ 1 ] ).. + '. Please place a second marker to measure distance. '.. + 'Place four markers in a square to define an area.'); + else + table.insert( markers.positions[ name ], pos ); + + local n = #markers.positions[ name ]; + + local dx = markers.positions[ name ][ n ].x - markers.positions[ name ][ n-1 ].x; + local dy = markers.positions[ name ][ n ].y - markers.positions[ name ][ n-1 ].y; + local dz = markers.positions[ name ][ n ].z - markers.positions[ name ][ n-1 ].z; + + local dir_name = "unknown"; + local d = 0; + if( dx == 0 and dz > 0 ) then dir_name = "north"; d = math.abs(dz); + elseif( dx == 0 and dz < 0 ) then dir_name = "south"; d = math.abs(dz); + elseif( dz == 0 and dx > 0 ) then dir_name = "east"; d = math.abs(dx); + elseif( dz == 0 and dx < 0 ) then dir_name = "west"; d = math.abs(dx); + elseif( dx == 0 and dz == 0 and dy > 0 ) then dir_name = "above"; d = math.abs(dy); + elseif( dx == 0 and dz == 0 and dy < 0 ) then dir_name = "below"; d = math.abs(dy); + else + + local area = (math.abs( dx )+1) + * (math.abs( dz )+1); + local volume = area * (math.abs( dy )+1); + + minetest.chat_send_player( name, 'This marker is at '.. + minetest.pos_to_string( markers.positions[ name ][ n ] )..', while the last one is at '.. + minetest.pos_to_string( markers.positions[ name ][ n-1 ] )..'. Distance (x/y/z): '.. + tostring(math.abs(dx))..'/'.. + tostring(math.abs(dy))..'/'.. + tostring(math.abs(dz)).. + '. Area: '..tostring( area )..' m^2. Volume: '..tostring( volume )..' m^3.'); + end + + -- this marker is aligned to the last one + if( d > 0 ) then + minetest.chat_send_player( name, 'Marker placed at '..minetest.pos_to_string( pos ).. + '. Relative to the marker you placed before, this one is '.. + tostring( d )..' m '..dir_name..'.'); + end + + -- make sure the list does not grow too large + if( n > markers.MAX_MARKERS ) then + table.remove( markers.positions[ name ], 1 ); + end + end +end + + + +markers.marker_can_dig = function(pos,player) + + if( not( pos ) or not( player )) then + return true; + end + + local meta = minetest.get_meta( pos ); + local owner = meta:get_string( 'owner' ); + local time = meta:get_string( 'time' ); + + -- can the marker be removed? + if( not( owner ) + or owner=='' + or not( time ) + or time=='' + or (os.time() - tonumber( time )) > markers.EXPIRE_AFTER ) then + + return true; + + -- marker whose data got lost anyway + elseif( not( markers.positions[ owner ] ) + or #markers.positions[ owner ] < 1 ) then + + return true; + + -- marker owned by someone else and still in use + elseif( owner ~= player:get_player_name()) then + + minetest.chat_send_player( player:get_player_name(), + 'Sorry, this marker belongs to '..tostring( owner ).. + '. If you still want to remove it, try again in '.. + ( tostring( markers.EXPIRE_AFTER + tonumber( time ) - os.time()))..' seconds.'); + return false; + + end + + return true; +end + + + + +markers.marker_after_dig_node = function(pos, oldnode, oldmetadata, digger) + + if( not(oldmetadata ) or not(oldmetadata['fields'])) then + return; + end + + local owner = oldmetadata['fields']['owner']; + if( not( owner ) + or owner=='' + or not( markers.positions[ owner ] ) + or #markers.positions[ owner ] < 1 ) then + + return; + end + + -- remove the markers position from our table of stored positions + local found = 0; + for i,v in ipairs( markers.positions[ owner ] ) do + if( v.x == pos.x + and v.y == pos.y + and v.z == pos.z ) then + found = i; + end + end + if( found ~= 0 ) then + table.remove( markers.positions[ owner ], found ); + end + return true; +end + + +--this function returns a min_pos and max_pos that are the corners +--of a box that contains ALL of the players active markers. +markers.get_box_from_markers = function(name) + if (not name) or (not (markers.positions[ name ][ 1 ] )) then + return {x=0,y=0,z=0},{x=1,y=1,z=1} + end + local min_pos={} + min_pos.x = markers.positions[ name ][ 1 ].x + min_pos.y = markers.positions[ name ][ 1 ].y + min_pos.z = markers.positions[ name ][ 1 ].z + local max_pos={} + max_pos.x = markers.positions[ name ][ 1 ].x + max_pos.y = markers.positions[ name ][ 1 ].y + max_pos.z = markers.positions[ name ][ 1 ].z + for i,p in ipairs( markers.positions[ name ] ) do + if p.x < min_pos.x then min_pos.x = p.x end + if p.x > max_pos.x then max_pos.x = p.x end + if p.y < min_pos.y then min_pos.y = p.y end + if p.y > max_pos.y then max_pos.y = p.y end + if p.z < min_pos.z then min_pos.z = p.z end + if p.z > max_pos.z then max_pos.z = p.z end + end + --print("getbox: min_pos.x="..min_pos.x.." y="..min_pos.y.." z="..min_pos.z) + --print(" : max_pos.x="..max_pos.x.." y="..max_pos.y.." z="..max_pos.z) + return min_pos, max_pos +end --get_box_from_markers + + + +markers.get_marker_formspec = function(player, pos, error_msg) + local formspec = ""; + + local meta = minetest.get_meta( pos ); + local owner = meta:get_string( 'owner' ); + + local name = player:get_player_name(); + + local formspec_info = "size[6,4]".. + "button_exit[2,2.5;1,0.5;abort;OK]".. + "textarea[1,1;4,2;info;Information;"; + if( owner ~= nil and owner ~= '' and owner ~= name ) then + return formspec_info.."This marker\ncan only be used by\n"..tostring( owner )..", who\nplaced the markers.]"; + end + + if( not( markers.positions[ name ]) or #markers.positions[name]<1) then + return formspec_info.."Information about the positions\nof your other markers\ngot lost.\nPlease dig and place\nyour markers again!]"; + end + + local n = #markers.positions[ name ]; + + if ( n < 2 ) then + return formspec_info.."Please place 2 or more markers\n - at least one in each corner\n of your area first]"; + end + + + local coords={} + coords[1],coords[2] = markers.get_box_from_markers(name) + + -- save data + meta:set_string( 'coords', minetest.serialize( coords ) ); + + if( not( coords ) or #coords < 2 or not( coords[1] ) or not( coords[2] )) then + return formspec_info.."Error in markers.]"; + end + + -- the coordinates are set; we may present an input form now + + -- has the area already been defined? + local area = markers.get_area_by_pos1_pos2( coords[1], coords[2] ); + + + local size = (math.abs( coords[1].x - coords[2].x )+1) + * (math.abs( coords[1].z - coords[2].z )+1); + + -- check if area is too large + if( markers.MAX_SIZE < size ) then + return formspec_info.."Error: You can only protect\nareas of up to "..tostring( markers.MAX_SIZE ).."m^2.\n".. + "Your marked area is "..tostring( size ).." m^2 large.]"; + end + + local formspec = 'size[10,7]'.. + 'label[0.5,1;The area you marked extends from]'.. + 'label[4.7,1;'..minetest.pos_to_string( coords[ 1 ] )..' to '..minetest.pos_to_string( coords[ 2 ] )..'.]'.. + 'label[4.7,1.5;It spans '..tostring( math.abs( coords[1].x - coords[2].x )+1 ).. + ' x '..tostring( math.abs( coords[1].z - coords[2].z )+1 ).. + ' = '..tostring( size )..' m^2.]'; + + -- display the error message (if there is any) + if( error_msg ~= nil ) then + formspec = formspec.. + 'label[0.5,0.0;Error: ]'.. + 'textarea[5.0,0;4,1.5;info;;'..error_msg..']'; + end + + if( area and area['id'] ) then + formspec = formspec.. + 'label[0.5,2.0;This is area number ]'.. + 'label[4.7,2.0;'..tostring( area['id'] )..'.]'.. + 'label[0.5,2.5;It is owned by ]'.. + 'label[4.7,2.5;'..tostring( area['owner'] )..'.]'.. + 'label[0.5,3.0;The area is called ]'.. + 'label[4.7,3.0;'..tostring( area['name'] )..'.]'.. + "button_exit[2,6.0;2,0.5;abort;OK]"; + else + formspec = formspec.. +-- 'label[0.5,2.0;Buying this area will cost you ]'.. +-- 'label[4.7,2.0;'..markers.calculate_area_price_text( coords[1], coords[2], name )..'.]'.. + + 'label[0.5,3.0;Your area ought to go..]'.. + 'label[0.5,3.5;this many blocks up:]'.. + 'field[5.0,4.0;1,0.5;add_height;;40]'.. + 'label[6.0,3.5;(above '..coords[2].y..' )]'.. + + 'label[0.5,4.0;and this many blocks down:]'.. + 'field[5.0,4.5;1,0.5;add_depth;;10]'.. + 'label[6.0,4.0;(below '..coords[1].y..' )]'.. + + 'label[0.5,4.5;The area shall be named]'.. + 'field[5.0,5.0;6,0.5;set_area_name;;please enter a name]'.. + + "button_exit[2,6.0;2,0.5;abort;Abort]".. + -- code the position in the "Buy area" field + "button_exit[6,6.0;2,0.5;"..minetest.pos_to_string(pos)..";Protect area]"; + end + + return formspec; +end + + + +-- protect/buy an area +markers.marker_on_receive_fields = function(pos, formname, fields, sender) + + if( not( pos )) then + minetest.chat_send_player( name, 'Sorry, could not find the marker you where using to access this formspec.' ); + return; + end + + + local meta = minetest.get_meta( pos ); + + local name = sender:get_player_name(); + + local coords_string = meta:get_string( 'coords' ); + if( not( coords_string ) or coords_string == '' ) then + minetest.chat_send_player( name, 'Could not find marked area. Please dig and place your markers again!'); + return; + end + local coords = minetest.deserialize( coords_string ); + + + -- do not protect areas twice + local area = markers.get_area_by_pos1_pos2( coords[1], coords[2] ); + if( area ) then + + minetest.chat_send_player( name, 'This area is already protected.'); + return; + end + + + -- check input + local add_height = tonumber( fields['add_height'] ); + local add_depth = tonumber( fields['add_depth'] ); + + local error_msg = ''; + if( not( add_height ) or add_height < 0 or add_height > markers.MAX_HEIGHT ) then + minetest.chat_send_player( name, 'Please enter a number between 0 and '..tostring( markers.MAX_HEIGHT ).. + ' in the field where the height of your area is requested. Your area will stretch that many blocks '.. + 'up into the sky from the position of this marker onward.'); + error_msg = 'The height value\nhas to be larger than 0\nand smaller than '..tostring( markers.MAX_HEIGHT ); + + elseif( not( add_depth ) or add_depth < 0 or add_depth > markers.MAX_HEIGHT ) then + minetest.chat_send_player( name, 'Please enter a number between 0 and '..tostring( markers.MAX_HEIGHT ).. + ' in the field where the depth of your area is requested. Your area will stretch that many blocks '.. + 'into the ground from the position of this marker onward.'); + error_msg = 'The depth value\nhas to be larger than 0\nand smaller than '..tostring( markers.MAX_HEIGHT ); + + elseif( add_height + add_depth > markers.MAX_HEIGHT ) then + minetest.chat_send_player( name, 'Sorry, your area exceeds the height limit. Height and depth added have to '.. + 'be smaller than '..tostring( markers.MAX_HEIGHT )..'.'); + error_msg = 'height + depth has to\nbe smaller than '..tostring( markers.MAX_HEIGHT )..'.' + + elseif( not( fields[ 'set_area_name' ] ) or fields['set_area_name'] == 'please enter a name' ) then + minetest.chat_send_player( name, 'Please provide a name for your area, i.e. \"'.. + tostring( name )..'s first house\" The name ought to describe what you intend to build here.'); + error_msg = 'Please provide a\nname for your area!'; + + else + error_msg = nil; + end + + + if( error_msg ~= nil ) then + minetest.show_formspec( name, "markers:mark", markers.get_marker_formspec(sender, pos, error_msg)); + return; + end + + + -- those coords lack the height component + local pos1 = coords[1]; + local pos2 = coords[2]; + -- apply height values from the formspeck + pos1.y = pos1.y - add_depth; + pos2.y = pos2.y + add_height; + + pos1, pos2 = areas:sortPos( pos1, pos2 ); + + --minetest.chat_send_player('singleplayer','INPUT: '..minetest.serialize( pos1 )..' pos2: '..minetest.serialize( pos2 )); + minetest.log("action", "[markers] /protect invoked, owner="..name.. + " areaname="..fields['set_area_name'].. + " startpos="..minetest.pos_to_string(pos1).. + " endpos=" ..minetest.pos_to_string(pos2)); + + local canAdd, errMsg = areas:canPlayerAddArea(pos1, pos2, name) + if not canAdd then + minetest.chat_send_player(name, "You can't protect that area: "..errMsg) + minetest.show_formspec( name, "markers:mark", markers.get_marker_formspec(sender, pos, errMsg)); + return + end + + local id = areas:add(name, fields['set_area_name'], pos1, pos2, nil) + areas:save() + + minetest.chat_send_player(name, "Area protected. ID: "..id) + + minetest.show_formspec( name, "markers:mark", markers.get_marker_formspec(sender, pos, nil)); +end + + + +-- formspec input needs to be handled diffrently +markers.form_input_handler = function( player, formname, fields) + + if( formname == "markers:mark" ) then + + + if( not(fields) or fields['abort']) then + return true; + end + + --- decode the position of the marker (which is hidden in the Buy-buttons name + local pos = {}; + for k, v in pairs( fields ) do + if( v == 'Protect area' ) then + pos = minetest.string_to_pos( k ); + end + end + if( pos and pos.x and pos.y and pos.z ) then + markers.marker_on_receive_fields(pos, formname, fields, player); + end + return true; + + + elseif( formname == "markers:info" + and player + and markers.menu_data_by_player[ player:get_player_name() ] ) then + + local res = markers.form_input_handler_areas( player, formname, fields); + if( res ) then + return true; + end + + -- TODO +-- minetest.chat_send_player('singleplayer','MARKERS:INFO WITH '..minetest.serialize( fields )); + + else + -- TODO +-- minetest.chat_send_player('singleplayer','YOU CALLED '..tostring( formname )..' WITH '..minetest.serialize( fields )); + + end + + return false; + +end + +minetest.register_on_player_receive_fields( markers.form_input_handler) + + + + +minetest.register_node("markers:mark", { + description = "Marker", + tiles = {"markers_mark.png"}, + drawtype = "nodebox", + paramtype = "light", + paramtype2 = "facedir", + groups = {snappy=2,choppy=2,oddly_breakable_by_hand=1}, --fixed on both buttons dig client crash + light_source = 1, + node_box = { + type = "fixed", + fixed = { + { -0.1, -0.5, -0.1, 0.1, 1.5, 0.1 }, + }, + }, + + after_place_node = function(pos, placer, itemstack) + markers.marker_placed( pos, placer, itemstack ); + end, + + -- the node is digged immediately, so we may as well do all the work in can_dig (any wrong digs are not that critical) + can_dig = function(pos,player) + return markers.marker_can_dig( pos, player ); + end, + + after_dig_node = function(pos, oldnode, oldmetadata, digger) + return markers.marker_after_dig_node( pos, oldnode, oldmetadata, digger ); + end, + + on_rightclick = function(pos, node, clicker) + + minetest.show_formspec( clicker:get_player_name(), + "markers:mark", + markers.get_marker_formspec(clicker, pos, nil) + ); + end, +}) + + +minetest.register_craft({ + output = "markers:mark 4", + recipe = { { "group:stick" }, + { "default:apple" }, + { "group:stick" }, + } }); + |