CreatureEvent [TFS 1.1] Fast Travel To Unlocked Locations, modalwindow

if item.actionid > 37100 and item.actionid < 38000 or item.actionid > 5000 and item.actionid < 5005 then
player:sendLocationWindow()
else
player:sendTextMessage(MESSAGE_EVENT_ADVANCE, "You cannot fast travel while in combat.")
end

for i = 1, #tlocations do
    if not player:getStorage(tlocations[i].storage) == 1 then
        player:setStorageValue(tlocations[i].storage, 1)
    end
    for j = 1, #tlocations[i].sublocations do
        if not player:getStorageValue(tlocations[i].sublocations[j].storage) == 1 then
            player:setStorageValue(tlocations[i].sublocations[j].storage, 1)
        end
    end
end

function Player:sendLocationWindow()
    local window = ModalWindow(modalId, "Fast Travel", "You can fast travel to any of the below locations.")
    local choices = 0
   
    for i = 1, #tlocations do
        window:addChoice(i, tlocations[i]["name"])
        choices = choices + 1
    end
    if choices > 0 then
        window:addButton(1, "Expand")
        window:setDefaultEnterButton(1)
    end
    window:addButton(2, "Exit")
    window:setDefaultEscapeButton(2)
    window:sendToPlayer(self)
    return true
end

function Player:sendTravelWindow(location)
    local window = ModalWindow(modalId + 1, location["name"], "You can fast travel to any of the below locations.")
    local choices = 0
    for i = 1, #location["sublocations"] do
        window:addChoice(i, location["sublocations"][i]["name"])
        choices = choices + 1
    end
    if choices > 0 then
        window:addButton(1, "Travel")
        window:setDefaultEnterButton(1)
    end
    window:addButton(2, "Back")
    window:setDefaultEscapeButton(2)
    window:sendToPlayer(self)
    return true
end