Lua Xikini's Free Scripting Service TFS 1.4.2

<event class="Monster" method="onSpawn" enabled="1" />

dofile('data/lib/core/xikiniCustomFunctions.lua')

--[[ quick reference of events

    CREATURE_EVENT_NONE
    CREATURE_EVENT_LOGIN
    CREATURE_EVENT_LOGOUT
    CREATURE_EVENT_THINK
    CREATURE_EVENT_PREPAREDEATH
    CREATURE_EVENT_DEATH
    CREATURE_EVENT_KILL
    CREATURE_EVENT_ADVANCE
    CREATURE_EVENT_MODALWINDOW
    CREATURE_EVENT_TEXTEDIT
    CREATURE_EVENT_HEALTHCHANGE
    CREATURE_EVENT_MANACHANGE
    CREATURE_EVENT_EXTENDED_OPCODE
]]--

function Player:hasEvent(type, name)
    for k, v in pairs(self:getEvents(type)) do
        if v == name then
            return true
        end
    end
    return false
end

local buffs = {
--    [actionId]
    [45007] = {
        tileSpawnShootEffect = CONST_ANI_FIRE,
        tileEffects = {
            CONST_ME_TUTORIALARROW, 
            CONST_ME_TUTORIALSQUARE,
            CONST_ME_HEARTS
        },
        buff = {
            tileDuration = 10, -- seconds (how long the tile remains 'active' before disappearing)
            effect = "damage mitigation",
            duration = 30, -- seconds
            percent = 80   -- 1-100%
        }
    },
    [45008] = {
        tileSpawnShootEffect = CONST_ANI_SUDDENDEATH,
        tileEffects = {
            CONST_ME_TUTORIALARROW, 
            CONST_ME_TUTORIALSQUARE,
            CONST_ME_MORTAREA
        },
        buff = {
            tileDuration = 10,
            effect = "damage increase",
            duration = 30,
            percent = 300  -- 100 = double damage
        }
    }
}

local bosses = {
    ["rat"] = { -- keep names all lowercase
        {
            actionIds = {45007, 45008}, -- actionIds from buffs table
            interval = 3, -- how often it attempts to spawn a buffTile (seconds)
            chance = 100,
            spawnDistance = 7, -- how far away from boss they can spawn
            requireLineOfSight = true, -- basically, can a buff spawn behind a wall?
            location = {
                from = Position(995, 995, 7), -- top left corner -- only registers event to bosses that spawn in this area
                to =   Position(1005, 1005, 7)    -- bottom right corner
            }
        },
--        { -- 2nd boss location with same name
--            actionIds = {11111, 22222},
--            interval = 5,
--            chance = 30,
--            spawnDistance = 7,
--            requireLineOfSight = true,
--            location = {
--                from = Position(1000, 1000, 7),
--                to =   Position(1001, 1001, 7)
--            }
--        }
    },
--    ["some other boss"] = {
--        {
--            actionIds = {11111, 22222},
--            interval = 5,
--            chance = 30,
--            spawnDistance = 7,
--            requireLineOfSight = true,
--            location = {
--                from = Position(1000, 1000, 7),
--                to =   Position(1001, 1001, 7)
--            }
--        }
--    }
}

-- END OF CONFIG --
-- Don't modify below --

local bossTracker = {
--    [bossId] = {index = i, thinkTimer = 0}
}

local activeBossBuffs = {
--    [bossId] = {
--        [playerId] = {
--            {receivedAt = os.mtime(), actionId = 11111}
--        }
--    }
}

local buffedTiles = {
--    [Position(1000, 1000, 7)] = {bossId = 1111, receivedAt = os.mtime()}
}

local function getRandomCircularOffset(maxDistance)
    local angle = math.random() * 2 * math.pi
    local radius = math.random() * maxDistance
    local offsetX = math.floor(radius * math.cos(angle) + 0.5)
    local offsetY = math.floor(radius * math.sin(angle) + 0.5)
    return offsetX, offsetY
end

