350 lines
10 KiB
Lua
350 lines
10 KiB
Lua
|
|
local M=xpfw
|
|
if M.player == nil then
|
|
M.player={}
|
|
end
|
|
if M.experiences == nil then
|
|
M.experiences={}
|
|
end
|
|
|
|
local check_value=function(tab,val,def)
|
|
if tab[val] == nil then
|
|
tab[val] = def
|
|
end
|
|
end
|
|
|
|
xpfw.register_attribute=function(name,data)
|
|
check_value(data,"min",0)
|
|
check_value(data,"max",math.huge)
|
|
data.name=name
|
|
xpfw.attributes[name]=data
|
|
end
|
|
local player_addsub_attribute=function(player,attrib,val,maf)
|
|
local oldvalue=xpfw.player_get_attribute(player,attrib)
|
|
local att_def=xpfw.attributes[attrib]
|
|
local new_val = oldvalue + val
|
|
if maf ~= nil then
|
|
new_val=(oldvalue*maf + val)/(maf + 1)
|
|
if val < 0 then
|
|
new_val=math.floor(new_val)
|
|
end
|
|
end
|
|
xpfw.player_set_attribute(player,attrib,new_val)
|
|
end
|
|
|
|
xpfw.player_add_attribute=function(player,attrib,val)
|
|
local nval=val
|
|
local att_def=xpfw.attributes[attrib]
|
|
if val==nil then
|
|
nval=att_def.max or 20
|
|
end
|
|
if att_def.moving_average_factor ~= nil then
|
|
player_addsub_attribute(player,attrib,nval,att_def.moving_average_factor)
|
|
else
|
|
player_addsub_attribute(player,attrib,nval)
|
|
end
|
|
local playerdata=M.player[player:get_player_name()]
|
|
playerdata.flags[attrib]=1
|
|
end
|
|
xpfw.player_sub_attribute=function(player,attrib,val)
|
|
local nval=val
|
|
local playername=player:get_player_name()
|
|
local att_def=M.player[playername].attributes[attrib]
|
|
if val==nil then
|
|
nval=att_def.max or 20
|
|
end
|
|
if att_def.recreation_factor ~= nil then
|
|
player_addsub_attribute(player,attrib,(-1)*nval,att_def.recreation_factor)
|
|
else
|
|
player_addsub_attribute(player,attrib,(-1)*nval)
|
|
end
|
|
end
|
|
|
|
xpfw.player_get_attribute=function(player,attrib)
|
|
local pm=player:get_meta()
|
|
return pm:get_float(xpfw.prefix.."_"..attrib) or 0
|
|
end
|
|
xpfw.player_set_attribute=function(player,attrib,val)
|
|
local pm=player:get_meta()
|
|
local playername=player:get_player_name()
|
|
local att_def=M.player[playername].attributes[attrib]
|
|
local setvalue=math.min(att_def.max or math.huge,math.max(att_def.min or 0,val))
|
|
pm:set_float(xpfw.prefix.."_"..attrib,setvalue)
|
|
M.player[playername].flags[attrib]=1
|
|
end
|
|
xpfw.player_set_attribute_to_nil=function(player,attrib)
|
|
local pm=player:get_meta()
|
|
local playername=player:get_player_name()
|
|
local att_def=M.player[playername].attributes[attrib]
|
|
pm:set_float(xpfw.prefix.."_"..attrib,-1)
|
|
end
|
|
xpfw.player_remove_flag=function(player,attrib)
|
|
M.player[playername].flags[attrib]=nil
|
|
end
|
|
xpfw.player_ping_attribute=function(player,attrib)
|
|
local playername=player:get_player_name()
|
|
local att_def=M.player[playername].attributes[attrib]
|
|
local ping_max=att_def.max
|
|
if ping_max == nil then
|
|
ping_max=xpfw.experience_max
|
|
xpfw.attributes[attrib]["max"]=xpfw.experience_max
|
|
else
|
|
if ping_max==math.huge then
|
|
ping_max=xpfw.experience_max
|
|
xpfw.attributes[attrib]["max"]=xpfw.experience_max
|
|
end
|
|
end
|
|
|
|
if att_def.moving_average_factor == nil then
|
|
att_def.moving_average_factor=xpfw.mean_weight
|
|
end
|
|
xpfw.player_add_attribute(player,attrib,ping_max)
|
|
end
|
|
|
|
M.register_experience=function(name,indata)
|
|
local tid=table.copy(indata)
|
|
tid.name=name
|
|
check_value(tid,"default",0)
|
|
check_value(tid,"decay",0)
|
|
M.experiences[name]=tid
|
|
end
|
|
|
|
xpfw.player_reset_attributes=function(player)
|
|
for i,att_def in pairs(xpfw.attributes) do
|
|
local setval=att_def.min or 0
|
|
if att_def.default ~= nil then
|
|
setval=att_def.default
|
|
end
|
|
player:set_attribute(xpfw.prefix.."_"..att_def.name,setval)
|
|
end
|
|
end
|
|
|
|
minetest.register_on_joinplayer(function(player)
|
|
local playername = player:get_player_name()
|
|
for i,att_def in pairs(xpfw.attributes) do
|
|
if player:get_attribute(xpfw.prefix.."_"..att_def.name) == nil then
|
|
local defval=att_def.min or 0
|
|
if att_def.default ~= nil then
|
|
defval=att_def.default
|
|
end
|
|
player:set_attribute(xpfw.prefix.."_"..att_def.name,defval)
|
|
end
|
|
end
|
|
if M.player[playername]==nil then
|
|
M.player[playername]={last_pos=player:get_pos(), --actual position
|
|
flags={},
|
|
attributes=table.copy(xpfw.attributes),
|
|
}
|
|
local playerhud=xpfw.mod_storage:get_int(playername.."_hud")
|
|
if playerhud==nil then playerhud=1 end
|
|
if playerhud == 1 then
|
|
M.player[playername].hud=1
|
|
end
|
|
for i,tdef in pairs(M.player[playername].attributes) do
|
|
local rf=xpfw.mod_storage:get_int(playername.."_"..i.."_rf")
|
|
local maf=xpfw.mod_storage:get_int(playername.."_"..i.."_maf")
|
|
if rf>0 then
|
|
M.player[playername].attributes[i].recreation_factor=rf
|
|
end
|
|
if maf>0 then
|
|
M.player[playername].attributes[i].moving_average_factor=maf
|
|
end
|
|
end
|
|
xpfw.player_set_attribute_to_nil(player,"meanlight")
|
|
end
|
|
local playerdata=M.player[playername]
|
|
local pm=player:get_meta()
|
|
pm:set_int(xpfw.prefix.."_lastlogin",os.time()) -- last login time
|
|
xpfw.player_add_attribute(player,"login",1)
|
|
if playerdata.hud~=nil then
|
|
xpfw.player_add_hud(player)
|
|
end
|
|
playerdata.dtime=0
|
|
end
|
|
)
|
|
|
|
xpfw.player_hud_toggle=function(name)
|
|
local player=minetest.get_player_by_name(name)
|
|
local playerdata=M.player[name]
|
|
if playerdata==nil then
|
|
return
|
|
end
|
|
if playerdata.hidx==nil then
|
|
xpfw.player_add_hud(player)
|
|
else
|
|
xpfw.player_remove_hud(player)
|
|
end
|
|
end
|
|
xpfw.player_add_hud=function(player)
|
|
local playerdata=M.player[player:get_player_name()]
|
|
if playerdata==nil then
|
|
return
|
|
end
|
|
if playerdata.hud == nil then
|
|
playerdata.hud=1
|
|
end
|
|
playerdata.hidx=player:hud_add({
|
|
hud_elem_type = "text",
|
|
position = {x=1,y=1},
|
|
size = "",
|
|
text = "",
|
|
alignment = {x=-1,y=-1},
|
|
})
|
|
end
|
|
xpfw.player_remove_hud=function(player)
|
|
local playerdata=M.player[player:get_player_name()]
|
|
if playerdata==nil then
|
|
return
|
|
end
|
|
if playerdata.hidx ~= nil then
|
|
player:hud_remove(playerdata.hidx)
|
|
playerdata.hidx = nil
|
|
playerdata.hud=nil
|
|
end
|
|
end
|
|
minetest.register_on_placenode(function(pos, newnode, player, oldnode, itemstack, pointed_thing)
|
|
if player ~= nil then
|
|
local playername = player:get_player_name()
|
|
xpfw.player_add_attribute(player,"build",1)
|
|
xpfw.player_add_attribute(player,"mean_build_speed")
|
|
end
|
|
end)
|
|
|
|
minetest.register_on_dieplayer(function(player, reason)
|
|
if player ~= nil then
|
|
xpfw.player_add_attribute(player,"deaths",1)
|
|
end
|
|
end)
|
|
|
|
minetest.register_on_chat_message(function(player, reason)
|
|
if player ~= nil then
|
|
xpfw.player_add_attribute(minetest.get_player_by_name(player),"spoke",1)
|
|
end
|
|
end)
|
|
|
|
minetest.register_on_dignode(function(pos,oldnode,player)
|
|
if player ~= nil then
|
|
xpfw.player_add_attribute(player,"dug",1)
|
|
xpfw.player_add_attribute(player,"mean_dig_speed")
|
|
end
|
|
end)
|
|
|
|
minetest.register_on_leaveplayer(function(player)
|
|
if player ~= nil then
|
|
local playerdata=M.player[player:get_player_name()]
|
|
local leave=os.time()
|
|
xpfw.player_add_attribute(player,"logon",xpfw.player_get_attribute(player,"lastlogin")-leave)
|
|
local playerhud=playerdata.hud
|
|
if playerhud==nil then playerhud=0 end
|
|
xpfw.mod_storage:set_int(player:get_player_name().."_hud",playerhud)
|
|
end
|
|
end)
|
|
|
|
xpfw.save_player_data=function(player)
|
|
local playerdata=M.player[player:get_player_name()]
|
|
for i,tdef in pairs(playerdata.attributes) do
|
|
if tdef.moving_average_factor ~= nil then
|
|
xpfw.mod_storage:set_int(player:get_player_name().."_"..i.."_maf",tdef.moving_average_factor)
|
|
end
|
|
if tdef.recreation_factor ~= nil then
|
|
xpfw.mod_storage:set_int(player:get_player_name().."_"..i.."_rf",tdef.recreation_factor)
|
|
end
|
|
end
|
|
end
|
|
|
|
minetest.register_on_shutdown(function()
|
|
local leave=os.time()
|
|
local players = minetest.get_connected_players()
|
|
for i=1, #players do
|
|
local player=players[i]
|
|
xpfw.save_player_data(player)
|
|
local playerdata=M.player[player]
|
|
xpfw.player_add_attribute(player,"logon",xpfw.player_get_attribute(player,"lastlogin")-leave)
|
|
local playerdata=M.player[player:get_player_name()]
|
|
local playerhud=playerdata.hud
|
|
if playerhud==nil then playerhud=0 end
|
|
xpfw.mod_storage:set_int(player:get_player_name().."_hud",playerhud)
|
|
end
|
|
end
|
|
)
|
|
|
|
minetest.register_globalstep(function(dtime)
|
|
local players = minetest.get_connected_players()
|
|
for i=1, #players do
|
|
local player=players[i]
|
|
local name = player:get_player_name()
|
|
if M.player[name] ~= nil then
|
|
local playerdata=M.player[name]
|
|
playerdata.dtime=playerdata.dtime+dtime
|
|
local act_pos=player:get_pos()
|
|
-- calculating distance to last known position
|
|
if playerdata.last_pos ~= nil then
|
|
local tdist=vector.distance(act_pos,playerdata.last_pos)
|
|
if tdist > 0 then
|
|
xpfw.player_add_attribute(player,"distance",tdist)
|
|
playerdata.last_pos = act_pos
|
|
end
|
|
else
|
|
playerdata.last_pos = act_pos
|
|
end
|
|
-- calculation walk by actual velocity
|
|
local tvel=player:get_player_velocity()
|
|
if tvel ~= nil then
|
|
local act_node=minetest.get_node(act_pos)
|
|
-- check if swimming
|
|
local vel_action="walked"
|
|
if minetest.get_item_group(act_node.name,"water")>0 then
|
|
vel_action="swam"
|
|
end
|
|
local tvelo=vector.distance(tvel,{x=0,y=0,z=0})
|
|
if tvelo>0 then
|
|
xpfw.player_add_attribute(player,vel_action,tvelo*dtime)
|
|
|
|
-- add experience
|
|
local mean_speed="mean_"..vel_action.."_speed"
|
|
if xpfw.attributes[mean_speed].max ~= nil then
|
|
xpfw.player_add_attribute(player,mean_speed,xpfw.attributes[mean_speed].max)
|
|
end
|
|
end
|
|
end
|
|
--calculating mean sun level
|
|
local light_level=minetest.get_node_light(act_pos)
|
|
if light_level ~= nil then
|
|
if xpfw.player_get_attribute(player,"meanlight") == (-1) then
|
|
local light_level=minetest.get_node_light(act_pos,0.5)
|
|
if light_level > 1 then
|
|
print("light level "..light_level)
|
|
xpfw.player_set_attribute(player,"meanlight",light_level)
|
|
end
|
|
else
|
|
xpfw.player_add_attribute(player,"meanlight",light_level)
|
|
end
|
|
end
|
|
|
|
if playerdata.hidx ~= nil then
|
|
local act_logon=os.clock()-xpfw.player_get_attribute(player,"lastlogin")
|
|
local act_print=""
|
|
for i,att_def in pairs(xpfw.attributes) do
|
|
if att_def.hud ~= nil and att_def.name ~= "logon" then
|
|
act_print=act_print..i..": "..math.ceil(xpfw.player_get_attribute(player,att_def.name)).."\n"
|
|
end
|
|
end
|
|
act_print=act_print.."logon: "..math.ceil(xpfw.player_get_attribute(player,"lastlogin")+act_logon)
|
|
player:hud_change(playerdata.hidx,"text",act_print)
|
|
end
|
|
|
|
if playerdata.dtime>xpfw.rtime then
|
|
playerdata.dtime=0
|
|
for i,att_def in pairs(xpfw.attributes) do
|
|
local att=xpfw.attributes[i]
|
|
if att_def.recreation_factor ~= nil and xpfw.player_get_attribute(player,i) > att.min and playerdata.flags[i] == nil then
|
|
xpfw.player_sub_attribute(player,i)
|
|
end
|
|
playerdata.flags[i]=nil
|
|
end
|
|
end
|
|
end
|
|
|
|
end
|
|
end)
|