quest sklepachievement begin
    state start begin
        when 33003.chat."Kim Jesteś ?" begin
			say_title(""..mob_name(33003)..":")
            say("Witaj, ja pomogę ci wymienić Twoje ")
            say("Punkty Osiągnięć za cenne przedmioty.")
            say("Bla Bla Bla ...")
            set_state("sklepachieven")
        end
    end
	state sklepachieven begin
        when 33003.chat."Wymiana Punktów Osiągnięć " begin
			say_title(""..mob_name(33003)..":")
			say("")
			say("Ilość punktów: "..pc.getqf("achievement", "achievement_points")..".")
			local s = select ("Ulepszacze", "ItemShop", "Inne", "Zamknij sklep ")
			if s == 4 then
				return

---------------********** Ulepszacze **********---------------
			-- Biała Perła 27992
			-- Niebieska Perła 27993
			-- Czerwona Perła 27994

			elseif s == 1 then
				say_title(""..mob_name(33003)..":")
				say("Wybierz :[ENTER]")
				local s = select("Biała Perła " , "Niebieska Perła " , "Czerwona Perła " , "Cos 1 " , "Cos2 " , "Anuluj ")
				if s == 6 then
					return
				end
---------------********** ItemShop **********-----------------
			elseif s == 2 then
				say_title(""..mob_name(33003)..":")
				say("Wybierz :[ENTER]")
				local s = select("Cos 1 " , "Cos 2 " , "Cos 3 " , "Cos 4 " , "Cos 5 " , "Anuluj ")
				if s == 6 then
					return
				end
---------------********** Inne **********---------------------
			elseif s == 2 then
				say_title(""..mob_name(33003)..":")
				say("Wybierz :[ENTER]")
				local s = select("Cos 1 " , "Cos 2 " , "Cos 3 " , "Cos 4 " , "Cos 5 " , "Anuluj ")
				if s == 6 then
					return
				end
			end
		end
	end
end