• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

Lua [TFS 1.4.2] Shows a modalwindow when onStepIn

  • Thread starter Thread starter Fairytail
  • Start date Start date
F

Fairytail

Guest
looking for a script, when player step in portal tile, it send small module window asking 'are you sure you want to leave?' 'yes' 'no'
yes, steps on tile
no, closes module and not step on tile
 
Solution
Sarah Wesker
I'm going to ask the TFS ChatBot:
fbtty.gif

I'm going to test it:

fdgt.gif
Omg
925488627608326204.webp


Only for TFS 1.5+

script.lua
LUA: 
local moveEvent = MoveEvent()
function moveEvent.onStepIn(creature, item, position, fromPosition)
    local player = creature:getPlayer()
    if not player then
        return true
    end

    local modalWindow = ModalWindow{
        title = "Teleport",
        message = "Are you sure you want to teleport?",
    }

    modalWindow:addButton("Yes", function(player, button, choice)
        player:teleportTo(Position(x, y, z))
    end)

    modalWindow:addButton("No")
    modalWindow:setDefaultEnterButton("Yes")...
Sort by date Sort by votes
LUA: 
local action = 50045

function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition)
    if not isPlayer(cid) or isPlayerGhost(cid) then
        return true
    end

    if item.actionid == action then
        local title = "Teleport Confirmation"
        local message = "Are you sure you want to be teleported?"
        local window = ModalWindow(1001, title, message)

        window:addButton(100, "Yes")
        window:addButton(101, "No")

        window:setDefaultEnterButton(100)
        window:setDefaultEscapeButton(101)

        window:sendToPlayer(cid)
        return true
    end

    return true
end

function onModalWindow(cid, modalWindowId, buttonId, choiceId)
    if modalWindowId == 1001 then
        if buttonId == 100 then
            doTeleportThing(cid, {x = 100, y = 100, z = 7})
        end
    end
end
 
Upvote 0 Downvote
I'm going to ask the TFS ChatBot:
fbtty.gif

I'm going to test it:

fdgt.gif
Omg
925488627608326204.webp


Only for TFS 1.5+

script.lua
LUA: 
local moveEvent = MoveEvent()
function moveEvent.onStepIn(creature, item, position, fromPosition)
    local player = creature:getPlayer()
    if not player then
        return true
    end

    local modalWindow = ModalWindow{
        title = "Teleport",
        message = "Are you sure you want to teleport?",
    }

    modalWindow:addButton("Yes", function(player, button, choice)
        player:teleportTo(Position(x, y, z))
    end)

    modalWindow:addButton("No")
    modalWindow:setDefaultEnterButton("Yes")
    modalWindow:setDefaultEscapeButton("No")
    modalWindow:sendToPlayer(player)
    return true
end

moveEvent:position(Position(x, y, z))
moveEvent:register()
 
Upvote 0 Downvote
Solution
endziu2222 said:
Funny how people will not share information. But are willing to make script for you. I am using chat gpt. Just google it. What is that TFS chat bot I dunno. Can be a bot simply called TFS chatbot..
Click to expand...
i believe its TFS Chatbot cuz they arleady provided all functions within TFS enviroment, if you use ChatGPT you need to Teach GPT how to Correctly Code & Provide The Lua Functions from yout OT or Project, if you fal to do so GPT will Make Random Functions That Doesnt Exist AT ALL on TFS but at the end you may be able to figureout how to make that script work correctly but for sure i would love to have acess to that tfs bot hehe
 
Upvote 0 Downvote
Sarah Wesker said:
I'm going to ask the TFS ChatBot:
View attachment 74672

I'm going to test it:

View attachment 74673
Omg
925488627608326204.webp


Only for TFS 1.5+

script.lua
LUA: 
local moveEvent = MoveEvent()
function moveEvent.onStepIn(creature, item, position, fromPosition)
    local player = creature:getPlayer()
    if not player then
        return true
    end

    local modalWindow = ModalWindow{
        title = "Teleport",
        message = "Are you sure you want to teleport?",
    }

    modalWindow:addButton("Yes", function(player, button, choice)
        player:teleportTo(Position(x, y, z))
    end)

    modalWindow:addButton("No")
    modalWindow:setDefaultEnterButton("Yes")
    modalWindow:setDefaultEscapeButton("No")
    modalWindow:sendToPlayer(player)
    return true
