Lua Xikini's Free Scripting Service TFS 1.4.2

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

function Position:isIdentical(position)
    if self.x == position.x and self.y == position.y and self.z == position.z then
        return true
    end
    return false
end

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Nugo" script="nugo.lua" walkinterval="2000" floorchange="0">
    <health now="100" max="100" />
    <look type="139" head="20" body="39" legs="45" feet="7" addons="0" />
</npc>

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)

function onCreatureAppear(cid)              npcHandler:onCreatureAppear(cid)            end
function onCreatureDisappear(cid)           npcHandler:onCreatureDisappear(cid)         end
function onCreatureSay(cid, type, msg)      npcHandler:onCreatureSay(cid, type, msg)    end
function onThink()                          npcHandler:onThink()                        end

local function greetCallback(cid)
    local player = Player(cid)
    npcHandler.topic[cid] = 0
    return true
end

-- if you give the NPC 15 red apples, he will give you a storage
-- -1 means you haven't started the quest
-- 0 means you have started but not finished
-- 1 means you finished the quest
local config = {
    storageKey = 45020,
    requiredItemId = 2674, -- red apple
    requiredAmount = 15
}

local function creatureSayCallback(cid, type, msg)
    if not npcHandler:isFocused(cid) then
        return false
    end

    local player = Player(cid)
    local storageValue = player:getStorageValue(config.storageKey)
    
    if msgcontains(msg, "quest") then
        if storageValue == -1 then
            npcHandler:say("Would you like to help me?", cid)
            npcHandler.topic[cid] = 1
        elseif storageValue == 0 then
            npcHandler:say("Have you brought the 15 apples?", cid)
            npcHandler.topic[cid] = 1
        else
            npcHandler:say("Thanks for the help earlier, but I have nothing else for you.", cid)
            npcHandler.topic[cid] = 0
        end
        
    elseif npcHandler.topic[cid] == 1 then
        if storageValue == -1 then
            if msgcontains(msg, "yes") then
                npcHandler:say("Alright, thanks! Bring me 15 red apples and ask about {quest} again.", cid)
                player:setStorageValue(config.storageKey, 0)
            else
                npcHandler:say("Guess not.", cid)
            end
        else
            if msgcontains(msg, "yes") then
                if player:getItemCount(config.requiredItemId) >= config.requiredAmount then
                    player:removeItem(config.requiredItemId, config.requiredAmount)
                    player:setStorageValue(config.storageKey, 1)
                    npcHandler:say("Thanks! Here's your quest storage. Enjoy!", cid)
                else
                    npcHandler:say("You don't seem to have enough red apples. Come back when you have them.", cid)
                end
            else
                npcHandler:say("Guess not.", cid)
            end
        end
        npcHandler.topic[cid] = 0

    end
    return true
end

local function onAddFocus(cid)

end

local function onReleaseFocus(cid)

end

npcHandler:setCallback(CALLBACK_ONADDFOCUS, onAddFocus)
npcHandler:setCallback(CALLBACK_ONRELEASEFOCUS, onReleaseFocus)

npcHandler:setCallback(CALLBACK_GREET, greetCallback)
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

