Lua Xikini's Free Scripting Service TFS 1.4.2

local bossCheckerItemId = 39674

local config = {
    modalWindow = {
        id = 1000,
        title = "Boss Checker",
        message = "Choose a boss to check:",
        eventText = "ModalWindow_BossChecker",
        buttons = {
            {text = "Check Time"},
            {text = "Reset Time"},
            {text = "Cancel"},
        }
    },
    bossStorage = {
        [1] = {name = "Dark Cleric", storage = 1001, respawnTime = 1800},
        [2] = {name = "Morgaroth", storage = 1002, respawnTime = 2400},
        [3] = {name = "Troll", storage = 1003, respawnTime = 3600}
      
    }
}

local function createBossCheckerWindow(playerId)
    local player = Player(playerId)
    if not player then
        return
    end

    if player:hasEvent(CREATURE_EVENT_MODALWINDOW, config.modalWindow.eventText) then
        player:unregisterEvent(config.modalWindow.eventText)
    end
    player:registerEvent(config.modalWindow.eventText)
    
    local modalWindow = ModalWindow(config.modalWindow.id, config.modalWindow.title, config.modalWindow.message)
    
    for id, button in ipairs(config.modalWindow.buttons) do
        modalWindow:addButton(id, button.text)
        if button.defaultEscapeButton then
            modalWindow:setDefaultEscapeButton(id)
        end
    end       

    for bossId, boss in ipairs(config.bossStorage) do
        modalWindow:addChoice(bossId, boss.name)
    end
    
    modalWindow:hasPriority()
    modalWindow:sendToPlayer(player)
end

local function showBossStatusModal(player, bossName, status, timeToRespawn)
    local modalWindow = ModalWindow(2000, "Boss Status", bossName .. " - Status: " .. status .. " - Respawn in: " .. timeToRespawn .. "s")
    modalWindow:setDefaultEscapeButton(101)

    local function onClose(buttonId)
        if buttonId == 100 then
            print("Closing Boss Status Modal")
        elseif buttonId == 101 then
            print("Returning to Boss Checker Window")
            addEvent(createBossCheckerWindow, 100, player:getId())
        end
    end
    
    modalWindow:addButton(100, "Close", onClose)
    modalWindow:addButton(102, "Back", onClose)
    
    modalWindow:sendToPlayer(player)
end


local action = Action()

function action.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    if item.itemid == bossCheckerItemId then
        createBossCheckerWindow(player:getId())
        return true
    end
    return false
end

action:id(bossCheckerItemId)
action:register()

local creatureEvent = CreatureEvent(config.modalWindow.eventText)

function creatureEvent.onModalWindow(player, modalWindowId, buttonId, choiceId)
    player:unregisterEvent(config.modalWindow.eventText)
    
    if modalWindowId == config.modalWindow.id then
        local buttonChoice = config.modalWindow.buttons[buttonId].text
        local boss = config.bossStorage[choiceId]
        
        if buttonChoice == "Check Time" then
            local lastKilled = player:getStorageValue(boss.storage)
            local remainingTime = boss.respawnTime - (os.time() - lastKilled)
            local status = remainingTime > 0 and "Alive" or "Dead"
            local timeToRespawn = remainingTime > 0 and remainingTime or 0
            showBossStatusModal(player, boss.name, status, timeToRespawn)
            
        elseif buttonChoice == "Reset Time" then
            player:setStorageValue(boss.storage, -1)
        elseif buttonChoice == "Cancel" then
            return true
        end
        
        createBossCheckerWindow(player:getId())
        return true
    elseif modalWindowId == 2000 then
        if buttonId == 100 then
            createBossCheckerWindow(player:getId())
            return true
        elseif buttonId == 101 then
            addEvent(createBossCheckerWindow, 100, player:getId())
            return true
        end
    end
    return true
end


creatureEvent:register()

local backpacks = {
    ["brown"] = {itemId = 1988, price = 20},
    ["crown"] = {itemId = 10522, price = 10000}
}

-- END OF CONFIG

local playerConfirmation = {}

local function getItemNameString(item)
    return item:getNameDescription(item:getSubType(), true)
end

local talkaction = TalkAction("!backpack")