local function resetTileActionId(position)
    local tile = Tile(position)
    if not tile then
        return
    end
    local ground = tile:getGround()
    if not ground then
        return
    end
    ground:removeAttribute(ITEM_ATTRIBUTE_ACTIONID)
end

local function tileChecker(position, actionId)
    local tileIndex = buffedTiles[position]
    if not tileIndex then
        resetTileActionId(position)
        return
    end
    
    local boss = Creature(tileIndex.bossId)
    if not boss then
        resetTileActionId(position)
        buffedTiles[position] = nil
        return
    end
    
    local index = buffs[actionId]
    if os.mtime() > tileIndex.receivedAt + (1000 * index.buff.tileDuration) then
        resetTileActionId(position)
        buffedTiles[position] = nil
        return true
    end
    
    for i = 1, #index.tileEffects do
        position:sendMagicEffect(index.tileEffects[i])
    end
    
    addEvent(tileChecker, 1000, position, actionId)
end

local function createBuffTile(bossId, bossIndex, actionId)
    local boss = Creature(bossId)
    if not boss then
        return
    end
    
    local bossPosition = boss:getPosition()
    for i = 1, 20 do
        local offsetX, offsetY = getRandomCircularOffset(bossIndex.spawnDistance)
        local x = bossPosition.x + offsetX
        local y = bossPosition.y + offsetY
        local targetPosition = Position(x, y, bossPosition.z)
        
        local tile = Tile(targetPosition)
        if tile and tile:isWalkable() then
            local ground = tile:getGround()
            if ground:getActionId() == 0 then
                local topVisibleCreature = tile:getTopVisibleCreature(boss)
                if not topVisibleCreature or not topVisibleCreature:isPlayer() then
                    if not bossIndex.requireLineOfSight or bossPosition:isSightClear(targetPosition) then
                        ground:setActionId(actionId)
                        bossPosition:sendDistanceEffect(targetPosition, buffs[actionId].tileSpawnShootEffect)
                        buffedTiles[targetPosition] = {bossId = boss:getId(), receivedAt = os.mtime()}
                        tileChecker(targetPosition, actionId)
                        return
                    end
                end
            end
        end
    end
end


local function calculateDamage(damage, damageType, percent, buffType)
    if damageType ~= 0 then
        if buffType == "damage mitigation" then
            return damage - (damage * (percent / 100))
        else
            return damage * ((percent + 100) / 100)
        end
    end
    return damage
end

local function damageCalculator(creature, attacker, primaryDamage, primaryType, secondaryDamage, secondaryType)
    local bossId = creature:isMonster() and creature:getId() or attacker:isMonster() and attacker:getId() or 0
    local index = activeBossBuffs[bossId]
    if index then
        local playerId = creature:isPlayer() and creature:getId() or attacker:isPlayer() and attacker:getId() or 0
        index = index[playerId]
        if index then
            local currentTime = os.mtime()
            local percent = 0
            local buffType = creature:isPlayer() and "damage mitigation" or "damage increase"
            -- loop through all buffs and find highest percent
            for i = #index, 1, -1 do
                local buff = buffs[index[i].actionId].buff
                if (buff.duration * 1000) + index[i].receivedAt > currentTime then
                    if buffType == buff.effect then
                        percent = percent < buff.percent and buff.percent or percent
                    end
                else
                    table.remove(index, i) -- remove inactive buffs
                end
            end
            if percent > 0 then
                primaryDamage = calculateDamage(primaryDamage, primaryType, percent, buffType)
                secondaryDamage = calculateDamage(secondaryDamage, secondaryType, percent, buffType)
            end
        end
    end
    return primaryDamage, secondaryDamage
end


local healthChange = CreatureEvent("onHealthChange_bossTileEffectBuffs")

function healthChange.onHealthChange(creature, attacker, primaryDamage, primaryType, secondaryDamage, secondaryType, origin)
    primaryDamage, secondaryDamage = damageCalculator(creature, attacker, primaryDamage, primaryType, secondaryDamage, secondaryType)
    return primaryDamage, primaryType, secondaryDamage, secondaryType
end

healthChange:register()


