quest change_empire begin
    state start begin
        when 20090.chat."Αλλαγή Βασιλείου "  with game.get_event_flag("c_e") >0  begin

            local count = pc.get_change_empire_count() ;
            if count >= 1 then
                say("Δεν μπορείς να αλλάξεις βασίλειο!")
                say("")
                return
            end
            say_reward("Αλλαγή Βασιλείου: ")
            say("")
            say("Ώστε θέλεις να καταφύγεις σε ένα άλλο βασίλειο! ")
            say("Ο ηγέτης συντεχνίας δεν μπορεί να αλλάξει βασίλειο. ")
            say("Πρώτα πρέπει να αποχωρήσετε από την συντεχνία σας. ")
            say("Οι παντρεμένοι πρέπει να χωρίσουν για αλλαγή βασιλείου. ")
            say("Το κόστος της Αλλαγής Βασιλείου θα είναι 500.000 Yang. ")
            say("")
            say("Θέλεις πραγματικά να αλλάξεις βασίλειο; ")
            say("")

            local s = select("Ναι θέλω ", "Όχι δεν θέλω ")

            if s == 1 then
                change_empire.move_pc()
            end
        end

        when 71054.use begin
            say("Καλησπέρα!Με αυτό το αντικείμενο μπορείς ")
            say("να αλλάξεις το βασίλειο σου σε κάποιο άλλο!")

            if get_time() < pc.getqf("next_use_time") then
                say("Δεν μπορείς να αλλάξεις βασίλειο.")
                say("")

                if pc.is_gm() then
                    say("Είσαι GM και θέλεις ακόμα ; :Ρ ")
                    say("")
                    local s = select("Ναι ", "Όχι ")
                    if s == 1 then
                        say("ʼσε με βαρίεμαι :Ρ ")
                        pc.setqf("next_use_time", 0)
                    end
                end

                return
            end

            if change_empire.move_pc() == true then
                pc.setqf("next_use_time", get_time() + 86400 * 7)
            end
        end



        function move_pc()
            if pc.is_engaged() then
                say("Είσαι παντρέμενος-η. ")
                say("Δεν γίνεται να αλλάξεις βασίλειο. ")
                say("")
                return false
            end

            if pc.is_married() then
                say("Είσαι παντρέμενος-η. ")
                say("Δεν γίνετε να αλλάξεις βασίλειο. ")
                say("")
                return false
            end

            if pc.is_polymorphed() then
                say("Είσαι μεταμορφωμένος. ")
                say("Δεν γίνεται να αλλάξεις βασίλειο. ")
                say("")
                return false
            end

            if pc.has_guild() then
                say("Βρίσκεσαι σε συντεχνία. ")
                say("Δεν γίνετε να αλλάξεις βασίλειο. ")
                say("")
                return false
            end
            if pc.money < 500000 then
                say("Δεν έχεις αρκετά Yang. ")
                say("Θα χρειαστείς 500.000Yang για να συνεχίσεις. ")
                say("")
                return false
            end
            say("Επέλεξε βασίλειο.")
            local s = select("Shinsoo (Κόκκινο Βασίλειο) ", "Chunjo (Κίτρινο Βασίλειο) ", "Jinno (Μπλε Βασίλειο) ", "Κλείνω ")
            if 4==s then
                return false
            end
            say("")
            say_reward("Θέλεις αλήθεια να αλλάξεις βασίλειο; ")
            say_reward("Δεν υπάρχει δικαιολογία για την προδοσία! ")
            say("")
            local a = select("Ναι θέλω ", "Όχι δεν θέλω ")
            if 2== a then
                return false
            end

            local ret = pc.change_empire(s)
            local oldempire = pc.get_empire()
            if ret == 999 then
                say("ʼλλαξες με επιτυχία βασίλειο. ")
                say("Παρακαλώ ξανασυνδεθείτε. ")
                say("")
                pc.change_gold(-500000)
                pc.remove_item(71054) ;

                char_log(0, "CHANGE_EMPIRE",string.format("%d -> %d", oldempire, s))

                return  true
            else
                if ret == 1 then
                    say("Βρίσκεσαι ήδη σε αυτό το βασίλειο. ")
                    say("Παρακαλώ επελέξε ένα άλλο. ")
                    say("")
                    say("")
                elseif ret == 2 then
                    say("Η αλλαγή βασιλείου δεν είναι διαθέσιμη. ")
                    say("Δεν μπορείς να αλλάξεις βασίλειο, ενώ πρόσφατα ήσουν σε συντεχνία. ")
                    say("")
                    say("")
                elseif ret == 3 then
                    say("Η αλλαγή βασιλείου δεν είναι διαθέσιμη. ")
                    say("Δεν μπορείς να αλλάξεις πρόσφατα, λόγο ότι χώρισες πρόσφατα. ")
                    say("")
                end
            end
            return false
        end

    end
end