end

moveEvent:position(Position(x, y, z))
moveEvent:register()
Click to expand...
LUA: 
function endTaskModalWindow(player, storage)
    local data = getTaskByStorage(storage)
    local newmessage
    local completion = false
    if player:getTaskKills(data.storagecount) < data.total then
        if taskOptions.selectLanguage == 1 then
            newmessage = task_pt_br.missionError
            player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_DIST_ATK_THROW_SHOT, player:isInGhostMode() and nil or player)
        else
            newmessage = "You have already completed, or are in progress on this task."
            player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_DIST_ATK_THROW_SHOT, player:isInGhostMode() and nil or player)
        end
    else
        player:endTask(storage, false)
        completion = true
        if taskOptions.selectLanguage == 1 then
            newmessage = task_pt_br.missionErrorTwo .. (data.rewards and task_pt_br.missionErrorTwoo or "")
        else
            newmessage = "You completed the task" .. (data.rewards and "\nHere are your rewards:" or "")
        end
    end
    local title = taskOptions.selectLanguage == 1 and task_pt_br.title or "Task System"
    local window = ModalWindow{
        title = title,
        message = newmessage
    }
    if completion and data.rewards then
        if player:getStorageValue(taskOptions.bonusReward) >= 1 then
                if taskOptions.selectLanguage == 1 then
                player:say('Recompensa Resgatada:', TALKTYPE_MONSTER_SAY)
                else
                player:say('Redeemed Reward:', TALKTYPE_MONSTER_SAY)
                end
            for _, info in pairs (data.rewards) do
                if info[1] == "exp" then
                    player:addExperience(info[2]*taskOptions.bonusRate)
                    player:getPosition():sendMagicEffect(CONST_ME_PRISMATIC_SPARK)
                    player:say('Exp: '.. info[2]*taskOptions.bonusRate ..'', TALKTYPE_MONSTER_SAY)
                    if taskOptions.selectLanguage == 1 then
                        window:addChoice(task_pt_br.choiceText ..""..info[2]*taskOptions.bonusRate)
                    else
                        window:addChoice("- Experience: "..info[2]*taskOptions.bonusRate)
                    end
                elseif tonumber(info[1]) then
                    window:addChoice("- ".. info[2]*taskOptions.bonusRate .." "..ItemType(info[1]):getName())
                    player:addItem(info[1], info[2]*taskOptions.bonusRate)
                    player:setStorageValue(taskOptions.uniqueTaskStorage, -1)
                    player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_ACTION_LEVEL_ACHIEVEMENT, player:isInGhostMode() and nil or player)
                    player:getPosition():sendMagicEffect(CONST_ME_PRISMATIC_SPARK)
                    if taskOptions.selectLanguage == 1 then
                    player:say('Outros: '..  info[2]*taskOptions.bonusRate .. ' ' ..ItemType(info[1]):getName(), TALKTYPE_MONSTER_SAY)
                    else
                    player:say('Others: '..  info[2]*taskOptions.bonusRate .. ' ' ..ItemType(info[1]):getName(), TALKTYPE_MONSTER_SAY)
                    end
                    player:setStorageValue(storagecheck, player:getStorageValue(storagecheck) + 1)
                end
            end
        else
                if taskOptions.selectLanguage == 1 then
                player:say('Recompensa Resgatada:', TALKTYPE_MONSTER_SAY)
                else
                player:say('Redeemed Reward:', TALKTYPE_MONSTER_SAY)
                end
            for _, info in pairs (data.rewards) do
                if info[1] == "exp" then
                    player:addExperience(info[2])
                    player:getPosition():sendMagicEffect(CONST_ME_PRISMATIC_SPARK)
                    player:say('Exp: '.. info[2] ..'', TALKTYPE_MONSTER_SAY)
                    if taskOptions.selectLanguage == 1 then
                        window:addChoice(task_pt_br.choiceText ..""..info[2])
                    else
                        window:addChoice("- Experience: "..info[2])
                    end
                elseif tonumber(info[1]) then
                    window:addChoice("- ".. info[2] .." "..ItemType(info[1]):getName())
                    player:addItem(info[1], info[2])
                    player:setStorageValue(taskOptions.uniqueTaskStorage, -1)
                    player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_ACTION_LEVEL_ACHIEVEMENT, player:isInGhostMode() and nil or player)
                    player:getPosition():sendMagicEffect(CONST_ME_PRISMATIC_SPARK)
                    if taskOptions.selectLanguage == 1 then
                    player:say('Outros: '.. ItemType(info[1]):getName() .. '', TALKTYPE_MONSTER_SAY)
                    else
                    player:say('Others: '.. ItemType(info[1]):getName() .. '', TALKTYPE_MONSTER_SAY)
                    end
                    player:setStorageValue(storagecheck, player:getStorageValue(storagecheck) + 1)
                end
            end
        end
    end
    if taskOptions.selectLanguage == 1 then
        window:addButton(task_pt_br.returnButton, function() sendTaskModalWindow(player) end)
    else
        window:addButton("Back", function() sendTaskModalWindow(player) end)
    end
    window:sendToPlayer(player)
