function c65000005.initial_effect(c)
 --fusion material
 c:EnableReviveLimit()
 aux.AddFusionProcCodeFun(c,aux.FilterBoolFunction(Card.IsCode,65000005))
 --spsummon condition
 local e1=Effect.CreateEffect(c)
 e1:SetType(EFFECT_TYPE_SINGLE)
 e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 e1:SetCode(EFFECT_SPSUMMON_CONDITION)
 e1:SetValue(c65000005.splimit)
 c:RegisterEffect(e1)
 --special summon rule
 local e2=Effect.CreateEffect(c)
 e2:SetType(EFFECT_TYPE_FIELD)
 e2:SetCode(EFFECT_SPSUMMON_PROC)
 e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
 e2:SetRange(LOCATION_EXTRA)
 e2:SetCondition(c65000005.sprcon)
 e2:SetOperation(c65000005.sprop)
 c:RegisterEffect(e2)
end
function c65000005.splimit(e,se,sp,st)
 return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end
function c65000005.spfilter1(c,tp,ft)
 if c:IsRace(RACE_FAIRY) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(true) and (c:IsControler(tp) or c:IsFaceup()) then
 if ft>0 or (c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)) then
 return Duel.IsExistingMatchingCard(c65000005.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c,tp)
 else
 return Duel.IsExistingMatchingCard(c65000005.spfilter2,tp,LOCATION_MZONE,0,1,c,tp)
 end
 else return false end
end
function c65000005.spfilter2(c,tp)
 return c:IsRace(RACE_FAIRY) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial() and (c:IsControler(tp) or c:IsFaceup())
end
function c65000005.sprcon(e,c)
 if c==nil then return true end
 local tp=c:GetControler()
 local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
 return ft>-1 and Duel.IsExistingMatchingCard(c65000005.spfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp,ft)
end
function c65000005.sprop(e,tp,eg,ep,ev,re,r,rp,c)
 local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
 Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(65000005,0))
 local g1=Duel.SelectMatchingCard(tp,c65000005.spfilter1,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil,tp,ft)
 local tc=g1:GetFirst()
 local g=Duel.GetMatchingGroup(c65000005.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,tc,tp)
 local g2=nil
 Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(65000005,1))
 if ft>0 or (tc:IsControler(tp) and tc:IsLocation(LOCATION_MZONE)) then
 g2=g:Select(tp,1,10,nil)
 else
 g2=g:FilterSelect(tp,Card.IsControler,1,1,nil,tp)
 if g:GetCount()>1 and Duel.SelectYesNo(tp,210) then
 Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(65000005,1))
 local g3=g:Select(tp,1,9,g2:GetFirst())
 g2:Merge(g3)
 end
 end
 g1:Merge(g2)
 Duel.Release(g1,REASON_COST)
 --spsummon condition
 local e1=Effect.CreateEffect(c)
 e1:SetType(EFFECT_TYPE_FIELD)
 e1:SetRange(LOCATION_MZONE)
 e1:SetCode(EFFECT_DESTROY_REPLACE)
 c:RegisterEffect(e1)
end