167 lines
4.9 KiB
Lua
167 lines
4.9 KiB
Lua
-- OLD PLAYER : keep only serious players data on server
|
|
--(c) 2015-2016 rnd
|
|
|
|
oldplayer = {}
|
|
|
|
-- SETTINGS
|
|
|
|
oldplayer.requirement = {"default:dirt 1", "default:steel_ingot 1"};
|
|
oldplayer.welcome = "*** IMPORTANT *** please have at least 1 dirt and 1 steel ingot in your inventory when leaving to register as serious player. If not, your player data will be deleted.";
|
|
|
|
-- END OF SETTINGS
|
|
|
|
|
|
oldplayer.players = {};
|
|
local worldpath = minetest.get_worldpath();
|
|
|
|
|
|
minetest.register_on_joinplayer(function(player)
|
|
local name = player:get_player_name(); if name == nil then return end
|
|
|
|
-- read player inventory data
|
|
local inv = player:get_inventory();
|
|
local isoldplayer = inv:get_stack("oldplayer", 1):get_count();
|
|
inv:set_size("oldplayer", 2);
|
|
local ip = minetest.get_player_ip(name); if not ip then return end
|
|
inv:set_stack("oldplayer", 2, ItemStack("IP".. ip)) -- string.gsub(ip,".","_")));
|
|
|
|
if isoldplayer > 0 then
|
|
oldplayer.players[name] = 1
|
|
minetest.chat_send_player(name, "#OLDPLAYER: welcome back");
|
|
else
|
|
local privs = minetest.get_player_privs(name);
|
|
if privs.kick then
|
|
inv:set_stack("oldplayer", 1, ItemStack("oldplayer"));
|
|
minetest.chat_send_player(name, "#OLDPLAYER: welcome moderator. setting as old player.");
|
|
oldplayer.players[name] = 1
|
|
else
|
|
oldplayer.players[name] = 0
|
|
local form = "size [6,2] textarea[0,0;6.6,3.5;help;OLDPLAYER WELCOME;".. oldplayer.welcome.."]"
|
|
minetest.show_formspec(name, "oldplayer:welcome", form)
|
|
-- minetest.chat_send_player(name, oldplayer.welcome);
|
|
end
|
|
end
|
|
|
|
|
|
end)
|
|
|
|
minetest.register_on_leaveplayer(function(player, timed_out)
|
|
local name = player:get_player_name(); if name == nil then return end
|
|
if oldplayer.players[name] == 1 then return end -- already old, do nothing
|
|
|
|
local delete = false; -- should we delete player?
|
|
|
|
-- read player inventory data
|
|
local inv = player:get_inventory();
|
|
|
|
-- does player have all the required items in inventory?
|
|
for _,item in pairs(oldplayer.requirement) do
|
|
if not inv:contains_item("main", item) then
|
|
delete = true
|
|
end
|
|
end
|
|
|
|
if not delete then -- set up oldplayer inventory so we know player is old next time
|
|
inv:set_size("oldplayer", 2);
|
|
inv:set_stack("oldplayer", 1, ItemStack("oldplayer"));
|
|
else -- delete player profile
|
|
|
|
local filename = worldpath .. "\\players\\" .. name;
|
|
|
|
-- PROBLEM: deleting doesnt always work? seems minetest itself is saving stuff.
|
|
-- so we wait a little and then delete
|
|
minetest.after(10,function()
|
|
print("[oldplayer] removing player filename " .. filename)
|
|
local err,msg = os.remove(filename)
|
|
if err==nil then
|
|
print ("[oldplayer] error removing player data " .. filename .. " error message: " .. msg)
|
|
end
|
|
-- TO DO: how to remove players from auth.txt easily without editing file manually like below
|
|
end);
|
|
end
|
|
end
|
|
)
|
|
|
|
-- delete file if not old player
|
|
local function remove_non_old_player_file(name)
|
|
local filename = worldpath.."\\players\\"..name;
|
|
local f=io.open(filename,"r")
|
|
local s = f:read("*all"); f:close();
|
|
if string.find(s,"Item oldplayer") then return false else os.remove(filename) return true end
|
|
end
|
|
|
|
-- deletes data with no corresponding playerfiles from auth.txt and creates auth_new.txt
|
|
local function player_file_exists(name)
|
|
local f=io.open(worldpath.."\\players\\"..name,"r")
|
|
if f~=nil then io.close(f) return true else return false end
|
|
end
|
|
|
|
local function remove_missing_players_from_auth()
|
|
|
|
local playerfilelist = minetest.get_dir_list(worldpath.."\\players", false);
|
|
|
|
local f = io.open(worldpath.."\\auth.txt", "r");
|
|
if not f then return end
|
|
local s = f:read("*a");f:close();
|
|
local p1,p2;
|
|
|
|
f = io.open(worldpath.."\\auth_new.txt", "w");
|
|
if not f then return end
|
|
|
|
local playerlist = {};
|
|
for _,name in ipairs(playerfilelist) do
|
|
playerlist[name]=true;
|
|
end
|
|
|
|
local i=0;
|
|
local j=0; local k=0;
|
|
local name;
|
|
local count = 0;
|
|
-- parse through auth and remove missing players data
|
|
|
|
|
|
while j do
|
|
j=string.find(s,":",i);
|
|
if j then
|
|
if i ~= 1 then
|
|
name = string.sub(s,i+1,j-1)
|
|
else
|
|
name = string.sub(s,1,j-1)
|
|
end
|
|
if j then
|
|
k=string.find(s,"\n",i+1);
|
|
if not k then
|
|
j = nil
|
|
if playerlist[name] then
|
|
f:write(string.sub(s,i+1))
|
|
else
|
|
count = count+1
|
|
end
|
|
else
|
|
if playerlist[name] then
|
|
f:write(string.sub(s,i+1,k))
|
|
else
|
|
count = count + 1
|
|
end
|
|
i=k;
|
|
end
|
|
end
|
|
end
|
|
end
|
|
f:close();
|
|
print("#OLD PLAYER : removed " .. count .. " entries from auth.txt. Replace auth.txt with auth_new.txt");
|
|
end
|
|
|
|
local function remove_non_old_player_files()
|
|
local playerfilelist = minetest.get_dir_list(worldpath.."\\players", false);
|
|
|
|
local count = 0;
|
|
for _,name in ipairs(playerfilelist) do
|
|
if remove_non_old_player_file(name) then
|
|
count = count + 1
|
|
end
|
|
end
|
|
print("#OLD PLAYER: removed " .. count .. " non oldplayer player files");
|
|
end
|
|
|
|
minetest.register_on_shutdown(function() remove_non_old_player_files();remove_missing_players_from_auth() end) |