<Endymion> System translokacji

quest systemTranslokacji begin
    state start begin
        function ustawOczekiwanie()
            if pc.get_skill_level(140) == 1 or pc.get_skill_level(140) == 2 then
                pc.setqf("oczekiwanie", get_time()+180*60)
            elseif pc.get_skill_level(140) == 3 then
                pc.setqf("oczekiwanie", get_time()+120*60)
            elseif pc.get_skill_level(140) == 4 then
                pc.setqf("oczekiwanie", get_time()+60*60)
            elseif pc.get_skill_level(140) == 5 or pc.get_skill_level(140) == 6 then
                pc.setqf("oczekiwanie", get_time()+30*60)
            end
        end

        when levelup with pc.get_level() == 2 begin
            send_letter("System Translokacji")
            target.vid("SeonHae", find_npc_by_vnum(20095), "endymion")
        end
        when info or button begin
            say_title("System Translokacji")
            say()
            say("Udaj się do Seon-Hae.")
            say("Opowie Ci o nowo odkrytej technice")
            say("nazwanej 'Translokacją'.")
            say("Śpiesz się, starzec nie lubi długo czekać.")
            say()
        end
        when SeonHae.target.click or 20095.chat."System Translokacji" begin
            target.delete("SeonHae")
            say_title(mob_name(npc.get_race())..":")
            say()
            say("Ostatnio wraz z uczonymi naszego państwa")
            say("odkryliśmy technikę umożliwiającą teleportację ")
            say("do pewnych miejsc na naszym kontynencie.")
            say("Jako początkujący będziesz mógł podróżować ")
            say("jedynie do swojego miasta, jednak z czasem")
            say("gdy będziesz robił postępy w nauce będziesz")
            say("mógł przenosić się do wcześniej zapamiętanych")
            say("miejsc w dowolnym miejscu na naszej ziemii.")
            say()
            wait()
            say_title(mob_name(npc.get_race())..":")
            say()
            say("Zacznijmy od pierwszej lekcji...")
            say("Aby móc przeteleportować się dzięki tej technice")
            say("musisz oczyścić swój umysł i pomyśleć o tym miejscu.")
            say("Wszystkie Twoje myśli muszą być skupione na")
            say("danej lokalizacji. Wydaje się proste, prawda?")
            say("To byłoby na tyle... Jeżeli chcesz rozwiajać ")
            say("swoje umiejętności Translokacji musisz czytać ")
            say("Księgi Translokacyjne. Powodzenia w nauce!")
            say()
            pc.set_skill_level(140, 1)
            clear_letter()
        end
        when info or button begin
            say_title("System Translokacji")
            say()
            say("Starożytna umiejętność teleportacji")
            say("Aktualny poziom: "..pc.get_skill_level(140))
            say()
            if get_time() > pc.getqf("oczekiwanie") then
                say("Teleportacja jest możliwa!")
                mozliwa = 1
            else
                local time = (pc.getqf("oczekiwanie")-get_time()) / 3600
                local h = math.floor(time)
                local min = (time - h)*60
                local m = math.floor(min)
                say("Teleportacja możliwa za: "..h.." godzin, "..m.." minut.")
                mozliwa = 0
            end
            say()
            if pc.get_skill_level(140) == 1 then
                s = select("Wróć do miasta", "Zakończ")
                wybor = 1
            else
                s = select("Wróć do miasta", "Własna lokalizacja", "Zakończ")
                wybor = 2
            end

            if s == 1 then
                if mozliwa != 1 then
                    syschat("Nie możesz jeszcze użyć tej umiejętności!")
                    return
                end

                if pc.get_skill_level(140) < 5 then
                    systemTranslokacji.ustawOczekiwanie()
                end
                warp_to_village()
            elseif s == 2 and wybor == 1 then
                return
            elseif s == 2 and wybor == 2 then
                local tablica = {}
                for i = 1, 5 do
                    if pc.getqf("translokacja"..i.."_3") == 0 then
                        table.insert(tablica, i..". Brak lokalizacji")
                    else
                        table.insert(tablica, locale.map_name[pc.getqf("translokacja"..i.."_3")].."  ("..pc.getqf("translokacja"..i.."_1")..", "..pc.getqf("translokacja"..i.."_2")..")")
                    end
                end
                say_title("System Translokacji:")
                say()
                if pc.get_skill_level(140) == 2 then
                    se = select(tablica[1], "Usuń lokalizację", "Zakończ")
                elseif pc.get_skill_level(140) == 3 then
                    se = select(tablica[1], tablica[2], "Usuń lokalizację", "Zakończ")
                elseif pc.get_skill_level(140) == 4 then
                    se = select(tablica[1], tablica[2], tablica[3], "Usuń lokalizację", "Zakończ")
                elseif pc.get_skill_level(140) == 5 then
                    se = select(tablica[1], tablica[2], tablica[3], tablica[4], "Usuń lokalizację", "Zakończ")
                elseif pc.get_skill_level(140) == 6 then
                    se = select(tablica[1], tablica[2], tablica[3], tablica[4], tablica[5], "Usuń lokalizację", "Zakończ")
                end
                if se == pc.get_skill_level(140)+1 then
                    return
                elseif se == pc.get_skill_level(140) then
                    say_title("System Translokacji:")
                    say()
                    say("Wybierz lokalizację do usunięcia.")
                    say()
                    if pc.get_skill_level(140) == 2 then
                        sel = select(tablica[1], "Zakończ")
                    elseif pc.get_skill_level(140) == 3 then
                        sel = select(tablica[1], tablica[2], "Zakończ")
                    elseif pc.get_skill_level(140) == 4 then
                        sel = select(tablica[1], tablica[2], tablica[3], "Zakończ")
                    elseif pc.get_skill_level(140) == 5 then
                        sel = select(tablica[1], tablica[2], tablica[3], tablica[4], "Zakończ")
                    elseif pc.get_skill_level(140) == 6 then
                        sel = select(tablica[1], tablica[2], tablica[3], tablica[4], tablica[5], "Zakończ")
                    end
                        if sel == pc.get_skill_level(140) then
                            return
                        else
                            if pc.getqf("translokacja"..i.."_3") == 0 then
                                say_title("System Translokacji:")
                                say()
                                say("Nie możesz usunąć niezapisanej lokalizacji!")
                                say()
                            else
                                for i = 1, 5 do
                                    pc.setqf("translokacja"..sel.."_"..i, 0)
                                end
                                say_title("System Translokacji:")
                                say()
                                say("Lokalizacja została usunięta!")
                                say()
                            end
                        end
                else
                    if pc.getqf("translokacja"..se.."_3") == 0 then
                        mapyZakazane = {66, 71, 72, 73, 81, 112, 113}
                        if table_is_in(mapyZakazane, pc.get_map_index()) then
                            if pc.get_map_index() == mapyZakazane[i] then
                                say_title("System Translokacji:")
                                say()
                                say("Nie możesz zapisać lokalziacji na tej mapie!")
                                say()
                                return
                            end
                        end
                        say_title("System Translokacji:")
                        say()
                        say("Czy na pewno chcesz zapisać tą lokalizację?")
                        say()
                        say(locale.map_name[pc.get_map_index()].." ("..pc.get_local_x()..", "..pc.get_local_y()..")")
                        sele = select("Tak", "Nie")
                            if s == 2 then
                                return
                            else
                                pc.setqf("translokacja"..se.."_1", pc.get_local_x())
                                pc.setqf("translokacja"..se.."_2", pc.get_local_y())
                                pc.setqf("translokacja"..se.."_3", pc.get_map_index())
                                pc.setqf("translokacja"..se.."_4", pc.get_x())
                                pc.setqf("translokacja"..se.."_5", pc.get_y())
                                say_title("System Translokacji:")
                                say()
                                say("Lokalizacja została pomyślnie zapisana!")
                                say()
                            end
                    else
                        pc.warp(pc.getqf("translokacja"..se.."_4")*100, pc.getqf("translokacja"..se.."_5")*100)
                        systemTranslokacji.ustawOczekiwanie()
                    end
                end
            end
        end
    end
end