end
function acceptedTaskModalWindow(player)
    local title = taskOptions.selectLanguage == 1 and task_pt_br.title or "Task System"
    local customMessage = taskOptions.selectLanguage == 1 and task_pt_br.messageAcceptedText or "You accepted this task!"
    local window = ModalWindow{
        title = title,
        message = customMessage
    }
    player:getPosition():sendMagicEffect(CONST_ME_TREASURE_MAP)
    if taskOptions.selectLanguage == 1 then
        window:addButton(task_pt_br.returnButton, function() sendTaskModalWindow(player) end)
    else
        window:addButton("Back", function() sendTaskModalWindow(player) end)
    end
    window:sendToPlayer(player)
end
function confirmTaskModalWindow(player, storage)
    local title = taskOptions.selectLanguage == 1 and task_pt_br.title or "Task System"
    local detailsMessage = taskOptions.selectLanguage == 1 and task_pt_br.messageDetailsText or "Here are the details of your task:"
    local window = ModalWindow{
        title = title,
        message = detailsMessage
    }
    local data = getTaskByStorage(storage)
    if taskOptions.selectLanguage == 1 then
        window:addChoice(task_pt_br.choiceMonsterName..""..data.name)
        window:addChoice(task_pt_br.choiceMonsterRace.."")
        for _, races in pairs (data.races) do
        window:addChoice("["..races.."]")
        end
        window:addChoice(task_pt_br.choiceMonsterKill..""..data.total)
        if data.type == "daily" then
            window:addChoice(task_pt_br.choiceEveryDay)
        elseif data.type == "repeatable" then
            window:addChoice(task_pt_br.choiceRepeatable)
        elseif data.type == "once" then
            window:addChoice(task_pt_br.choiceOnce)
        end
    else
        window:addChoice("Task name: "..data.name)
        window:addChoice("Monster races: ")
        for _, races in pairs (data.races) do
            window:addChoice("["..races.."]")
        end
        window:addChoice("Necessary deaths: "..data.total)
        if data.type == "daily" then
            window:addChoice("You can repeat: Every day!")
        elseif data.type == "repeatable" then
            window:addChoice("You can repeat: Always!")
        elseif data.type == "once" then
            window:addChoice("You can repeat: Only once!")
        end
    end
    if data.rewards then
        if taskOptions.selectLanguage == 1 then
            window:addChoice(task_pt_br.choiceReward)
        else
            window:addChoice("Rewards:")
        end
        if player:getStorageValue(taskOptions.bonusReward) >= 1 then
            for _, info in pairs(data.rewards) do
                if info[1] == "exp" then
                    if taskOptions.selectLanguage == 1 then
                        window:addChoice(task_pt_br.choiceText ..""..info[2]*taskOptions.bonusRate)
                    else
                        window:addChoice("- Experience: "..info[2]*taskOptions.bonusRate)
                    end
                elseif tonumber(info[1]) then
                    window:addChoice("- " .. info[2]*taskOptions.bonusRate .. " ".. ItemType(info[1]):getName())
                end
            end
        else
            for _, info in pairs(data.rewards) do
                if info[1] == "exp" then
                    if taskOptions.selectLanguage == 1 then
                        window:addChoice(task_pt_br.choiceText ..""..info[2])
                    else
                        window:addChoice("- Experience: "..info[2])
                    end
                elseif tonumber(info[1]) then
                    window:addChoice("- " .. info[2] .. " ".. ItemType(info[1]):getName())
                end
            end
        end
    end
    local function confirmCallback(player, button, choice)
        if player:hasStartedTask(storage) or not player:canStartCustomTask(storage) then
            errorModalWindow(player)
        elseif taskOptions.uniqueTask == true and player:getStorageValue(taskOptions.uniqueTaskStorage) == 1 then
            uniqueModalWindow(player)
        else
            acceptedTaskModalWindow(player)
            player:startTask(storage)
            player:setStorageValue(taskOptions.uniqueTaskStorage, 1)
            player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_ACTION_NOTIFICATION, player:isInGhostMode() and nil or player)
        end
    end
    if taskOptions.selectLanguage == 1 then
        window:addButton(task_pt_br.confirmButton, confirmCallback)
        window:addButton(task_pt_br.returnButton, function() sendTaskModalWindow(player) end)
    else
        window:addButton("Choose", confirmCallback)
        window:addButton("Back", function() sendTaskModalWindow(player) end)
    end
    window:sendToPlayer(player)
