torcherer.anpcscript

-- Torcherer NPC
-- A good NPC to keep around
define program torcherer:init
	@global.hunger = 0
	@global.name = "Torcherer"
	npc:execute(name = "torcherer:find_bed")
end

define program torcherer:find_bed
    @local.bed_pos = npc:env:node:find(matches = "single", radius = 35, nodenames = {"beds:bed_bottom"})
    if (@local.bed_pos.length > 0) then
		npc:env:node:set_owned(value = true, pos = @local.bed_pos[1], categories = "beds")
		npc:env:node:set_metadata(pos = @local.bed_pos[1], meta = "Torcherer's bed")
	end
end

define program torcherer:idle
    npc:move:stand()

    if (@time > 16000 && @time < 20000) then
        npc:execute(name = "torcherer:turn_on_torches")
    end

    if (@time > 22000 || @time < 6000) then
        npc:execute(name = "torcherer:sleep")
    end

    @global.hunger = @global.hunger + 2
    if (@global.hunger > 100) then
        -- Ask for payment
		-- for (1; @local.for_index <= @objs.all.length; 1) do
		-- 	@local.random_index = npc:random(start = 1, end = @objs.all.length)
		-- 	@local.obj = @objs.get[@local.random_index]
		-- 		if (@local.obj ~= nil) then
		-- 			--npc:chat:send_player(player = @local.obj, message = "Need 1 coal")
		-- 		end
		-- 	end
		-- end
    end

    @local.should_ack_obj = false
	for (1; @local.for_index <= @objs.all.length; 1) do
		if (npc:random(start = 1, end = 100) >= (100 - @args.ack_nearby_objs_chance)) then
			@local.obj = @objs.get[@local.for_index]
			if (@local.obj ~= nil) then
				@local.dist = npc:distance_to(object = @local.obj)
				@local.should_ack_obj = (@local.dist <= @args.ack_nearby_objs_dist) && (@local.dist > 0)
			end
		end
		
		if (@local.should_ack_obj == true) then
			@local.ack_times = npc:random(start = 15, end = 30)
			for (1; @local.for_index <= @local.ack_times; 1) do
				@local.obj_pos = npc:obj:get_pos(object = @local.obj)
				npc:move:rotate(target_pos = @local.obj_pos)
			end
			@global.hunger = @global.hunger + (@local.ack_times * 2)
			break
		else
			if (npc:random(start = 1, end = 10) <= 5) then
				npc:execute(name = "torcherer:wander")
			end
		end
	end
end

define program torcherer:turn_on_torches
    @local.nodes = npc:env:node:find(radius = 5, nodenames = {"mesecraft_torch:torch_wall"})
    if (@local.nodes.length > 0) then
        for (1; @local.for_index < @local.nodes.length; 1) do
            @local.chosen_node = @local.nodes[@local.for_index]
            npc:execute(name = "npc:walk_to_pos", args = {pos = @local.chosen_node, force_accessing_node = true})
			@local.node = npc:env:node:get(pos = @local.chosen_node)
			-- TODO: The interpreter doesn't works well with this. It should eliminate the double quotes inside -- it leaves them in instead
			@local.new_name = npc:util:str:replace(str = @local.node["name"], target = "mesecraft_torch", replacement = "default")
            --npc:move:walk_to_pos_ll(target_pos = @local.chosen_node, force_accessing_node = true)
            npc:env:node:set(pos = @local.chosen_node, node = @local.new_name, param2 = @local.node["param2"])
        end
    else
		npc:execute(name = "torcherer:wander")
	end
end

-- Super basic wandering program, will take 1-5 steps, 
-- and will not repeat previous direction
define program torcherer:wander
	@local.prev_dir = -1
	for (1; @local.for_index < npc:random(start = 1, end = 5); 1) do
		@local.cardinal_dir = npc:random(start = 0, end = 7)
		while (@local.cardinal_dir == @local.prev_dir) do
			@local.cardinal_dir = npc:random(start = 0, end = 7)
		end
		@local.prev_dir = @local.cardinal_dir
		npc:move:walk(cardinal_dir = @local.cardinal_dir)
	end
	npc:move:stand()
end

define program torcherer:sleep
    @local.target_node = npc:env:node:store:get(only_one = true, categories = "beds")
    if (@local.target_node ~= nil) then
        npc:execute(name = "npc:walk_to_pos", args = {pos = @local.target_node.pos, force_accessing_node = true})
        npc:env:node:operate(pos = @local.target_node.pos)
        while (((@time > 20000) && (@time < 24000)) || (@time < 6000)) do
            npc:wait(time = 30)
        end
        @global.hunger = 60
    end
end