mirror of
https://github.com/sys4-fr/server-nalc.git
synced 2024-12-27 03:00:38 +01:00
537 lines
19 KiB
Lua
Executable File
537 lines
19 KiB
Lua
Executable File
|
|
-- 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 and minetest.get_player_privs(name)["megabuilder"] ~= true) 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 and minetest.get_player_privs(name)["megabuilder"] ~= true) 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 and minetest.get_player_privs(name)["megabuilder"] ~= true)) 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 and minetest.get_player_privs(name)["megabuilder"] ~= true)) 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 ) and minetest.get_player_privs(name)["megabuilder"] ~= true 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" },
|
|
} });
|
|
|