function talkaction.onSay(player, words, param, type)
   
    if param == "" then
        param = "brown" -- aka: default backpack
    end
   
    param = param:lower()
    local playerId = player:getId()
    local index = playerConfirmation[playerId]
    playerConfirmation[playerId] = nil   
   
    if param == "confirm" and index then
        if player:getTotalMoney() < backpacks[index].price then
            player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, "You do not have sufficient funds to purchase this item.")
            return false
        end
        local backpack = Game.createItem(backpacks[index].itemId, 1)
        if player:addItemEx(backpack, false) ~= RETURNVALUE_NOERROR then
            player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, "You do not have sufficient room or capacity to receive this item.")
            return false
        end
        player:removeTotalMoney(backpacks[index].price)
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "You have purchased " .. getItemNameString(backpack) .. " for " .. backpacks[index].price .. " gold.")
        return false
    elseif param == "list" then
        local text = ""
        for k, v in pairs(backpacks) do
            if text ~= "" then
                text = text .. "\n"
            end
            text = text .. k .. " backpack - " .. v.price .. " gold"
        end
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "Here is the list of backpacks.")
        player:showTextDialog(1988, "List of backpacks:\n\n" .. text)
        return false
    end
   
    index = backpacks[param]
   
    if not index then
        player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, "There is no backpack named " .. param .. ".")
        return false
    end
   
    playerConfirmation[playerId] = param
    player:sendTextMessage(MESSAGE_STATUS_CONSOLE_BLUE, "Would you like to purchase a " .. param .. " backpack for " .. index.price .. " gold?")
    player:sendTextMessage(MESSAGE_STATUS_CONSOLE_ORANGE, "To finalise the purchase use !backpack confirm")
    return false
end

talkaction:separator(" ")
talkaction:register()

local config = {
    actionId = 45036,
    rotateMonster = "cat",
    rotateItems = {7163, 7166, 7165, 7164}, -- needs to have 4 items (south, west, north, east)
    teleport = {
        duration = 120, -- seconds
        spawnPosition = Position(965, 1019, 7),
        destination = Position(1000, 1000, 7) -- reward area?
    },
    requiredRotatedItems = {
        {itemId = 7166, position = Position(973, 1008, 7)},
        {itemId = 7163, position = Position(967, 1008, 7)},
        {itemId = 7164, position = Position(967, 1014, 7)},
        {itemId = 7163, position = Position(972, 1014, 7)}, -- if all of these are correct items, then open portal
        {itemId = 7166, position = Position(972, 1018, 7)},
        {itemId = 7165, position = Position(962, 1018, 7)},
        {itemId = 7165, position = Position(962, 1009, 7)},
        {itemId = 7166, position = Position(962, 1004, 7)}
    },
    area = {
        from = Position(957, 1004, 7), -- the event area
        to = Position(973, 1019, 7)
    },
    lever = {
        left = 1945,
        right = 1946,
        playerArea = {
            from = Position(982, 1013, 7), -- area around lever
            to = Position(988, 1019, 7)
        },
        position = Position(985, 1016, 7),
        destination = Position(957, 1019, 7)
    },
    kickTimer = 900, -- seconds
    kickPosition = Position(1000, 1000, 7)
}

-- END OF CONFIG

local event_players = {}
local event_kickPlayers = -1

