Villagers - On die, clear job and bed. Get same job if already traded. Thunderstorms go to bed

This commit is contained in:
ancientmarinerdev 2022-10-22 01:28:45 +01:00
parent d148e6d4ba
commit a8b336381d
2 changed files with 317 additions and 121 deletions

View file

@ -16,6 +16,14 @@ local CRAMMING_DAMAGE = 3
-- Localize
local S = minetest.get_translator("mcl_mobs")
local LOGGING_ON = minetest.settings:get_bool("mcl_logging_mobs_villager",false)
local LOG_MODULE = "[Mobs]"
local function mcl_log (message)
if LOGGING_ON and message then
minetest.log(LOG_MODULE .. " " .. message)
end
end
local function shortest_term_of_yaw_rotatoin(self, rot_origin, rot_target, nums)
if not rot_origin or not rot_target then
@ -1562,6 +1570,7 @@ end
-- find two animals of same type and breed if nearby and horny
local breed = function(self)
--mcl_log("In breed function")
-- child takes a long time before growing into adult
if self.child == true then
@ -1619,6 +1628,8 @@ local breed = function(self)
if self.horny == true
and self.hornytimer <= HORNY_TIME then
mcl_log("In breed function. All good. Do the magic.")
local pos = self.object:get_pos()
effect({x = pos.x, y = pos.y + 1, z = pos.z}, 8, "heart.png", 3, 4, 1, 0.1)
@ -1653,6 +1664,8 @@ local breed = function(self)
end
end
if canmate then mcl_log("In breed function. Can mate.") end
if ent
and canmate == true
and ent.horny == true
@ -1667,6 +1680,8 @@ local breed = function(self)
ent.hornytimer = HORNY_TIME + 1
-- spawn baby
minetest.after(5, function(parent1, parent2, pos)
if not parent1.object:get_luaentity() then
return
@ -2480,20 +2495,42 @@ local function check_gowp(self,dtime)
if gowp_etime < 0.2 then return end
gowp_etime = 0
local p = self.object:get_pos()
if not p or not self._target then return end
if vector.distance(p,self._target) < 1 then
-- no destination
if not p or not self._target then
mcl_log("p: ".. tostring(p))
mcl_log("self._target: ".. tostring(self._target))
return
end
-- arrived at location
local distance_to_targ = vector.distance(p,self._target)
mcl_log("Distance to targ: ".. tostring(distance_to_targ))
if distance_to_targ < 2 then
mcl_log("Arrived at _target")
self.waypoints = nil
self._target = nil
self.current_target = nil
self.state = "stand"
self.order = "stand"
self.object:set_velocity({x = 0, y = 0, z = 0})
self.object:set_acceleration({x = 0, y = 0, z = 0})
if self.callback_arrived then return self.callback_arrived(self) end
return true
end
if self.waypoints and ( not self.current_target or vector.distance(p,self.current_target) < 2 ) then
if not self.current_target then
for i, j in pairs (self.waypoints) do
mcl_log("Way: ".. tostring(i))
mcl_log("Val: ".. tostring(j))
end
--mcl_log("nextwp:".. tostring(self.waypoints) )
end
self.current_target = table.remove(self.waypoints, 1)
--minetest.log("nextwp:".. tostring(self.current_target) )
mcl_log("current target:".. tostring(self.current_target) )
--mcl_log("type:".. type(self.current_target) )
go_to_pos(self,self.current_target)
return
elseif self.current_target then
@ -2507,7 +2544,7 @@ local function check_gowp(self,dtime)
return
end
if not self.current_target then
--minetest.log("no path")
--mcl_log("no path")
self.state = "walk"
end
end
@ -2558,9 +2595,9 @@ local do_states = function(self, dtime)
end
-- npc's ordered to stand stay standing
if self.type ~= "npc" or
(self.order ~= "stand" and self.order ~= "sleep" and self.order ~= "work") then
if self.type == "npc" or (self.order == "stand" or self.order == "sleep" or self.order == "work") then
else
if self.walk_chance ~= 0
and self.facing_fence ~= true
and random(1, 100) <= self.walk_chance
@ -3073,6 +3110,8 @@ local do_states = function(self, dtime)
end
end
end
else
end
end
end
@ -3087,13 +3126,21 @@ local plane_adjacents = {
local gopath_last = os.time()
function mcl_mobs:gopath(self,target,callback_arrived)
if self.state == "gowp" then mcl_log("Already set as gowp, don't set another path until done.") return end
if os.time() - gopath_last < 15 then return end
gopath_last = os.time()
--minetest.log("gowp")
self.order = nil
mcl_log("gowp target: " .. minetest.pos_to_string(target))
local p = self.object:get_pos()
local t = vector.offset(target,0,1,0)
local wp = minetest.find_path(p,t,150,1,4)
--Path to door first
if not wp then
--mcl_log("gowp. no wp. Look for door")
local d = minetest.find_node_near(target,16,{"group:door"})
if d then
for _,v in pairs(plane_adjacents) do

View file

@ -15,6 +15,8 @@
-- TODO: Internal inventory, trade with other villagers
-- TODO: Schedule stuff (work,sleep,father)
local weather_mod = minetest.get_modpath("mcl_weather")
local S = minetest.get_translator("mobs_mc")
local N = function(s) return s end
local F = minetest.formspec_escape
@ -40,6 +42,14 @@ local PLAYER_SCAN_RADIUS = 4 -- scan radius for looking for nearby players
-- these items should be implemented as single items, then everything
-- will be much easier.
local LOGGING_ON = minetest.settings:get_bool("mcl_logging_mobs_villager",false)
local LOG_MODULE = "[Mobs - Villager]"
local function mcl_log (message)
if LOGGING_ON and message then
minetest.log(LOG_MODULE .. " " .. message)
end
end
local COMPASS = "mcl_compass:compass"
if minetest.registered_aliases[COMPASS] then
COMPASS = minetest.registered_aliases[COMPASS]
@ -500,14 +510,23 @@ for id, _ in pairs(professions) do
table.insert(profession_names, id)
end
local jobsites={}
local function populate_jobsites (profession)
if profession then
mcl_log("populate_jobsites: ".. tostring(profession))
end
local jobsites_requested={}
for _,n in pairs(profession_names) do
if n then
if professions[n].jobsite then
table.insert(jobsites,professions[n].jobsite)
if n and professions[n].jobsite then
if not profession or (profession and profession == n) then
--minetest.log("populate_jobsites. Adding: ".. tostring(n))
table.insert(jobsites_requested,professions[n].jobsite)
end
end
end
return jobsites_requested
end
jobsites = populate_jobsites()
local spawnable_bed={}
table.insert(spawnable_bed, "mcl_beds:bed_red_bottom")
@ -539,10 +558,11 @@ local function get_badge_textures(self)
end
local function set_textures(self)
self.object:set_properties({textures=get_badge_textures(self)})
local badge_textures = get_badge_textures(self)
mcl_log("Setting textures: " .. tostring(badge_textures))
self.object:set_properties({textures=badge_textures})
end
function get_activity(tod)
-- night hours = tod > 18541 or tod < 5458
if not tod then
@ -551,9 +571,15 @@ function get_activity(tod)
tod = ( tod * 24000 ) % 24000
local lunch_start = 12000
local lunch_end = 13300
local work_start = 8300
local work_end = 16300
local lunch_end = 13000
local work_start = 6500
local work_end = 18000
--local lunch_start = 12000
--local lunch_end = 13300
--local work_start = 8300
--local work_end = 16300
local activity = nil
if (tod > work_start and tod < lunch_start) or (tod > lunch_end and tod < work_end) then
@ -561,11 +587,11 @@ function get_activity(tod)
elseif mcl_beds.is_night() then
activity = SLEEP
elseif tod > lunch_start and tod < lunch_end then
activity = "chill"
activity = "lunch"
else
activity = "undefined"
activity = "chill"
end
--minetest.log("Time is " .. tod ..". Activity is: ".. activity)
mcl_log("Time is " .. tod ..". Activity is: ".. activity)
return activity
end
@ -580,7 +606,7 @@ local function go_home(entity, sleep)
local bed_node = minetest.get_node(b)
if not bed_node then
entity._bed = nil
--minetest.log("Cannot find bed. Unset it")
mcl_log("Cannot find bed. Unset it")
return
end
@ -588,7 +614,7 @@ local function go_home(entity, sleep)
if vector.distance(entity.object:get_pos(),b) < 2 then
if sleep then
entity.order = SLEEP
--minetest.log("Sleep time!")
mcl_log("Sleep time!")
end
else
if sleep and entity.order == SLEEP then
@ -628,7 +654,7 @@ local function check_bed (entity)
local n = minetest.get_node(b)
if n and n.name ~= "mcl_beds:bed_red_bottom" then
--minetest.log("Where did my bed go?!")
mcl_log("Where did my bed go?!")
entity._bed = nil --the stormtroopers have killed uncle owen
return false
else
@ -644,20 +670,27 @@ local function take_bed (entity)
for _,n in pairs(nn) do
local m=minetest.get_meta(n)
--minetest.log("Bed owner: ".. m:get_string("villager"))
if m:get_string("villager") == "" then
--minetest.log("Can we path to bed: "..minetest.pos_to_string(n) )
local gp = mcl_mobs:gopath(entity,n,function()
--minetest.log("We did path to bed. This is great: "..minetest.pos_to_string(n) )
mcl_log("Bed owner: ".. m:get_string("villager"))
if m:get_string("villager") == "" and not entity.state == "gowp" then
mcl_log("Can we path to bed: "..minetest.pos_to_string(n) )
local gp = mcl_mobs:gopath(entity,n,function(self)
if self then
self.order = "sleep"
mcl_log("Sleepy time" )
else
mcl_log("Can't sleep, no self in the callback" )
end
end)
if gp then
--minetest.log("Nice bed. I'll defintely take it as I can path")
mcl_log("Nice bed. I'll defintely take it as I can path")
m:set_string("villager", entity._id)
entity._bed = n
break
else
--minetest.log("Awww. I can't find my bed.")
mcl_log("Awww. I can't find my bed.")
end
else
mcl_log("Currently gowp, or it's taken.")
end
end
end
@ -707,6 +740,37 @@ local function check_summon(self,dtime)
self._summon_timer = self._summon_timer + dtime
end
local function has_traded (self)
--mcl_log("Checking name: " .. self._trades)
local cur_trades_tab = minetest.deserialize(self._trades)
if cur_trades_tab and type(cur_trades_tab) == "table" then
for trader, trades in pairs(cur_trades_tab) do
--mcl_log("Current record: ".. tostring(trader))
--for tr3, tr4 in pairs (tab_val) do
--mcl_log("Key: ".. tostring(tr3))
--mcl_log("Value: ".. tostring(tr4))
--end
--mcl_log("traded once: ".. tostring(trades.traded_once))
if trades.traded_once then
mcl_log("Villager has traded before. Returning true")
return true
end
end
end
mcl_log("Villager has not traded before")
return false
end
local function unlock_trades (self)
if self then
mcl_log("We should now try to unlock trades")
else
mcl_log("Missing self")
end
end
----- JOBSITE LOGIC
local function get_profession_by_jobsite(js)
for k,v in pairs(professions) do
@ -719,80 +783,133 @@ local function employ(self,jobsite_pos)
local m = minetest.get_meta(jobsite_pos)
local p = get_profession_by_jobsite(n.name)
if p and m:get_string("villager") == "" then
minetest.log("Taking this job")
self._profession=p
mcl_log("Taking this jobsite")
m:set_string("villager",self._id)
self._jobsite = jobsite_pos
if not self.traded then
self._profession=p
set_textures(self)
end
return true
else
--minetest.log("I can not steal someone's job!")
mcl_log("I can not steal someone's job!")
end
end
local function look_for_job(self)
if self.last_jobhunt and os.time() - self.last_jobhunt < 360 then return end
self.last_jobhunt = os.time() + math.random(0,60)
local function look_for_job(self, requested_jobsites)
if self.last_jobhunt and os.time() - self.last_jobhunt < 40 then return end
self.last_jobhunt = os.time() + math.random(0,30)
mcl_log("Looking for jobs")
local looking_for_type = jobsites
if requested_jobsites then
mcl_log("Looking for jobs of my type")
local looking_for_type = requested_jobsites
else
mcl_log("Looking for any job type")
end
local p = self.object:get_pos()
local nn = minetest.find_nodes_in_area(vector.offset(p,-48,-48,-48),vector.offset(p,48,48,48),jobsites)
--minetest.log("Looking for jobs")
local nn = minetest.find_nodes_in_area(vector.offset(p,-48,-48,-48),vector.offset(p,48,48,48), looking_for_type)
for _,n in pairs(nn) do
local m = minetest.get_meta(n)
--minetest.log("Job owner: ".. m:get_string("villager"))
--mcl_log("Job owner: ".. m:get_string("villager"))
if m:get_string("villager") == "" then
--minetest.log("It's a free job for me (".. minetest.pos_to_string(p) .. ")! I'll take: "..minetest.pos_to_string(n) )
local gp = mcl_mobs:gopath(self,n,function()
--minetest.log("arrived jobsite "..minetest.pos_to_string(n) )
mcl_log("It's a free job for me (".. minetest.pos_to_string(p) .. ")! I might be interested: "..minetest.pos_to_string(n) )
local gp = mcl_mobs:gopath(self,n,function(self)
mcl_log("Arrived at block callback")
if self and self.state == "stand" then
self.order = WORK
else
mcl_log("no self. passing param to callback failed")
end
end)
if gp then return end
if gp then
if n then
mcl_log("We can path to this block.. " .. tostring(n))
end
return n
else
mcl_log("We could not path to block")
end
end
end
return nil
end
local function get_a_job(self)
--minetest.log("In get a job")
if self.child then return end
mcl_log("I'm unemployed or lost my job block and have traded. Can I get a job?")
--self.order = JOB_HUNTING
local requested_jobsites = jobsites
if has_traded (self) then
--mcl_log("Has traded")
requested_jobsites = populate_jobsites(self._profession)
-- Only pass in my jobsite to two functions here
else
mcl_log("Has not traded")
end
local p = self.object:get_pos()
local n = minetest.find_node_near(p,1,jobsites)
local n = minetest.find_node_near(p,1,requested_jobsites)
--Ideally should check for closest available. It'll make pathing easier.
--local n = look_for_job(self)
if not n then
--minetest.log("Job hunt failed. No job block near.")
else
--minetest.log("Found job block near. Is it free though?")
--mcl_log("Job hunt failed. Could not find block I have walked to")
end
if n and employ(self,n) then return true end
if self.state ~= "gowp" then look_for_job(self) end
if self.state ~= "gowp" then
mcl_log("Nothing near. Need to look for a job")
look_for_job(self, requested_jobsites)
end
end
local function find_jobsite (self)
local function retrieve_my_jobsite (self)
if not self or not self._jobsite then
--minetest.log("find_jobsite. Invalid params")
--mcl_log("find_jobsite. Invalid params")
return
end
local n = mcl_vars.get_node(self._jobsite)
local m = minetest.get_meta(self._jobsite)
if m:get_string("villager") == self._id then
--minetest.log("find_jobsite. is my job.")
--mcl_log("find_jobsite. is my job.")
return n
else
--minetest.log("find_jobsite. Not my job")
--mcl_log("find_jobsite. Not my job")
end
return
end
local function check_jobsite(self)
if self._traded then
return false
end
if not find_jobsite (self) then
local function validate_jobsite(self)
if not retrieve_my_jobsite (self) then
if not self._traded then
mcl_log("Cannot retrieve my jobsite. I am now unemployed.")
self._jobsite = nil
self._profession = "unemployed"
self._trades = nil
set_textures(self)
if self.order == WORK then
self.order = nil
end
end
return false
else
return true
@ -802,45 +919,67 @@ end
local function do_work (self)
local jobsite2 = find_jobsite (self)
if self.child then return end
--mcl_log("Time for work")
-- Don't try if looking_for_work, or gowp possibly
if validate_jobsite(self) then
mcl_log("My jobsite is valid. Do i need to travel?")
local jobsite2 = retrieve_my_jobsite (self)
local jobsite = self._jobsite
if self and jobsite2 and self._jobsite then
if self.order == WORK then
--minetest.log("I'm already working, boss!")
self.object:set_velocity({x = 0, y = 0, z = 0})
--minetest.log("[mobs_mc] Villager velocity is: ".. minetest.pos_to_string(self.object:get_velocity()))
return
end
mcl_log("Villager: ".. minetest.pos_to_string(self.object:get_pos()) .. ", jobsite: " .. minetest.pos_to_string(self._jobsite))
if vector.distance(self.object:get_pos(),self._jobsite) < 2 then
--minetest.log("Made it to work ok!")
mcl_log("Made it to work ok!")
if not (self.state == "gowp") then
mcl_log("Setting order to work.")
self.order = WORK
else
mcl_log("Not gowp. What is it: " .. self.state)
end
-- Once we arrive at job block, we should unlock trades
unlock_trades(self)
--self.state = "stand"
--self.object:set_velocity({x = 0, y = 0, z = 0})
else
mcl_log("Not at job block. Need to commute.")
if self.order == WORK then
self.order = nil
return
end
--self.state = "go_to_work"
mcl_mobs:gopath(self, jobsite, function(self,jobsite)
if not self then
--minetest.log("missing self. not good")
--mcl_log("missing self. not good")
return false
end
if not self._jobsite then
--minetest.log("Jobsite not valid")
--mcl_log("Jobsite not valid")
return false
end
if vector.distance(self.object:get_pos(),self._jobsite) < 2 then
--minetest.log("Made it to work ok callback!")
--mcl_log("Made it to work ok callback!")
return true
else
--minetest.log("Need to walk to work. Not sure we can get here.")
--mcl_log("Need to walk to work. Not sure we can get here.")
end
end)
end
else
--minetest.log("Cannot find the jobsite in do_work. Do nothing.")
end
elseif self._profession == "unemployed" then
--self.order == JOB_HUNTING
get_a_job(self)
elseif has_traded(self) then
mcl_log("My job site is invalid or gone. I cannot work.")
if self.order == WORK then self.order = nil end
get_a_job(self)
end
end
local function update_max_tradenum(self)
@ -915,7 +1054,7 @@ local function set_trade(trader, player, inv, concrete_tradenum)
init_trades(trader)
trades = minetest.deserialize(trader._trades)
if not trades then
--minetest.log("error", "[mobs_mc] Failed to select villager trade!")
--minetest.log("error", "Failed to select villager trade!")
return
end
end
@ -1490,11 +1629,20 @@ mcl_mobs:register_mob("mobs_mc:villager", {
return it
end,
on_rightclick = function(self, clicker)
if self._jobsite then
if self.state == "attack" then
mcl_log("Somehow villager got into an invalid attack state. Removed.")
-- Need to stop villager getting in attack state. This is a workaround to allow players to fix broken villager.
self.state = "stand"
self.attack = nil
end
if validate_jobsite(self) then
mcl_mobs:gopath(self,self._jobsite,function()
--minetest.log("arrived at jobsite")
end)
else
self.state = "stand" -- cancel gowp in case it has messed up
end
if self.child or self._profession == "unemployed" or self._profession == "nitwit" then
return
end
@ -1567,49 +1715,37 @@ mcl_mobs:register_mob("mobs_mc:villager", {
end
if not self._bed then
--minetest.log("[mobs_mc] Villager has no bed. Currently at location: "..minetest.pos_to_string(self.object:get_pos()))
--mcl_log("Villager has no bed. Currently at location: "..minetest.pos_to_string(self.object:get_pos()))
take_bed (self)
end
if check_bed (self) then
--self.state ~= "go_home"
local wandered_too_far = ( self.state ~= "gowp" ) and (vector.distance(self.object:get_pos(),self._bed) > 50 )
if wandered_too_far then minetest.log("[mobs_mc] Wandered too far! Return home ") end
--if wandered_too_far then minetest.log("Wandered too far! Return home ") end
if wandered_too_far then
go_home(self, false)
return
elseif mcl_beds.is_night() then
--minetest.log("[mobs_mc] It's night. Better get to bed ")
elseif mcl_beds.is_night() or (weather_mod and mcl_weather.get_weather() == "thunder") then
mcl_log("It's night or thunderstorm. Better get to bed ")
go_home(self, true)
return
else
-- work
-- or gossip at town bell
end
else
--minetest.log("[mobs_mc] check bed failed ")
--mcl_log("check bed failed ")
end
-- Daytime is work and play time
if not mcl_beds.is_night() then
if self.order == SLEEP then self.order = nil end
if self._profession == "unemployed" then
--minetest.log("[mobs_mc] I'm unemployed. Can I get a job?")
get_a_job(self)
else
if get_activity() == WORK then
--minetest.log("[mobs_mc] Time for work")
if check_jobsite(self) then
--minetest.log("[mobs_mc] My jobsite is valid. Let's do work ")
do_work(self)
-- at night or thunder, go to safety (bed)
else
--minetest.log("[mobs_mc] My job site is invalid or i'm already working. I cannot work.")
end
else
-- gossip at town bell or stroll around
self.order = nil
end
end
else
if self.order == WORK then self.order = nil end
end
@ -1643,6 +1779,19 @@ mcl_mobs:register_mob("mobs_mc:villager", {
end
end
end
local bed = self._bed
if bed then
local bed_meta = minetest.get_meta(bed)
bed_meta:set_string("villager", nil)
mcl_log("Died, so bye bye bed")
end
local jobsite = self._jobsite
if jobsite then
local jobsite_meta = minetest.get_meta(jobsite)
jobsite_meta:set_string("villager", nil)
mcl_log("Died, so bye bye jobsite")
end
end,
})