end
function errorModalWindow(player)
    local title = taskOptions.selectLanguage == 1 and task_pt_br.title or "Task System"
    local completedMessage = taskOptions.selectLanguage == 1 and task_pt_br.messageAlreadyCompleteTask or "You have already completed this task."
    local window = ModalWindow{
        title = title,
        message = completedMessage
    }
    player:getPosition():sendMagicEffect(CONST_ME_STUN)
    player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_DIST_ATK_THROW_SHOT, player:isInGhostMode() and nil or player)
    if taskOptions.selectLanguage == 1 then
        window:addButton(task_pt_br.returnButton, function() sendTaskModalWindow(player) end)
    else
        window:addButton("Back", function() sendTaskModalWindow(player) end)
    end
    window:sendToPlayer(player)
end
function uniqueModalWindow(player)
    local title = taskOptions.selectLanguage == 1 and task_pt_br.title or "Task System"
    local completedMessage = taskOptions.selectLanguage == 1 and task_pt_br.uniqueMissionError or "You can only do one mission at a time."
    local window = ModalWindow{
        title = title,
        message = completedMessage
    }
    player:getPosition():sendMagicEffect(CONST_ME_POFF)
    player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_DIST_ATK_THROW_SHOT, player:isInGhostMode() and nil or player)
    if taskOptions.selectLanguage == 1 then
        window:addButton(task_pt_br.returnButton, function() sendTaskModalWindow(player) end)
    else
        window:addButton("Back", function() sendTaskModalWindow(player) end)
    end
    window:sendToPlayer(player)
end
function cancelTaskModalWindow(player, managed)
    local newmessage
    if managed then
        if taskOptions.selectLanguage == 1 then
            newmessage = task_pt_br.choiceCancelTask
        else
            newmessage = "You canceled this task."
        end
    else
        if taskOptions.selectLanguage == 1 then
            newmessage = task_pt_br.choiceCancelTaskError
        else
            newmessage = "You cannot cancel this task, because it is already completed or not started."
        end
    end
    local title = taskOptions.selectLanguage == 1 and task_pt_br.title or "Task System"
    local window = ModalWindow{
        title = title,
        message = newmessage
    }
    player:getPosition():sendMagicEffect(CONST_ME_EXPLOSIONAREA)
    player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_DIST_ATK_THROW_SHOT, player:isInGhostMode() and nil or player)
    if taskOptions.selectLanguage == 1 then
        window:addButton(task_pt_br.returnButton, function() sendTaskModalWindow(player) end)
    else
        window:addButton("Back", function() sendTaskModalWindow(player) end)
    end
    window:sendToPlayer(player)
