living-weapons.lua

-- ToME - Tales of Maj'Eyal
-- Copyright (C) 2009 - 2019 Nicolas Casalini
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program 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 General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
--
-- Nicolas Casalini "DarkGod"
-- darkgod@te4.org
startx = 12
starty = 10

setStatusAll{no_teleport=true}
rotates = {"default", "90", "180", "270", "flipx", "flipy"}

local Talents = require("engine.interface.ActorTalents")
--make other requirement equipment from Cursed Sentry
local make_req = function(el, o, subtype, slot)
    local o2 = nil
    if o.subtype == subtype then
        o2 = o:clone()
        o2.no_drop = true
    else
        local level = o.material_level or 1
        -- Code from cursed aura
        local egos = o.egos_number or (o.ego_list and #o.ego_list) or (o.egoed and 1) or 0
        local greater = o.greater_ego or 0
        local double_greater = (o.unique and egos == 0) or greater > 1  -- artifact or purple
        local greater_normal = (o.unique and egos > 2) or greater == 1 and egos > 1 -- randart or blue
        local greater = (o.unique and egos > 0) or greater == 1 and egos == 1  -- rare or blue
        local double_ego = not o.unique and greater == 0 and egos > 1
        local ego = not o.unique and greater == 0 and egos == 1
        local filter = {subtype=subtype, ignore_material_restriction=true, tome={double_greater=double_greater and 1, greater_normal=greater_normal and 1,
        greater = greater and 1, double_ego = double_ego and 1, ego = ego and 1}, special = function(e) return not e.unique and e.material_level == level end}
        o2 = game.zone:makeEntity(game.level, "object", filter, nil, true)
        o2.no_drop = true
        if slot == "QUIVER" then o2.infinite = true end
    end
    el[#el+1] = {o2, slot or "OFFHAND"}
end

local imbueEgo = function(gem, object)
   if not gem then return end
   if not object then return end
   local Entity = require("engine.Entity")
   local ego = Entity.new{
      fake_ego = true,
      name = "imbued_"..gem.name,
      keywords = {[gem.name] = true},
      wielder = table.clone(gem.imbue_powers, true),
      been_imbued = true,
      egoed = true,
   }
   if gem.talent_on_spell then ego.talent_on_spell = table.clone(gem.talent_on_spell, true) end  -- Its really weird that this table structure is different for one property
   game.zone:applyEgo(object, ego, "object", true)
end
-- A lot of elseif
local make_poltergeist = function(type)
    local o = nil
    local filter = nil
    local x_level = nil
    if type == "greater" then
        filter = {no_tome_drops=true, unique=true, special=function(o) return (o.slot == "MAINHAND") end}
        x_level = math.max(15, resolvers.current_level + 10)
    else
        filter = {id=true, add_levels=5, force_tome_drops=true, tome_drops="store", tome_mod="gvault", special=function(o) return (o.slot == "MAINHAND") end}
        x_level = math.max(10, resolvers.current_level + 5)
    end
    o = game.zone:makeEntity(game.level, "object", filter, nil, true)
    o.no_drop = false
    local e = mod.class.NPC.new{
        type = "construct", subtype = "weapon",
        display = o.display, color=o.color, image = o.image, blood_color = colors.GREY,
        faction = "enemies",
        body = { INVEN = 10, MAINHAND=1, OFFHAND=1, QUIVER=1,PSIONIC_FOCUS=1},
        level_range = {x_level, nil},
        size_category = 1,
        ai = "tactical", ai_state = { talent_in=2, ai_move="move_astar", },
        ai_tactic = resolvers.tactic"melee",
        max_life = resolvers.rngavg(100,120),
        stats = {wil= 20, cun = 20, mag = 20, con = 20},
        resolvers.sustains_at_birth(),
        resolvers.talents{
            [Talents.T_WEAPON_COMBAT]={base=1, every=10, max=5},
        }
    }
    local class = nil
    local req = nil
    local el = {}
    if o.subtype == "staff" then
        class = "Archmage"
        e.autolevel = "warriormage"
        e[#e+1] = resolvers.talents{
            [Talents.T_CHANNEL_STAFF]={base=1, every=10, max=5},
            [Talents.T_FLAME]={base=1, every=10, max=5},
        }
    elseif o.subtype == "dagger" then
        class = "Rogue"
        e.autolevel = "rogue"
        e[#e+1] = resolvers.talents{
            [Talents.T_KNIFE_MASTERY]={base=1, every=10, max=5},
        }
        make_req(el, o, "dagger")
    elseif o.subtype == "longbow" then
        class = "Archer"
        e.autolevel = "warrior"
        e.ai_tactic = resolvers.tactic"ranged"
        e[#e+1] = resolvers.talents{
            [Talents.T_MASTER_MARKSMAN] = {base=1, every=10, max=5},
        }
        make_req(el, o, "arrow", "QUIVER")
    elseif o.subtype == "sling" then
        class = "Skirmisher"
        e.autolevel = "rogue"
        e.ai_tactic = resolvers.tactic"ranged"
        e[#e+1] = resolvers.talents{
            [Talents.T_SKIRMISHER_SLING_SUPREMACY] = {base=1, every=10, max=5},
            [Talents.T_SKIRMISHER_KNEECAPPER] = {base=1, every=10, max=5},
            [Talents.T_SHOOT] = 1
        }
        make_req(el, o, "shield")
        make_req(el, o, "shot", "QUIVER")
    elseif o.subtype == "mindstar" then
        class = "Mindslayer"
        e.autolevel = "wildcaster"
        e[#e+1] = resolvers.talents{
            [Talents.T_PSIBLADES] = {base=1, every=10, max=5},
            [Talents.T_TELEKINETIC_SMASH] = 1,
        }
        e[#e+1] = resolvers.equip{
            {type="weapon", subtype="greatsword", autoreq=true, force_inven = "PSIONIC_FOCUS", no_drops=true},
        }
        make_req(el, o, "mindstar")
	elseif o.subtype == "whip" then
		class = "Corruptor"
		e.autolevel = "warriormage"
		e[#e+1] = resolvers.talents{
			[Talents.T_CORRUPTED_NEGATION]={base=3, every=12, max=6},
			[Talents.T_DRAIN]={base=5, every=10, max=7},
			[Talents.T_BLOOD_GRASP]={base=4, every=5, max=7},
		}
		game.log("#LIGHT_RED#ERROR GENERATING: %s", o.name)
    elseif o.type == "weapon" and o.slot_forbid == "OFFHAND" then
        class = "Berserker"
        e.autolevel = "warrior"
        e[#e+1] = resolvers.talents{
            [Talents.T_WEAPONS_MASTERY]={base=1, every=10, max=5},
        }
    elseif o.type == "weapon" and o.offslot == nil then
        class = "Bulwark"
        e.autolevel = "warrior"
        e[#e+1] = resolvers.talents{
            [Talents.T_WEAPONS_MASTERY]={base=1, every=10, max=5},
            [Talents.T_ARMOUR_TRAINING]=2
        }
        make_req(el, o, "shield")
	else -- failsafe for if no other category fits so we don't break generation
		class = "Doomed"
        e.autolevel = "wildcaster"
        e[#e+1] = resolvers.talents{
			[Talents.T_CALL_SHADOWS]={base=1, every=8, max=6},
			[Talents.T_SHADOW_WARRIORS]={base=1, every=8, max=6},
			[Talents.T_REPROACH]={base=5, every=10, max=5},
        }
		game.log("#LIGHT_RED#ERROR GENERATING: %s", o.name)
    end
    e[#e+1] = resolvers.auto_equip_filters(class)

    if type == "greater"  then
        e.name = "Poltergeist " .. o.name
        e.rank = 3.5
        e.auto_classes={
            {class=class, start_level=10, level_rate=80},
            {class="Cursed", start_level=20, level_rate=40}
        }
    else
        e.name = "Animated " .. o.name
        e.rank = 3
        e.auto_classes={
            {class=class, start_level=10, level_rate=50}
        }
    end
    if type == "greater" then
        local filter = {type="gem", ignore_material_restriction=true,special=function(ee) return ee.material_level == o.material_level end}
        gem = game.zone:makeEntity(game.level, "object", filter, nil, true)
        imbueEgo(gem, o)
        o.name = "Poltergeist's " .. o.name
    end
    local qo = nil
    --if class ==
    e:resolve()
    e:resolve(nil, true)
    e:wearObject(o, true, false, "MAINHAND")
    for _, v in ipairs(el) do
        e:wearObject(v[1], true, false, v[2])
    end
    return e
end
specialList("actor", {
    "/data/general/npcs/wight.lua",
    "/data/general/npcs/skeleton.lua",
    "/data/general/npcs/horror.lua",
})


-- Here I use a simple workaround to generate various different animated weapons.
-- Animated weapons at different spots ('p' or 'P') will be replaced to a, b, c, d, ... etc
-- So, I can't use characters at the start of the alphebet, and the number of animated wepons is limitted.
defineTile('#', "WALL")
defineTile('+', "DOOR")
defineTile('.', "FLOOR")
defineTile('X', "HARDWALL")
defineTile('!', "DOOR_VAULT")
defineTile('U', "FLOOR", {random_filter={type="armor", add_levels=5, tome_mod="gvault"}}, nil)
defineTile('V', "FLOOR", {random_filter={type="weapon", add_levels=5, tome_mod="gvault"}}, nil)
defineTile('Z', "FLOOR", {random_filter={add_levels=10, tome_mod="gvault"}}, nil)
defineTile('w', "FLOOR", nil, {random_filter={name='blade horror', add_levels=10}})
defineTile('x', "FLOOR", nil, {random_filter={subtype='wight', add_levels=5}})
defineTile('y', "FLOOR", {random_filter={add_levels=10, tome_mod="gvault"}}, {random_filter={subtype='eldritch', add_levels=10}})
defineTile('z', "FLOOR", nil, {random_filter={subtype='skeleton', add_levels=5}})

local def = {
    [[XXXXXXXXXXXXXXX]],
    [[XU#.Vx.#....pZX]],
    [[XP+.p..+.....pX]],
    [[XV#.Ux.##z..y.X]],
    [[X##+######z...X]],
    [[Xp..#..P.##...X]],
    [[X...#p...p##+#X]],
    [[XU.p#.....#z.zX]],
    [[XU..###+###.p.X]],
    [[XpZZ+..w###...X]],
    [[XXXXXXXXXXXX!XX]],
   }
local pd_small = 'a'
local pd_big = 'A'
for x = 1, #(def[1]) do
    for y = 1, #def do
        if def[y]:sub(x, x) == "p" then
            defineTile(pd_small, "FLOOR", nil, make_poltergeist("normal"))
            def[y] = def[y]:sub(1, x-1)..pd_small..def[y]:sub(x+1, #def[y])
            pd_small = string.char(string.byte(pd_small) + 1)
            print(def[y])
        elseif def[y]:sub(x, x) == "P" then
            defineTile(pd_big, "FLOOR", nil, make_poltergeist("greater"))
            def[y] = def[y]:sub(1, x-1)..pd_big..def[y]:sub(x+1, #def[y])
            pd_big = string.char(string.byte(pd_big) + 1)
            print(def[y])
        end
    end
end
return def