testt

quest item_80009 begin
        state start begin
                when 80009.use begin
                        local nazwa_item = "Pierścień Teleportacji:"
                        say_title(nazwa_item)
                        say("Wybierz interesującą Ciebie opcje:")
                        say()
                        local wybor = select("Poziom", "Ranga", "Yang", "Anuluj")
                                if wybor == 4 then
                                        return
                                elseif wybor == 1 then
                                        say_title(nazwa_item)
                                        say("Podaj jaki chcesz posiadać poziom:")
                                        local poziom_ilosc = tonumber(input())
                                                if poziom_ilosc < 1 or poziom_ilosc > 250 then
                                                        say_title(nazwa_item)
                                                        say("Podałeś niepoprawną wartość ")
                                                else
                                                        pc.set_level(poziom_ilosc)
                                                        say_title(nazwa_item)
                                                        say("Otrzymałeś: "..poziom_ilosc.." poziom")
                                                end
                                elseif wybor == 2 then
                                        say_title(nazwa_item)
                                        say("Wybierz rangę: ")
                                        local ilosc_ranga = tonumber(input())
                                                if ilosc_ranga < -30000 or ilosc_ranga > 30000 then
                                                        say_title(nazwa_item)
                                                        say("Zła wartość!")
                                                else
                                                       pc.change_alignment(pc.get_alignment()+ilosc_ranga)
                                                        say_title(nazwa_item)
                                                        say("Otrzymałeś: "..ilosc_ranga.." pkt. rangi")
                                                end
                                elseif wybor == 3 then
                                        say_title(nazwa_item)
                                        say("Podaj ile yang chcesz otrzymać: ")
                                        local ilosc_yang = tonumber(input())
                                                if ilosc_yang < 1 or ilosc_yang > 1999999999 then
                                                        say_title(nazwa_item)
                                                        say("Podałeś złą ilość yang")
                                                else
                                                         pc.change_money(ilosc_yang)
                                                        say_title(nazwa_item)
                                                        say("Otrzymałeś: "..ilosc_yang.." yang")
                                                end
                                end
                end
        end
end