local manaChange = CreatureEvent("onManaChange_bossTileEffectBuffs")

function manaChange.onManaChange(creature, attacker, primaryDamage, primaryType, secondaryDamage, secondaryType, origin)
    primaryDamage, secondaryDamage = damageCalculator(creature, attacker, primaryDamage, primaryType, secondaryDamage, secondaryType)
    return primaryDamage, primaryType, secondaryDamage, secondaryType
end

manaChange:register()

local creatureevent = CreatureEvent("onDeath_bossTileEffectBuffs")

function creatureevent.onDeath(creature, corpse, killer, mostDamageKiller, lastHitUnjustified, mostDamageUnjustified)
    -- check if all bosses are dead
    local playerIds = {}
    for bossId, players in pairs(activeBossBuffs) do
        local creature = Creature(bossId)
        if creature then
            return true
        end
        for playerId, _ in pairs(players) do
            playerIds[playerId] = 0
        end
    end
    
    -- all bosses confirmed dead
    
    -- remove registered events from players
    for playerId, _ in pairs(playerIds) do
        local player = Player(playerId)
        if player then
            player:unregisterEvent("onHealthChange_bossTileEffectBuffs")
            player:unregisterEvent("onManaChange_bossTileEffectBuffs")
        end
    end
    
    -- remove any remaining active tiles
    for position, _ in pairs(buffedTiles) do
        local tile = Tile(position)
        if tile then
            local ground = tile:getGround()
            ground:removeAttribute(ITEM_ATTRIBUTE_ACTIONID)
        end
    end
    
    -- and reset all tables
    bossTracker = {}
    activeBossBuffs = {}
    buffedTiles = {}
    return true
end

creatureevent:register()


local creatureevent = CreatureEvent("onThink_bossTileEffectBuffs")

