quest handel_zwierzakiem begin
    state start begin
        when 20087.chat."Hodowla Zwierzątek" begin
            say_cegla("  Wonda-Rim:")
            say("")
            say("Witaj Poszukiwaczu Przygód!")
            say("Zajmuję się hodowlą zwierzątek, w świecie")
            say("Temerica! Każdy pupil, jest przywiązany do")
            say("swego właściciela, jednakże istnieje specjalna")
            say("Klatka Transportowa, dzięki której możesz")
            say("przekazać zwierzątko, innej osobie.")
            say_item_vnum(77003)
            say_title("Jeżeli jesteś w posiadaniu Klatki Transportowej,")
            say_title("przywołaj zwierzątko, które chcesz w niej")
            say_title("umieścić. Następnie przeciągnij i upuść jego")
            say_title("pieczęć, na Wonda-Rima, aby rozpocząć proces")
            say_title("zamykania swojego pupila.")
            say_zloto("Natomiast jeśli posiadasz Klatkę Transportową, ")
            say_zloto("w której kryje się już zwierzątko, przeciągnij")
            say_zloto("i upuść ją na Wonda-Rima, aby rozpocząć proces")
            say_zloto("wyciągania umieszczonego w niej pupila.")
            say("")
        end
        when 20087.take with item.vnum == 53001 or item.vnum == 53002
            or item.vnum == 53003 or item.vnum == 53004 or item.vnum == 53005
            or item.vnum == 53006 or item.vnum == 53007 or item.vnum == 53008
            or item.vnum == 53009 or item.vnum == 53010 or item.vnum == 53011
            or item.vnum == 53012 or item.vnum == 53016 or item.vnum == 53017
            or item.vnum == 53021 or item.vnum == 53022 or item.vnum == 53023
            or item.vnum == 53024 or item.vnum == 53222 or item.vnum == 53223
            or item.vnum == 53224 or item.vnum == 53225 or item.vnum == 53226
            or item.vnum == 53227 or item.vnum == 53232 or item.vnum == 53233
            or item.vnum == 55701 or item.vnum == 53234 or item.vnum == 53235
            or item.vnum == 53013 or item.vnum == 77002 begin
            local sockets = item.get_socket(0)
            local item_vnum = item.get_vnum()
            local item_cell = item.get_cell()

            local pet_special_id =  item.get_id()
            local pet_level =  item.get_socket(0)
            local pet_exp =  item.get_socket(1)

            if sockets != 0 and item.get_vnum() != 77002 then
                say_cegla("  Wonda-Rim:")
                say("")
                say("Witaj Poszukiwaczu Przygód!")
                say("Widzę, że jesteś zainteresowany moimi usługami,")
                say("dzięki którym będziesz w stanie przekazać swego")
                say("pupila, innej osobie. Pamiętaj jednak, aby")
                say("przywołać zwierzątko, które chcesz umieścić ")
                say("w Klatce Transportowej.")
                say("")
                say_title("Czy na pewno chcesz rozpocząć proces zamykania")
                say_title("swojego pupila w klatce?")
                say("")
                local s = select("Tak, chcę to zrobić! ", "Nie, nie chcę... ")
                if s == 2 then
                    return
                else
                    if pc.count_item(77003) < 1 then
                        say_cegla("  Wonda-Rim:")
                        say("")
                        say("Przykro mi, lecz nie mogę tego zrobić... ")
                        say("Niestety nie posiadasz Klatki Transportowej.")
                        say_item_vnum(77003)
                        say_title("Zdobądź ją i wróć ponownie, aby umieścić w niej")
                        say_title("swoje zwierzątko.")
                        say("")
                        return
                    end
                    if pet.count_summoned() < 1 then
                        say_cegla("  Wonda-Rim:")
                        say("")
                        say("Przykro mi, lecz nie mogę tego zrobić... ")
                        say("Niestety nie przywołałeś żadnego zwierzątka,")
                        say("które mógłbym umieścić w dostarczonej przez")
                        say("Ciebie Klatce Transportowej.")
                        say("")
                        say_title("Przywołaj swego pupila, którego chcesz zamknąć ")
                        say_title("w klatce i spróbuj ponownie.")
                        say("")
                        return
                    else
                        if pet_level <= 3 then
                            syschat("Twoje zwierzątko nie jest odpowiednio rozwinięte, aby przetrwało w klatce!")
                            syschat("Musisz rozwinąć je minimum na trzeci poziom.")
                        return
                        end
                        item.remove()
                        pc.remove_item(77003, 1)
                        pc.give_item2_select(77002)
                        item.set_socket(0, item_vnum)
                        item.set_socket(1, pet_level)
                        item.set_socket(2, pet_exp)
                        syschat("Proces umieszczania zwierzątka w Klatce Transportowej, został zakończony!")
                        syschat("Poziom doświadczenia pupila: Lv. "..pet_level)
                        syschat("Ilość zgromadzonych Punktów Doświadczenia: "..pet_exp)
                    end
                end
            elseif sockets != 0 and item.get_vnum() == 77002 then
                say_cegla("  Wonda-Rim:")
                say("")
                say("Witaj Poszukiwaczu Przygód!")
                say("Widzę, że wszedłeś w posiadanie Klatki")
                say("Transportowej, we wnętrzu której kryje się ")
                say("zwierzątko, które w każdej chwili mogę z niej")
                say("wyciągnąć. Pamiętaj jednak, że pupila,")
                say("znajdującego się poza klatką, nie możesz w żaden")
                say("sposób przekazać innej osobie.")
                say("")
                say_title("Czy na pewno chcesz, abym wyciągnął zwierzątko")
                say_title("ze zdobytej przez Ciebie Klatki Transportowej?")
                say("")
                local dsa = select("Oczywiście, że tak! ", "Może innym razem... ")
                if dsa == 2 then
                    return
                else
                    local item_vnum = item.get_socket(0)
                    local pet_level = item.get_socket(1)
                    local pet_exp = item.get_socket(2)
                    item.remove()
                    pc.give_item2_select(item_vnum)
                    item.set_socket(0, pet_level)
                    item.set_socket(1, pet_exp)
                    item.set_socket(2, pet_level-1)
                end
            else
                say_cegla("  Wonda-Rim:")
                say("")
                say("Przykro mi, lecz nie mogę tego zrobić... ")
                say("Niestety nie przywołałeś żadnego zwierzątka,")
                say("które mógłbym umieścić w dostarczonej przez")
                say("Ciebie Klatce Transportowej.")
                say("")
                say_title("Przywołaj swego pupila, którego chcesz zamknąć ")
                say_title("w klatce i spróbuj ponownie.")
                say("")
                return
            end
        end
    end
end