local config = {
    actionId = 45019,
    leverItemIds = {left = 1945, right = 1946},
    leverPositions = {
        Position(1004, 999, 7),
        Position(1005, 999, 7),
        Position(1006, 999, 7), -- use the levers in correct order
        Position(1007, 999, 7),
        Position(1008, 999, 7)
    },
    respawnTime = 5,
    removeItems = {
        {itemId = 1026, position = Position(1004, 998, 7)}, -- then all of these positions and items will get removed (use walls / items that can't be moved)
        {itemId = 1026, position = Position(1005, 998, 7)},
        {itemId = 1026, position = Position(1006, 998, 7)},
        {itemId = 1026, position = Position(1007, 998, 7)},
        {itemId = 1026, position = Position(1008, 998, 7)}
    }
}

local lastUsedLever = 0

local function resetAllLevers()
    lastUsedLever = 0
    for i = 1, #config.leverPositions do
        local tile = Tile(config.leverPositions[i])
        if not tile then
            print("Error, tile not found! Error: 45000888")
            return true
        end
        local tileItem = tile:getItemById(config.leverItemIds.right)
        if not tileItem then
            print("Error, lever not found! Error: 45000999")
            return true
        end
        tileItem:transform(config.leverItemIds.left)
    end
end



local leverActions = Action()

function leverActions.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    if item:getId() == config.leverItemIds.right then
        return true
    end
    item:transform(config.leverItemIds.right)
    if config.leverPositions[lastUsedLever + 1]:isIdentical(toPosition) then
        lastUsedLever = lastUsedLever + 1
    end
    for i = 1, #config.leverPositions do
        local tile = Tile(config.leverPositions[i])
        if not tile then
            print("Error, tile not found! Error: 45000777")
            return true
        end
        local tileItem = tile:getItemById(config.leverItemIds.right)
        if not tileItem then
            return true
        end
    end
    if #config.leverPositions ~= lastUsedLever then
        addEvent(resetAllLevers, 1000)
        return true
    end
    for _, v in pairs(config.removeItems) do
        local tile = Tile(v.position)
        if not tile then
            print("Error, tile not found! Error: 45001111")
            return
        end
        local tileItem = tile:getItemById(v.itemId)
        if tileItem then
            tileItem:remove()
            addEvent(Game.createItem, config.respawnTime * 1000, v.itemId, 1, v.position)
        end
    end
    addEvent(resetAllLevers, config.respawnTime * 1000)
    return true
end

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

local config = {
    requiredPositions = {
        Position(997, 995, 7),
        Position(997, 996, 7), -- if all these positions have a player.. remove items
        Position(998, 995, 7),
        Position(998, 996, 7)
    },
    respawnTime = 5,
    removeItems = {
        {itemId = 1050, position = Position(997, 993, 7)}, -- then all of these positions and items will get removed (use walls / items that can't be moved)
        {itemId = 1050, position = Position(998, 993, 7)},
    }
}

local moveevent = MoveEvent()

function moveevent.onStepIn(creature, item, position, fromPosition)
    if not creature:isPlayer() then
        return true
    end

    local doRemoveItems = true
    for _, _position in ipairs(config.requiredPositions) do
        local tile = Tile(_position)
        if not tile then
            print("Error, tile not found! Error: 45000444")
            return
        end
        local foundCreature = tile:getTopVisibleCreature(creature)
        if foundCreature and foundCreature:isPlayer() then
            _position:sendMagicEffect(CONST_ME_MAGIC_GREEN)
        else
            _position:sendMagicEffect(CONST_ME_MAGIC_RED)
            doRemoveItems = false
        end
    end
    
    if not doRemoveItems then
        return true
    end
    
    for _, v in pairs(config.removeItems) do
        local tile = Tile(v.position)
        if not tile then
            print("Error, tile not found! Error: 45000555")
            return
        end
        local tileItem = tile:getItemById(v.itemId)
        if tileItem then
            tileItem:remove()
            addEvent(Game.createItem, config.respawnTime * 1000, v.itemId, 1, v.position)
        end
    end
    return true
end

for _, position in ipairs(config.requiredPositions) do
    moveevent:position(position)
end
moveevent:register()

--X Players Click X objects within X time to remove X walls/objects


local config = {
    actionId = 45018,
    useTime = 5000, -- milliseconds (if all objects used within 2 seconds, removeItems)
    clickableObjectPositions = {
        Position(1004, 993, 7),
        Position(1004, 996, 7),
        Position(1008, 993, 7),
        Position(1008, 996, 7)
    },
    respawnTime = 5, -- seconds
    removeItems = {
        {itemId = 1050, position = Position(1006, 993, 7)} -- then all of these positions and items will get removed (use walls / items that can't be moved)
    }
}

local usedObjects = { -- don't edit
--    [Position(1000, 1000, 7)] = {lastUsed = 0}
} 


local action = Action()

function action.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    -- check if removeItems are there
    local tileItems = {}
    for _, v in pairs(config.removeItems) do
        local tile = Tile(v.position)
        if not tile then
            print("Error, tile not found! Error: 45000333")
            return true
        end
        local tileItem = tile:getItemById(v.itemId)
        if not tileItem then
            return true
        end
        tileItems[#tileItems + 1] = {item = tileItem, itemId = v.itemId, position = v.position}
    end

    local currentTime = os.mtime()
    for _, position in ipairs(config.clickableObjectPositions) do
        if toPosition:isIdentical(position) then
            usedObjects[position] = {lastUsed = currentTime}
            break
        end
    end
    toPosition:sendMagicEffect(CONST_ME_MAGIC_GREEN)
    
    local objectCount = 0
    local lowestTime = currentTime
    local highestTime = 0
    for k, v in pairs(usedObjects) do
        objectCount = objectCount + 1
        lowestTime = math.min(v.lastUsed, lowestTime)
        highestTime = math.max(v.lastUsed, highestTime)
    end
    
    if objectCount < #config.clickableObjectPositions then
        return true
    end
    
    if highestTime - lowestTime > config.useTime then
        return true
    end
    
    for i = 1, #tileItems do
        tileItems[i].item:remove()
        addEvent(Game.createItem, config.respawnTime * 1000, tileItems[i].itemId, 1, tileItems[i].position)
    end
    usedObjects = {}
    return true
end

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

local config = {
    requiredItems = {
        {itemId = 2674, amount = 5, position = Position(1000, 995, 7)},
        {itemId = 2467, amount = 1, position = Position(1001, 995, 7)}, -- if all these positions have the required items
        {itemId = 2195, amount = 1, position = Position(1002, 995, 7)}
    },
    removeItems = {
        {itemId = 1026, position = Position(1001, 993, 7)} -- then all of these positions and items will get removed (use walls / items that can't be moved)
    }
}

local function addRemoveItems()
    local doRemoveItems = true
    for _, v in pairs(config.requiredItems) do
        local tile = Tile(v.position)
        if not tile then
            print("Error, tile not found! Error: 45000111")
            return
        end
        if tile:getItemCountById(v.itemId) < v.amount then
            doRemoveItems = false
            break
        end
    end
    
    for _, v in pairs(config.removeItems) do
        local tile = Tile(v.position)
        if not tile then
            print("Error, tile not found! Error: 45000222")
            return
        end
        local tileItem = tile:getItemById(v.itemId)
        if doRemoveItems and tileItem then
            tileItem:remove()
        end
        if not doRemoveItems and not tileItem then
            Game.createItem(v.itemId, 1, v.position)
        end
    end
end

local moveevent = MoveEvent()

function moveevent.onAddItem(moveitem, tileitem, position)
    addRemoveItems()
    return true
end

for _, v in pairs(config.requiredItems) do
    moveevent:position(v.position)
end
moveevent:register()


local moveevent = MoveEvent()

function moveevent.onRemoveItem(moveitem, tileitem, position)
    addRemoveItems()
    return true
end

for _, v in pairs(config.requiredItems) do
    moveevent:position(v.position)
end
moveevent:register()

--[[
    "object" -> anything that is not a floor tile.
    "floor" floor tiles (roof/ground/hole)
    
    "add" / "remove" -> tells the script what to do when lever is on the left. (after it flops, it will do the opposite)
    "replace" -> transforms an item into another item, instead of adding/removing
    
]]--

local levers = {left = 1945, right = 1946}
local config = {
-- [actionid] = {"object", "add", position, itemid, relocate_direction}
-- [actionid] = {"object", "remove", position, itemid, relocate_direction}
-- [actionid] = {"object", "replace", position, {itemid_from, itemid_to}}

    [45011] = {"object", "add", Position(94, 93, 7), 1026, "south"},
    [45012] = {"object", "remove", Position(96, 93, 7), 1026, "south"},
    [45013] = {"object", "replace", Position(98, 93, 7), {1026, 1050}},
    
-- [actionid] = {"floor", "add", position, itemid}
-- [actionid] = {"floor", "remove", position, itemid}
-- [actionid] = {"floor", "replace", position, {itemid_from, itemid_to}, {relocate_from, relocate_to}}

    [45014] = {"floor", "add", Position(100, 93, 7), 406},
    [45015] = {"floor", "remove", Position(102, 93, 7), 406},
    [45016] = {"floor", "replace", Position(104, 93, 7), {406, 407}, {false, false}},
    [45017] = {"floor", "replace", Position(106, 93, 6), {461, 462}, {false, true}}, -- true means YES do relocate.
}

local relocateDirections = {
    ["north"] = {0, -1},
    ["east"]  = {1, 0},
    ["south"] = {0, 1},
    ["west"]  = {-1, 0},
}

local function transposeFields(fromPosition, toPosition, transpose)
    local tile = Tile(fromPosition)
    if tile then
        local items = tile:getItems()
        if items then
            for i, item in ipairs(items) do
                if transpose == true then
                    item:moveTo(toPosition)
                else
                    item:remove()
                end
            end
        end
    end
end

local leverActions = Action()

function leverActions.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    local item_id = item.itemid
    local index = config[item.actionid]
    local tile = Tile(index[3])
    
    -- add
    if index[2] == "add" and item_id == levers.left or index[2] == "remove" and item_id == levers.right then
        if index[1] == "object" then
            local relocatePosition = Position(index[3].x + relocateDirections[index[5]][1], index[3].y + relocateDirections[index[5]][2], index[3].z)
            tile:relocateTo(relocatePosition)
            transposeFields(index[3], relocatePosition, true)
            Game.createItem(index[4], 1, index[3])
        elseif index[1] == "floor" then
            Game.createTile(index[3], true)
            Game.createItem(index[4], 1, index[3])
        end
        
    -- remove
    elseif index[2] == "remove" and item_id == levers.left or index[2] == "add" and item_id == levers.right then
        if index[1] == "object" then
            local object = tile:getItemById(index[4])
            object:remove()
        elseif index[1] == "floor" then
            local relocatePosition = Position(index[3].x, index[3].y, index[3].z + 1)
            tile:relocateTo(relocatePosition)
            transposeFields(index[3], relocatePosition, false)
            tile:getGround():remove()
        end
        
    -- replace
    elseif index[2] == "replace" then
        local transformTo = tile:getItemCountById(index[4][1]) > 0 and 2 or 1
        local object = tile:getItemById(transformTo == 2 and index[4][1] or index[4][2])            
        object:transform(index[4][transformTo])
        if index[1] == "floor" and index[5][transformTo] == true then
            local relocatePosition = Position(index[3].x, index[3].y, index[3].z + 1)
            tile:relocateTo(relocatePosition)
            transposeFields(index[3], relocatePosition, false)
        end
        
    end
    
    item:transform(item_id == levers.left and levers.right or levers.left)
    return true
end

for k, v in pairs(config) do
    leverActions:aid(k)
end
leverActions:register()

local function isPositionValid(position)
    -- Check if the position is far from traps, closed spaces, and walls
    -- Implement your logic here to determine if the position is valid
    -- You can use functions like Tile.isWalkable, Tile.getTopUseThing, etc.
    -- to check for traps, closed spaces, and walls
    return true -- Return true if the position is valid, false otherwise
end

local function getRandomValidPosition()
    local maxAttempts = 100 -- Maximum number of attempts to find a valid position
    local position = nil

    for i = 1, maxAttempts do
        -- Generate a random position
        position = Position(math.random(100, 200), math.random(100, 200), 7)

        -- Check if the position is valid
        if isPositionValid(position) then
            return position -- Return the valid position
        end
    end

    return nil -- Return nil if a valid position couldn't be found
end

local function spawnMonster()
    local monsterName = "Monster" -- Replace with the name of the monster you want to spawn
    local position = getRandomValidPosition()

    if position then
        -- Spawn the monster at the valid position
        Game.createMonster(monsterName, position)
    else
        print("Couldn't find a valid position to spawn the monster.")
    end
end

-- Call the spawnMonster function to spawn the monster
spawnMonster()

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

function sendAreaEffect(centrePosition, effectTable, magicEffect, direction)
    
    local centre = 0
    local length = #effectTable   -- north/south (amount of arrays in main array)
    local width = #effectTable[1] --  west/east (amount of items in each array)
    
    for _length = 1, length do
        for _width = 1, width do
            if effectTable[_length][_width] > 1 then
                centre = {length = _length, width = _width}
                print(_length, _width)
                break
            end
        end
        if centre ~= 0 then
            break
        end
    end
    
    if centre == 0 then
        print("Lua Error: no centre found for effectTable. (3 = centre + effect | 2 = centre | 1 = effect | 0 = no effect)")
        return
    end
    
    if not Position(centrePosition) then -- Idk if this works or not. Would have to test lol
        print("Lua Error: a valid position was not used.")
        return
    end
    
    for _length = 1, length do
        for _width = 1, width do
            local effectType = effectTable[_length][_width]
            if effectType == 1 or effectType == 3 then
                local deltaX = _width - centre.width
                local deltaY = _length - centre.length
                
                if direction then
                    if direction == DIRECTION_NORTH then
                        deltaY = deltaY - 1
                    elseif direction == DIRECTION_SOUTH then
                        deltaY = -deltaY + 1
                    elseif direction == DIRECTION_EAST then
                        local temp = deltaX
                        deltaX = -deltaY + 1
                        deltaY = temp
                    elseif direction == DIRECTION_WEST then
                        local temp = deltaX
                        deltaX = deltaY - 1
                        deltaY = -temp
                    else
                        print("Lua Error: not a valid direction. use 0,1,2,3 or DIRECTION_SOUTH / WEST / EAST / NORTH")
                        return
                    end
                end
                local effectPosition = Position(centrePosition.x + deltaX, centrePosition.y + deltaY, centrePosition.z)
                effectPosition:sendMagicEffect(magicEffect)
            end
        end
    end 
end

local combat = Combat()
combat:setParameter(COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE)
combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
combat:setParameter(COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_ENERGY)
combat:setArea(createCombatArea(AREA_SQUAREWAVE5))

function onGetFormulaValues(player, level, magicLevel)
    local min = (level / 5) + (magicLevel * 4.5) + 20
    local max = (level / 5) + (magicLevel * 7.6) + 48
    return -min, -max
end

combat:setCallback(CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues")


local function castDelayedSpell(creatureId, position, lookDir, area, areaEffect, shootEffect)
    local creature = Creature(creatureId)
    if not creature then
        return
    end
    local offset = Position.directionOffset[lookDir]
    position:sendDistanceEffect(Position(position.x + offset.x, position.y + offset.y, position.z), shootEffect)
    sendAreaEffect(position, area, areaEffect, lookDir)
end

local spell = Spell("instant")

function spell.onCastSpell(creature, variant)
    local creatureId = creature:getId()
    local creaturePosition = creature:getPosition()    
    local originalDirection = creature:getDirection()
    combat:execute(creature, variant)
    addEvent(castDelayedSpell, 500, creatureId, creaturePosition, originalDirection, AREA_SQUAREWAVE5, CONST_ME_MAGIC_RED, CONST_ANI_FIRE)
    addEvent(castDelayedSpell, 1000, creatureId, creaturePosition, originalDirection, AREA_SQUAREWAVE5, CONST_ME_MAGIC_GREEN, CONST_ANI_POISON)
    return 
end

spell:name("triple effect spell")
spell:words("triple effect spell")
spell:group("attack")
spell:id(179) -- MAKE SURE TO ADJUST FOR YOUR SERVER (check data/spells/spells.xml)
spell:cooldown(1000)
spell:groupCooldown(1000)
spell:level(1)
spell:mana(10)
spell:isSelfTarget(false)
spell:isPremium(true)
spell:needLearn(false)
spell:needDirection(true)
spell:register()

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 config = {
    blackboard = {   
        ids = {1811},    --add more stationary text objects here
        actionId = 45021 -- set on all blackboards
    },
    lever = {
        ids = {
            {left = 1945, right = 1946},
            --{left = 1945, right = 1946} -- if you have other levels / objects you want to use
        }
    },
    leverConfirmSpeed = 2, -- seconds (how fast lever resets if purchase isn't confirmed)
    leverData = {
        [45022] = {
            offset = {
                blackboard = {x = 0, y = -2}, -- tells us where the blackboard is in relation to the lever
                sellTile = {x = 0, y = -1}    -- same as above, but for the item tile
            }
        },
        --[00000] = {
        --    offset = {
        --        blackboard = {x = 0, y = 0}, -- x -> negative is left, positive is right
        --        sellTile = {x = 0, y = 0}    -- y -> negative is up, positive is down
        --    }
        --},
    },
    useDepot = false,
    usePlayerTown = true -- if set to false, then will use 'no town' depot (aka: linked depots.. instead of 'thais depot') (only used if useDepot is true)
}
-- END OF CONFIG, don't edit under here

local activateLevers = {
--    ["Position(1000, 1000, 7)"] = {playerId = playerId, eventId = event}
}

local function isStringANumber(str)
    return str:match("^%d+$") ~= nil
end

local function removeSpaces(str)
    return str:gsub("%s+", "")
end

local function positionToString(position)
    return "Position(" .. position.x .. ", " .. position.y .. ", " .. position.z .. ")"
end

local function sendDelayedMessage(playerId, messageType, message)
    local player = Player(playerId)
    if not player then
        return
    end
    player:sendTextMessage(messageType, message)
end

local function modifyBlackboardText(position, itemId, textAddition)
    local tile = Tile(position)
    if not tile then
        print("modifyBlackboardText -> blackboard not on a tile " .. positionToString(position))
        return false
    end
    local textItem = tile:getItemById(itemId)
    if not textItem then
        print("modifyBlackboardText -> Unable to find blackboard " .. positionToString(position))
        return false
    end
    local text = textItem:getAttribute(ITEM_ATTRIBUTE_TEXT)
    textItem:setAttribute(ITEM_ATTRIBUTE_TEXT, text .. textAddition)
    return true
end

local function verifyTextWasWrittenByCurrentHouseOwner(item, eraseBoard) -- bad function, don't use for other scenario's xD
    local position = item:getPosition()
    local tile = Tile(position)
    if not tile then
        print("verifyTextWasWrittenByCurrentOwner -> blackboard not on a tile " .. positionToString(position))
        return false
    end
    local house = tile:getHouse()
    if not house then
        print("verifyTextWasWrittenByCurrentOwner -> no house here " .. positionToString(position))
        return false
    end
   
    local text = item:getAttribute(ITEM_ATTRIBUTE_TEXT)
    local splitResult = string.split(text, ",")
   
    if house:getOwnerGuid() ~= tonumber(splitResult[2]) then
        item:removeAttribute(ITEM_ATTRIBUTE_TEXT)
        item:setAttribute(ITEM_ATTRIBUTE_TEXT, "")
        return false
    end
   
    if eraseBoard and tonumber(splitResult[1]) then
        item:removeAttribute(ITEM_ATTRIBUTE_TEXT)
        item:setAttribute(ITEM_ATTRIBUTE_TEXT, "")
        return "erased"
    end
    return true
end

local function getBlackboardPrice(position)
    local tile = Tile(position)
    if not tile then
        print("getBlackboardPrice -> blackboard not on a tile " .. positionToString(position))
        return false
    end
    local textItem
    for _, itemId in pairs(config.blackboard.ids) do
        textItem = tile:getItemById(itemId)
        if textItem then
            break
        end
    end
    if not textItem then
        print("getBlackboardPrice -> Unable to find blackboard " .. positionToString(position))
        return false
    end
   
    verifyTextWasWrittenByCurrentHouseOwner(textItem)

    local text = textItem:getAttribute(ITEM_ATTRIBUTE_TEXT)
    local splitResult = string.split(text, ",")
    local price = tonumber(splitResult[1]) or 0
    return price
end

local function resetLever(position, leverLeftId, leverRightId)
    activateLevers[positionToString(position)] = nil
    local lever = Tile(position):getItemById(leverRightId)
    if not lever then
        return
    end
    lever:transform(leverLeftId)
end

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

function formatNumberWithCommas(number)
    local formatted = tostring(number)
    local k
    while true do 
        formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1,%2')
        if k == 0 then break end
    end
    return formatted
end

local blackboard_action = Action()

function blackboard_action.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    local erased = verifyTextWasWrittenByCurrentHouseOwner(item, true)
    if erased == "erased" then
        player:say("Price removed successfully.", TALKTYPE_MONSTER_SAY, nil, player)
        return true
    end
    if not player:hasEvent(CREATURE_EVENT_TEXTEDIT, "onTextEdit_HouseMarket") then
        player:registerEvent("onTextEdit_HouseMarket")
    end
    return false
end

blackboard_action:aid(config.blackboard.actionId)
blackboard_action:register()


local lever_action = Action()

function lever_action.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    local activatedLever = activateLevers[positionToString(toPosition)]
    if activatedLever and activatedLever.playerId ~= player:getId() then
        player:say("Another player is attempting to purchase this item.", TALKTYPE_MONSTER_SAY, nil, player)
        return true
    end

    local leverId = item:getId()
    local leverId_index = 0
    for i = 1, #config.lever.ids do
        if leverId == config.lever.ids[i].left or leverId == config.lever.ids[i].right then
            leverId_index = i
            break
        end
    end
   
    if leverId_index == 0 then
        player:say("Lever id not found. Contact Gamemaster.", TALKTYPE_MONSTER_SAY, nil, player)
        return true
    end
   
    if config.lever.ids[leverId_index].left == leverId then
        local leverIndex = config.leverData[item:getActionId()]
        local blackboard_position = Position(toPosition.x + leverIndex.offset.blackboard.x, toPosition.y + leverIndex.offset.blackboard.y, toPosition.z)
        local price = getBlackboardPrice(blackboard_position)
       
        if price == 0 then
            player:say("Item unavailable. No price has been set.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        local thingPosition = Position(toPosition.x + leverIndex.offset.sellTile.x, toPosition.y + leverIndex.offset.sellTile.y, toPosition.z)
        local tile = Tile(thingPosition)
        if not tile then
            player:say("sellTile not found. Contact Gamemaster.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        local thing = tile:getTopDownItem()
        if not thing then
            player:say("No item is available for purchase.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        item:transform(config.lever.ids[leverId_index].right)
        local event = addEvent(resetLever, 1000 * config.leverConfirmSpeed, toPosition, config.lever.ids[leverId_index].left, config.lever.ids[leverId_index].right)
        activateLevers[positionToString(toPosition)] = {playerId = player:getId(), eventId = event, price = price, thing = thing}
       
        player:say("Would you like to purchase " .. getItemNameString(thing) .. " for " .. formatNumberWithCommas(price) .. " gold coins?", TALKTYPE_MONSTER_SAY, nil, player)
    else
        stopEvent(activatedLever.eventId)
        activateLevers[positionToString(toPosition)] = nil -- we have a copy of the table already, so can set to nil here
        item:transform(config.lever.ids[leverId_index].left)
       
        local leverIndex = config.leverData[item:getActionId()]
        local blackboard_position = Position(toPosition.x + leverIndex.offset.blackboard.x, toPosition.y + leverIndex.offset.blackboard.y, toPosition.z)
        local price = getBlackboardPrice(blackboard_position)
       
        if price == 0 then
            player:say("Item unavailable. No price has been set.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        local thingPosition = Position(toPosition.x + leverIndex.offset.sellTile.x, toPosition.y + leverIndex.offset.sellTile.y, toPosition.z)
        local tile = Tile(thingPosition)
        if not tile then
            player:say("sellTile not found. Contact Gamemaster.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        local thing = tile:getTopDownItem()
        if not thing then
            player:say("No item is available for purchase.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        if price ~= activatedLever.price then
            player:say("Price of the item has changed.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        if thing ~= activatedLever.thing then
            player:say("Item is no longer available for purchase.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        if player:getTotalMoney() < activatedLever.price then
            player:say("You do not have sufficient funds to purchase this item.", TALKTYPE_MONSTER_SAY, nil, player)
            return true
        end
       
        player:removeTotalMoney(activatedLever.price)
       
        local ownerGUID = tile:getHouse():getOwnerGuid()
        local targetPlayer = Player(ownerGUID)
        if targetPlayer then
            targetPlayer:setBankBalance(targetPlayer:getBankBalance() + activatedLever.price)
        else
            db.query("UPDATE `players` SET `balance` = `balance` + " .. activatedLever.price .. " WHERE `id` = '" .. ownerGUID .. "'")
        end
       
        thingPosition:sendMagicEffect(CONST_ME_FERUMBRAS)
        player:say("You have purchased " .. getItemNameString(thing) .. ".", TALKTYPE_MONSTER_SAY, nil, player)
       
        local soldItem = thing:clone()
        if config.useDepot then
            local townId = config.usePlayerTown and player:getTown():getId() or 0
            local depot = player:getDepotChest(townId, true)
            depot:addItemEx(soldItem, INDEX_WHEREEVER, FLAG_NOLIMIT)
            player:say("Item delivered to " .. Town(townId):getName() .. ".", TALKTYPE_MONSTER_SAY, nil, player)
        else
            player:getInbox():addItemEx(soldItem, INDEX_WHEREEVER, FLAG_NOLIMIT)
            player:say("Item delivered to inbox.", TALKTYPE_MONSTER_SAY, nil, player)
        end
        thing:remove()
    end
    return true
end

for actionId, _ in pairs(config.leverData) do
    lever_action:aid(actionId)
end
lever_action:register()


local creatureevent = CreatureEvent("onTextEdit_HouseMarket")

function creatureevent.onTextEdit(player, item, text)
    if not table.contains(config.blackboard.ids, item:getId()) then
        return true
    end
    if item:getActionId() ~= config.blackboard.actionId then
        return true
    end
   
    local position = item:getPosition()
    local tile = Tile(position)
   
    if not tile then
        player:say("Error! Please contact gamemaster.", TALKTYPE_MONSTER_SAY, nil, player)
        print("onTextEdit_HouseMarket -> blackboard not on a tile " .. positionToString(position))
        return false
    end
   
    local house = tile:getHouse()
    if not house then
        player:say("Error! Please contact gamemaster.", TALKTYPE_MONSTER_SAY, nil, player)
        print("onTextEdit_HouseMarket -> blackboard not on a house tile " .. positionToString(position))
        return false
    end
   
    if house:getOwnerGuid() ~= player:getGuid() then
        player:say("Failed to set price!\nOnly the house owner can set prices.", TALKTYPE_MONSTER_SAY, nil, player)
        return false
    end
   
    text = removeSpaces(text)
   
    if text == "" then
        player:say("Price removed successfully.", TALKTYPE_MONSTER_SAY, nil, player)
        return true
    end
   
    if not isStringANumber(text) then
        player:say("Failed to set price!\nCan only use numbers.", TALKTYPE_MONSTER_SAY, nil, player)
        return false
    end
   
    player:say("Price set successfully.", TALKTYPE_MONSTER_SAY, nil, player)
    addEvent(modifyBlackboardText, 0, position, item:getId(), "," .. house:getOwnerGuid())
    return true
end

creatureevent:register()


local ec = EventCallback

ec.onLook = function(self, thing, position, distance, description)
    if thing:isItem() and thing:getActionId() == config.blackboard.actionId then
        verifyTextWasWrittenByCurrentHouseOwner(thing)       
        local description = "The price is " .. formatNumberWithCommas(getBlackboardPrice(position)) .. " gold coins."
        addEvent(sendDelayedMessage, 0, self:getId(), MESSAGE_INFO_DESCR, description)
        return false
    end
    return description
end

ec:register()

local deathStorage = {
    x = 45023,
    y = 45024,
    z = 45025
}

local taverns = {
    Position(1000, 1000, 7),
    Position(980, 1020, 7),  -- if not within a respawn anchor, will respawn at closest tavern
    Position(1020, 1020, 7)
}

local respawnAnchors = {
    {    respawnAnchor = Position(1000, 1016, 7),
        anchorMap = {
            {from = Position(1004, 1013, 7), to = Position(1011, 1016, 7)},
            --{from = Position(1000, 1000, 7), to = Position(1001, 1001, 7)},
            --{from = Position(1000, 1000, 7), to = Position(1001, 1001, 7)}
    }    },
--    {    respawnAnchor = Position(1000, 1000, 7),
--        anchorMap = {
--            {from = Position(1000, 1000, 7), to = Position(1001, 1001, 7)},
--            {from = Position(1000, 1000, 7), to = Position(1001, 1001, 7)},
--            {from = Position(1000, 1000, 7), to = Position(1001, 1001, 7)}
--    }    },
--    {    respawnAnchor = Position(1000, 1000, 7),
--        anchorMap = {
--            {from = Position(1000, 1000, 7), to = Position(1001, 1001, 7)},
--            {from = Position(1000, 1000, 7), to = Position(1001, 1001, 7)},
--            {from = Position(1000, 1000, 7), to = Position(1001, 1001, 7)}
--    }    },
}

local function respawn(player)
    local x = player:getStorageValue(deathStorage.x)
    local y = player:getStorageValue(deathStorage.y)
    local z = player:getStorageValue(deathStorage.z)
    local playerPosition = Position(x, y, z)
    for _, anchor in pairs(respawnAnchors) do
        for _, anchorMap in pairs(anchor.anchorMap) do
            if playerPosition:isInRange(anchorMap.from, anchorMap.to) then
                player:teleportTo(anchor.respawnAnchor)
                return
            end
        end
    end
    
    local closestTavern = 0
    local nearestdistance = -1
    for i = 1, #taverns do
        local distance = playerPosition:getDistance(taverns[i])
        if nearestdistance == -1 or distance < nearestdistance then
            closestTavern = i
            nearestdistance = distance
        end
    end
    player:teleportTo(taverns[closestTavern])
end

local creatureevent = CreatureEvent("onDeath_respawnAnchorSystem")

function creatureevent.onDeath(creature, corpse, killer, mostDamageKiller, lastHitUnjustified, mostDamageUnjustified)
    local deathPosition = creature:getPosition()
    creature:setStorageValue(deathStorage.x, deathPosition.x)
    creature:setStorageValue(deathStorage.y, deathPosition.y)
    creature:setStorageValue(deathStorage.z, deathPosition.z)
    return true
end

creatureevent:register()

local creatureevent = CreatureEvent("onLogin_respawnAnchorSystem")

function creatureevent.onLogin(player)
    player:registerEvent("onDeath_respawnAnchorSystem")
    if player:getStorageValue(deathStorage.x) ~= -1 then
        respawn(player)
        player:setStorageValue(deathStorage.x, -1)
        player:setStorageValue(deathStorage.y, -1)
        player:setStorageValue(deathStorage.z, -1)
    end
    return true
end

creatureevent:register()

local config = {
--    [{vocationIds}] = {cannotKill = {vocationIds}},   
    [{1, 2, 3, 4, 5}] = {cannotKill = {}},
    [{6, 7, 8, 9, 10}] = {cannotKill = {1, 2, 3, 4, 5}},
    [{11, 12, 13, 14, 15}] = {cannotKill = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}},
}

local templePosition = Position(1000, 1000, 7)
local gracePeriod = 120 -- seconds (creatures that harmed this player greater then 2 minutes ago are not calculated.)

local creatureevent = CreatureEvent("onPrepareDeath_vocationProtection")

function creatureevent.onPrepareDeath(creature, killer)
   
    -- setup damage map
    local damageMap = {}
    for creatureId, damage in pairs(creature:getDamageMap()) do
        local _creature = Creature(creatureId)
        if _creature then
            local master = _creature:getMaster()
            if master and master:isPlayer() then
                _creature = master
            end
            if _creature:isPlayer() then
                local name = _creature:getName()
                if not damageMap[name] then
                    damageMap[name] = {damage = 0, ticks = 0, vocationId = _creature:getVocation():getId()}
                end
                damageMap[name].damage = damageMap[name].damage + damage.total
                damageMap[name].ticks = damage.ticks
            end
        end
    end
   
    local currentTime = os.mtime()
    local dismissThreshold = currentTime - (gracePeriod * 1000)
    for k, v in pairs(damageMap) do
        if v.ticks > dismissThreshold then
            local vocationId = creature:getVocation():getId()
            for vocations, _v in pairs(config) do
                if table.contains(vocations, v.vocationId) then -- vocation doing damage
                    if table.contains(_v.cannotKill, vocationId) then -- vocation taking damage
                        creature:addHealth(creature:getMaxHealth())
                        creature:teleportTo(templePosition)
                        return false
                    end
                end
            end
        end
    end
   
    return true
end

creatureevent:register()

local creatureevent = CreatureEvent("onLogin_vocationProtection")

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

creatureevent:register()

local combat = Combat()
combat:setParameter(COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_HOLYAREA)
combat:setArea(createCombatArea(AREA_CIRCLE3X3))

function onGetFormulaValues(player, level, magicLevel)
    local min = (level / 5) + (magicLevel * 5) + 25
    local max = (level / 5) + (magicLevel * 6.2) + 45
    return -min, -max
end

combat:setCallback(CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues")

local warning = Combat()
warning:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_TUTORIALSQUARE)
warning:setArea(createCombatArea(AREA_CIRCLE3X3))

local function delayedCast(creatureId, variant, combat)
    local creature = Creature(creatureId)
    if not creature then
        return
    end
    combat:execute(creature, variant)
end

local spell = Spell(SPELL_INSTANT)

function spell.onCastSpell(creature, variant)
    warning:execute(creature, variant)
    addEvent(delayedCast, 1500, creature:getId(), variant, combat)
    return true
end

spell:name("alert spell")
spell:words("alert spell")
spell:group("attack")
spell:id(180)
spell:cooldown(1000)
spell:groupCooldown(1000)
spell:level(1)
spell:mana(10)
spell:isSelfTarget(false)
spell:isPremium(true)
spell:needLearn(false)
spell:needDirection(false)
spell:register()