forked from ThomasMonroe314/ugxrealms
add areas, markers, and name_restrictions mods
parent
655c9036ec
commit
1118ecfbb5
|
@ -0,0 +1,2 @@
|
|||
*~
|
||||
|
|
@ -0,0 +1,502 @@
|
|||
GNU LESSER GENERAL PUBLIC LICENSE
|
||||
Version 2.1, February 1999
|
||||
|
||||
Copyright (C) 1991, 1999 Free Software Foundation, Inc.
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
[This is the first released version of the Lesser GPL. It also counts
|
||||
as the successor of the GNU Library Public License, version 2, hence
|
||||
the version number 2.1.]
|
||||
|
||||
Preamble
|
||||
|
||||
The licenses for most software are designed to take away your
|
||||
freedom to share and change it. By contrast, the GNU General Public
|
||||
Licenses are intended to guarantee your freedom to share and change
|
||||
free software--to make sure the software is free for all its users.
|
||||
|
||||
This license, the Lesser General Public License, applies to some
|
||||
specially designated software packages--typically libraries--of the
|
||||
Free Software Foundation and other authors who decide to use it. You
|
||||
can use it too, but we suggest you first think carefully about whether
|
||||
this license or the ordinary General Public License is the better
|
||||
strategy to use in any particular case, based on the explanations below.
|
||||
|
||||
When we speak of free software, we are referring to freedom of use,
|
||||
not price. Our General Public Licenses are designed to make sure that
|
||||
you have the freedom to distribute copies of free software (and charge
|
||||
for this service if you wish); that you receive source code or can get
|
||||
it if you want it; that you can change the software and use pieces of
|
||||
it in new free programs; and that you are informed that you can do
|
||||
these things.
|
||||
|
||||
To protect your rights, we need to make restrictions that forbid
|
||||
distributors to deny you these rights or to ask you to surrender these
|
||||
rights. These restrictions translate to certain responsibilities for
|
||||
you if you distribute copies of the library or if you modify it.
|
||||
|
||||
For example, if you distribute copies of the library, whether gratis
|
||||
or for a fee, you must give the recipients all the rights that we gave
|
||||
you. You must make sure that they, too, receive or can get the source
|
||||
code. If you link other code with the library, you must provide
|
||||
complete object files to the recipients, so that they can relink them
|
||||
with the library after making changes to the library and recompiling
|
||||
it. And you must show them these terms so they know their rights.
|
||||
|
||||
We protect your rights with a two-step method: (1) we copyright the
|
||||
library, and (2) we offer you this license, which gives you legal
|
||||
permission to copy, distribute and/or modify the library.
|
||||
|
||||
To protect each distributor, we want to make it very clear that
|
||||
there is no warranty for the free library. Also, if the library is
|
||||
modified by someone else and passed on, the recipients should know
|
||||
that what they have is not the original version, so that the original
|
||||
author's reputation will not be affected by problems that might be
|
||||
introduced by others.
|
||||
|
||||
Finally, software patents pose a constant threat to the existence of
|
||||
any free program. We wish to make sure that a company cannot
|
||||
effectively restrict the users of a free program by obtaining a
|
||||
restrictive license from a patent holder. Therefore, we insist that
|
||||
any patent license obtained for a version of the library must be
|
||||
consistent with the full freedom of use specified in this license.
|
||||
|
||||
Most GNU software, including some libraries, is covered by the
|
||||
ordinary GNU General Public License. This license, the GNU Lesser
|
||||
General Public License, applies to certain designated libraries, and
|
||||
is quite different from the ordinary General Public License. We use
|
||||
this license for certain libraries in order to permit linking those
|
||||
libraries into non-free programs.
|
||||
|
||||
When a program is linked with a library, whether statically or using
|
||||
a shared library, the combination of the two is legally speaking a
|
||||
combined work, a derivative of the original library. The ordinary
|
||||
General Public License therefore permits such linking only if the
|
||||
entire combination fits its criteria of freedom. The Lesser General
|
||||
Public License permits more lax criteria for linking other code with
|
||||
the library.
|
||||
|
||||
We call this license the "Lesser" General Public License because it
|
||||
does Less to protect the user's freedom than the ordinary General
|
||||
Public License. It also provides other free software developers Less
|
||||
of an advantage over competing non-free programs. These disadvantages
|
||||
are the reason we use the ordinary General Public License for many
|
||||
libraries. However, the Lesser license provides advantages in certain
|
||||
special circumstances.
|
||||
|
||||
For example, on rare occasions, there may be a special need to
|
||||
encourage the widest possible use of a certain library, so that it becomes
|
||||
a de-facto standard. To achieve this, non-free programs must be
|
||||
allowed to use the library. A more frequent case is that a free
|
||||
library does the same job as widely used non-free libraries. In this
|
||||
case, there is little to gain by limiting the free library to free
|
||||
software only, so we use the Lesser General Public License.
|
||||
|
||||
In other cases, permission to use a particular library in non-free
|
||||
programs enables a greater number of people to use a large body of
|
||||
free software. For example, permission to use the GNU C Library in
|
||||
non-free programs enables many more people to use the whole GNU
|
||||
operating system, as well as its variant, the GNU/Linux operating
|
||||
system.
|
||||
|
||||
Although the Lesser General Public License is Less protective of the
|
||||
users' freedom, it does ensure that the user of a program that is
|
||||
linked with the Library has the freedom and the wherewithal to run
|
||||
that program using a modified version of the Library.
|
||||
|
||||
The precise terms and conditions for copying, distribution and
|
||||
modification follow. Pay close attention to the difference between a
|
||||
"work based on the library" and a "work that uses the library". The
|
||||
former contains code derived from the library, whereas the latter must
|
||||
be combined with the library in order to run.
|
||||
|
||||
GNU LESSER GENERAL PUBLIC LICENSE
|
||||
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||
|
||||
0. This License Agreement applies to any software library or other
|
||||
program which contains a notice placed by the copyright holder or
|
||||
other authorized party saying it may be distributed under the terms of
|
||||
this Lesser General Public License (also called "this License").
|
||||
Each licensee is addressed as "you".
|
||||
|
||||
A "library" means a collection of software functions and/or data
|
||||
prepared so as to be conveniently linked with application programs
|
||||
(which use some of those functions and data) to form executables.
|
||||
|
||||
The "Library", below, refers to any such software library or work
|
||||
which has been distributed under these terms. A "work based on the
|
||||
Library" means either the Library or any derivative work under
|
||||
copyright law: that is to say, a work containing the Library or a
|
||||
portion of it, either verbatim or with modifications and/or translated
|
||||
straightforwardly into another language. (Hereinafter, translation is
|
||||
included without limitation in the term "modification".)
|
||||
|
||||
"Source code" for a work means the preferred form of the work for
|
||||
making modifications to it. For a library, complete source code means
|
||||
all the source code for all modules it contains, plus any associated
|
||||
interface definition files, plus the scripts used to control compilation
|
||||
and installation of the library.
|
||||
|
||||
Activities other than copying, distribution and modification are not
|
||||
covered by this License; they are outside its scope. The act of
|
||||
running a program using the Library is not restricted, and output from
|
||||
such a program is covered only if its contents constitute a work based
|
||||
on the Library (independent of the use of the Library in a tool for
|
||||
writing it). Whether that is true depends on what the Library does
|
||||
and what the program that uses the Library does.
|
||||
|
||||
1. You may copy and distribute verbatim copies of the Library's
|
||||
complete source code as you receive it, in any medium, provided that
|
||||
you conspicuously and appropriately publish on each copy an
|
||||
appropriate copyright notice and disclaimer of warranty; keep intact
|
||||
all the notices that refer to this License and to the absence of any
|
||||
warranty; and distribute a copy of this License along with the
|
||||
Library.
|
||||
|
||||
You may charge a fee for the physical act of transferring a copy,
|
||||
and you may at your option offer warranty protection in exchange for a
|
||||
fee.
|
||||
|
||||
2. You may modify your copy or copies of the Library or any portion
|
||||
of it, thus forming a work based on the Library, and copy and
|
||||
distribute such modifications or work under the terms of Section 1
|
||||
above, provided that you also meet all of these conditions:
|
||||
|
||||
a) The modified work must itself be a software library.
|
||||
|
||||
b) You must cause the files modified to carry prominent notices
|
||||
stating that you changed the files and the date of any change.
|
||||
|
||||
c) You must cause the whole of the work to be licensed at no
|
||||
charge to all third parties under the terms of this License.
|
||||
|
||||
d) If a facility in the modified Library refers to a function or a
|
||||
table of data to be supplied by an application program that uses
|
||||
the facility, other than as an argument passed when the facility
|
||||
is invoked, then you must make a good faith effort to ensure that,
|
||||
in the event an application does not supply such function or
|
||||
table, the facility still operates, and performs whatever part of
|
||||
its purpose remains meaningful.
|
||||
|
||||
(For example, a function in a library to compute square roots has
|
||||
a purpose that is entirely well-defined independent of the
|
||||
application. Therefore, Subsection 2d requires that any
|
||||
application-supplied function or table used by this function must
|
||||
be optional: if the application does not supply it, the square
|
||||
root function must still compute square roots.)
|
||||
|
||||
These requirements apply to the modified work as a whole. If
|
||||
identifiable sections of that work are not derived from the Library,
|
||||
and can be reasonably considered independent and separate works in
|
||||
themselves, then this License, and its terms, do not apply to those
|
||||
sections when you distribute them as separate works. But when you
|
||||
distribute the same sections as part of a whole which is a work based
|
||||
on the Library, the distribution of the whole must be on the terms of
|
||||
this License, whose permissions for other licensees extend to the
|
||||
entire whole, and thus to each and every part regardless of who wrote
|
||||
it.
|
||||
|
||||
Thus, it is not the intent of this section to claim rights or contest
|
||||
your rights to work written entirely by you; rather, the intent is to
|
||||
exercise the right to control the distribution of derivative or
|
||||
collective works based on the Library.
|
||||
|
||||
In addition, mere aggregation of another work not based on the Library
|
||||
with the Library (or with a work based on the Library) on a volume of
|
||||
a storage or distribution medium does not bring the other work under
|
||||
the scope of this License.
|
||||
|
||||
3. You may opt to apply the terms of the ordinary GNU General Public
|
||||
License instead of this License to a given copy of the Library. To do
|
||||
this, you must alter all the notices that refer to this License, so
|
||||
that they refer to the ordinary GNU General Public License, version 2,
|
||||
instead of to this License. (If a newer version than version 2 of the
|
||||
ordinary GNU General Public License has appeared, then you can specify
|
||||
that version instead if you wish.) Do not make any other change in
|
||||
these notices.
|
||||
|
||||
Once this change is made in a given copy, it is irreversible for
|
||||
that copy, so the ordinary GNU General Public License applies to all
|
||||
subsequent copies and derivative works made from that copy.
|
||||
|
||||
This option is useful when you wish to copy part of the code of
|
||||
the Library into a program that is not a library.
|
||||
|
||||
4. You may copy and distribute the Library (or a portion or
|
||||
derivative of it, under Section 2) in object code or executable form
|
||||
under the terms of Sections 1 and 2 above provided that you accompany
|
||||
it with the complete corresponding machine-readable source code, which
|
||||
must be distributed under the terms of Sections 1 and 2 above on a
|
||||
medium customarily used for software interchange.
|
||||
|
||||
If distribution of object code is made by offering access to copy
|
||||
from a designated place, then offering equivalent access to copy the
|
||||
source code from the same place satisfies the requirement to
|
||||
distribute the source code, even though third parties are not
|
||||
compelled to copy the source along with the object code.
|
||||
|
||||
5. A program that contains no derivative of any portion of the
|
||||
Library, but is designed to work with the Library by being compiled or
|
||||
linked with it, is called a "work that uses the Library". Such a
|
||||
work, in isolation, is not a derivative work of the Library, and
|
||||
therefore falls outside the scope of this License.
|
||||
|
||||
However, linking a "work that uses the Library" with the Library
|
||||
creates an executable that is a derivative of the Library (because it
|
||||
contains portions of the Library), rather than a "work that uses the
|
||||
library". The executable is therefore covered by this License.
|
||||
Section 6 states terms for distribution of such executables.
|
||||
|
||||
When a "work that uses the Library" uses material from a header file
|
||||
that is part of the Library, the object code for the work may be a
|
||||
derivative work of the Library even though the source code is not.
|
||||
Whether this is true is especially significant if the work can be
|
||||
linked without the Library, or if the work is itself a library. The
|
||||
threshold for this to be true is not precisely defined by law.
|
||||
|
||||
If such an object file uses only numerical parameters, data
|
||||
structure layouts and accessors, and small macros and small inline
|
||||
functions (ten lines or less in length), then the use of the object
|
||||
file is unrestricted, regardless of whether it is legally a derivative
|
||||
work. (Executables containing this object code plus portions of the
|
||||
Library will still fall under Section 6.)
|
||||
|
||||
Otherwise, if the work is a derivative of the Library, you may
|
||||
distribute the object code for the work under the terms of Section 6.
|
||||
Any executables containing that work also fall under Section 6,
|
||||
whether or not they are linked directly with the Library itself.
|
||||
|
||||
6. As an exception to the Sections above, you may also combine or
|
||||
link a "work that uses the Library" with the Library to produce a
|
||||
work containing portions of the Library, and distribute that work
|
||||
under terms of your choice, provided that the terms permit
|
||||
modification of the work for the customer's own use and reverse
|
||||
engineering for debugging such modifications.
|
||||
|
||||
You must give prominent notice with each copy of the work that the
|
||||
Library is used in it and that the Library and its use are covered by
|
||||
this License. You must supply a copy of this License. If the work
|
||||
during execution displays copyright notices, you must include the
|
||||
copyright notice for the Library among them, as well as a reference
|
||||
directing the user to the copy of this License. Also, you must do one
|
||||
of these things:
|
||||
|
||||
a) Accompany the work with the complete corresponding
|
||||
machine-readable source code for the Library including whatever
|
||||
changes were used in the work (which must be distributed under
|
||||
Sections 1 and 2 above); and, if the work is an executable linked
|
||||
with the Library, with the complete machine-readable "work that
|
||||
uses the Library", as object code and/or source code, so that the
|
||||
user can modify the Library and then relink to produce a modified
|
||||
executable containing the modified Library. (It is understood
|
||||
that the user who changes the contents of definitions files in the
|
||||
Library will not necessarily be able to recompile the application
|
||||
to use the modified definitions.)
|
||||
|
||||
b) Use a suitable shared library mechanism for linking with the
|
||||
Library. A suitable mechanism is one that (1) uses at run time a
|
||||
copy of the library already present on the user's computer system,
|
||||
rather than copying library functions into the executable, and (2)
|
||||
will operate properly with a modified version of the library, if
|
||||
the user installs one, as long as the modified version is
|
||||
interface-compatible with the version that the work was made with.
|
||||
|
||||
c) Accompany the work with a written offer, valid for at
|
||||
least three years, to give the same user the materials
|
||||
specified in Subsection 6a, above, for a charge no more
|
||||
than the cost of performing this distribution.
|
||||
|
||||
d) If distribution of the work is made by offering access to copy
|
||||
from a designated place, offer equivalent access to copy the above
|
||||
specified materials from the same place.
|
||||
|
||||
e) Verify that the user has already received a copy of these
|
||||
materials or that you have already sent this user a copy.
|
||||
|
||||
For an executable, the required form of the "work that uses the
|
||||
Library" must include any data and utility programs needed for
|
||||
reproducing the executable from it. However, as a special exception,
|
||||
the materials to be distributed need not include anything that is
|
||||
normally distributed (in either source or binary form) with the major
|
||||
components (compiler, kernel, and so on) of the operating system on
|
||||
which the executable runs, unless that component itself accompanies
|
||||
the executable.
|
||||
|
||||
It may happen that this requirement contradicts the license
|
||||
restrictions of other proprietary libraries that do not normally
|
||||
accompany the operating system. Such a contradiction means you cannot
|
||||
use both them and the Library together in an executable that you
|
||||
distribute.
|
||||
|
||||
7. You may place library facilities that are a work based on the
|
||||
Library side-by-side in a single library together with other library
|
||||
facilities not covered by this License, and distribute such a combined
|
||||
library, provided that the separate distribution of the work based on
|
||||
the Library and of the other library facilities is otherwise
|
||||
permitted, and provided that you do these two things:
|
||||
|
||||
a) Accompany the combined library with a copy of the same work
|
||||
based on the Library, uncombined with any other library
|
||||
facilities. This must be distributed under the terms of the
|
||||
Sections above.
|
||||
|
||||
b) Give prominent notice with the combined library of the fact
|
||||
that part of it is a work based on the Library, and explaining
|
||||
where to find the accompanying uncombined form of the same work.
|
||||
|
||||
8. You may not copy, modify, sublicense, link with, or distribute
|
||||
the Library except as expressly provided under this License. Any
|
||||
attempt otherwise to copy, modify, sublicense, link with, or
|
||||
distribute the Library is void, and will automatically terminate your
|
||||
rights under this License. However, parties who have received copies,
|
||||
or rights, from you under this License will not have their licenses
|
||||
terminated so long as such parties remain in full compliance.
|
||||
|
||||
9. You are not required to accept this License, since you have not
|
||||
signed it. However, nothing else grants you permission to modify or
|
||||
distribute the Library or its derivative works. These actions are
|
||||
prohibited by law if you do not accept this License. Therefore, by
|
||||
modifying or distributing the Library (or any work based on the
|
||||
Library), you indicate your acceptance of this License to do so, and
|
||||
all its terms and conditions for copying, distributing or modifying
|
||||
the Library or works based on it.
|
||||
|
||||
10. Each time you redistribute the Library (or any work based on the
|
||||
Library), the recipient automatically receives a license from the
|
||||
original licensor to copy, distribute, link with or modify the Library
|
||||
subject to these terms and conditions. You may not impose any further
|
||||
restrictions on the recipients' exercise of the rights granted herein.
|
||||
You are not responsible for enforcing compliance by third parties with
|
||||
this License.
|
||||
|
||||
11. If, as a consequence of a court judgment or allegation of patent
|
||||
infringement or for any other reason (not limited to patent issues),
|
||||
conditions are imposed on you (whether by court order, agreement or
|
||||
otherwise) that contradict the conditions of this License, they do not
|
||||
excuse you from the conditions of this License. If you cannot
|
||||
distribute so as to satisfy simultaneously your obligations under this
|
||||
License and any other pertinent obligations, then as a consequence you
|
||||
may not distribute the Library at all. For example, if a patent
|
||||
license would not permit royalty-free redistribution of the Library by
|
||||
all those who receive copies directly or indirectly through you, then
|
||||
the only way you could satisfy both it and this License would be to
|
||||
refrain entirely from distribution of the Library.
|
||||
|
||||
If any portion of this section is held invalid or unenforceable under any
|
||||
particular circumstance, the balance of the section is intended to apply,
|
||||
and the section as a whole is intended to apply in other circumstances.
|
||||
|
||||
It is not the purpose of this section to induce you to infringe any
|
||||
patents or other property right claims or to contest validity of any
|
||||
such claims; this section has the sole purpose of protecting the
|
||||
integrity of the free software distribution system which is
|
||||
implemented by public license practices. Many people have made
|
||||
generous contributions to the wide range of software distributed
|
||||
through that system in reliance on consistent application of that
|
||||
system; it is up to the author/donor to decide if he or she is willing
|
||||
to distribute software through any other system and a licensee cannot
|
||||
impose that choice.
|
||||
|
||||
This section is intended to make thoroughly clear what is believed to
|
||||
be a consequence of the rest of this License.
|
||||
|
||||
12. If the distribution and/or use of the Library is restricted in
|
||||
certain countries either by patents or by copyrighted interfaces, the
|
||||
original copyright holder who places the Library under this License may add
|
||||
an explicit geographical distribution limitation excluding those countries,
|
||||
so that distribution is permitted only in or among countries not thus
|
||||
excluded. In such case, this License incorporates the limitation as if
|
||||
written in the body of this License.
|
||||
|
||||
13. The Free Software Foundation may publish revised and/or new
|
||||
versions of the Lesser General Public License from time to time.
|
||||
Such new versions will be similar in spirit to the present version,
|
||||
but may differ in detail to address new problems or concerns.
|
||||
|
||||
Each version is given a distinguishing version number. If the Library
|
||||
specifies a version number of this License which applies to it and
|
||||
"any later version", you have the option of following the terms and
|
||||
conditions either of that version or of any later version published by
|
||||
the Free Software Foundation. If the Library does not specify a
|
||||
license version number, you may choose any version ever published by
|
||||
the Free Software Foundation.
|
||||
|
||||
14. If you wish to incorporate parts of the Library into other free
|
||||
programs whose distribution conditions are incompatible with these,
|
||||
write to the author to ask for permission. For software which is
|
||||
copyrighted by the Free Software Foundation, write to the Free
|
||||
Software Foundation; we sometimes make exceptions for this. Our
|
||||
decision will be guided by the two goals of preserving the free status
|
||||
of all derivatives of our free software and of promoting the sharing
|
||||
and reuse of software generally.
|
||||
|
||||
NO WARRANTY
|
||||
|
||||
15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
|
||||
WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
|
||||
EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
|
||||
OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY
|
||||
KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
|
||||
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
|
||||
PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
|
||||
LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
|
||||
THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
|
||||
|
||||
16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
|
||||
WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
|
||||
AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
|
||||
FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
|
||||
CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
|
||||
LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
|
||||
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
|
||||
FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
|
||||
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
|
||||
DAMAGES.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
||||
How to Apply These Terms to Your New Libraries
|
||||
|
||||
If you develop a new library, and you want it to be of the greatest
|
||||
possible use to the public, we recommend making it free software that
|
||||
everyone can redistribute and change. You can do so by permitting
|
||||
redistribution under these terms (or, alternatively, under the terms of the
|
||||
ordinary General Public License).
|
||||
|
||||
To apply these terms, attach the following notices to the library. It is
|
||||
safest to attach them to the start of each source file to most effectively
|
||||
convey the exclusion of warranty; and each file should have at least the
|
||||
"copyright" line and a pointer to where the full notice is found.
|
||||
|
||||
<one line to give the library's name and a brief idea of what it does.>
|
||||
Copyright (C) <year> <name of author>
|
||||
|
||||
This library is free software; you can redistribute it and/or
|
||||
modify it under the terms of the GNU Lesser General Public
|
||||
License as published by the Free Software Foundation; either
|
||||
version 2.1 of the License, or (at your option) any later version.
|
||||
|
||||
This library is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
Lesser General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU Lesser General Public
|
||||
License along with this library; if not, write to the Free Software
|
||||
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
|
||||
Also add information on how to contact you by electronic and paper mail.
|
||||
|
||||
You should also get your employer (if you work as a programmer) or your
|
||||
school, if any, to sign a "copyright disclaimer" for the library, if
|
||||
necessary. Here is a sample; alter the names:
|
||||
|
||||
Yoyodyne, Inc., hereby disclaims all copyright interest in the
|
||||
library `Frob' (a library for tweaking knobs) written by James Random Hacker.
|
||||
|
||||
<signature of Ty Coon>, 1 April 1990
|
||||
Ty Coon, President of Vice
|
||||
|
||||
That's all there is to it!
|
|
@ -0,0 +1,104 @@
|
|||
Areas mod for Minetest 0.4.8+
|
||||
=============================
|
||||
|
||||
|
||||
Configuration
|
||||
-------------
|
||||
|
||||
If you wish to specify configuration options, such as whether players are
|
||||
allowed to protect their own areas with the `protect` command (disabled by
|
||||
default), you should check settings.lua and set the appropriate settings in your
|
||||
server's configuration file (probably `minetest.conf`).
|
||||
|
||||
|
||||
Tutorial
|
||||
--------
|
||||
|
||||
To protect an area you must first set the corner positions of the area.
|
||||
In order to set the corner positions you can run:
|
||||
* `/area_pos set` and punch the two corner nodes to set them.
|
||||
* `/area_pos set1/set2` and punch only the first or second corner node to
|
||||
set them one at a time.
|
||||
* `/area_pos1/2` to set one of the positions to your current position.
|
||||
* `/area_pos1/2 X Y Z` to set one of the positions to the specified
|
||||
coordinates.
|
||||
|
||||
Once you have set the border positions you can protect the area by running one
|
||||
of the following commands:
|
||||
* `/set_owner <OwnerName> <AreaName>` -- If you have the `areas` privilege.
|
||||
* `/protect <AreaName>` -- If you have the `areas` privilege or the server
|
||||
administrator has enabled area self-protection.
|
||||
|
||||
The area name is used only for informational purposes (so that you know what
|
||||
an area is for). It is not used for any other purpose.
|
||||
For example: `/set_owner SomePlayer Mese city`
|
||||
|
||||
Now that you own an area you may want to add sub-owners to it. You can do this
|
||||
with the `add_owner` command. Anyone with an area can use the `add_owner`
|
||||
command on their areas. Before using the `add_owner` command you have to
|
||||
select the corners of the sub-area as you did for `set_owner`. If your markers
|
||||
are still around your original area and you want to grant access to your
|
||||
entire area you will not have to re-set them. You can also use `select_area` to
|
||||
place the markers at the corners of an existing area if you've reset your
|
||||
markers and want to grant access to a full area.
|
||||
The `add_owner` command expects three arguments:
|
||||
1. The ID number of the parent area (the area that you want to add a
|
||||
sub-area to).
|
||||
2. The name of the player that will own the sub-area.
|
||||
3. The name of the sub-area. (can contain spaces)
|
||||
|
||||
For example: `/add_owner 123 BobTheBuilder Diamond lighthouse`
|
||||
|
||||
|
||||
Commands
|
||||
--------
|
||||
|
||||
* `/protect <AreaName>` -- Protects an area for yourself. (if
|
||||
self-protection is enabled)
|
||||
|
||||
* `/set_owner <OwnerName> <AreaName>` -- Protects an area for a specified
|
||||
player. (requires the `areas` privilege)
|
||||
|
||||
* `/add_owner <ParentID> <OwnerName> <ChildName>` -- Grants another player
|
||||
control over part (or all) of an area.
|
||||
|
||||
* `/rename_area <ID> <NewName>` -- Renames an existing area.
|
||||
|
||||
* `/list_areas` -- Lists all of the areas that you own, or all areas if you
|
||||
have the `areas` privilege.
|
||||
|
||||
* `/find_areas <Regex>` -- Finds areas using a Lua regular expresion.
|
||||
For example, to find castles:
|
||||
|
||||
/find_areas [Cc]astle
|
||||
|
||||
* `/remove_area <ID>` -- Removes an area that you own. Any sub-areas of that
|
||||
area are made sub-areas of the removed area's parent, if it exists.
|
||||
If the removed area has no parent it's sub-areas will have no parent.
|
||||
|
||||
* `/recursive_remove_areas <ID>` -- Removes an area and all sub-areas of it.
|
||||
|
||||
* `/change_owner <ID> <NewOwner>` -- Change the owner of an area.
|
||||
|
||||
* `/area_info` -- Returns information about area configuration and usage.
|
||||
|
||||
* `/select_area <ID>` -- Sets the area positions to those of an existing
|
||||
area.
|
||||
|
||||
* `/area_pos {set,set1,set2,get}` -- Sets the area positions by punching
|
||||
nodes or shows the current area positions.
|
||||
|
||||
* `/area_pos1 [X,Y,Z|X Y Z]` -- Sets area position one to your position or
|
||||
the one supplied.
|
||||
|
||||
* `/area_pos2 [X,Y,Z|X Y Z]` -- Sets area position two to your position or
|
||||
the one supplied.
|
||||
|
||||
License
|
||||
-------
|
||||
|
||||
Copyright (C) 2013 ShadowNinja
|
||||
|
||||
Licensed under the GNU LGPL version 2.1 or later.
|
||||
See LICENSE.txt and http://www.gnu.org/licenses/lgpl-2.1.txt
|
||||
|
|
@ -0,0 +1,144 @@
|
|||
local hudHandlers = {}
|
||||
|
||||
--- Adds a function as a HUD handler, it will be able to add items to the Areas HUD element.
|
||||
function areas:registerHudHandler(handler)
|
||||
table.insert(hudHandlers, handler)
|
||||
end
|
||||
|
||||
|
||||
function areas:getExternalHudEntries(pos)
|
||||
local areas = {}
|
||||
for _, func in pairs(hudHandlers) do
|
||||
func(pos, areas)
|
||||
end
|
||||
return areas
|
||||
end
|
||||
|
||||
--- Returns a list of areas that include the provided position.
|
||||
function areas:getAreasAtPos(pos)
|
||||
local res = {}
|
||||
|
||||
if self.store then
|
||||
local a = self.store:get_areas_for_pos(pos, false, true)
|
||||
for store_id, store_area in pairs(a) do
|
||||
local id = tonumber(store_area.data)
|
||||
res[id] = self.areas[id]
|
||||
end
|
||||
else
|
||||
local px, py, pz = pos.x, pos.y, pos.z
|
||||
for id, area in pairs(self.areas) do
|
||||
local ap1, ap2 = area.pos1, area.pos2
|
||||
if
|
||||
(px >= ap1.x and px <= ap2.x) and
|
||||
(py >= ap1.y and py <= ap2.y) and
|
||||
(pz >= ap1.z and pz <= ap2.z) then
|
||||
res[id] = area
|
||||
end
|
||||
end
|
||||
end
|
||||
return res
|
||||
end
|
||||
|
||||
--- Returns areas that intersect with the passed area.
|
||||
function areas:getAreasIntersectingArea(pos1, pos2)
|
||||
local res = {}
|
||||
if self.store then
|
||||
local a = self.store:get_areas_in_area(pos1, pos2,
|
||||
true, false, true)
|
||||
for store_id, store_area in pairs(a) do
|
||||
local id = tonumber(store_area.data)
|
||||
res[id] = self.areas[id]
|
||||
end
|
||||
else
|
||||
self:sortPos(pos1, pos2)
|
||||
local p1x, p1y, p1z = pos1.x, pos1.y, pos1.z
|
||||
local p2x, p2y, p2z = pos2.x, pos2.y, pos2.z
|
||||
for id, area in pairs(self.areas) do
|
||||
local ap1, ap2 = area.pos1, area.pos2
|
||||
if
|
||||
(ap1.x <= p2x and ap2.x >= p1x) and
|
||||
(ap1.y <= p2y and ap2.y >= p1y) and
|
||||
(ap1.z <= p2z and ap2.z >= p1z) then
|
||||
-- Found an intersecting area.
|
||||
res[id] = area
|
||||
end
|
||||
end
|
||||
end
|
||||
return res
|
||||
end
|
||||
|
||||
-- Checks if the area is unprotected or owned by you
|
||||
function areas:canInteract(pos, name)
|
||||
if minetest.check_player_privs(name, self.adminPrivs) then
|
||||
return true
|
||||
end
|
||||
local owned = false
|
||||
for _, area in pairs(self:getAreasAtPos(pos)) do
|
||||
if area.owner == name or area.open then
|
||||
return true
|
||||
else
|
||||
owned = true
|
||||
end
|
||||
end
|
||||
return not owned
|
||||
end
|
||||
|
||||
-- Returns a table (list) of all players that own an area
|
||||
function areas:getNodeOwners(pos)
|
||||
local owners = {}
|
||||
for _, area in pairs(self:getAreasAtPos(pos)) do
|
||||
table.insert(owners, area.owner)
|
||||
end
|
||||
return owners
|
||||
end
|
||||
|
||||
--- Checks if the area intersects with an area that the player can't interact in.
|
||||
-- Note that this fails and returns false when the specified area is fully
|
||||
-- owned by the player, but with multiple protection zones, none of which
|
||||
-- cover the entire checked area.
|
||||
-- @param name (optional) Player name. If not specified checks for any intersecting areas.
|
||||
-- @param allow_open Whether open areas should be counted as if they didn't exist.
|
||||
-- @return Boolean indicating whether the player can interact in that area.
|
||||
-- @return Un-owned intersecting area ID, if found.
|
||||
function areas:canInteractInArea(pos1, pos2, name, allow_open)
|
||||
if name and minetest.check_player_privs(name, self.adminPrivs) then
|
||||
return true
|
||||
end
|
||||
self:sortPos(pos1, pos2)
|
||||
|
||||
-- Intersecting non-owned area ID, if found.
|
||||
local blocking_area = nil
|
||||
|
||||
local areas = self:getAreasIntersectingArea(pos1, pos2)
|
||||
for id, area in pairs(areas) do
|
||||
-- First check for a fully enclosing owned area.
|
||||
-- A little optimization: isAreaOwner isn't necessary
|
||||
-- here since we're iterating over all relevant areas.
|
||||
if area.owner == name and
|
||||
self:isSubarea(pos1, pos2, id) then
|
||||
return true
|
||||
end
|
||||
|
||||
-- Then check for intersecting non-owned (blocking) areas.
|
||||
-- We don't bother with this check if we've already found a
|
||||
-- blocking area, as the check is somewhat expensive.
|
||||
-- The area blocks if the area is closed or open areas aren't
|
||||
-- acceptable to the caller, and the area isn't owned.
|
||||
-- Note: We can't return directly here, because there might be
|
||||
-- an exclosing owned area that we haven't gotten to yet.
|
||||
if not blocking_area and
|
||||
(not allow_open or not area.open) and
|
||||
(not name or not self:isAreaOwner(id, name)) then
|
||||
blocking_area = id
|
||||
end
|
||||
end
|
||||
|
||||
if blocking_area then
|
||||
return false, blocking_area
|
||||
end
|
||||
|
||||
-- There are no intersecting areas or they are only partially
|
||||
-- intersecting areas and they are all owned by the player.
|
||||
return true
|
||||
end
|
||||
|
|
@ -0,0 +1,45 @@
|
|||
Areas mod API
|
||||
===
|
||||
|
||||
API list
|
||||
---
|
||||
|
||||
* `areas.registerHudHandler(handler)` - Registers a handler to add items to the Areas HUD. See [HUD](#hud).
|
||||
|
||||
|
||||
HUD
|
||||
---
|
||||
|
||||
If you are making a protection mod or a similar mod that adds invisible regions
|
||||
to the world, and you would like then to show up in the areas HUD element, you
|
||||
can register a callback to show your areas.
|
||||
|
||||
HUD handler specification:
|
||||
|
||||
* `handler(pos, list)`
|
||||
* `pos` - The position to check.
|
||||
* `list` - The list of area HUD elements, this should be modified in-place.
|
||||
|
||||
The area list item is a table containing a list of tables with the following fields:
|
||||
|
||||
* `id` - An identifier for the area. This should be a unique string in the format `mod:id`.
|
||||
* `name` - The name of the area.
|
||||
* `owner` - The player name of the region owner, if any.
|
||||
|
||||
All of the fields are optional but at least one of them must be set.
|
||||
|
||||
### Example
|
||||
|
||||
local function areas_hud_handler(pos, areas)
|
||||
local val = find_my_protection(pos)
|
||||
|
||||
if val then
|
||||
table.insert(areas, {
|
||||
id = "mod:"..val.id,
|
||||
name = val.name,
|
||||
owner = val.owner,
|
||||
})
|
||||
end
|
||||
end
|
||||
|
||||
areas:registerHudHandler(areas_hud_handler)
|
|
@ -0,0 +1,405 @@
|
|||
|
||||
minetest.register_chatcommand("protect", {
|
||||
params = "<AreaName>",
|
||||
description = "Protect your own area",
|
||||
privs = {[areas.config.self_protection_privilege]=true},
|
||||
func = function(name, param)
|
||||
if param == "" then
|
||||
return false, "Invalid usage, see /help protect."
|
||||
end
|
||||
local pos1, pos2 = areas:getPos(name)
|
||||
if not (pos1 and pos2) then
|
||||
return false, "You need to select an area first."
|
||||
end
|
||||
|
||||
minetest.log("action", "/protect invoked, owner="..name..
|
||||
" AreaName="..param..
|
||||
" StartPos="..minetest.pos_to_string(pos1)..
|
||||
" EndPos=" ..minetest.pos_to_string(pos2))
|
||||
|
||||
local canAdd, errMsg = areas:canPlayerAddArea(pos1, pos2, name)
|
||||
if not canAdd then
|
||||
return false, "You can't protect that area: "..errMsg
|
||||
end
|
||||
|
||||
local id = areas:add(name, param, pos1, pos2, nil)
|
||||
areas:save()
|
||||
|
||||
return true, "Area protected. ID: "..id
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("set_owner", {
|
||||
params = "<PlayerName> <AreaName>",
|
||||
description = "Protect an area beetween two positions and give"
|
||||
.." a player access to it without setting the parent of the"
|
||||
.." area to any existing area",
|
||||
privs = areas.adminPrivs,
|
||||
func = function(name, param)
|
||||
local ownerName, areaName = param:match('^(%S+)%s(.+)$')
|
||||
|
||||
if not ownerName then
|
||||
return false, "Incorrect usage, see /help set_owner."
|
||||
end
|
||||
|
||||
local pos1, pos2 = areas:getPos(name)
|
||||
if not (pos1 and pos2) then
|
||||
return false, "You need to select an area first."
|
||||
end
|
||||
|
||||
if not areas:player_exists(ownerName) then
|
||||
return false, "The player \""
|
||||
..ownerName.."\" does not exist."
|
||||
end
|
||||
|
||||
minetest.log("action", name.." runs /set_owner. Owner = "..ownerName..
|
||||
" AreaName = "..areaName..
|
||||
" StartPos = "..minetest.pos_to_string(pos1)..
|
||||
" EndPos = " ..minetest.pos_to_string(pos2))
|
||||
|
||||
local id = areas:add(ownerName, areaName, pos1, pos2, nil)
|
||||
areas:save()
|
||||
|
||||
minetest.chat_send_player(ownerName,
|
||||
"You have been granted control over area #"..
|
||||
id..". Type /list_areas to show your areas.")
|
||||
return true, "Area protected. ID: "..id
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("add_owner", {
|
||||
params = "<ParentID> <Player> <AreaName>",
|
||||
description = "Give a player access to a sub-area beetween two"
|
||||
.." positions that have already been protected,"
|
||||
.." Use set_owner if you don't want the parent to be set.",
|
||||
func = function(name, param)
|
||||
local pid, ownerName, areaName
|
||||
= param:match('^(%d+) ([^ ]+) (.+)$')
|
||||
|
||||
if not pid then
|
||||
minetest.chat_send_player(name, "Incorrect usage, see /help add_owner")
|
||||
return
|
||||
end
|
||||
|
||||
local pos1, pos2 = areas:getPos(name)
|
||||
if not (pos1 and pos2) then
|
||||
return false, "You need to select an area first."
|
||||
end
|
||||
|
||||
if not areas:player_exists(ownerName) then
|
||||
return false, "The player \""..ownerName.."\" does not exist."
|
||||
end
|
||||
|
||||
minetest.log("action", name.." runs /add_owner. Owner = "..ownerName..
|
||||
" AreaName = "..areaName.." ParentID = "..pid..
|
||||
" StartPos = "..pos1.x..","..pos1.y..","..pos1.z..
|
||||
" EndPos = " ..pos2.x..","..pos2.y..","..pos2.z)
|
||||
|
||||
-- Check if this new area is inside an area owned by the player
|
||||
pid = tonumber(pid)
|
||||
if (not areas:isAreaOwner(pid, name)) or
|
||||
(not areas:isSubarea(pos1, pos2, pid)) then
|
||||
return false, "You can't protect that area."
|
||||
end
|
||||
|
||||
local id = areas:add(ownerName, areaName, pos1, pos2, pid)
|
||||
areas:save()
|
||||
|
||||
minetest.chat_send_player(ownerName,
|
||||
"You have been granted control over area #"..
|
||||
id..". Type /list_areas to show your areas.")
|
||||
return true, "Area protected. ID: "..id
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("rename_area", {
|
||||
params = "<ID> <newName>",
|
||||
description = "Rename a area that you own",
|
||||
func = function(name, param)
|
||||
local id, newName = param:match("^(%d+)%s(.+)$")
|
||||
if not id then
|
||||
return false, "Invalid usage, see /help rename_area."
|
||||
end
|
||||
|
||||
id = tonumber(id)
|
||||
if not id then
|
||||
return false, "That area doesn't exist."
|
||||
end
|
||||
|
||||
if not areas:isAreaOwner(id, name) then
|
||||
return true, "You don't own that area."
|
||||
end
|
||||
|
||||
areas.areas[id].name = newName
|
||||
areas:save()
|
||||
return true, "Area renamed."
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("find_areas", {
|
||||
params = "<regexp>",
|
||||
description = "Find areas using a Lua regular expression",
|
||||
privs = areas.adminPrivs,
|
||||
func = function(name, param)
|
||||
if param == "" then
|
||||
return false, "A regular expression is required."
|
||||
end
|
||||
|
||||
-- Check expression for validity
|
||||
local function testRegExp()
|
||||
("Test [1]: Player (0,0,0) (0,0,0)"):find(param)
|
||||
end
|
||||
if not pcall(testRegExp) then
|
||||
return false, "Invalid regular expression."
|
||||
end
|
||||
|
||||
local matches = {}
|
||||
for id, area in pairs(areas.areas) do
|
||||
local str = areas:toString(id)
|
||||
if str:find(param) then
|
||||
table.insert(matches, str)
|
||||
end
|
||||
end
|
||||
if #matches > 0 then
|
||||
return true, table.concat(matches, "\n")
|
||||
else
|
||||
return true, "No matches found."
|
||||
end
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("list_areas", {
|
||||
description = "List your areas, or all areas if you are an admin.",
|
||||
func = function(name, param)
|
||||
local admin = minetest.check_player_privs(name, areas.adminPrivs)
|
||||
local areaStrings = {}
|
||||
for id, area in pairs(areas.areas) do
|
||||
if admin or areas:isAreaOwner(id, name) then
|
||||
table.insert(areaStrings, areas:toString(id))
|
||||
end
|
||||
end
|
||||
if #areaStrings == 0 then
|
||||
return true, "No visible areas."
|
||||
end
|
||||
return true, table.concat(areaStrings, "\n")
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("recursive_remove_areas", {
|
||||
params = "<id>",
|
||||
description = "Recursively remove areas using an id",
|
||||
func = function(name, param)
|
||||
local id = tonumber(param)
|
||||
if not id then
|
||||
return false, "Invalid usage, see"
|
||||
.." /help recursive_remove_areas"
|
||||
end
|
||||
|
||||
if not areas:isAreaOwner(id, name) then
|
||||
return false, "Area "..id.." does not exist or is"
|
||||
.." not owned by you."
|
||||
end
|
||||
|
||||
areas:remove(id, true)
|
||||
areas:save()
|
||||
return true, "Removed area "..id.." and it's sub areas."
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("remove_area", {
|
||||
params = "<id>",
|
||||
description = "Remove an area using an id",
|
||||
func = function(name, param)
|
||||
local id = tonumber(param)
|
||||
if not id then
|
||||
return false, "Invalid usage, see /help remove_area"
|
||||
end
|
||||
|
||||
if not areas:isAreaOwner(id, name) then
|
||||
return false, "Area "..id.." does not exist or"
|
||||
.." is not owned by you."
|
||||
end
|
||||
|
||||
areas:remove(id)
|
||||
areas:save()
|
||||
return true, "Removed area "..id
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("change_owner", {
|
||||
params = "<ID> <NewOwner>",
|
||||
description = "Change the owner of an area using it's ID",
|
||||
func = function(name, param)
|
||||
local id, newOwner = param:match("^(%d+)%s(%S+)$")
|
||||
if not id then
|
||||
return false, "Invalid usage, see"
|
||||
.." /help change_owner."
|
||||
end
|
||||
|
||||
if not areas:player_exists(newOwner) then
|
||||
return false, "The player \""..newOwner
|
||||
.."\" does not exist."
|
||||
end
|
||||
|
||||
id = tonumber(id)
|
||||
if not areas:isAreaOwner(id, name) then
|
||||
return false, "Area "..id.." does not exist"
|
||||
.." or is not owned by you."
|
||||
end
|
||||
areas.areas[id].owner = newOwner
|
||||
areas:save()
|
||||
minetest.chat_send_player(newOwner,
|
||||
("%s has given you control over the area %q (ID %d).")
|
||||
:format(name, areas.areas[id].name, id))
|
||||
return true, "Owner changed."
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("area_open", {
|
||||
params = "<ID>",
|
||||
description = "Toggle an area open (anyone can interact) or closed",
|
||||
func = function(name, param)
|
||||
local id = tonumber(param)
|
||||
if not id then
|
||||
return false, "Invalid usage, see /help area_open."
|
||||
end
|
||||
|
||||
if not areas:isAreaOwner(id, name) then
|
||||
return false, "Area "..id.." does not exist"
|
||||
.." or is not owned by you."
|
||||
end
|
||||
local open = not areas.areas[id].open
|
||||
-- Save false as nil to avoid inflating the DB.
|
||||
areas.areas[id].open = open or nil
|
||||
areas:save()
|
||||
return true, ("Area %s."):format(open and "opened" or "closed")
|
||||
end
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("move_area", {
|
||||
params = "<ID>",
|
||||
description = "Move (or resize) an area to the current positions.",
|
||||
privs = areas.adminPrivs,
|
||||
func = function(name, param)
|
||||
local id = tonumber(param)
|
||||
if not id then
|
||||
return false, "Invalid usage, see /help move_area."
|
||||
end
|
||||
|
||||
local area = areas.areas[id]
|
||||
if not area then
|
||||
return false, "Area does not exist."
|
||||
end
|
||||
|
||||
local pos1, pos2 = areas:getPos(name)
|
||||
if not pos1 then
|
||||
return false, "You need to select an area first."
|
||||
end
|
||||
|
||||
areas:move(id, area, pos1, pos2)
|
||||
areas:save()
|
||||
|
||||
return true, "Area successfully moved."
|
||||
end,
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("area_info", {
|
||||
description = "Get information about area configuration and usage.",
|
||||
func = function(name, param)
|
||||
local lines = {}
|
||||
local privs = minetest.get_player_privs(name)
|
||||
|
||||
-- Short (and fast to access) names
|
||||
local cfg = areas.config
|
||||
local self_prot = cfg.self_protection
|
||||
local prot_priv = cfg.self_protection_privilege
|
||||
local limit = cfg.self_protection_max_areas
|
||||
local limit_high = cfg.self_protection_max_areas_high
|
||||
local size_limit = cfg.self_protection_max_size
|
||||
local size_limit_high = cfg.self_protection_max_size_high
|
||||
|
||||
local has_high_limit = privs.areas_high_limit
|
||||
local has_prot_priv = not prot_priv or privs[prot_priv]
|
||||
local can_prot = privs.areas or (self_prot and has_prot_priv)
|
||||
local max_count = can_prot and
|
||||
(has_high_limit and limit_high or limit) or 0
|
||||
local max_size = has_high_limit and
|
||||
size_limit_high or size_limit
|
||||
|
||||
-- Privilege information
|
||||
local self_prot_line = ("Self protection is %sabled"):format(
|
||||
self_prot and "en" or "dis")
|
||||
if self_prot and prot_priv then
|
||||
self_prot_line = self_prot_line..
|
||||
(" %s have the neccessary privilege (%q).")
|
||||
:format(
|
||||
has_prot_priv and "and you" or
|
||||
"but you don't",
|
||||
prot_priv)
|
||||
else
|
||||
self_prot_line = self_prot_line.."."
|
||||
end
|
||||
table.insert(lines, self_prot_line)
|
||||
if privs.areas then
|
||||
table.insert(lines, "You are an area"..
|
||||
" administrator (\"areas\" privilege).")
|
||||
elseif has_high_limit then
|
||||
table.insert(lines,
|
||||
"You have extended area protection"..
|
||||
" limits (\"areas_high_limit\" privilege).")
|
||||
end
|
||||
|
||||
-- Area count
|
||||
local area_num = 0
|
||||
for id, area in pairs(areas.areas) do
|
||||
if area.owner == name then
|
||||
area_num = area_num + 1
|
||||
end
|
||||
end
|
||||
local count_line = ("You have %d area%s"):format(
|
||||
area_num, area_num == 1 and "" or "s")
|
||||
if privs.areas then
|
||||
count_line = count_line..
|
||||
" and have no area protection limits."
|
||||
elseif can_prot then
|
||||
count_line = count_line..(", out of a maximum of %d.")
|
||||
:format(max_count)
|
||||
end
|
||||
table.insert(lines, count_line)
|
||||
|
||||
-- Area size limits
|
||||
local function size_info(str, size)
|
||||
table.insert(lines, ("%s spanning up to %dx%dx%d.")
|
||||
:format(str, size.x, size.y, size.z))
|
||||
end
|
||||
local function priv_limit_info(priv, max_count, max_size)
|
||||
size_info(("Players with the %q privilege"..
|
||||
" can protect up to %d areas"):format(
|
||||
priv, max_count), max_size)
|
||||
end
|
||||
if self_prot then
|
||||
if privs.areas then
|
||||
priv_limit_info(prot_priv,
|
||||
limit, size_limit)
|
||||
priv_limit_info("areas_high_limit",
|
||||
limit_high, size_limit_high)
|
||||
elseif has_prot_priv then
|
||||
size_info("You can protect areas", max_size)
|
||||
end
|
||||
end
|
||||
|
||||
return true, table.concat(lines, "\n")
|
||||
end,
|
||||
})
|
||||
|
|
@ -0,0 +1,56 @@
|
|||
-- This is inspired by the landrush mod by Bremaweb
|
||||
|
||||
areas.hud = {}
|
||||
|
||||
minetest.register_globalstep(function(dtime)
|
||||
for _, player in pairs(minetest.get_connected_players()) do
|
||||
local name = player:get_player_name()
|
||||
local pos = vector.round(player:getpos())
|
||||
local areaStrings = {}
|
||||
|
||||
for id, area in pairs(areas:getAreasAtPos(pos)) do
|
||||
table.insert(areaStrings, ("%s [%u] (%s%s)")
|
||||
:format(area.name, id, area.owner,
|
||||
area.open and ":open" or ""))
|
||||
end
|
||||
|
||||
for i, area in pairs(areas:getExternalHudEntries(pos)) do
|
||||
local str = ""
|
||||
if area.name then str = area.name .. " " end
|
||||
if area.id then str = str.."["..area.id.."] " end
|
||||
if area.owner then str = str.."("..area.owner..")" end
|
||||
table.insert(areaStrings, str)
|
||||
end
|
||||
|
||||
local areaString = "Areas:"
|
||||
if #areaStrings > 0 then
|
||||
areaString = areaString.."\n"..
|
||||
table.concat(areaStrings, "\n")
|
||||
end
|
||||
local hud = areas.hud[name]
|
||||
if not hud then
|
||||
hud = {}
|
||||
areas.hud[name] = hud
|
||||
hud.areasId = player:hud_add({
|
||||
hud_elem_type = "text",
|
||||
name = "Areas",
|
||||
number = 0xFFFFFF,
|
||||
position = {x=0, y=1},
|
||||
offset = {x=8, y=-8},
|
||||
text = areaString,
|
||||
scale = {x=200, y=60},
|
||||
alignment = {x=1, y=-1},
|
||||
})
|
||||
hud.oldAreas = areaString
|
||||
return
|
||||
elseif hud.oldAreas ~= areaString then
|
||||
player:hud_change(hud.areasId, "text", areaString)
|
||||
hud.oldAreas = areaString
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
||||
minetest.register_on_leaveplayer(function(player)
|
||||
areas.hud[player:get_player_name()] = nil
|
||||
end)
|
||||
|
|
@ -0,0 +1,39 @@
|
|||
-- Areas mod by ShadowNinja
|
||||
-- Based on node_ownership
|
||||
-- License: LGPLv2+
|
||||
|
||||
areas = {}
|
||||
|
||||
areas.adminPrivs = {areas=true}
|
||||
areas.startTime = os.clock()
|
||||
|
||||
areas.modpath = minetest.get_modpath("areas")
|
||||
dofile(areas.modpath.."/settings.lua")
|
||||
dofile(areas.modpath.."/api.lua")
|
||||
dofile(areas.modpath.."/internal.lua")
|
||||
dofile(areas.modpath.."/chatcommands.lua")
|
||||
dofile(areas.modpath.."/pos.lua")
|
||||
dofile(areas.modpath.."/interact.lua")
|
||||
dofile(areas.modpath.."/legacy.lua")
|
||||
dofile(areas.modpath.."/hud.lua")
|
||||
|
||||
areas:load()
|
||||
|
||||
minetest.register_privilege("areas", {
|
||||
description = "Can administer areas."
|
||||
})
|
||||
minetest.register_privilege("areas_high_limit", {
|
||||
description = "Can can more, bigger areas."
|
||||
})
|
||||
|
||||
if not minetest.registered_privileges[areas.config.self_protection_privilege] then
|
||||
minetest.register_privilege(areas.config.self_protection_privilege, {
|
||||
description = "Can protect areas.",
|
||||
})
|
||||
end
|
||||
|
||||
if minetest.settings:get_bool("log_mod") then
|
||||
local diffTime = os.clock() - areas.startTime
|
||||
minetest.log("action", "areas loaded in "..diffTime.."s.")
|
||||
end
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
|
||||
local old_is_protected = minetest.is_protected
|
||||
function minetest.is_protected(pos, name)
|
||||
if not areas:canInteract(pos, name) then
|
||||
return true
|
||||
end
|
||||
return old_is_protected(pos, name)
|
||||
end
|
||||
|
||||
minetest.register_on_protection_violation(function(pos, name)
|
||||
if not areas:canInteract(pos, name) then
|
||||
local owners = areas:getNodeOwners(pos)
|
||||
minetest.chat_send_player(name,
|
||||
("%s is protected by %s."):format(
|
||||
minetest.pos_to_string(pos),
|
||||
table.concat(owners, ", ")))
|
||||
end
|
||||
end)
|
||||
|
|
@ -0,0 +1,285 @@
|
|||
|
||||
function areas:player_exists(name)
|
||||
return minetest.get_auth_handler().get_auth(name) ~= nil
|
||||
end
|
||||
|
||||
-- Save the areas table to a file
|
||||
function areas:save()
|
||||
local datastr = minetest.serialize(self.areas)
|
||||
if not datastr then
|
||||
minetest.log("error", "[areas] Failed to serialize area data!")
|
||||
return
|
||||
end
|
||||
local file, err = io.open(self.config.filename, "w")
|
||||
if err then
|
||||
return err
|
||||
end
|
||||
file:write(datastr)
|
||||
file:close()
|
||||
end
|
||||
|
||||
-- Load the areas table from the save file
|
||||
function areas:load()
|
||||
local file, err = io.open(self.config.filename, "r")
|
||||
if err then
|
||||
self.areas = self.areas or {}
|
||||
return err
|
||||
end
|
||||
self.areas = minetest.deserialize(file:read("*a"))
|
||||
if type(self.areas) ~= "table" then
|
||||
self.areas = {}
|
||||
end
|
||||
file:close()
|
||||
self:populateStore()
|
||||
end
|
||||
|
||||
--- Checks an AreaStore ID.
|
||||
-- Deletes the AreaStore (falling back to the iterative method)
|
||||
-- and prints an error message if the ID is invalid.
|
||||
-- @return Whether the ID was valid.
|
||||
function areas:checkAreaStoreId(sid)
|
||||
if not sid then
|
||||
minetest.log("error", "AreaStore failed to find an ID for an "
|
||||
.."area! Falling back to iterative area checking.")
|
||||
self.store = nil
|
||||
self.store_ids = nil
|
||||
end
|
||||
return sid and true or false
|
||||
end
|
||||
|
||||
-- Populates the AreaStore after loading, if needed.
|
||||
function areas:populateStore()
|
||||
if not rawget(_G, "AreaStore") then
|
||||
return
|
||||
end
|
||||
local store = AreaStore()
|
||||
local store_ids = {}
|
||||
for id, area in pairs(areas.areas) do
|
||||
local sid = store:insert_area(area.pos1,
|
||||
area.pos2, tostring(id))
|
||||
if not self:checkAreaStoreId(sid) then
|
||||
return
|
||||
end
|
||||
store_ids[id] = sid
|
||||
end
|
||||
self.store = store
|
||||
self.store_ids = store_ids
|
||||
end
|
||||
|
||||
-- Finds the first usable index in a table
|
||||
-- Eg: {[1]=false,[4]=true} -> 2
|
||||
local function findFirstUnusedIndex(t)
|
||||
local i = 0
|
||||
repeat i = i + 1
|
||||
until t[i] == nil
|
||||
return i
|
||||
end
|
||||
|
||||
--- Add a area.
|
||||
-- @return The new area's ID.
|
||||
function areas:add(owner, name, pos1, pos2, parent)
|
||||
local id = findFirstUnusedIndex(self.areas)
|
||||
self.areas[id] = {
|
||||
name = name,
|
||||
pos1 = pos1,
|
||||
pos2 = pos2,
|
||||
owner = owner,
|
||||
parent = parent
|
||||
}
|
||||
-- Add to AreaStore
|
||||
if self.store then
|
||||
local sid = self.store:insert_area(pos1, pos2, tostring(id))
|
||||
if self:checkAreaStoreId(sid) then
|
||||
self.store_ids[id] = sid
|
||||
end
|
||||
end
|
||||
return id
|
||||
end
|
||||
|
||||
--- Remove a area, and optionally it's children recursively.
|
||||
-- If a area is deleted non-recursively the children will
|
||||
-- have the removed area's parent as their new parent.
|
||||
function areas:remove(id, recurse)
|
||||
if recurse then
|
||||
-- Recursively find child entries and remove them
|
||||
local cids = self:getChildren(id)
|
||||
for _, cid in pairs(cids) do
|
||||
self:remove(cid, true)
|
||||
end
|
||||
else
|
||||
-- Update parents
|
||||
local parent = self.areas[id].parent
|
||||
local children = self:getChildren(id)
|
||||
for _, cid in pairs(children) do
|
||||
-- The subarea parent will be niled out if the
|
||||
-- removed area does not have a parent
|
||||
self.areas[cid].parent = parent
|
||||
|
||||
end
|
||||
end
|
||||
|
||||
-- Remove main entry
|
||||
self.areas[id] = nil
|
||||
|
||||
-- Remove from AreaStore
|
||||
if self.store then
|
||||
self.store:remove_area(self.store_ids[id])
|
||||
self.store_ids[id] = nil
|
||||
end
|
||||
end
|
||||
|
||||
--- Move an area.
|
||||
function areas:move(id, area, pos1, pos2)
|
||||
area.pos1 = pos1
|
||||
area.pos2 = pos2
|
||||
|
||||
if self.store then
|
||||
self.store:remove_area(areas.store_ids[id])
|
||||
local sid = self.store:insert_area(pos1, pos2, tostring(id))
|
||||
if self:checkAreaStoreId(sid) then
|
||||
self.store_ids[id] = sid
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
-- Checks if a area between two points is entirely contained by another area.
|
||||
-- Positions must be sorted.
|
||||
function areas:isSubarea(pos1, pos2, id)
|
||||
local area = self.areas[id]
|
||||
if not area then
|
||||
return false
|
||||
end
|
||||
local ap1, ap2 = area.pos1, area.pos2
|
||||
local ap1x, ap1y, ap1z = ap1.x, ap1.y, ap1.z
|
||||
local ap2x, ap2y, ap2z = ap2.x, ap2.y, ap2.z
|
||||
local p1x, p1y, p1z = pos1.x, pos1.y, pos1.z
|
||||
local p2x, p2y, p2z = pos2.x, pos2.y, pos2.z
|
||||
if
|
||||
(p1x >= ap1x and p1x <= ap2x) and
|
||||
(p2x >= ap1x and p2x <= ap2x) and
|
||||
(p1y >= ap1y and p1y <= ap2y) and
|
||||
(p2y >= ap1y and p2y <= ap2y) and
|
||||
(p1z >= ap1z and p1z <= ap2z) and
|
||||
(p2z >= ap1z and p2z <= ap2z) then
|
||||
return true
|
||||
end
|
||||
end
|
||||
|
||||
-- Returns a table (list) of children of an area given it's identifier
|
||||
function areas:getChildren(id)
|
||||
local children = {}
|
||||
for cid, area in pairs(self.areas) do
|
||||
if area.parent and area.parent == id then
|
||||
table.insert(children, cid)
|
||||
end
|
||||
end
|
||||
return children
|
||||
end
|
||||
|
||||
-- Checks if the user has sufficient privileges.
|
||||
-- If the player is not a administrator it also checks
|
||||
-- if the area intersects other areas that they do not own.
|
||||
-- Also checks the size of the area and if the user already
|
||||
-- has more than max_areas.
|
||||
function areas:canPlayerAddArea(pos1, pos2, name)
|
||||
local privs = minetest.get_player_privs(name)
|
||||
if privs.areas then
|
||||
return true
|
||||
end
|
||||
|
||||
-- Check self protection privilege, if it is enabled,
|
||||
-- and if the area is too big.
|
||||
if not self.config.self_protection or
|
||||
not privs[areas.config.self_protection_privilege] then
|
||||
return false, "Self protection is disabled or you do not have"
|
||||
.." the necessary privilege."
|
||||
end
|
||||
|
||||
local max_size = privs.areas_high_limit and
|
||||
self.config.self_protection_max_size_high or
|
||||
self.config.self_protection_max_size
|
||||
if
|
||||
(pos2.x - pos1.x) > max_size.x or
|
||||
(pos2.y - pos1.y) > max_size.y or
|
||||
(pos2.z - pos1.z) > max_size.z then
|
||||
return false, "Area is too big."
|
||||
end
|
||||
|
||||
-- Check number of areas the user has and make sure it not above the max
|
||||
local count = 0
|
||||
for _, area in pairs(self.areas) do
|
||||
if area.owner == name then
|
||||
count = count + 1
|
||||
end
|
||||
end
|
||||
local max_areas = privs.areas_high_limit and
|
||||
self.config.self_protection_max_areas_high or
|
||||
self.config.self_protection_max_areas
|
||||
if count >= max_areas then
|
||||
return false, "You have reached the maximum amount of"
|
||||
.." areas that you are allowed to protect."
|
||||
end
|
||||
|
||||
-- Check intersecting areas
|
||||
local can, id = self:canInteractInArea(pos1, pos2, name)
|
||||
if not can then
|
||||
local area = self.areas[id]
|
||||
return false, ("The area intersects with %s [%u] (%s).")
|
||||
:format(area.name, id, area.owner)
|
||||
end
|
||||
|
||||
return true
|
||||
end
|
||||
|
||||
-- Given a id returns a string in the format:
|
||||
-- "name [id]: owner (x1, y1, z1) (x2, y2, z2) -> children"
|
||||
function areas:toString(id)
|
||||
local area = self.areas[id]
|
||||
local message = ("%s [%d]: %s %s %s"):format(
|
||||
area.name, id, area.owner,
|
||||
minetest.pos_to_string(area.pos1),
|
||||
minetest.pos_to_string(area.pos2))
|
||||
|
||||
local children = areas:getChildren(id)
|
||||
if #children > 0 then
|
||||
message = message.." -> "..table.concat(children, ", ")
|
||||
end
|
||||
return message
|
||||
end
|
||||
|
||||
-- Re-order areas in table by their identifiers
|
||||
function areas:sort()
|
||||
local sa = {}
|
||||
for k, area in pairs(self.areas) do
|
||||
if not area.parent then
|
||||
table.insert(sa, area)
|
||||
local newid = #sa
|
||||
for _, subarea in pairs(self.areas) do
|
||||
if subarea.parent == k then
|
||||
subarea.parent = newid
|
||||
table.insert(sa, subarea)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
self.areas = sa
|
||||
end
|
||||
|
||||
-- Checks if a player owns an area or a parent of it
|
||||
function areas:isAreaOwner(id, name)
|
||||
local cur = self.areas[id]
|
||||
if cur and minetest.check_player_privs(name, self.adminPrivs) then
|
||||
return true
|
||||
end
|
||||
while cur do
|
||||
if cur.owner == name then
|
||||
return true
|
||||
elseif cur.parent then
|
||||
cur = self.areas[cur.parent]
|
||||
else
|
||||
return false
|
||||
end
|
||||
end
|
||||
return false
|
||||
end
|
||||
|
|
@ -0,0 +1,138 @@
|
|||
-- This file contains functions to convert from
|
||||
-- the old areas format and other compatability code.
|
||||
|
||||
minetest.register_chatcommand("legacy_load_areas", {
|
||||
params = "<version>",
|
||||
description = "Loads, converts, and saves the areas from"
|
||||
.." a legacy save file.",
|
||||
privs = {areas=true, server=true},
|
||||
func = function(name, param)
|
||||
minetest.chat_send_player(name, "Converting areas...")
|
||||
local version = tonumber(param)
|
||||
if version == 0 then
|
||||
err = areas:node_ownership_load()
|
||||
if err then
|
||||
minetest.chat_send_player(name, "Error loading legacy file: "..err)
|
||||
return
|
||||
end
|
||||
else
|
||||
minetest.chat_send_player(name, "Invalid version number. (0 allowed)")
|
||||
return
|
||||
end
|
||||
minetest.chat_send_player(name, "Legacy file loaded.")
|
||||
|
||||
for k, area in pairs(areas.areas) do
|
||||
-- New position format
|
||||
area.pos1 = {x=area.x1, y=area.y1, z=area.z1}
|
||||
area.pos2 = {x=area.x2, y=area.y2, z=area.z2}
|
||||
|
||||
area.x1, area.y1, area.z1,
|
||||
area.x2, area.y2, area.z2 =
|
||||
nil, nil, nil, nil, nil, nil
|
||||
|
||||
-- Area positions sorting
|
||||
areas:sortPos(area.pos1, area.pos2)
|
||||
|
||||
-- Add name
|
||||
area.name = "unnamed"
|
||||
|
||||
-- Remove ID
|
||||
area.id = nil
|
||||
end
|
||||
minetest.chat_send_player(name, "Table format updated.")
|
||||
|
||||
areas:save()
|
||||
minetest.chat_send_player(name, "Converted areas saved. Done.")
|
||||
end
|
||||
})
|
||||
|
||||
function areas:node_ownership_load()
|
||||
local filename = minetest.get_worldpath().."/owners.tbl"
|
||||
tables, err = loadfile(filename)
|
||||
if err then
|
||||
return err
|
||||
end
|
||||
|
||||
tables = tables()
|
||||
for idx = 1, #tables do
|
||||
local tolinkv, tolinki = {}, {}
|
||||
for i, v in pairs(tables[idx]) do
|
||||
if type(v) == "table" and tables[v[1]] then
|
||||
table.insert(tolinkv, {i, tables[v[1]]})
|
||||
end
|
||||
if type(i) == "table" and tables[i[1]] then
|
||||
table.insert(tolinki, {i, tables[i[1]]})
|
||||
end
|
||||
end
|
||||
-- link values, first due to possible changes of indices
|
||||
for _, v in ipairs(tolinkv) do
|
||||
tables[idx][v[1]] = v[2]
|
||||
end
|
||||
-- link indices
|
||||
for _, v in ipairs(tolinki) do
|
||||
tables[idx][v[2]], tables[idx][v[1]] = tables[idx][v[1]], nil
|
||||
end
|
||||
end
|
||||
self.areas = tables[1]
|
||||
end
|
||||
|
||||
-- Returns the name of the first player that owns an area
|
||||
function areas.getNodeOwnerName(pos)
|
||||
for id, area in pairs(areas:getAreasAtPos(pos)) do
|
||||
return area.owner
|
||||
end
|
||||
return false
|
||||
end
|
||||
|
||||
-- Checks if a node is owned by you
|
||||
function areas.isNodeOwner(pos, name)
|
||||
if minetest.check_player_privs(name, areas.adminPrivs) then
|
||||
return true
|
||||
end
|
||||
for id, area in pairs(areas:getAreasAtPos(pos)) do
|
||||
if name == area.owner then
|
||||
return true
|
||||
end
|
||||
end
|
||||
return false
|
||||
end
|
||||
|
||||
-- Checks if an area has an owner
|
||||
function areas.hasOwner(pos)
|
||||
for id, area in pairs(areas:getAreasAtPos(pos)) do
|
||||
return true
|
||||
end
|
||||
return false
|
||||
end
|
||||
|
||||
IsPlayerNodeOwner = areas.isNodeOwner
|
||||
GetNodeOwnerName = areas.getNodeOwnerName
|
||||
HasOwner = areas.hasOwner
|
||||
|
||||
-- This is entirely untested and may break in strange and new ways.
|
||||
if areas.config.legacy_table then
|
||||
owner_defs = setmetatable({}, {
|
||||
__index = function(table, key)
|
||||
local a = rawget(areas.areas, key)
|
||||
if not a then return a end
|
||||
local b = {}
|
||||
for k, v in pairs(a) do b[k] = v end
|
||||
b.x1, b.y1, b.z1 = b.pos1.x, b.pos1.y, b.pos1.z
|
||||
b.x2, b.y1, b.z2 = b.pos2.x, b.pos2.y, b.pos2.z
|
||||
b.pos1, b.pos2 = nil, nil
|
||||
b.id = key
|
||||
return b
|
||||
end,
|
||||
__newindex = function(table, key, value)
|
||||
local a = value
|
||||
a.pos1, a.pos2 = {x=a.x1, y=a.y1, z=a.z1},
|
||||
{x=a.x2, y=a.y2, z=a.z2}
|
||||
a.x1, a.y1, a.z1, a.x2, a.y2, a.z2 =
|
||||
nil, nil, nil, nil, nil, nil
|
||||
a.name = a.name or "unnamed"
|
||||
a.id = nil
|
||||
return rawset(areas.areas, key, a)
|
||||
end
|
||||
})
|
||||
end
|
||||
|
|
@ -0,0 +1 @@
|
|||
name = areas
|
|
@ -0,0 +1,255 @@
|
|||
|
||||
-- I could depend on WorldEdit for this, but you need to have the 'worldedit'
|
||||
-- permission to use those commands and you don't have
|
||||
-- /area_pos{1,2} [X Y Z|X,Y,Z].
|
||||
-- Since this is mostly copied from WorldEdit it is mostly
|
||||
-- licensed under the AGPL. (select_area is a exception)
|
||||
|
||||
areas.marker1 = {}
|
||||
areas.marker2 = {}
|
||||
areas.set_pos = {}
|
||||
areas.pos1 = {}
|
||||
areas.pos2 = {}
|
||||
|
||||
minetest.register_chatcommand("select_area", {
|
||||
params = "<ID>",
|
||||
description = "Select a area by id.",
|
||||
func = function(name, param)
|
||||
local id = tonumber(param)
|
||||
if not id then
|
||||
return false, "Invalid usage, see /help select_area."
|
||||
end
|
||||
if not areas.areas[id] then
|
||||
return false, "The area "..id.." does not exist."
|
||||
end
|
||||
|
||||
areas:setPos1(name, areas.areas[id].pos1)
|
||||
areas:setPos2(name, areas.areas[id].pos2)
|
||||
return true, "Area "..id.." selected."
|
||||
end,
|
||||
})
|
||||
|
||||
minetest.register_chatcommand("area_pos1", {
|
||||
params = "[X Y Z|X,Y,Z]",
|
||||
description = "Set area protection region position 1 to your"
|
||||
.." location or the one specified",
|
||||
privs = {},
|
||||
func = function(name, param)
|
||||
local pos = nil
|
||||
local found, _, x, y, z = param:find(
|
||||
"^(-?%d+)[, ](-?%d+)[, ](-?%d+)$")
|
||||
if found then
|
||||
pos = {x=tonumber(x), y=tonumber(y), z=tonumber(z)}
|
||||
elseif param == "" then
|
||||
local player = minetest.get_player_by_name(name)
|
||||
if player then
|
||||
pos = player:getpos()
|
||||
else
|
||||
return false, "Unable to get position."
|
||||
end
|
||||
else
|
||||
return false, "Invalid usage, see /help area_pos1."
|
||||
end
|
||||
pos = vector.round(pos)
|
||||
areas:setPos1(name, pos)
|
||||
return true, "Area position 1 set to "
|
||||
..minetest.pos_to_string(pos)
|
||||
end,
|
||||
})
|
||||
|
||||
minetest.register_chatcommand("area_pos2", {
|
||||
params = "[X Y Z|X,Y,Z]",
|
||||
description = "Set area protection region position 2 to your"
|
||||
.." location or the one specified",
|
||||
func = function(name, param)
|
||||
local pos = nil
|
||||
local found, _, x, y, z = param:find(
|
||||
"^(-?%d+)[, ](-?%d+)[, ](-?%d+)$")
|
||||
if found then
|
||||
pos = {x=tonumber(x), y=tonumber(y), z=tonumber(z)}
|
||||
elseif param == "" then
|
||||
local player = minetest.get_player_by_name(name)
|
||||
if player then
|
||||
pos = player:getpos()
|
||||
else
|
||||
return false, "Unable to get position."
|
||||
end
|
||||
else
|
||||
return false, "Invalid usage, see /help area_pos2."
|
||||
end
|
||||
pos = vector.round(pos)
|
||||
areas:setPos2(name, pos)
|
||||
return true, "Area position 2 set to "
|
||||
..minetest.pos_to_string(pos)
|
||||
end,
|
||||
})
|
||||
|
||||
|
||||
minetest.register_chatcommand("area_pos", {
|
||||
params = "set/set1/set2/get",
|
||||
description = "Set area protection region, position 1, or position 2"
|
||||
.." by punching nodes, or display the region",
|
||||
func = function(name, param)
|
||||
if param == "set" then -- Set both area positions
|
||||
areas.set_pos[name] = "pos1"
|
||||
return true, "Select positions by punching two nodes."
|
||||
elseif param == "set1" then -- Set area position 1
|
||||
areas.set_pos[name] = "pos1only"
|
||||
return true, "Select position 1 by punching a node."
|
||||
elseif param == "set2" then -- Set area position 2
|
||||
areas.set_pos[name] = "pos2"
|
||||
return true, "Select position 2 by punching a node."
|
||||
elseif param == "get" then -- Display current area positions
|
||||
local pos1str, pos2str = "Position 1: ", "Position 2: "
|
||||
if areas.pos1[name] then
|
||||
pos1str = pos1str..minetest.pos_to_string(areas.pos1[name])
|
||||
else
|
||||
pos1str = pos1str.."<not set>"
|
||||
end
|
||||
if areas.pos2[name] then
|
||||
pos2str = pos2str..minetest.pos_to_string(areas.pos2[name])
|
||||
else
|
||||
pos2str = pos2str.."<not set>"
|
||||
end
|
||||
return true, pos1str.."\n"..pos2str
|
||||
else
|
||||
return false, "Unknown subcommand: "..param
|
||||
end
|
||||
end,
|
||||
})
|
||||
|
||||
function areas:getPos(playerName)
|
||||
local pos1, pos2 = areas.pos1[playerName], areas.pos2[playerName]
|
||||
if not (pos1 and pos2) then
|
||||
return nil
|
||||
end
|
||||
-- Copy positions so that the area table doesn't contain multiple
|
||||
-- references to the same position.
|
||||
pos1, pos2 = vector.new(pos1), vector.new(pos2)
|
||||
return areas:sortPos(pos1, pos2)
|
||||
end
|
||||
|
||||
function areas:setPos1(playerName, pos)
|
||||
areas.pos1[playerName] = pos
|
||||
areas.markPos1(playerName)
|
||||
end
|
||||
|
||||
function areas:setPos2(playerName, pos)
|
||||
areas.pos2[playerName] = pos
|
||||
areas.markPos2(playerName)
|
||||
end
|
||||
|
||||
|
||||
minetest.register_on_punchnode(function(pos, node, puncher)
|
||||
local name = puncher:get_player_name()
|
||||
-- Currently setting position
|
||||
if name ~= "" and areas.set_pos[name] then
|
||||
if areas.set_pos[name] == "pos1" then
|
||||
areas.pos1[name] = pos
|
||||
areas.markPos1(name)
|
||||
areas.set_pos[name] = "pos2"
|
||||
minetest.chat_send_player(name,
|
||||
"Position 1 set to "
|
||||
..minetest.pos_to_string(pos))
|
||||
elseif areas.set_pos[name] == "pos1only" then
|
||||
areas.pos1[name] = pos
|
||||
areas.markPos1(name)
|
||||
areas.set_pos[name] = nil
|
||||
minetest.chat_send_player(name,
|
||||
"Position 1 set to "
|
||||
..minetest.pos_to_string(pos))
|
||||
elseif areas.set_pos[name] == "pos2" then
|
||||
areas.pos2[name] = pos
|
||||
areas.markPos2(name)
|
||||
areas.set_pos[name] = nil
|
||||
minetest.chat_send_player(name,
|
||||
"Position 2 set to "
|
||||
..minetest.pos_to_string(pos))
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
||||
-- Modifies positions `pos1` and `pos2` so that each component of `pos1`
|
||||
-- is less than or equal to its corresponding component of `pos2`,
|
||||
-- returning the two positions.
|
||||
function areas:sortPos(pos1, pos2)
|
||||
if pos1.x > pos2.x then
|
||||
pos2.x, pos1.x = pos1.x, pos2.x
|
||||
end
|
||||
if pos1.y > pos2.y then
|
||||
pos2.y, pos1.y = pos1.y, pos2.y
|
||||
end
|
||||
if pos1.z > pos2.z then
|
||||
pos2.z, pos1.z = pos1.z, pos2.z
|
||||
end
|
||||
return pos1, pos2
|
||||
end
|
||||
|
||||
-- Marks area position 1
|
||||
areas.markPos1 = function(name)
|
||||
local pos = areas.pos1[name]
|
||||
if areas.marker1[name] ~= nil then -- Marker already exists
|
||||
areas.marker1[name]:remove() -- Remove marker
|
||||
areas.marker1[name] = nil
|
||||
end
|
||||
if pos ~= nil then -- Add marker
|
||||
areas.marker1[name] = minetest.add_entity(pos, "areas:pos1")
|
||||
areas.marker1[name]:get_luaentity().active = true
|
||||
end
|
||||
end
|
||||
|
||||
-- Marks area position 2
|
||||
areas.markPos2 = function(name)
|
||||
local pos = areas.pos2[name]
|
||||
if areas.marker2[name] ~= nil then -- Marker already exists
|
||||
areas.marker2[name]:remove() -- Remove marker
|
||||
areas.marker2[name] = nil
|
||||
end
|
||||
if pos ~= nil then -- Add marker
|
||||
areas.marker2[name] = minetest.add_entity(pos, "areas:pos2")
|
||||
areas.marker2[name]:get_luaentity().active = true
|
||||
end
|
||||
end
|
||||
|
||||
minetest.register_entity("areas:pos1", {
|
||||
initial_properties = {
|
||||
visual = "cube",
|
||||
visual_size = {x=1.1, y=1.1},
|
||||
textures = {"areas_pos1.png", "areas_pos1.png",
|
||||
"areas_pos1.png", "areas_pos1.png",
|
||||
"areas_pos1.png", "areas_pos1.png"},
|
||||
collisionbox = {-0.55, -0.55, -0.55, 0.55, 0.55, 0.55},
|
||||
},
|
||||
on_step = function(self, dtime)
|
||||
if self.active == nil then
|
||||
self.object:remove()
|
||||
end
|
||||
end,
|
||||
on_punch = function(self, hitter)
|
||||
self.object:remove()
|
||||
local name = hitter:get_player_name()
|
||||
areas.marker1[name] = nil
|
||||
end,
|
||||
})
|
||||
|
||||
minetest.register_entity("areas:pos2", {
|
||||
initial_properties = {
|
||||
visual = "cube",
|
||||
visual_size = {x=1.1, y=1.1},
|
||||
textures = {"areas_pos2.png", "areas_pos2.png",
|
||||
"areas_pos2.png", "areas_pos2.png",
|
||||
"areas_pos2.png", "areas_pos2.png"},
|
||||
collisionbox = {-0.55, -0.55, -0.55, 0.55, 0.55, 0.55},
|
||||
},
|
||||
on_step = function(self, dtime)
|
||||
if self.active == nil then
|
||||
self.object:remove()
|
||||
end
|
||||
end,
|
||||
on_punch = function(self, hitter)
|
||||
self.object:remove()
|
||||
local name = hitter:get_player_name()
|
||||
areas.marker2[name] = nil
|
||||
end,
|
||||
})
|
||||
|
|
@ -0,0 +1,43 @@
|
|||
local world_path = minetest.get_worldpath()
|
||||
|
||||
areas.config = {}
|
||||
|
||||
local function setting(tp, name, default)
|
||||
local full_name = "areas."..name
|
||||
local value
|
||||
if tp == "boolean" then
|
||||
value = minetest.settings:get_bool(full_name)
|
||||
elseif tp == "string" then
|
||||
value = minetest.settings:get(full_name)
|
||||
elseif tp == "position" then
|
||||
value = minetest.setting_get_pos(full_name)
|
||||
elseif tp == "number" then
|
||||
value = tonumber(minetest.settings:get(full_name))
|
||||
else
|
||||
error("Invalid setting type!")
|
||||
end
|
||||
if value == nil then
|
||||
value = default
|
||||
end
|
||||
areas.config[name] = value
|
||||
end
|
||||
|
||||
--------------
|
||||
-- Settings --
|
||||
--------------
|
||||
|
||||
setting("string", "filename", world_path.."/areas.dat")
|
||||
|
||||
-- Allow players with a privilege create their own areas
|
||||
-- within the maximum size and number.
|
||||
setting("boolean", "self_protection", false)
|
||||
setting("string", "self_protection_privilege", "interact")
|
||||
setting("position", "self_protection_max_size", {x=64, y=128, z=64})
|
||||
setting("number", "self_protection_max_areas", 4)
|
||||
-- For players with the areas_high_limit privilege.
|
||||
setting("position", "self_protection_max_size_high", {x=512, y=512, z=512})
|
||||
setting("number", "self_protection_max_areas_high", 32)
|
||||
|
||||
-- legacy_table (owner_defs) compatibility. Untested and has known issues.
|
||||
setting("boolean", "legacy_table", false)
|
||||
|
Binary file not shown.
After Width: | Height: | Size: 142 B |
Binary file not shown.
After Width: | Height: | Size: 157 B |
|
@ -0,0 +1,3 @@
|
|||
|
||||
This is work in progress.
|
||||
|
|
@ -0,0 +1,865 @@
|
|||
|
||||
-- TODO: offer teleport button?
|
||||
|
||||
-- Temporary compatibility function - see minetest PR#1180
|
||||
if not vector.interpolate then
|
||||
vector.interpolate = function(pos1, pos2, factor)
|
||||
return {x = pos1.x + (pos2.x - pos1.x) * factor,
|
||||
y = pos1.y + (pos2.y - pos1.y) * factor,
|
||||
z = pos1.z + (pos2.z - pos1.z) * factor}
|
||||
end
|
||||
end
|
||||
|
||||
-- taken from mobf
|
||||
local COLOR_RED = "#FF0000";
|
||||
local COLOR_GREEN = "#00FF00";
|
||||
local COLOR_WHITE = "#FFFFFF";
|
||||
|
||||
|
||||
-- we need to store which list we present to which player
|
||||
markers.menu_data_by_player = {}
|
||||
|
||||
|
||||
markers.get_area_by_pos = function(pos)
|
||||
|
||||
local found_areas = {};
|
||||
for id, area in pairs(areas.areas) do
|
||||
if( pos.x >= area.pos1.x and pos.x <= area.pos2.x and
|
||||
pos.y >= area.pos1.y and pos.y <= area.pos2.y and
|
||||
pos.z >= area.pos1.z and pos.z <= area.pos2.z )then
|
||||
|
||||
area[ 'id' ] = id;
|
||||
table.insert(found_areas, area );
|
||||
end
|
||||
end
|
||||
return found_areas;
|
||||
end
|
||||
|
||||
|
||||
|
||||
-- ppos: current player (or marker stone) position - used for sorting the list
|
||||
-- mode: can be pos, player, all, subarea, main_areas
|
||||
-- mode_data: content depends on mode
|
||||
-- selected: display information about the area the player single-clicked on
|
||||
markers.get_area_list_formspec = function(ppos, player, mode, pos, mode_data, selected )
|
||||
|
||||
|
||||
local id_list = {};
|
||||
local title = '???';
|
||||
local tlabel = '';
|
||||
|
||||
-- expects a position in mode_data
|
||||
if( mode=='pos' ) then
|
||||
-- title would be too long for a label
|
||||
title = 'All areas which contain position..';
|
||||
tlabel = '<'..minetest.pos_to_string( mode_data )..'>:';
|
||||
|
||||
for id, area in pairs(areas.areas) do
|
||||
|
||||
if( mode_data.x >= area.pos1.x and mode_data.x <= area.pos2.x and
|
||||
mode_data.y >= area.pos1.y and mode_data.y <= area.pos2.y and
|
||||
mode_data.z >= area.pos1.z and mode_data.z <= area.pos2.z )then
|
||||
|
||||
table.insert( id_list, id );
|
||||
end
|
||||
end
|
||||
|
||||
-- expects a playername in mode_data
|
||||
elseif( mode=='player' ) then
|
||||
|
||||
title = 'All areas owned by player..';
|
||||
tlabel = '<'..tostring( mode_data )..'>:';
|
||||
|
||||
for id, area in pairs(areas.areas) do
|
||||
|
||||
if( area.owner == mode_data ) then
|
||||
table.insert( id_list, id );
|
||||
end
|
||||
end
|
||||
|
||||
-- expects an area_id in mode_data
|
||||
elseif( mode=='subareas' ) then
|
||||
|
||||
title = 'All subareas of area..';
|
||||
tlabel = '<'..tostring( areas.areas[ mode_data ].name )..'> ['..tostring( mode_data )..']:';
|
||||
|
||||
for id, area in pairs(areas.areas) do
|
||||
|
||||
if( area.parent and area.parent == mode_data ) then
|
||||
table.insert( id_list, id );
|
||||
end
|
||||
end
|
||||
|
||||
-- show only areas that do not have parents
|
||||
elseif( mode=='main_areas' ) then
|
||||
title = 'All main areas withhin '..tostring( markers.AREA_RANGE )..' m:';
|
||||
tlabel = '*all main areas*';
|
||||
for id, area in pairs(areas.areas) do
|
||||
|
||||
if( not( area.parent )
|
||||
-- ppos is always available
|
||||
and( (area.pos1.x >= ppos.x-markers.AREA_RANGE and area.pos1.x <= ppos.x+markers.AREA_RANGE )
|
||||
or(area.pos2.x >= ppos.x-markers.AREA_RANGE and area.pos2.x <= ppos.x+markers.AREA_RANGE ))
|
||||
and( (area.pos1.y >= ppos.y-markers.AREA_RANGE and area.pos1.y <= ppos.y+markers.AREA_RANGE )
|
||||
or(area.pos2.y >= ppos.y-markers.AREA_RANGE and area.pos2.y <= ppos.y+markers.AREA_RANGE ))
|
||||
and( (area.pos1.z >= ppos.z-markers.AREA_RANGE and area.pos1.z <= ppos.z+markers.AREA_RANGE )
|
||||
or(area.pos2.z >= ppos.z-markers.AREA_RANGE and area.pos2.z <= ppos.z+markers.AREA_RANGE ))) then
|
||||
table.insert( id_list, id );
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
elseif( mode=='all' ) then
|
||||
title = 'All areas withhin '..tostring( markers.AREA_RANGE )..' m:';
|
||||
tlabel = '*all areas*';
|
||||
|
||||
for id, area in pairs(areas.areas) do
|
||||
if( ( (area.pos1.x >= ppos.x-markers.AREA_RANGE and area.pos1.x <= ppos.x+markers.AREA_RANGE )
|
||||
or(area.pos2.x >= ppos.x-markers.AREA_RANGE and area.pos2.x <= ppos.x+markers.AREA_RANGE ))
|
||||
and( (area.pos1.y >= ppos.y-markers.AREA_RANGE and area.pos1.y <= ppos.y+markers.AREA_RANGE )
|
||||
or(area.pos2.y >= ppos.y-markers.AREA_RANGE and area.pos2.y <= ppos.y+markers.AREA_RANGE ))
|
||||
and( (area.pos1.z >= ppos.z-markers.AREA_RANGE and area.pos1.z <= ppos.z+markers.AREA_RANGE )
|
||||
or(area.pos2.z >= ppos.z-markers.AREA_RANGE and area.pos2.z <= ppos.z+markers.AREA_RANGE ))) then
|
||||
table.insert( id_list, id );
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
-- Sort the list of areas so the nearest comes first
|
||||
local nearsorter = function(a, b)
|
||||
return vector.distance(vector.interpolate(areas.areas[a].pos1, areas.areas[a].pos2, 0.5), ppos) <
|
||||
vector.distance(vector.interpolate(areas.areas[b].pos1, areas.areas[b].pos2, 0.5), ppos)
|
||||
end
|
||||
table.sort(id_list, nearsorter)
|
||||
|
||||
local formspec = 'size[10,9]';
|
||||
|
||||
title = minetest.formspec_escape( title );
|
||||
tlabel = minetest.formspec_escape( tlabel );
|
||||
|
||||
formspec = formspec..
|
||||
"label[0.5,0;"..title.."]"..
|
||||
"label[4.7,0;"..tlabel.."]"..
|
||||
"label[0.5,8.5;Doubleclick to select area.]"..
|
||||
"label[4.7,8.5;Areas found: "..tostring( #id_list )..".]"..
|
||||
"textlist[0.5,0.5;7,8;markers_area_list_selection;";
|
||||
|
||||
local liste = '';
|
||||
for i,v in ipairs( id_list ) do
|
||||
if( liste ~= '' ) then
|
||||
liste = liste..',';
|
||||
end
|
||||
liste = liste..minetest.formspec_escape( areas:toString( v ) );
|
||||
|
||||
end
|
||||
|
||||
-- highlight selected entry
|
||||
if( selected ) then
|
||||
formspec = formspec..liste..';'..selected..';false]';
|
||||
else
|
||||
formspec = formspec..liste..';]';
|
||||
end
|
||||
|
||||
local pname = player:get_player_name();
|
||||
if( not( markers.menu_data_by_player[ pname ] )) then
|
||||
markers.menu_data_by_player[ pname ] = {};
|
||||
end
|
||||
|
||||
-- display information about the location of the area the player clicked on
|
||||
if( selected
|
||||
and id_list[ selected ]
|
||||
and areas.areas[ id_list[ selected ]] ) then
|
||||
|
||||
local this_area = areas.areas[ id_list[ selected ]];
|
||||
|
||||
local subareas = {};
|
||||
for i,v in pairs( areas.areas ) do
|
||||
if( v.parent and v.parent == id_list[ selected ]) then
|
||||
table.insert( subareas, i );
|
||||
end
|
||||
end
|
||||
|
||||
formspec = formspec..
|
||||
markers.show_compass_marker( 8.5, 3.0, false, pos, this_area.pos1, this_area.pos2 );
|
||||
|
||||
|
||||
if( this_area.parent) then
|
||||
formspec = formspec..
|
||||
'button[8.0,0.5;2,0.5;show_parent;'..
|
||||
minetest.formspec_escape( areas.areas[ this_area.parent ].name )..']';
|
||||
end
|
||||
|
||||
if( #subareas > 0 ) then
|
||||
formspec = formspec..
|
||||
'button[8.0,1.0;2,0.5;list_subareas;'..
|
||||
minetest.formspec_escape( 'List subareas ('..tostring( #subareas )..')')..']';
|
||||
end
|
||||
|
||||
|
||||
if( mode=='player' ) then
|
||||
formspec = formspec..
|
||||
'label[8.0,1.5;'..
|
||||
minetest.formspec_escape( this_area.owner..'\'s areas')..']';
|
||||
else
|
||||
formspec = formspec..
|
||||
'button[8.0,1.5;2,0.5;list_player_areas;'..
|
||||
minetest.formspec_escape( this_area.owner..'\'s areas')..']';
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
formspec = formspec..
|
||||
'button[8.0,8.5;2,0.5;list_main_areas;List all main areas]';
|
||||
|
||||
-- we need to remember especially the id_list - else it would be impossible to know what the
|
||||
-- player selected
|
||||
markers.menu_data_by_player[ pname ] = {
|
||||
typ = 'area_list',
|
||||
mode = mode,
|
||||
pos = pos,
|
||||
mode_data = mode_data,
|
||||
list = id_list,
|
||||
|
||||
selected = id_list[ selected ],
|
||||
};
|
||||
|
||||
|
||||
return formspec;
|
||||
end
|
||||
|
||||
|
||||
|
||||
|
||||
-- shows a formspec with information about a particular area
|
||||
-- pos is the position of the marker stone or place where the player clicked
|
||||
-- with the land title register; it is used for relative display of coordinates
|
||||
markers.get_area_desc_formspec = function( id, player, pos )
|
||||
|
||||
if( not( areas.areas ) or not( id ) or not( areas.areas[ id ] )) then
|
||||
return 'field[info;Error:;Area not found.]';
|
||||
end
|
||||
local this_area = areas.areas[ id ];
|
||||
|
||||
local pname = player:get_player_name();
|
||||
|
||||
-- show some buttons only if area is owned by the player
|
||||
local is_owner = false;
|
||||
|
||||
if( this_area.owner == pname ) then
|
||||
is_owner = true;
|
||||
end
|
||||
|
||||
local formspec = 'size[10,9]'..
|
||||
'label[2.5,0.0;Area information and management]'..
|
||||
'button_exit[4.7,7.0;1,0.5;abort;OK]';
|
||||
|
||||
-- general information about the area
|
||||
formspec = formspec..
|
||||
'label[0.5,1.0;This is area number ]'..
|
||||
'label[4.7,1.0;'..tostring( id )..']'..
|
||||
|
||||
'label[0.5,1.5;The area is called ]'..
|
||||
'label[4.7,1.5;'..minetest.formspec_escape( this_area.name or '-not set-')..']'..
|
||||
|
||||
'label[0.5,2.0;It is owned by ]'..
|
||||
'label[4.7,2.0;'..minetest.formspec_escape( this_area.owner)..']';
|
||||
|
||||
|
||||
-- these functions are only available to the owner of the area
|
||||
if( is_owner ) then
|
||||
formspec = formspec..
|
||||
'button_exit[8.0,0.0;2,0.5;change_owner;Change owner]'..
|
||||
'button_exit[8.0,1.0;2,0.5;delete;Delete]'..
|
||||
'button_exit[8.0,1.5;2,0.5;rename;Rename]'..
|
||||
'button_exit[8.0,2.0;2,0.5;list_player_areas;My areas]';
|
||||
|
||||
-- subareas of own areas can be deleted (but not renamed)
|
||||
elseif( not( is_owner )
|
||||
and this_area.parent
|
||||
and areas.areas[ this_area.parent ]
|
||||
and areas.areas[ this_area.parent ].owner == pname ) then
|
||||
|
||||
formspec = formspec..
|
||||
'button_exit[8.0,1.0;2,0.5;delete;Delete subarea]'..
|
||||
'button_exit[8.0,2.0;2,0.5;list_player_areas;Player\'s areas]';
|
||||
|
||||
else
|
||||
formspec = formspec..
|
||||
'button_exit[8.0,2.0;2,0.5;list_player_areas;Player\'s areas]';
|
||||
end
|
||||
|
||||
|
||||
-- players with the areas priv get an extra menu
|
||||
if( minetest.check_player_privs(pname, {areas=true})) then
|
||||
formspec = formspec..
|
||||
'label[8.0,6.0;Admin commands:]'..
|
||||
'button_exit[8.0,6.5;2,0.5;change_owner;Change owner]'..
|
||||
'button_exit[8.0,7.0;2,0.5;delete;Delete]'..
|
||||
'button_exit[8.0,7.5;2,0.5;rename;Rename]';
|
||||
end
|
||||
|
||||
|
||||
-- show subowners and areas with the same coordinates
|
||||
formspec = formspec..
|
||||
'label[0.5,2.5;Further owners of the entire area:]';
|
||||
local further_owners = {};
|
||||
for i, area in pairs(areas.areas) do
|
||||
if( i ~= id and
|
||||
this_area.pos1.x == area.pos1.x and this_area.pos2.x == area.pos2.x and
|
||||
this_area.pos1.y == area.pos1.y and this_area.pos2.y == area.pos2.y and
|
||||
this_area.pos1.z == area.pos1.z and this_area.pos2.z == area.pos2.z )then
|
||||
|
||||
table.insert( further_owners, area.owner );
|
||||
end
|
||||
end
|
||||
if( #further_owners > 0 ) then
|
||||
|
||||
formspec = formspec..
|
||||
'label[4.7,2.5;'..minetest.formspec_escape( table.concat( further_owners, ', '))..'.]';
|
||||
|
||||
-- deleting subowners is done by deleting their areas
|
||||
if( is_owner ) then
|
||||
formspec = formspec..
|
||||
'button_exit[8.0,2.5;2,0.5;add_owner;Add]';
|
||||
end
|
||||
else
|
||||
formspec = formspec..
|
||||
'label[4.7,2.5;-none-]';
|
||||
|
||||
if( is_owner ) then
|
||||
formspec = formspec..
|
||||
'button_exit[8.0,2.5;2,0.5;add_owner;Add]';
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- is the area a subarea?
|
||||
if( this_area.parent ) then
|
||||
formspec = formspec..
|
||||
'label[0.5,3.0;This area is a sub-area of area]'..
|
||||
'label[4.7,3.0;'..minetest.formspec_escape( areas.areas[ this_area.parent ].name..' ['..this_area.parent..']' )..']'..
|
||||
'button_exit[8.0,3.0;2,0.5;show_parent;Show main area]';
|
||||
end
|
||||
|
||||
|
||||
-- does the area have subareas, i.e. is it a parent area for others?
|
||||
local sub_areas = {};
|
||||
for i, area in pairs(areas.areas) do
|
||||
if( i ~= id and
|
||||
area.parent == id ) then
|
||||
|
||||
table.insert( sub_areas, i );
|
||||
end
|
||||
end
|
||||
if( #sub_areas > 0 ) then
|
||||
|
||||
formspec = formspec..
|
||||
'label[0.5,4.0;Number of defined subareas:]'..
|
||||
'label[4.7,4.0;'..tostring( #sub_areas )..']'..
|
||||
'button_exit[8.0,4.0;2,0.5;list_subareas;List subareas]';
|
||||
else
|
||||
formspec = formspec..
|
||||
'label[0.5,4.0;There are no subareas defined.]';
|
||||
end
|
||||
|
||||
|
||||
-- give information about the size of the area
|
||||
local length_x = (math.abs( this_area.pos2.x - this_area.pos1.x )+1);
|
||||
local length_y = (math.abs( this_area.pos2.y - this_area.pos1.y )+1);
|
||||
local length_z = (math.abs( this_area.pos2.z - this_area.pos1.z )+1);
|
||||
|
||||
formspec = formspec..
|
||||
'label[0.5,4.5;The area extends from]'..
|
||||
'label[4.7,4.5;'..minetest.pos_to_string( this_area.pos1 )..' to '..minetest.pos_to_string( this_area.pos2 )..'.]'..
|
||||
'label[4.7,4.75;It spans '..tostring( length_x )..
|
||||
' x '..tostring( length_z )..
|
||||
' = '..tostring( length_x * length_z )..
|
||||
' m^2. Height: '..tostring( length_y )..' m.]';
|
||||
|
||||
|
||||
formspec = formspec..
|
||||
markers.show_compass_marker( 2.0, 7.0, true, pos, this_area.pos1, this_area.pos2 );
|
||||
|
||||
-- TODO: buy / sell button
|
||||
|
||||
local pname = player:get_player_name();
|
||||
if( not( markers.menu_data_by_player[ pname ] )) then
|
||||
markers.menu_data_by_player[ pname ] = {};
|
||||
end
|
||||
|
||||
-- we need to remember especially the id_list - else it would be impossible to know what the
|
||||
-- player selected
|
||||
markers.menu_data_by_player[ pname ] =
|
||||
{ typ = 'show_area',
|
||||
mode = nil,
|
||||
pos = pos,
|
||||
mode_data = nil,
|
||||
list = nil,
|
||||
|
||||
selected = id,
|
||||
};
|
||||
|
||||
return formspec;
|
||||
end
|
||||
|
||||
|
||||
|
||||
-- shows where the area (defined by pos1/pos2) is located relative to the given position pos
|
||||
-- row_offset/col_offset are offsets for the formspec
|
||||
markers.show_compass_marker = function( col_offset, row_offset, with_text, pos, pos1, pos2 )
|
||||
|
||||
local formspec = '';
|
||||
-- TODO: show up/down information somehow
|
||||
-- TODO: what if checked with a land claim register?
|
||||
|
||||
-- if possible, show how far the area streches into each direction relative to pos
|
||||
if( pos.x >= pos1.x and pos.x <= pos2.x
|
||||
and pos.y >= pos1.y and pos.y <= pos2.y
|
||||
and pos.z >= pos1.z and pos.z <= pos2.z ) then
|
||||
|
||||
if( with_text ) then
|
||||
formspec = formspec..
|
||||
'label[0.5,5.5;Dimensions of the area in relation to..]'..
|
||||
-- TODO: check if there is a marker; else write 'position you clicked on'
|
||||
'label[4.7,5.5;the marker at '..minetest.pos_to_string( pos )..':]'..
|
||||
'button_exit[8.0,5.5;2,0.5;list_areas_at;Local areas]';
|
||||
end
|
||||
formspec = formspec..
|
||||
'image['..col_offset..','..row_offset..';1,1;markers_stone.png]'..
|
||||
'label['..(col_offset-0.8)..','..(row_offset+0.05)..';'..tostring( pos.x - pos1.x )..' m W]'..
|
||||
'label['..(col_offset+1.0)..','..(row_offset+0.05)..';'..tostring( pos2.x - pos.x )..' m E]'..
|
||||
'label['..(col_offset+0.1)..','..(row_offset+0.80)..';'..tostring( pos.z - pos1.z )..' m S]'..
|
||||
'label['..(col_offset+0.1)..','..(row_offset-0.80)..';'..tostring( pos2.z - pos.z )..' m N]';
|
||||
|
||||
-- else show how far the area is away
|
||||
else
|
||||
|
||||
local starts_north = '';
|
||||
local starts_south = '';
|
||||
local starts_east = '';
|
||||
local starts_west = '';
|
||||
if( pos.z > pos2.z ) then
|
||||
starts_north = '';
|
||||
starts_south = tostring( pos.z - pos2.z )..' m S';
|
||||
else
|
||||
starts_north = tostring( pos1.z - pos.z )..' m N';
|
||||
starts_south = '';
|
||||
end
|
||||
if( pos.x > pos2.x ) then
|
||||
starts_east = '';
|
||||
starts_west = tostring( pos.x - pos2.x )..' m W';
|
||||
else
|
||||
starts_east = tostring( pos1.x - pos.x )..' m E';
|
||||
starts_west = '';
|
||||
end
|
||||
|
||||
|
||||
if( with_text ) then
|
||||
formspec = formspec..
|
||||
'label[0.5,5.5;Position of the area in relation to..]'..
|
||||
-- TODO: check if there is a marker; else write 'position you clicked on'
|
||||
'label[4.7,5.5;the marker at '..minetest.pos_to_string( pos )..':]'..
|
||||
'button_exit[8.0,5.5;2,0.5;list_areas_at;Local areas]';
|
||||
end
|
||||
formspec = formspec..
|
||||
'image['..col_offset..','..row_offset..';1,1;compass_side_top.png]'..
|
||||
'label['..(col_offset-0.8)..','..(row_offset+0.05)..';'..starts_west..']'..
|
||||
'label['..(col_offset+1.0)..','..(row_offset+0.05)..';'..starts_east..']'..
|
||||
'label['..(col_offset+0.1)..','..(row_offset-0.80)..';'..starts_north..']'..
|
||||
'label['..(col_offset+0.1)..','..(row_offset+0.80)..';'..starts_south..']';
|
||||
end
|
||||
|
||||
return formspec;
|
||||
end
|
||||
|
||||
|
||||
|
||||
-- formspec input needs to be handled diffrently
|
||||
markers.form_input_handler_areas = function( player, formname, fields)
|
||||
|
||||
local pname = player:get_player_name();
|
||||
local ppos = player:getpos()
|
||||
|
||||
if( formname ~= "markers:info"
|
||||
or not( player )
|
||||
or not( markers.menu_data_by_player[ pname ] )) then
|
||||
|
||||
return false;
|
||||
end
|
||||
|
||||
local menu_data = markers.menu_data_by_player[ pname ];
|
||||
local formspec = '';
|
||||
|
||||
|
||||
-- rename an area
|
||||
if( fields.rename
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ]
|
||||
and areas.areas[ menu_data.selected ].owner == pname ) then
|
||||
|
||||
local area = areas.areas[ menu_data.selected ];
|
||||
if( not( area.name )) then
|
||||
area.name = '-enter area name-';
|
||||
end
|
||||
formspec = 'field[rename_new_name;Enter new name for area:;'..minetest.formspec_escape( area.name )..']';
|
||||
|
||||
elseif( fields.rename_new_name
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ]
|
||||
and ((areas.areas[ menu_data.selected ].owner == pname )
|
||||
or minetest.check_player_privs(pname, {areas=true}))) then
|
||||
|
||||
local area = areas.areas[ menu_data.selected ];
|
||||
|
||||
-- actually rename the area
|
||||
areas.areas[ menu_data.selected ].name = fields.rename_new_name;
|
||||
areas:save();
|
||||
|
||||
minetest.chat_send_player( pname, 'Area successfully renamed.');
|
||||
-- shwo the renamed area
|
||||
formspec = markers.get_area_desc_formspec( menu_data.selected, player, menu_data.pos );
|
||||
|
||||
|
||||
|
||||
-- change owner the area
|
||||
elseif( fields.change_owner
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ] ) then
|
||||
|
||||
-- there are no checks here - those happen when the area is transferred
|
||||
local area = areas.areas[ menu_data.selected ];
|
||||
formspec = 'field[change_owner_name;Give area \"'..minetest.formspec_escape( area.name )..'\" to player:;-enter name of NEW OWNER-]';
|
||||
|
||||
elseif( fields.change_owner_name
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ] ) then
|
||||
|
||||
local area = areas.areas[ menu_data.selected ];
|
||||
|
||||
-- only own areas can be transfered to another player (or if the areas priv is there)
|
||||
if( area.owner ~= pname
|
||||
and not( minetest.check_player_privs(pname, {areas=true}))) then
|
||||
|
||||
minetest.chat_send_player( pname, 'Permission denied. You do not own the area.');
|
||||
|
||||
elseif( not( areas:player_exists( fields.change_owner_name ))) then
|
||||
|
||||
minetest.chat_send_player( pname, 'That player does not exist.');
|
||||
|
||||
else
|
||||
-- actually change the owner
|
||||
areas.areas[ menu_data.selected ].owner = fields.change_owner_name;
|
||||
areas:save()
|
||||
|
||||
minetest.chat_send_player( pname, 'Your area '..tostring( area.name )..' has been transfered to '..tostring( fields.change_owner_name )..'.');
|
||||
|
||||
minetest.chat_send_player( fields.change_owner_name, pname..'" has given you control over an area.')
|
||||
end
|
||||
|
||||
formspec = markers.get_area_desc_formspec( menu_data.selected, player, menu_data.pos );
|
||||
|
||||
|
||||
-- add an owner to the entire area
|
||||
elseif( fields.add_owner
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ]
|
||||
and areas.areas[ menu_data.selected ].owner == pname ) then
|
||||
|
||||
local area = areas.areas[ menu_data.selected ];
|
||||
formspec = 'field[add_owner_name;Grant access to area \"'..minetest.formspec_escape( area.name )..'\" to player:;-enter player name-]';
|
||||
|
||||
elseif( fields.add_owner_name
|
||||
-- the player has to own the area already; we need a diffrent name here
|
||||
and fields.add_owner_name ~= pname
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ]
|
||||
and areas.areas[ menu_data.selected ].owner == pname ) then
|
||||
|
||||
local area = areas.areas[ menu_data.selected ];
|
||||
|
||||
-- does the player exist?
|
||||
if( not( areas:player_exists( fields.add_owner_name ))) then
|
||||
minetest.chat_send_player( pname, 'That player does not exist.');
|
||||
-- show the formspec
|
||||
formspec = markers.get_area_desc_formspec( menu_data.selected, player, menu_data.pos );
|
||||
|
||||
else
|
||||
-- log the creation of the new area
|
||||
minetest.log("action", pname.." runs /add_owner through the markers-mod. Owner = "..fields.add_owner_name..
|
||||
" AreaName = "..area.name.." ParentID = "..menu_data.selected..
|
||||
" StartPos = "..area.pos1.x..","..area.pos1.y..","..area.pos1.z..
|
||||
" EndPos = " ..area.pos2.x..","..area.pos2.y..","..area.pos2.z)
|
||||
|
||||
-- take the name from the old/parent area
|
||||
local new_id = areas:add( fields.add_owner_name, area.name, area.pos1, area.pos2, menu_data.selected );
|
||||
areas:save()
|
||||
|
||||
|
||||
minetest.chat_send_player( fields.add_owner_name,
|
||||
"You have been granted control over area #"..
|
||||
new_id..". Type /list_areas to show your areas.")
|
||||
|
||||
minetest.chat_send_player( pname, 'The player may now build and dig in your area.');
|
||||
-- shwo the new area
|
||||
markers.menu_data_by_player[ pname ].selected = new_id;
|
||||
formspec = markers.get_area_desc_formspec( new_id, player, menu_data.pos );
|
||||
end
|
||||
|
||||
|
||||
|
||||
-- delete area
|
||||
elseif( fields.delete
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ] ) then
|
||||
|
||||
local area = areas.areas[ menu_data.selected ];
|
||||
|
||||
-- a player can only delete own areas or subareas of own areas
|
||||
if( area.owner ~= pname
|
||||
and not( area.parent
|
||||
and areas.areas[ area.parent ]
|
||||
and areas.areas[ area.parent ].owner
|
||||
and areas.areas[ area.parent ].owner == pname )
|
||||
and not( minetest.check_player_privs(pname, {areas=true}))) then
|
||||
|
||||
minetest.chat_send_player( pname, 'Permission denied. You own neither the area itshelf nor its parent area.');
|
||||
-- shwo the area where the renaming failed
|
||||
formspec = markers.get_area_desc_formspec( menu_data.selected, player, menu_data.pos );
|
||||
|
||||
else
|
||||
|
||||
formspec = 'field[rename_new_name;Enter new name for area:;'..minetest.formspec_escape( area.name )..']';
|
||||
formspec = 'field[delete_confirm;'..minetest.formspec_escape( 'Really delete area \"'..area.name..
|
||||
'\" (owned by '..area.owner..')? Confirm with YES:')..';-type yes in capitals to confirm-]';
|
||||
|
||||
end
|
||||
|
||||
elseif( fields.delete_confirm
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ] ) then
|
||||
|
||||
local area = areas.areas[ menu_data.selected ];
|
||||
local old_owner = area.owner;
|
||||
|
||||
local subareas = {};
|
||||
for i,v in pairs( areas.areas ) do
|
||||
if( v.parent and v.parent == menu_data.selected ) then
|
||||
table.insert( subareas, i );
|
||||
end
|
||||
end
|
||||
|
||||
-- a player can only delete own areas or subareas of own areas
|
||||
if( area.owner ~= pname
|
||||
and not( area.parent
|
||||
and areas.areas[ area.parent ]
|
||||
and areas.areas[ area.parent ].owner
|
||||
and areas.areas[ area.parent ].owner == pname )
|
||||
and not( minetest.check_player_privs(pname, {areas=true}))) then
|
||||
|
||||
minetest.chat_send_player( pname, 'Permission denied. You own neither the area itshelf nor its parent area.');
|
||||
-- shwo the renamed area
|
||||
formspec = markers.get_area_desc_formspec( menu_data.selected, player, menu_data.pos );
|
||||
|
||||
-- avoid accidents
|
||||
elseif( fields.delete_confirm ~= 'YES' ) then
|
||||
minetest.chat_send_player( pname, 'Delition of area \"'..tostring( area.name )..'\" (owned by '..old_owner..') aborted.');
|
||||
formspec = markers.get_area_desc_formspec( menu_data.selected, player, menu_data.pos );
|
||||
|
||||
-- only areas without subareas can be deleted
|
||||
elseif( #subareas > 0 ) then
|
||||
minetest.chat_send_player( pname, 'The area has '..tostring( #subareas )..' subarea(s). Please delete those first!');
|
||||
formspec = markers.get_area_desc_formspec( menu_data.selected, player, menu_data.pos );
|
||||
|
||||
else
|
||||
|
||||
minetest.chat_send_player( pname, 'Area \"'..tostring( area.name )..'\" (owned by '..old_owner..') deleted.');
|
||||
-- really delete
|
||||
areas:remove( menu_data.selected, false ); -- no recursive delete
|
||||
areas:save();
|
||||
-- show the list of areas owned by the previous owner
|
||||
formspec = markers.get_area_list_formspec(ppos, player, 'player', menu_data.pos, old_owner, nil );
|
||||
end
|
||||
|
||||
|
||||
|
||||
elseif( fields.show_parent
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ]
|
||||
and areas.areas[ menu_data.selected ].parent ) then
|
||||
|
||||
formspec = markers.get_area_desc_formspec( areas.areas[ menu_data.selected ].parent, player, menu_data.pos );
|
||||
|
||||
|
||||
elseif( fields.list_player_areas
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ] ) then
|
||||
|
||||
formspec = markers.get_area_list_formspec(ppos, player, 'player', menu_data.pos, areas.areas[ menu_data.selected ].owner, nil );
|
||||
|
||||
|
||||
elseif( fields.list_subareas
|
||||
and menu_data.selected
|
||||
and areas.areas[ menu_data.selected ] ) then
|
||||
|
||||
formspec = markers.get_area_list_formspec(ppos, player, 'subareas', menu_data.pos, menu_data.selected, nil );
|
||||
|
||||
|
||||
elseif( fields.list_main_areas ) then
|
||||
|
||||
formspec = markers.get_area_list_formspec(ppos, player, 'main_areas', menu_data.pos, nil, nil );
|
||||
|
||||
elseif( fields.list_areas_at
|
||||
and menu_data.pos ) then
|
||||
|
||||
formspec = markers.get_area_list_formspec(ppos, player, 'pos', menu_data.pos, menu_data.pos, nil );
|
||||
|
||||
|
||||
elseif( fields.markers_area_list_selection
|
||||
and menu_data.typ
|
||||
and menu_data.typ == 'area_list'
|
||||
and menu_data.list
|
||||
and #menu_data.list > 0 ) then
|
||||
|
||||
|
||||
local field_data = fields.markers_area_list_selection:split( ':' );
|
||||
if( not( field_data ) or #field_data < 2 ) then
|
||||
field_data = { '', '' };
|
||||
end
|
||||
|
||||
local selected = tonumber( field_data[ 2 ] );
|
||||
if( field_data[1]=='DCL' ) then
|
||||
|
||||
-- on doubleclick, show detailed area information
|
||||
formspec = markers.get_area_desc_formspec( tonumber( menu_data.list[ selected ] ), player, menu_data.pos );
|
||||
else
|
||||
|
||||
-- on single click, just show the position of that particular area
|
||||
formspec = markers.get_area_list_formspec(ppos, player, menu_data.mode, menu_data.pos, menu_data.mode_data, selected );
|
||||
end
|
||||
|
||||
else
|
||||
return false;
|
||||
end
|
||||
|
||||
|
||||
minetest.show_formspec( pname, "markers:info", formspec )
|
||||
return true;
|
||||
end
|
||||
|
||||
|
||||
|
||||
-- search the area at the given position pos that might be of most intrest to the player
|
||||
markers.show_marker_stone_formspec = function( player, pos )
|
||||
|
||||
local pname = player:get_player_name();
|
||||
local ppos = pos
|
||||
|
||||
-- this table stores the list the player may have selected from; at the beginning, there is no list
|
||||
if( not( markers.menu_data_by_player[ pname ] )) then
|
||||
markers.menu_data_by_player[ pname ] = {
|
||||
typ = 'area_list',
|
||||
mode = 'main_areas',
|
||||
pos = pos,
|
||||
mode_data = pos,
|
||||
list = {},
|
||||
|
||||
selected = nil,
|
||||
};
|
||||
end
|
||||
|
||||
|
||||
local formspec = '';
|
||||
|
||||
local found_areas = {};
|
||||
local min_area_size = 100000000000;
|
||||
|
||||
for id, area in pairs(areas.areas) do
|
||||
if( pos.x >= area.pos1.x and pos.x <= area.pos2.x and
|
||||
pos.y >= area.pos1.y and pos.y <= area.pos2.y and
|
||||
pos.z >= area.pos1.z and pos.z <= area.pos2.z )then
|
||||
|
||||
-- ignore y (height) value because some areas may go from bottom to top
|
||||
local area_size = math.abs( area.pos2.x - area.pos1.x )
|
||||
* math.abs( area.pos2.z - area.pos1.z );
|
||||
|
||||
-- collect subareas that have the same size
|
||||
if( area_size == min_area_size ) then
|
||||
table.insert(found_areas, id );
|
||||
-- we have found a smaller area - that is more intresting here
|
||||
elseif( area_size <= min_area_size ) then
|
||||
found_areas = {};
|
||||
min_area_size = area_size;
|
||||
table.insert(found_areas, id );
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
-- no areas found; display error message and selection menu
|
||||
if( #found_areas < 1 ) then
|
||||
|
||||
formspec = 'size[4,3]'..
|
||||
'label[0.5,0.5;This position is not protected.]'..
|
||||
'button[1.0,1.5;2,0.5;list_main_areas;List all main areas]'..
|
||||
'button_exit[3.0,1.5;1,0.5;abort;OK]';
|
||||
|
||||
-- found exactly one areaa - display it
|
||||
elseif( #found_areas == 1 ) then
|
||||
|
||||
formspec = markers.get_area_desc_formspec( found_areas[ 1 ], player, pos );
|
||||
|
||||
-- found more than one area; we have saved only those with the smallest size
|
||||
else
|
||||
|
||||
local own_area = 0;
|
||||
local parent_area = 0;
|
||||
local upper_area = 0;
|
||||
for i,v in ipairs( found_areas ) do
|
||||
|
||||
local area = areas.areas[ v ];
|
||||
|
||||
-- owned by player?
|
||||
if( area.owner == pname ) then
|
||||
own_area = v;
|
||||
|
||||
-- parentless area?
|
||||
elseif( not( area.parent )) then
|
||||
parent_area = v;
|
||||
|
||||
-- the parent has diffrent coordinates?
|
||||
elseif( areas.areas[ area.parent ].pos1.x ~= area.pos1.x
|
||||
or areas.areas[ area.parent ].pos1.y ~= area.pos1.y
|
||||
or areas.areas[ area.parent ].pos1.z ~= area.pos1.z
|
||||
or areas.areas[ area.parent ].pos2.x ~= area.pos2.x
|
||||
or areas.areas[ area.parent ].pos2.y ~= area.pos2.y
|
||||
or areas.areas[ area.parent ].pos2.z ~= area.pos2.z ) then
|
||||
upper_area = v;
|
||||
end
|
||||
end
|
||||
|
||||
-- the area owned by the player is most intresting
|
||||
if( own_area > 0 ) then
|
||||
|
||||
formspec = markers.get_area_desc_formspec( own_area, player, pos );
|
||||
|
||||
-- if the player owns none of these areas, show the topmost (parentless) area
|
||||
elseif( parent_area > 0 ) then
|
||||
|
||||
formspec = markers.get_area_desc_formspec( parent_area, player, pos );
|
||||
|
||||
-- an area which has a parent with diffrent coordinates from its child may (or may not) be the
|
||||
-- parent of all these subareas we've found here; there is no guarantee, but it's a best guess.
|
||||
-- If it is not good enough, then the player can still search for himshelf.
|
||||
elseif( upper_area > 0 ) then
|
||||
|
||||
formspec = markers.get_area_desc_formspec( upper_area, player, pos );
|
||||
|
||||
-- our superficial analysis of the structure of the areas failed; it is up to the player to
|
||||
-- find out which of the candidates he is intrested in; we list them all
|
||||
else
|
||||
|
||||
formspec = markers.get_area_list_formspec(ppos, player, 'pos', pos, pos, nil );
|
||||
end
|
||||
end
|
||||
|
||||
minetest.show_formspec( player:get_player_name(), "markers:info", formspec );
|
||||
end
|
|
@ -0,0 +1,47 @@
|
|||
|
||||
-- stores up to 4 marker positions for each player
|
||||
markers.positions = {}
|
||||
|
||||
-- store the positions of that many markers for each player (until server restart)
|
||||
markers.MAX_MARKERS = 50;
|
||||
|
||||
-- the protection against digging of the marker by other players expires after this time
|
||||
markers.EXPIRE_AFTER = 60*60*24;
|
||||
|
||||
-- self-protected areas can not get higher than 100 blocks
|
||||
markers.MAX_HEIGHT = 100;
|
||||
|
||||
-- only areas up to this size (in square meters) can be protected
|
||||
markers.MAX_SIZE = 4096; -- 64m * 64m= 4096 m^2
|
||||
|
||||
-- show only areas withhin this range when showing the list of ALL areas
|
||||
-- (else it does get too crowded on multiplayer servers)
|
||||
-- set to something >60000 in order to view all areas; set to a smaller
|
||||
-- value (i.e. 500) on multiplayer servers with many protected areas
|
||||
|
||||
if( #areas.areas > 1000 ) then
|
||||
markers.AREA_RANGE = 100;
|
||||
elseif( #areas.areas > 100 ) then
|
||||
markers.AREA_RANGE = 1000;
|
||||
else
|
||||
markers.AREA_RANGE = 100000;
|
||||
end
|
||||
|
||||
-- for most cases, the default values ought to work
|
||||
--markers.AREA_RANGE = 100000;
|
||||
|
||||
local settings = Settings( minetest.get_worldpath().."/markers_settings.txt");
|
||||
if( settings ) then
|
||||
if( settings:get( "markers_MAX_MARKERS" )) then
|
||||
markers.MAX_MARKERS = tonumber(settings:get( "markers_MAX_MARKERS"));
|
||||
end
|
||||
if( settings:get( "markers_EXPIRE_AFTER" )) then
|
||||
markers.EXPIRE_AFTER = tonumber(settings:get( "markers_EXPIRE_AFTER"));
|
||||
end
|
||||
if( settings:get( "markers_MAX_HEIGHT" )) then
|
||||
markers.MAX_HEIGHT = tonumber(settings:get( "markers_MAX_HEIGHT"));
|
||||
end
|
||||
if( settings:get( "markers_MAX_SIZE" )) then
|
||||
markers.MAX_SIZE = tonumber(settings:get( "markers_MAX_SIZE"));
|
||||
end
|
||||
end
|
|
@ -0,0 +1 @@
|
|||
areas
|
|
@ -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" },
|
||||
} });
|
||||
|
|
@ -0,0 +1,74 @@
|
|||
|
||||
|
||||
minetest.register_tool( "markers:land_title_register",
|
||||
{
|
||||
description = "Land title register. Left-click with it to get information about who owns the land you clicked on.",
|
||||
groups = {},
|
||||
inventory_image = "default_book.png", -- TODO
|
||||
wield_image = "",
|
||||
wield_scale = {x=1,y=1,z=1},
|
||||
stack_max = 1, -- there is no need to have more than one
|
||||
liquids_pointable = true, -- ground with only water on can be owned as well
|
||||
-- the tool_capabilities are completely irrelevant here - no need to dig
|
||||
tool_capabilities = {
|
||||
full_punch_interval = 1.0,
|
||||
max_drop_level=0,
|
||||
groupcaps={
|
||||
fleshy={times={[2]=0.80, [3]=0.40}, maxwear=0.05, maxlevel=1},
|
||||
snappy={times={[2]=0.80, [3]=0.40}, maxwear=0.05, maxlevel=1},
|
||||
choppy={times={[3]=0.90}, maxwear=0.05, maxlevel=0}
|
||||
}
|
||||
},
|
||||
node_placement_prediction = nil,
|
||||
|
||||
on_place = function(itemstack, placer, pointed_thing)
|
||||
|
||||
if( placer == nil or pointed_thing == nil) then
|
||||
return itemstack; -- nothing consumed
|
||||
end
|
||||
local name = placer:get_player_name();
|
||||
|
||||
-- the position is what we're actually looking for
|
||||
local pos = minetest.get_pointed_thing_position( pointed_thing, false ); -- not above
|
||||
|
||||
if( not( pos ) or not( pos.x )) then
|
||||
minetest.chat_send_player( name, "Position not found.");
|
||||
return itemstack;
|
||||
end
|
||||
|
||||
-- this function shows the formspec with the information about the area(s)
|
||||
markers.show_marker_stone_formspec( placer, pos );
|
||||
|
||||
return itemstack; -- nothing consumed, nothing changed
|
||||
end,
|
||||
|
||||
|
||||
on_use = function(itemstack, placer, pointed_thing)
|
||||
|
||||
if( placer == nil or pointed_thing == nil) then
|
||||
return itemstack; -- nothing consumed
|
||||
end
|
||||
local name = placer:get_player_name();
|
||||
|
||||
local pos = minetest.get_pointed_thing_position( pointed_thing, false ); -- not above
|
||||
|
||||
if( not( pos ) or not( pos.x )) then
|
||||
minetest.chat_send_player( name, "Position not found.");
|
||||
return itemstack;
|
||||
end
|
||||
|
||||
-- this function shows the formspec with the information about the area(s)
|
||||
markers.show_marker_stone_formspec( placer, pos );
|
||||
|
||||
return itemstack; -- nothing consumed, nothing changed
|
||||
end,
|
||||
})
|
||||
|
||||
|
||||
minetest.register_craft({
|
||||
output = "markers:land_title_register",
|
||||
recipe = { { "markers:mark" },
|
||||
{ "markers:stone" },
|
||||
{ "default:book"}
|
||||
} });
|
||||
|
|
@ -0,0 +1,24 @@
|
|||
|
||||
minetest.register_node("markers:stone", {
|
||||
description = "Boundary marker for land administration",
|
||||
tiles = {"markers_stone.png", "markers_stone.png", "markers_stone_side.png",
|
||||
"markers_stone_side.png", "markers_stone_side.png", "markers_stone_side.png" },
|
||||
-- no facedir here - we want a fixed north indication!
|
||||
-- paramtype2 = "facedir",
|
||||
groups = {cracky=2},
|
||||
legacy_facedir_simple = true,
|
||||
is_ground_content = false,
|
||||
|
||||
on_rightclick = function(pos, node, clicker)
|
||||
|
||||
markers.show_marker_stone_formspec( clicker, pos );
|
||||
end,
|
||||
})
|
||||
|
||||
|
||||
minetest.register_craft({
|
||||
output = "markers:stone",
|
||||
recipe = { { "markers:mark" },
|
||||
{ "default:cobble" },
|
||||
} });
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
# copy this to your worldpath if you want to override these values
|
||||
|
||||
# store the positions of that many markers for each player (until server restart)
|
||||
# default: 50
|
||||
markers_MAX_MARKERS = 50
|
||||
|
||||
# the protection against digging of the marker by other players expires after this time
|
||||
# default: 60*60*24 (1 day)
|
||||
markers_EXPIRE_AFTER = 86400
|
||||
|
||||
|
||||
# self-protected areas can not get higher than this
|
||||
# default: 100
|
||||
markers_MAX_HEIGHT = 100
|
||||
|
||||
|
||||
# only areas up to this size (in square meters) can be protected
|
||||
# default: 4096
|
||||
markers_MAX_SIZE = 4096
|
Binary file not shown.
After Width: | Height: | Size: 684 B |
Binary file not shown.
After Width: | Height: | Size: 377 B |
Binary file not shown.
After Width: | Height: | Size: 793 B |
Binary file not shown.
After Width: | Height: | Size: 832 B |
|
@ -0,0 +1,2 @@
|
|||
*~
|
||||
|
|
@ -0,0 +1,247 @@
|
|||
-- name_restrictions mod by ShadowNinja
|
||||
-- License: WTFPL
|
||||
|
||||
----------------------------
|
||||
-- Restriction exemptions --
|
||||
----------------------------
|
||||
-- For legitimate player names that are caught by the filters.
|
||||
|
||||
local exemptions = {}
|
||||
local temp = minetest.setting_get("name_restrictions.exemptions")
|
||||
temp = temp and temp:split() or {}
|
||||
for _, allowed_name in pairs(temp) do
|
||||
exemptions[allowed_name] = true
|
||||
end
|
||||
temp = nil
|
||||
-- Exempt server owner
|
||||
exemptions[minetest.setting_get("name")] = true
|
||||
exemptions["singleplayer"] = true
|
||||
|
||||
|
||||
local function player_exempted(name)
|
||||
-- Allow specifically exempted players
|
||||
if exemptions[name] then
|
||||
return true
|
||||
end
|
||||
|
||||
-- Allow players that already exist
|
||||
local auth = minetest.get_auth_handler()
|
||||
if auth.get_auth(name) then
|
||||
return true
|
||||
end
|
||||
|
||||
return false
|
||||
end
|
||||
|
||||
|
||||
---------------------
|
||||
-- Simple matching --
|
||||
---------------------
|
||||
|
||||
local msg_guest = "Guest accounts are disallowed on this server. "..
|
||||
"Please choose a proper name and try again."
|
||||
local msg_misleading = "Your player name is misleading. "..
|
||||
"Please choose a more appropriate name."
|
||||
local disallowed = {
|
||||
["^guest[0-9]+"] = msg_guest,
|
||||
["^squeakecrafter[0-9]+"] = msg_guest,
|
||||
["adm[1il]n"] = msg_misleading,
|
||||
["[0o]wn[e3]r"] = msg_misleading,
|
||||
["^[0-9]+$"] = "All-numeric usernames are disallowed on this server.",
|
||||
}
|
||||
|
||||
minetest.register_on_prejoinplayer(function(name, ip)
|
||||
if player_exempted(name) then return end
|
||||
|
||||
-- Check for disallowed names
|
||||
local lname = name:lower()
|
||||
for re, reason in pairs(disallowed) do
|
||||
if lname:find(re) then
|
||||
return reason
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
||||
|
||||
------------------------
|
||||
-- Case-insensitivity --
|
||||
------------------------
|
||||
|
||||
minetest.register_on_prejoinplayer(function(name, ip)
|
||||
if player_exempted(name) then return end
|
||||
|
||||
-- Check for used names
|
||||
local lname = name:lower()
|
||||
for iname, data in pairs(minetest.auth_table) do
|
||||
if iname:lower() == lname and iname ~= name then
|
||||
return "Sorry, someone else is already using this"
|
||||
.." name. Please pick another name."
|
||||
.." Annother possibility is that you used the"
|
||||
.." wrong case for your name."
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
||||
-- Compatability, for old servers with conflicting players
|
||||
minetest.register_chatcommand("choosecase", {
|
||||
description = "Choose the casing that a player name should have.",
|
||||
params = "<name>",
|
||||
privs = {server=true},
|
||||
func = function(name, params)
|
||||
local lname = params:lower()
|
||||
local worldpath = minetest.get_worldpath()
|
||||
for iname, data in pairs(minetest.auth_table) do
|
||||
if iname:lower() == lname and iname ~= params then
|
||||
minetest.auth_table[iname] = nil
|
||||
assert(not iname:find("[/\\]"))
|
||||
os.remove(worldpath.."/players/"..iname)
|
||||
end
|
||||
end
|
||||
return true, "Done."
|
||||
end,
|
||||
})
|
||||
|
||||
|
||||
------------------------
|
||||
-- Anti-impersonation --
|
||||
------------------------
|
||||
-- Prevents names that are too similar to another player's name.
|
||||
|
||||
local similar_chars = {
|
||||
-- Only A-Z, a-z, 1-9, dash, and underscore are allowed in player names
|
||||
"A4",
|
||||
"B8",
|
||||
"COco0",
|
||||
"Ee3",
|
||||
"Gg69",
|
||||
"ILil1",
|
||||
"S5",
|
||||
"Tt7",
|
||||
"Zz2",
|
||||
}
|
||||
|
||||
-- Map of characters to a regex of similar characters
|
||||
local char_map = {}
|
||||
for _, str in pairs(similar_chars) do
|
||||
for c in str:gmatch(".") do
|
||||
if not char_map[c] then
|
||||
char_map[c] = str
|
||||
else
|
||||
char_map[c] = char_map[c] .. str
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
for c, str in pairs(char_map) do
|
||||
char_map[c] = "[" .. char_map[c] .."]"
|
||||
end
|
||||
|
||||
-- Characters to match for, containing all characters
|
||||
local all_chars = "["
|
||||
for _, str in pairs(similar_chars) do
|
||||
all_chars = all_chars .. str
|
||||
end
|
||||
all_chars = all_chars .. "]"
|
||||
|
||||
|
||||
minetest.register_on_prejoinplayer(function(name, ip)
|
||||
if player_exempted(name) then return end
|
||||
|
||||
-- String off dashes and underscores from the start and end of the name.
|
||||
local stripped_name = name:match("^[_-]*(.-)[_-]*$")
|
||||
if not stripped_name or stripped_name == "" then
|
||||
return "Your name is composed solely of whitespace-like characters."
|
||||
end
|
||||
|
||||
-- Generate a regular expression to match all similar names
|
||||
local re = stripped_name:gsub(all_chars, char_map)
|
||||
re = "^[_-]*" .. re .. "[_-]*$"
|
||||
|
||||
for authName, _ in pairs(minetest.auth_table) do
|
||||
if authName ~= name and authName:match(re) then
|
||||
return "Your name is too similar to another player's name."
|
||||
end
|
||||
end
|
||||
end)
|
||||
|
||||
|
||||
|
||||
-----------------
|
||||
-- Name length --
|
||||
-----------------
|
||||
|
||||
local min_name_len = tonumber(minetest.setting_get("name_restrictions.minimum_name_length")) or 3
|
||||
|
||||
minetest.register_on_prejoinplayer(function(name, ip)
|
||||
if player_exempted(name) then return end
|
||||
|
||||
if #name < min_name_len then
|
||||
return "Your player name is too short, please try a longer name."
|
||||
end
|
||||
end)
|
||||
|
||||
|
||||
----------------------
|
||||
-- Pronounceability --
|
||||
----------------------
|
||||
|
||||
-- Original implementation (in Python) by sfan5
|
||||
local function pronounceable(pronounceability, text)
|
||||
local pronounceable = 0
|
||||
local nonpronounceable = 0
|
||||
local cn = 0
|
||||
local lastc = ""
|
||||
for c in text:lower():gmatch(".") do
|
||||
if c:find("[aeiou0-9_-]") then
|
||||
if not c:find("[0-9]") then
|
||||
if cn > 2 then
|
||||
nonpronounceable = nonpronounceable + 1
|
||||
else
|
||||
pronounceable = pronounceable + 1
|
||||
end
|
||||
end
|
||||
cn = 0
|
||||
else
|
||||
if cn == 1 and lastc == c and lastc ~= 's' then
|
||||
nonpronounceable = nonpronounceable + 1
|
||||
cn = 0
|
||||
end
|
||||
if cn > 2 then
|
||||
nonpronounceable = nonpronounceable + 1
|
||||
cn = 0
|
||||
end
|
||||
if lastc:find("[aeiou]") then
|
||||
pronounceable = pronounceable + 1
|
||||
cn = 0
|
||||
end
|
||||
if not (c == "r" and lastc:find("[aipfom]")) and
|
||||
not (lastc == "c" and c == "h") then
|
||||
cn = cn + 1
|
||||
end
|
||||
end
|
||||
lastc = c
|
||||
end
|
||||
if cn > 0 then
|
||||
nonpronounceable = nonpronounceable + 1
|
||||
end
|
||||
return pronounceable * pronounceability >= nonpronounceable
|
||||
end
|
||||
|
||||
-- Pronounceability factor:
|
||||
-- nil = Checking disabled.
|
||||
-- 0 = Everything's unpronounceable.
|
||||
-- 0.5 = Strict checking.
|
||||
-- 1 = Normal checking.
|
||||
-- 2 = Relaxed checking.
|
||||
local pronounceability = tonumber(minetest.setting_get("name_restrictions.pronounceability"))
|
||||
if pronounceability then
|
||||
minetest.register_on_prejoinplayer(function(name, ip)
|
||||
if player_exempted(name) then return end
|
||||
|
||||
if not pronounceable(pronounceability, name) then
|
||||
return "Your player name does not seem to be pronounceable."
|
||||
.." Please choose a more pronounceable name."
|
||||
end
|
||||
end)
|
||||
end
|
||||
|
Loading…
Reference in New Issue