function creatureevent.onThink(creature, interval)
    local bossId = creature:getId()
    
    -- have to add this here, because onSpawn doesn't let you get the creatures Id, because it hasn't been created yet.. fully.  idk lol
    if not bossTracker[bossId] then
        local index = bosses[creature:getName():lower()]
        if index then
            local position = creature:getPosition()
            for i = 1, #index do
                if position:isInRange(index[i].location.from, index[i].location.to) then
                    bossTracker[creature:getId()] = {index = i, thinkTimer = 0}
                    break
                end
            end
        end
    end
    
    local bossIndex = bosses[creature:getName():lower()][bossTracker[bossId].index]
    
    bossTracker[bossId].thinkTimer = bossTracker[bossId].thinkTimer + interval
    if bossTracker[bossId].thinkTimer >= bossIndex.interval * 1000 then
        bossTracker[bossId].thinkTimer = bossTracker[bossId].thinkTimer - (bossIndex.interval * 1000)
        if math.random(100) <= bossIndex.chance then
            local actionId = bossIndex.actionIds[math.random(#bossIndex.actionIds)]
            createBuffTile(bossId, bossIndex, actionId)
        end
    end
    return true
end

creatureevent:register()


local moveevent = MoveEvent()

function moveevent.onStepIn(creature, item, position, fromPosition)
    if not isPlayer(creature:getId()) then
        return true
    end
    
    local tileActionId = item:getActionId()
    local index = buffs[tileActionId]
    item:removeAttribute(ITEM_ATTRIBUTE_ACTIONID)
    
    if not index then
        print("Error: ActionId not in table. (" .. tileActionId .. ")") -- shouldn't be possible.. but :shrug
        return true
    end
    
    -- work-around to ensure position tables are the same.
    for k, v in pairs(buffedTiles) do
        if position.x == k.x and position.y == k.y and position.z == k.z then
            position = k
        end
    end
    
    if not buffedTiles[position] then
        return true
    end
    
    local boss = Creature(buffedTiles[position].bossId)
    if not boss then
        buffedTiles[position] = nil
        return true
    end
    
    local currentTime = os.mtime()
    if currentTime > buffedTiles[position].receivedAt + (1000 * index.buff.tileDuration) then
        buffedTiles[position] = nil
        return true
    end
    
    local bossId = buffedTiles[position].bossId
    if not activeBossBuffs[bossId] then
        activeBossBuffs[bossId] = {}
    end
    
    local playerId = creature:getId()
    if not activeBossBuffs[bossId][playerId] then
        if not creature:hasEvent(CREATURE_EVENT_HEALTHCHANGE, "onHealthChange_bossTileEffectBuffs") then
            creature:registerEvent("onHealthChange_bossTileEffectBuffs")
        end
        if not creature:hasEvent(CREATURE_EVENT_MANACHANGE, "onManaChange_bossTileEffectBuffs") then
            creature:registerEvent("onManaChange_bossTileEffectBuffs")
        end
        activeBossBuffs[bossId][playerId] = {}
    end
    
    table.insert(activeBossBuffs[bossId][playerId], {receivedAt = currentTime, actionId = tileActionId})
    buffedTiles[position] = nil
    creature:say(buffs[tileActionId].buff.effect .. "\n" .. buffs[tileActionId].buff.duration .. " seconds", TALKTYPE_MONSTER_SAY)
    return true
end

for actionId, _ in pairs(buffs) do
    moveevent:aid(actionId)
end
moveevent:register()


local eventCallback = EventCallback

function eventCallback.onSpawn(creature, position, startup, artificial)
    local index = bosses[creature:getName():lower()]
    if index then
        for i = 1, #index do
            if position:isInRange(index[i].location.from, index[i].location.to) then
                creature:registerEvent("onDeath_bossTileEffectBuffs")
                creature:registerEvent("onHealthChange_bossTileEffectBuffs")
                creature:registerEvent("onThink_bossTileEffectBuffs")
                return true
            end
        end
    end
    return true
end

eventCallback:register(-666)

local BUTTON_SAVE = 100
local BUTTON_TELEPORT = 101
local BUTTON_CANCEL = 102

local TELEPORT_STORAGE = 54646
local KEY_PREFIX = "TeleportPos_"
local MAX_POSITIONS = 3

function createTeleportModal(player)
    local modal = ModalWindow(100, "Teleport-Pos", "Choose a position to teleport:")
    modal:addButton(BUTTON_SAVE, "Save")
    modal:addButton(BUTTON_TELEPORT, "Teleport")
    modal:addButton(BUTTON_CANCEL, "Cancel")

    for i = 1, MAX_POSITIONS do
        local coordinates = getSavedCoordinates(player, i)
        if coordinates then
            modal:addChoice(i, "Position " .. i .. ": (" .. coordinates.x .. ", " .. coordinates.y .. ", " .. coordinates.z .. ")")
        end
    end

    modal:setDefaultEnterButton(BUTTON_TELEPORT)
    modal:setDefaultEscapeButton(BUTTON_CANCEL)

    modal:sendToPlayer(player)
end

local tpModal = CreatureEvent("Teleport-Pos")

function tpModal.onModalWindow(player, modalWindowId, buttonId, choiceId)
    if modalWindowId == 100 then
        if buttonId == BUTTON_SAVE then
            local x, y, z = player:getPosition().x, player:getPosition().y, player:getPosition().z
            if saveCoordinates(player, choiceId, {x = x, y = y, z = z}) then
                player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Position saved successfully!")
            else
                player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Failed to save the position.")
            end
        elseif buttonId == BUTTON_TELEPORT then
            local coordinates = getSavedCoordinates(player, choiceId)
            if coordinates then
                tpBack(player, nil, nil, nil, nil)
            else
                player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Position not found.")
            end
        elseif buttonId == BUTTON_CANCEL then
            player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "Action canceled.")
        end
    end
end

tpModal:register()

local tp = Action()


function tp.onUse(player, item, fromPosition, itemEx, toPosition, isHotkey)
    createTeleportModal(player)
    return true
end


function saveCoordinates(player, index, coordinates)
    if index > 0 and index <= MAX_POSITIONS then
        player:setStorageValue(TELEPORT_STORAGE, KEY_PREFIX .. index .. "_x", coordinates.x)
        player:setStorageValue(TELEPORT_STORAGE, KEY_PREFIX .. index .. "_y", coordinates.y)
        player:setStorageValue(TELEPORT_STORAGE, KEY_PREFIX .. index .. "_z", coordinates.z)
        return true
    end
    return false
end


function getSavedCoordinates(player, index)
    if index > 0 and index <= MAX_POSITIONS then
        local x = player:getStorageValue(TELEPORT_STORAGE, KEY_PREFIX .. index .. "_x")
        local y = player:getStorageValue(TELEPORT_STORAGE, KEY_PREFIX .. index .. "_y")
        local z = player:getStorageValue(TELEPORT_STORAGE, KEY_PREFIX .. index .. "_z")
        if x ~= nil and y ~= nil and z ~= nil then
            return {x = x, y = y, z = z}
        end
    end
    return nil
end

tp:id(39557)
tp:register()

    <script>
        <event name="onDeath_BonusLootorExperience" />
    </script>

local ec = EventCallback

ec.onDropLoot = function(self, corpse)
    if configManager.getNumber(configKeys.RATE_LOOT) == 0 then
        return
    end

    local player = Player(corpse:getCorpseOwner())
    local mType = self:getType()
    if not player or player:getStamina() > 840 then
        local boostedLootMultiplier = player and player:getStorageValue(GLOBAL_BonusLootorExperience.loot) > os.time() and 1 + (GLOBAL_BonusLootorExperience.lootBoost / 100) or 1
        local monsterLoot = mType:getLoot()
        for i = 1, #monsterLoot do
            if monsterLoot[i].chance then
                monsterLoot[i].chance = math.min(monsterLoot[i].chance * boostedLootMultiplier, MAX_LOOTCHANCE)
            end
            local item = corpse:createLootItem(monsterLoot[i])
            if not item then
                print('[Warning] DropLoot:', 'Could not add loot item to corpse.')
            end
        end

        if player then
            local text = ("Loot of %s: %s"):format(mType:getNameDescription(), corpse:getContentDescription())
            local party = player:getParty()
            if party then
                party:broadcastPartyLoot(text)
            else
                player:sendTextMessage(MESSAGE_LOOT, text)
            end
        end
    else
        local text = ("Loot of %s: nothing (due to low stamina)"):format(mType:getNameDescription())
        local party = player:getParty()
        if party then
            party:broadcastPartyLoot(text)
        else
            player:sendTextMessage(MESSAGE_LOOT, text)
        end
    end
end

ec:register()

GLOBAL_BonusLootorExperience = {
    experience = 45009,
    experienceBoost = 10, -- percent
    experienceTimer = 30, -- minutes
    loot = 45010,
    lootBoost = 10, -- percent
    lootTimer = 30 -- minutes
}


local ec = EventCallback

ec.onGainExperience = function(self, source, exp, rawExp)
    if not source:isMonster() then
        return exp
    end
    if self:getStorageValue(GLOBAL_BonusLootorExperience.experience) > os.time() then
        local percent = 1 + (GLOBAL_BonusLootorExperience.experienceBoost / 100)
        exp = exp * percent
    end
    return exp
end

ec:register()


local creatureevent = CreatureEvent("onDeath_BonusLootorExperience")

function creatureevent.onDeath(creature, corpse, killer, mostDamageKiller, lastHitUnjustified, mostDamageUnjustified)
    if not isPlayer(killer) then
        return true
    end
    local rand = math.random(2)
    local storageKey = rand == 2 and GLOBAL_BonusLootorExperience.experience or GLOBAL_BonusLootorExperience.loot
    local storageTimer = rand == 2 and GLOBAL_BonusLootorExperience.experienceTimer or GLOBAL_BonusLootorExperience.lootTimer
    killer:setStorageValue(storageKey, os.time() + (60 * storageTimer))
    Game.broadcastMessage(killer:getName() .. " has killed " .. creature:getName() .." and received increased " .. (rand == 2 and "experience" or "loot") .. " for " .. storageTimer .. " minutes!")
    return true
end

creatureevent:register()