function onModalWindow(player, modalWindowId, buttonId, choiceId)
  player:unregisterEvent("choiceFamiliar")
    if modalWindowId == 1000 then
        if buttonId == 100 then
            if choiceId == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 1)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Normal Familiar as your Familiar.")
            elseif choiceId == 2 then
            if player:getStorageValue(Expeditions.BlackDracadetPet) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 1)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Black Dracadet as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 3 then
                if player:getStorageValue(Expeditions.BlackDracadetPet2) == 1 then
                    player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                    player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 1)
                    player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                    player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                    player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                    player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                    player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                    player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                    player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                    player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                    player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                    player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Black Dracadet [2] as your Familiar.")
                else
                    player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
                end
            elseif choiceId == 4 then
            if player:getStorageValue(Expeditions.BlackDracadetPet3) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 1)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Black Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 5 then
            if player:getStorageValue(Expeditions.FrostDracadetPet) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 1)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 1)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Frost Dracadet as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 6 then
                if player:getStorageValue(Expeditions.FrostDracadetPet2) == 1 then
                    player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                    player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                    player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                    player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 1)
                    player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                    player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                    player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                    player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                    player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                    player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                    player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                    player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                    player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Frost Dracadet [2] as your Familiar.")
                else
                    player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
                end
            elseif choiceId == 7 then
            if player:getStorageValue(Expeditions.FrostDracadetPet3) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 1)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Frost Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 8 then
            if player:getStorageValue(Expeditions.SwampDracadetPet3) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 1)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Swamp Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 9 then
            if player:getStorageValue(Expeditions.SwampDracadetPet2) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 1)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Swamp Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 10 then
            if player:getStorageValue(Expeditions.SwampDracadetPet) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 1)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Swamp Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 11 then
            if player:getStorageValue(Expeditions.StoneDracadetPet3) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 1)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Stone Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 12 then
            if player:getStorageValue(Expeditions.StoneDracadetPet2) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 1)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Stone Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 13 then
            if player:getStorageValue(Expeditions.StoneDracadetPet) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 1)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Stone Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 14 then
            if player:getStorageValue(Expeditions.FireDracadetPet3) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 1)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Fire Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 15 then
            if player:getStorageValue(Expeditions.FireDracadetPet2) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 1)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 0)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Fire Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
            elseif choiceId == 16 then
            if player:getStorageValue(Expeditions.FireDracadetPet) == 1 then
                player:setStorageValue(Expeditions.NormalFamiliarChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.BlackDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FrostDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.SwampDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.StoneDracadetPetChoice3, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice2, 0)
                player:setStorageValue(Expeditions.FireDracadetPetChoice3, 1)
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You have chosen Fire Dracadet [3] as your Familiar.")
            else
                player:sendTextMessage(MESSAGE_INFO_DESCR, "You need unlock this familiar first.")
            end
        else
            player:sendTextMessage(MESSAGE_INFO_DESCR, "You cancelled the selection.")
        end
    end
end
end