.HaLLoWen

quest teleporter begin
    state start begin
        when letter begin
            send_letter ( "Teleporter" )
        end

        when button or info begin
            -- SETTINGS
            local SETTINGS_MAP_VILLAGE = {
                                        {"Villo 1 Jinho", 969600, 278400},
                                        {"Villo 2 Jinho", 873100,242600},
                                        {"Villo 1 Shinsoo", 469300, 964200},
                                        {"Villo 2 Shinsoo", 360800 ,877600},
                                        {"Villo 1 Chunjo", 55700 ,157900},
                                        {"Villo 2 Chunjo", 138500 ,234900},
                                    }

            local SETTINGS_MAP_EXP = {
                                        {"Deserto", 204800, 486400},
                                        {"Valle", 256000, 665600},
                                        {"Covo1", 89600, 525400},
                                        {"Covo2", 703800, 522700},
                                        {"Bosco", 288700, 5700},
                                        {"Bosco Rosso", 1119900, 70800},
                                    }
            -- END SETTINGS

            local NAME_VILLAGE = {}
            for i = 1, table.getn (SETTINGS_MAP_VILLAGE) do
                local V1 = SETTINGS_MAP_VILLAGE[i][1]
                table.insert (NAME_VILLAGE, V1)
            end

            local NAME_EXP_MAP = {}
            for k = 1, table.getn (SETTINGS_MAP_EXP) do
                local V2 = SETTINGS_MAP_EXP[k][1]
                table.insert (NAME_EXP_MAP, V2)
            end

            local scelta = select("Teleporter Villi" , "Teleporter Mappe Exp 40-75", "Annulla")
            if scelta == 1 then
                local T1 = select_table (NAME_VILLAGE)
                table.insert (T1, "Chiudi")
                if T1 > table.getn (NAME_VILLAGE) then return end
                local X_1 = SETTINGS_MAP_VILLAGE[T1][2]
                local Y_1 = SETTINGS_MAP_VILLAGE[T1][3]
                pc.warp (X_1, Y_1)

            elseif scelta == 2 then
                local T2 = select_table (NAME_EXP_MAP)
                table.insert (T2, "Chiudi")
                if T2 > table.getn (SETTINGS_MAP_EXP) then return end
                local X_2 = SETTINGS_MAP_EXP[T2][2]
                local Y_2 = SETTINGS_MAP_EXP[T2][3]
                pc.warp (X_2, Y_2)
            end
        end
    end
end