end
function sendTaskModalWindow(player)
    local title = taskOptions.selectLanguage == 1 and task_pt_br.title or "Task System"
    local taskButtonMessage = taskOptions.selectLanguage == 1 and task_pt_br.choiceBoardText or "Choose a task and use the buttons below:"
    local window = ModalWindow{
        title = title,
        message = taskButtonMessage
    }
    local temptasks = {}
    for _, data in pairs (taskConfiguration) do
        temptasks[#temptasks+1] = data.storage
        if player:hasStartedTask(data.storage) then
            if taskOptions.selectLanguage == 1 then
                window:addChoice(data.name .. " ["..(player:getTaskKills(data.storagecount) >= data.total and "".. task_pt_br.choiceRewardOnHold .."]" or player:getTaskKills(data.storagecount).."/"..data.total.."]"))
            else
                window:addChoice(data.name .. " ["..(player:getTaskKills(data.storagecount) >= data.total and "Reward on Hold]" or player:getTaskKills(data.storagecount).."/"..data.total.."]"))
            end
        elseif player:canStartCustomTask(data.storage) == false then
            if data.type == "daily" then
                if taskOptions.selectLanguage == 1 then
                    window:addChoice(data.name .. ", [".. task_pt_br.choiceDailyConclued .."]")
                else
                    window:addChoice(data.name .. ", [Concluded Daily]")
                end
            else
                if taskOptions.selectLanguage == 1 then
                    window:addChoice(data.name ..", [".. task_pt_br.choiceConclued .."]")
                else
                    window:addChoice(data.name ..", [Concluded]")
                end
            end
        else
            window:addChoice(data.name ..", "..data.total)
        end
    end
    local function confirmCallback(player, button, choice)
        local id = choice.id
        if player:hasStartedTask(temptasks[id]) then
            endTaskModalWindow(player, temptasks[id])
        elseif not player:canStartCustomTask(temptasks[id]) then
            errorModalWindow(player)
        elseif taskOptions.uniqueTask == true and player:getStorageValue(taskOptions.uniqueTaskStorage) >= 1 then
            uniqueModalWindow(player)
        else
            confirmTaskModalWindow(player, temptasks[id])
        end
    end
    local function cancelCallback(player, button, choice)
        local id = choice.id
        if player:hasStartedTask(temptasks[id]) then
            cancelTaskModalWindow(player, true)
            player:endTask(temptasks[id], true)
            player:setStorageValue(taskOptions.uniqueTaskStorage, -1)
        else
            cancelTaskModalWindow(player, false)
        end
    end
    if taskOptions.selectLanguage == 1 then
        window:addButton(task_pt_br.confirmButton, confirmCallback)
        window:addButton(task_pt_br.cancelButton, cancelCallback)
        window:addButton(task_pt_br.exitButton)
    else
        window:addButton("Choose", confirmCallback)
        window:addButton("Cancel", cancelCallback)
        window:addButton("Exit")
    end
    window:sendToPlayer(player)
end
local task = Action()
function task.onUse(player, item, fromPosition, target, toPosition, isHotkey)
    local function getPositionTileItem(pos)
        local p = player:getPosition()
        local xDiff = pos.x - p.x
        local yDiff = pos.y - p.y
        if math.abs(xDiff) <= 1 and math.abs(yDiff) <= 1 then
            return true
        end
        return false
    end
    local isInRange = false
    for _, itemPositionTile in ipairs(taskOptions.taskBoardPositions) do
        if getPositionTileItem(itemPositionTile) then
            isInRange = true
            break
        end
    end
    
    if isInRange then
        player:getPosition():sendMagicEffect(CONST_ME_TREASURE_MAP)
        sendTaskModalWindow(player)
        player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_PHYSICAL_RANGE_MISS, player:isInGhostMode() and nil or player)
    else
        player:getPosition():sendMagicEffect(CONST_ME_POFF)
        if taskOptions.selectLanguage == 1 then
            player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "".. task_pt_br.messageTaskBoardError .."")
            player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_DIST_ATK_THROW_SHOT, player:isInGhostMode() and nil or player)
        else
            player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "The quest board is too far away or this is not the correct quest board.")
            player:getPosition():sendSingleSoundEffect(SOUND_EFFECT_TYPE_DIST_ATK_THROW_SHOT, player:isInGhostMode() and nil or player)
            return true
        end
        return true
    end
    
    return true
end
task:id(21332)
task:register()
help me, in this script! convert it to action to movement on stepin
 
Last edited:
Upvote 0 Downvote

Similar threads

G
  • Question Question
C++ TFS 1.5 downgraded 772 Fleeing monsters lag
Replies
3
Views
335
Gover
G
eardrums
  • Question Question
Animation on step in TFS 1.5 OTC Redemption
Replies
5
Views
385
eardrums
eardrums
Back
Top