local function rotateItem(item, rotateRandomDirection)
    local itemId = item:getId()
    if rotateRandomDirection then
        itemId = config.rotateItems[math.random(#config.rotateItems)]
    else
        for i = 1, #config.rotateItems do
            if config.rotateItems[i] == itemId then
                if i == 4 then
                    i = 0
                end
                itemId = config.rotateItems[i + 1]
                break
            end
        end
    end
    item:transform(itemId)
end

local function randomRotateAllItemsInArea(from, to)
    for x = from.x, to.x do
        for y = from.y, to.y do
            for z = from.z, to.z do
                local position = Position(x, y, z)
                local tile = Tile(position)
                if tile then
                    for _, itemId in pairs(config.rotateItems) do
                        local rotatableItem = tile:getItemById(itemId)
                        if rotatableItem then
                            rotateItem(rotatableItem, true)
                            break
                        end
                    end
                end
            end
        end
    end
end

local function isAllObjectsRotatedCorrectly()
    for k, v in pairs(config.requiredRotatedItems) do
        if not Tile(v.position):getItemById(v.itemId) then
            return false
        end
    end
    return true
end

local function createTimedPortal(position, destination, timer, portalSpawned)
    if not portalSpawned then
        local teleport = Game.createItem(1387, 1, position)
        teleport:setDestination(destination)
        teleport:setActionId(config.actionId)
        portalSpawned = true
    end
    local portal = Tile(position):getItemById(1387)
    if portal then
        if timer % 5 == 0 and timer ~= 0 then
            for _, creature in pairs(Game.getPlayers()) do
                creature:say(timer, TALKTYPE_MONSTER_SAY, false, nil, position)
                break
            end
        end
        if timer > 0 then
            addEvent(createTimedPortal, 1000, position, destination, timer - 1, portalSpawned)
            return
        end
        portal:remove()
    end
end

local function kickEventPlayers()
    for k, v in pairs(event_players) do
        local player = Player(k)
        if player then
            player:teleportTo(config.kickPosition)
        end
    end
end

local function resetEvent(forceStop)
    if forceStop then
        kickEventPlayers()
        event_players = {}
    end
    
    if next(event_players) == nil then
        if event_kickPlayers ~= -1 then
            stopEvent(event_kickPlayers)
        end
        event_kickPlayers = -1
    end    
    
    local portal = Tile(config.teleport.spawnPosition):getItemById(1387)
    if portal then
        portal:remove()
    end
    
    randomRotateAllItemsInArea(config.area.from, config.area.to)
    
    local lever = Tile(config.lever.position):getItemById(config.lever.right)
    if lever then
        lever:transform(config.lever.left)
    end
end

local function sendMessageToEventPlayers(message, messageType)   
    for _player, _ in pairs(event_players) do
        local player = Player(_player)
        if player then
            player:sendTextMessage(messageType, message)
        end
    end
end


local action = Action()

function action.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    if item:getId() == config.lever.right then
       
        return
    end
    item:transform(config.lever.right)
   
    -- get all players, teleport, and register
    local spectators = Game.getSpectators(item:getPosition(), false, true)
    for i = 1, #spectators do
        local spectator = spectators[i]
        if spectator:getPosition():isInRange(config.lever.playerArea.from, config.lever.playerArea.to) then
            spectator:teleportTo(config.lever.destination)
            event_players[spectator:getId()] = 0
        end
    end
   
    event_kickPlayers = addEvent(resetEvent, config.kickTimer * 1000, true)
    return true
end

action:aid(config.actionId)
action:register()


local moveevent = MoveEvent()

function moveevent.onStepIn(creature, item, position, fromPosition)
    local itemId = item:getId()
    if itemId == config.lever.left or itemId == config.lever.right then
        return true
    end       

    if itemId == 1387 then
        if not creature:isPlayer() then
            return true
        end
        event_players[creature:getId()] = nil
        if next(event_players) == nil then
            resetEvent()
        end
        return true
    end

    if not creature:isMonster() then
        return true
    end
   
    local monsterName = creature:getName():lower()
    if config.rotateMonster:lower() ~= monsterName then
        return true
    end
   
    if Tile(config.teleport.spawnPosition):getItemById(1387) then
        return true
    end

    for direction = 0, 3 do
        local checkPosition = Position(position)
        checkPosition:getNextPosition(direction)
        local tile = Tile(checkPosition)
        if tile then
            for _, itemId in pairs(config.rotateItems) do
                local rotatableItem = tile:getItemById(itemId)
                if rotatableItem then
                    rotateItem(rotatableItem)
                    break
                end
            end
        end
    end
   
    if not isAllObjectsRotatedCorrectly() then
        return true
    end
   

    createTimedPortal(config.teleport.spawnPosition, config.teleport.destination, config.teleport.duration)
    addEvent(randomRotateAllItemsInArea, config.teleport.duration * 1000, config.area.from, config.area.to)
    sendMessageToEventPlayers("The portal has been activated!\nGo through it quickly!", MESSAGE_INFO_DESCR)
    return true
end

moveevent:aid(config.actionId)
moveevent:register()


local creatureevent = CreatureEvent("onLogin_MadusaRequest")

function creatureevent.onLogin(player)
    if player:getPosition():isInRange(config.area.from, config.area.to) then
        player:teleportTo(config.kickPosition)
    end
    return true
end

creatureevent:register()



local globalevent = GlobalEvent("onStartUp_MadusaRequest")

function globalevent.onStartup()
    randomRotateAllItemsInArea(config.area.from, config.area.to)
    return true
end

globalevent:register()

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 = 1
        local corpsePosition = corpse:getPosition()
        if Game.getStorageValue(GLOBAL_BonusLootandExperience.globalStorage) > os.time() then
            for k, v in pairs(GLOBAL_BonusLootandExperience.areas) do
                if corpsePosition:isInRange(v.from, v.to) then
                    boostedLootMultiplier = 1 + (GLOBAL_BonusLootandExperience.lootBoost / 100)
                    break
                end
            end
        end
        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_BonusLootandExperience = {
    globalStorage = 45037,
    experienceBoost = 100, -- percent
    lootBoost = 100, -- percent
    areas = {
        {from = Position(936, 1006, 7), to = Position(947, 1017, 7)},
        --{from = Position(1000, 1000, 7), to = Position(1000, 1000, 7)}
    },
    
    endTime = 0 -- don't modify
}

local config = {
    rift = {
        itemId = 1387, -- any portal item
        duration = 120,
        spawnPosition = Position(988, 995, 7),
        destination = Position(941, 1007, 7)
    },
    monsters = {
        {name = "rotworm", position = Position(940, 1010, 7)},
        {name = "troll", position = Position(943, 1010, 7)}
    },
    riftRewardTimer = 30 -- minutes (how long the bonus loot and experience lasts)
}

-- END OF CONFIG

local riftMonsters = {}

local function createTimedRift(position, destination, timer, riftId, riftSpawned)
    if not riftSpawned then
        local rift = Game.createItem(riftId, 1, position)
        rift:setDestination(destination)
        riftSpawned = true
    end
    local rift = Tile(position):getItemById(riftId)
    if rift then
        if timer % 5 == 0 and timer ~= 0 then
            for _, creature in pairs(Game.getPlayers()) do
                creature:say(timer, TALKTYPE_MONSTER_SAY, false, nil, position)
                break
            end
        end
        if timer > 0 then
            addEvent(createTimedRift, 1000, position, destination, timer - 1, riftId, riftSpawned)
            return
        end
        rift:remove()
    end
end

local function spawnRift()
    for k, v in pairs(config.monsters) do
        print(v.name, v.position.x, v.position.y)
        local monster = Game.createMonster(v.name, v.position, true, true)
        if monster then
            riftMonsters[monster:getId()] = 0
            monster:registerEvent("onDeath_riftMonsters")
        end
    end
    createTimedRift(config.rift.spawnPosition, config.rift.destination, config.rift.duration, config.rift.itemId)
end

local function riftReward()
    Game.setStorageValue(GLOBAL_BonusLootandExperience.globalStorage, os.time() + (config.riftRewardTimer * 60))
    Game.broadcastMessage(string.format("All rift monsters were killed! Monsters in specific areas now give %s%% increased experience and %s%% increased loot!", GLOBAL_BonusLootandExperience.experienceBoost, GLOBAL_BonusLootandExperience.lootBoost))
end


local creatureevent = CreatureEvent("onDeath_riftMonsters")

function creatureevent.onDeath(creature, corpse, killer, mostDamageKiller, lastHitUnjustified, mostDamageUnjustified)
    riftMonsters[creature:getId()] = nil
    if next(riftMonsters) == nil then
        riftReward()
    end
    return true
end

creatureevent:register()


local globalevent = GlobalEvent("onStartUp_riftMonsters")

function globalevent.onStartup()
    Game.setStorageValue(GLOBAL_BonusLootandExperience.globalStorage, 0)
    return true
end

globalevent:register()


local ec = EventCallback

ec.onGainExperience = function(self, source, exp, rawExp)
    if not source:isMonster() then
        return exp
    end
    if Game.getStorageValue(GLOBAL_BonusLootandExperience.globalStorage) > os.time() then
        local percent = 1 + (GLOBAL_BonusLootandExperience.experienceBoost / 100)
        exp = exp * percent
        print("bonus experience working?")
    end
    return exp
end

ec:register()



local action = Action()

function action.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    spawnRift()
    return true
end

action:id(2173)
action:register()

local evolvingWeapons = {
    [2376] = {
        ["Gobblin' These Nuts"] = {
            evolve = {
                killsRequired = 20,
                newDescription = "With your wanton cravings out of whack, you gobble up all the nuts and deal increased damage.",
                monsters = {
                    ["goblin lord"] = {value = 20},
                    ["goblin"] = {value = 1},
                    ["goblin assassin"] = {value = 1}
                }
            },
            bonuses = {
                increasedDamagePercent = 100,
                affectedMonsters = {"goblin", "goblin assassin"}
            }
        },
        ["Dragon Poker"] = {
            evolve = {
                killsRequired = 20,
                newDescription = "Poking dragons bum for increased damage. :D",
                monsters = {
                    ["demodras"] = {value = 20},
                    ["dragon"] = {value = 1},
                    ["dragon lord"] = {value = 2}
                }
            },
            bonuses = {
                increasedDamagePercent = 100,
                affectedMonsters = {"dragon", "dragon lord"}
            }
        }       
    }
}

-- END OF CONFIG

local affectedMonsters = {}

for itemId, weapons in pairs(evolvingWeapons) do
    for weaponName, weaponDetails in pairs(weapons) do
        -- recreate monster table with lowercase letters
        local newMonsters = {}
        for monsterName, monsterDetails in pairs(weaponDetails.evolve.monsters) do
            newMonsters[monsterName:lower()] = monsterDetails
        end
        weaponDetails.evolve.monsters = newMonsters
        -- update all affected monster with lowercase letters
        if weaponDetails.bonuses and weaponDetails.bonuses.affectedMonsters then
            for i, monsterName in ipairs(weaponDetails.bonuses.affectedMonsters) do
                weaponDetails.bonuses.affectedMonsters[i] = monsterName:lower()
                affectedMonsters[weaponDetails.bonuses.affectedMonsters[i]] = 0
            end
        end
    end
end

local function sendDelayedMessage(creatureId, message)
    local creature = Creature(creatureId)
    if not creature then
        return
    end
    creature:sendTextMessage(MESSAGE_INFO_DESCR, message)
end


local creatureevent = CreatureEvent("onKill_evolvingWeapons")

function creatureevent.onKill(creature, target)
    if not target:isMonster() then
        return true
    end
   
    local weapon = creature:getSlotItem(CONST_SLOT_LEFT)
    if not weapon then
        return true
    end
   
    if weapon:getCustomAttribute("EVOLVED_WEAPON") then
        return true
    end
   
    local index = evolvingWeapons[weapon:getId()]
    if not index then
        return true
    end
   
    local monsterName = target:getName():lower()   
    local evolveEvents = {
        -- {evolveName = "", totalKills = 0}
    }
   
    for k, v in pairs(index) do
        local totalKills = weapon:getCustomAttribute(k)
        totalKills = totalKills and totalKills or 0
        if v.evolve.monsters[monsterName] then
            totalKills = totalKills + v.evolve.monsters[monsterName].value
            weapon:setCustomAttribute(k, totalKills)
        end
        if totalKills >= v.evolve.killsRequired then
            evolveEvents[#evolveEvents + 1] = {evolveName = k, totalKills = totalKills}
        end
    end
   
    table.sort(evolveEvents, function(a, b) return a.totalKills > b.totalKills end)
   
    if not evolveEvents[1] or evolveEvents[2] and evolveEvents[1].totalKills == evolveEvents[2].totalKills then
        return true
    end
   
    for k, _ in pairs(index) do
        if weapon:getCustomAttribute(k) then
            weapon:removeCustomAttribute(k)
        end
    end
   
    local itemName = ItemType(weapon:getId()):getName()
    local text = string.format("Your %s evolved into %s!", itemName, evolveEvents[1].evolveName)
    addEvent(sendDelayedMessage, 0, creature:getId(), text)
    weapon:setAttribute(ITEM_ATTRIBUTE_NAME, evolveEvents[1].evolveName)
    weapon:setAttribute(ITEM_ATTRIBUTE_DESCRIPTION, index[evolveEvents[1].evolveName].evolve.newDescription)
    weapon:setCustomAttribute("EVOLVED_WEAPON", evolveEvents[1].evolveName)
    return true
end

creatureevent:register()


local creatureevent = CreatureEvent("onLogin_evolvingWeapons")

function creatureevent.onLogin(player)
    player:registerEvent("onKill_evolvingWeapons")
    return true
end

creatureevent:register()



local creatureevent = CreatureEvent("onHealthChange_evolvingWeapons")

function creatureevent.onHealthChange(creature, attacker, primaryDamage, primaryType, secondaryDamage, secondaryType, origin)
    if not isPlayer(attacker) then
        return primaryDamage, primaryType, secondaryDamage, secondaryType
    end
   
    local weapon = attacker:getSlotItem(CONST_SLOT_LEFT)
    if not weapon then
        return primaryDamage, primaryType, secondaryDamage, secondaryType
    end
   
    local evolvedWeapon = weapon:getCustomAttribute("EVOLVED_WEAPON")
    if not evolvedWeapon then
        return primaryDamage, primaryType, secondaryDamage, secondaryType
    end
   
    local index = evolvingWeapons[weapon:getId()][evolvedWeapon].bonuses
    if not table.contains(index.affectedMonsters, creature:getName():lower()) then
        return primaryDamage, primaryType, secondaryDamage, secondaryType
    end
   
    primaryDamage = primaryDamage * ((index.increasedDamagePercent + 100) / 100)
    secondaryDamage = secondaryDamage * ((index.increasedDamagePercent + 100) / 100)
    return primaryDamage, primaryType, secondaryDamage, secondaryType
end

creatureevent:register()



local eventCallback = EventCallback

function eventCallback.onSpawn(creature, position, startup, artificial)
    if affectedMonsters[creature:getName():lower()] then
        creature:registerEvent("onHealthChange_evolvingWeapons")
    end
    return true
end

eventCallback:register(-666)