54188

expansions/script/c12886001.lua

@@ -13,6 +13,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 end
+cm.fusion_effect=true
 function cm.filter0(c)
 	return c:IsRace(RACE_CYBERSE) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
 end

expansions/script/c18586004.lua

@@ -26,6 +26,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.ssop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.ffilter(c,fc,sub,mg,sg)
 	return (not c:IsType(TYPE_TOKEN)) and (not sg or sg:FilterCount(aux.TRUE,c)==0 or sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()))
 end

expansions/script/c18586009.lua

@@ -25,6 +25,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.hspop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.ffilter(c,fc,sub,mg,sg)
 	return (not c:IsType(TYPE_TOKEN)) and (not sg or sg:FilterCount(aux.TRUE,c)==0 or sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()))
 end

expansions/script/c18586080.lua

@@ -13,6 +13,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 end
+cm.fusion_effect=true
 function cm.filter(c,e,tp)
 	return c:IsPosition(POS_FACEUP)
 		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp,c:GetCode())

expansions/script/c18586081.lua

@@ -20,6 +20,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.setop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.filter0(c)
 	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToRemove()
 end

expansions/script/c18586082.lua

@@ -24,6 +24,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.thop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.exconfilter(c,tp)
 	return c:IsFaceup() and not c:IsType(TYPE_TOKEN) and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_MZONE,0,1,c,c:GetCode())
 end

expansions/script/c18586083.lua

@@ -14,6 +14,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 end
+cm.fusion_effect=true
 function cm.filter(c,e,tp)
 	return c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
 		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp,c:GetCode())

expansions/script/c18586086.lua

@@ -25,6 +25,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.rmop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.filter0(c)
 	return (c:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE) or c:IsFaceup()) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
 end

expansions/script/c18587082.lua

@@ -27,6 +27,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.spop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.cfilter(c)
 	return c:IsFaceup() and not c:IsType(TYPE_TOKEN)
 end

expansions/script/c21580097.lua

@@ -14,6 +14,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.fsop)
 	c:RegisterEffect(e1)
 end
+cm.fusion_effect=true
 function cm.filter(c,e,tp,m,f,chkf)
 	return c:IsType(TYPE_FUSION) and (not f or f(c))
 		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)

expansions/script/c30722003.lua

@@ -12,6 +12,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.spop)
 	c:RegisterEffect(e1)
 end
+cm.fusion_effect=true
 function cm.filter0(c)
 	return c:IsRace(RACE_FAIRY+RACE_SPELLCASTER) and c:IsAbleToGrave()
 end

expansions/script/c31300022.lua

---虚拟神使 miko
+--mikodanye
 local s,id,o=GetID()
 function s.initial_effect(c)
-	--fusion material
-	c:EnableReviveLimit()
-	aux.AddFusionProcCodeFun(c,s.ffilter,aux.FilterBoolFunction(Card.IsFusionType,TYPE_EFFECT),1,true,true)
-	--Special Summon
-	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(2)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCondition(s.tkcon)
-	e1:SetTarget(s.tktg)
-	e1:SetOperation(s.tkop)
-	c:RegisterEffect(e1)
-	s.fp_effect=e1
-	--special summon
+	s.specialrule(c)
+	s.atkup(c)
+	s.specialsum(c)
+end
+
+
+
+
+
+
+
+
+function s.specialsum(c)
+	--Special Summon 
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(2)
-	e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetHintTiming(0,TIMING_END_PHASE+TIMINGS_CHECK_MONSTER)
-	e2:SetCountLimit(1,id)
-	e2:SetCost(s.bfgcost)
-	e2:SetTarget(s.target)
-	e2:SetOperation(s.operation)
+	e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
+	e2:SetCode(EVENT_DESTROYED)
+	e2:SetCountLimit(1,id+114)
+	e2:SetCondition(s.spcon2)
+	e2:SetTarget(s.sptg2)
+	e2:SetOperation(s.spop2)
 	c:RegisterEffect(e2)
 end
-function s.ffilter(c)
-	return c:IsRace(RACE_CYBERSE) or c:IsFusionAttribute(ATTRIBUTE_FIRE)
-end
-function s.tkcon(e,tp,eg,ep,ev,re,r,rp)
+function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	return re and re:IsActiveType(TYPE_MONSTER) and c:IsSummonType(SUMMON_TYPE_FUSION)
+	return bit.band(r,REASON_EFFECT+REASON_BATTLE)~=0 and c:IsPreviousLocation(LOCATION_ONFIELD)
+		 and c:GetFlagEffect(id)==0
 end
-function s.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then 
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
-	local res1=Duel.GetLocationCount(tp,LOCATION_MZONE)>1
-		and Duel.IsPlayerCanSpecialSummonMonster(tp,31300021,nil,TYPES_TOKEN_MONSTER,35,35,4,RACE_CYBERSE,ATTRIBUTE_FIRE,POS_FACEUP)
-			and Duel.IsPlayerCanSpecialSummonMonster(tp,31300022,nil,TYPES_TOKEN_MONSTER,35,35,4,RACE_CYBERSE,ATTRIBUTE_FIRE,POS_FACEUP)
-	local res2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)>1
-		and Duel.IsPlayerCanSpecialSummonMonster(1-tp,31300021,nil,TYPES_TOKEN_MONSTER,35,35,4,RACE_CYBERSE,ATTRIBUTE_FIRE,POS_FACEUP)
-			and Duel.IsPlayerCanSpecialSummonMonster(1-tp,31300022,nil,TYPES_TOKEN_MONSTER,35,35,4,RACE_CYBERSE,ATTRIBUTE_FIRE,POS_FACEUP)
-	return res1 or res2 end
-	Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,2,0,0)
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,0,0)
-	e:GetHandler():RegisterFlagEffect(id,RESET_CHAIN,0,1)
-	Duel.RegisterFlagEffect(tp,31300036,RESET_CHAIN,EFFECT_FLAG_OATH,1)
+function s.spfilter(c,e,tp)
+	return c:IsAttack(35) and c:CheckFusionMaterial()
+		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
 end
-function s.tkop(e,tp,eg,ep,ev,re,r,rp)
-	s.tkop2(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetFlagEffect(tp,31300037)>0 then 
-		Duel.Hint(HINT_CARD,0,31300036)
-		s.tkop2(e,tp,eg,ep,ev,re,r,rp)
-	end
+function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return aux.MustMaterialCheck(nil,tp,EFFECT_MUST_BE_FMATERIAL)
+		and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
-function s.tkop2(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
-	local res1=Duel.GetLocationCount(tp,LOCATION_MZONE)>1
-		and Duel.IsPlayerCanSpecialSummonMonster(tp,31300021,nil,TYPES_TOKEN_MONSTER,35,35,3,RACE_CYBERSE,ATTRIBUTE_FIRE,POS_FACEUP)
-			and Duel.IsPlayerCanSpecialSummonMonster(tp,31300022,nil,TYPES_TOKEN_MONSTER,35,35,3,RACE_CYBERSE,ATTRIBUTE_FIRE,POS_FACEUP)
-	local res2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)>1
-		and Duel.IsPlayerCanSpecialSummonMonster(1-tp,31300021,nil,TYPES_TOKEN_MONSTER,35,35,3,RACE_CYBERSE,ATTRIBUTE_FIRE,POS_FACEUP)
-			and Duel.IsPlayerCanSpecialSummonMonster(1-tp,31300022,nil,TYPES_TOKEN_MONSTER,35,35,3,RACE_CYBERSE,ATTRIBUTE_FIRE,POS_FACEUP)
-	local off=1
-	local ops={}
-	local opval={}
-	if res1 then
-		ops[off]=102
-		opval[off-1]=1
-		off=off+1
-	end
-	if res2 then
-		ops[off]=103
-		opval[off-1]=2
-		off=off+1
-	end
-	local op=Duel.SelectOption(tp,table.unpack(ops))
-	local sel=opval[op]
-	local p=tp
-	if sel~=1 then p=1-tp end 
-	for i=1,2 do
-		local token=Duel.CreateToken(tp,31300020+i)
-		Duel.SpecialSummonStep(token,0,tp,p,false,false,POS_FACEUP)
-		local e1=Effect.CreateEffect(e:GetHandler())
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetCode(EFFECT_UNRELEASABLE_SUM)
-		e1:SetValue(1)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		token:RegisterEffect(e1,true)
-		local e2=e1:Clone()
-		e2:SetCode(EFFECT_UNRELEASABLE_NONSUM)
-		token:RegisterEffect(e2,true)
-		local e3=e2:Clone()
-		e3:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
-		token:RegisterEffect(e3,true)
-		local e4=e2:Clone()
-		e4:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
-		token:RegisterEffect(e4,true)
+function s.spop2(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+	local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
+	if g:GetCount()>0 then
+		Duel.SpecialSummon(g,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
 	end
-	Duel.SpecialSummonComplete()
-end
-function s.bfgcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
-	Duel.Remove(e:GetHandler(),POS_FACEDOWN,REASON_COST)
-end
-function s.filter0(c)
-	return c:IsFaceup() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
-end
-function s.filter1(c,e)
-	return c:IsFaceupEx() and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
 end
-function s.filter2(c,e,tp,m,f,chkf,check)
-	return c:IsType(TYPE_FUSION) and (check or c:IsAttack(35)) and (not f or f(c))
-		and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
-end
-function s.checkfilter(c)
-	return c:GetBaseAttack()==35 and c:IsFaceup()
+
+
+function s.atkup(c)
+	--tograve
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(1371)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DELAY)
+	e1:SetCountLimit(1,id)
+	e1:SetCondition(s.atkcon)
+	e1:SetOperation(s.atkop)
+	c:RegisterEffect(e1)
 end
-function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
+function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	if chk==0 then
-		if Duel.GetLocationCount(tp,LOCATION_MZONE)==0 then return end
-		local chkf=tp
-		local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
-		local mg=Duel.GetMatchingGroup(s.filter0,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c)
-		local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,nil,chkf,check)
-		if not res then
-			local ce=Duel.GetChainMaterial(tp)
-			if ce~=nil then
-				local fgroup=ce:GetTarget()
-				local mg3=fgroup(ce,e,tp)
-				local mf=ce:GetValue()
-				res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf,check)
-			end
-		end
-		return res
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
+	return c:IsSummonType(SUMMON_TYPE_XYZ) and c:GetFlagEffect(id)==0
 end
-function s.operation(e,tp,eg,ep,ev,re,r,rp)
+function s.atkop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local chkf=tp
-	local check=Duel.IsExistingMatchingCard(s.checkfilter,tp,LOCATION_MZONE,0,1,nil)
-	local mg=Duel.GetMatchingGroup(s.filter1,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,c,e)
-	local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,nil,chkf,check)
-	local mg3=nil
-	local sg2=nil
-	local ce=Duel.GetChainMaterial(tp)
-	if ce~=nil then
-		local fgroup=ce:GetTarget()
-		mg3=fgroup(ce,e,tp)
-		local mf=ce:GetValue()
-		sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,mf,chkf,check)
+	if not c:IsRelateToEffect(e) or c:IsFacedown() then return end
+	local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+	local og=c:GetOverlayGroup():Filter(Card.IsAttack,nil,35)
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_COPY_INHERIT)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
+	e1:SetValue(3500)
+	c:RegisterEffect(e1)
+	for tc in aux.Next(sg) do
+		local e2=Effect.CreateEffect(c)
+		e2:SetType(EFFECT_TYPE_SINGLE)
+		e2:SetCode(EFFECT_UPDATE_ATTACK)
+		e2:SetValue(-3500)
+		e2:SetReset(RESET_EVENT+RESETS_STANDARD)
+		tc:RegisterEffect(e2)
 	end
-	if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
-		local sg=sg1:Clone()
-		if sg2 then sg:Merge(sg2) end
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local tg=sg:Select(tp,1,1,nil)
-		local tc=tg:GetFirst()
-		if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
-			local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf)
-			tc:SetMaterial(mat)
-			Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
-			Duel.BreakEffect()
-			Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
-		else
-			local mat2=Duel.SelectFusionMaterial(tp,tc,mg3,nil,chkf)
-			local fop=ce:GetOperation()
-			fop(ce,e,tp,tc,mat2)
-		end
-		tc:CompleteProcedure()
+	if og:GetClassCount(Card.GetCode)>2 then	
+		Duel.BreakEffect()
+		local g=Duel.GetDecktopGroup(tp,5)
+		Duel.Overlay(c,g)
 	end
 end
+
+function s.specialrule(c)
+	--xyz summon
+	aux.AddXyzProcedure(c,nil,5,3,s.ovfilter,aux.Stringid(id,0),3,s.xyzop)
+	c:EnableReviveLimit()
+end
+function s.ovfilter(c)
+	return c:IsFaceup() and c:IsRace(RACE_CYBERSE)
+end
+function s.xyzop(e,tp,chk)
+	if chk==0 then return true end
+	local c=e:GetHandler()
+	local reset=RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_PHASE+PHASE_END
+	--local e2=Effect.CreateEffect(c)
+	--e2:SetType(EFFECT_TYPE_SINGLE)
+	--e2:SetCode(EFFECT_CANNOT_TRIGGER)
+	--e2:SetReset(reset)
+	--c:RegisterEffect(e2)
+	c:RegisterFlagEffect(id,reset,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,1))
+end
\ No newline at end of file

expansions/script/c31300041.lua

@@ -25,7 +25,8 @@ end
 function s.atktg(e,c)
 	if c:GetBaseAttack()~=35 then return false end
 	local tp=e:GetHandlerPlayer()
-	return aux.GetColumn(c,tp)==e:GetHandler():GetSequence() 
+	return c:IsType(TYPE_FUSION) and aux.GetColumn(c,tp)==e:GetHandler():GetSequence() 
+		and c:GetSequence()<5
 end
 
 

expansions/script/c31300043.lua

@@ -52,39 +52,71 @@ end
 
 
 
+
 function s.specialsum(c)
+	if not s.global_check then
+		s.global_check=true
+		local ge1=Effect.CreateEffect(c)
+		ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+		ge1:SetCode(EVENT_SUMMON_SUCCESS)
+		ge1:SetOperation(s.chk)
+		Duel.RegisterEffect(ge1,0)
+		local ge2=ge1:Clone()
+		ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
+		Duel.RegisterEffect(ge2,0)
+	end
 	--special summon
 	local e1=Effect.CreateEffect(c)
-	e1:SetDescription(1109)
-	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SEARCH+CATEGORY_TOHAND)
+	e1:SetDescription(2)
+	e1:SetCategory(CATEGORY_REMOVE)
 	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
 	e1:SetProperty(EFFECT_FLAG_DELAY)
 	e1:SetCode(EVENT_TO_HAND)
 	e1:SetCountLimit(1,id)
-	e1:SetTarget(s.thtg)
-	e1:SetOperation(s.thop)
+	e1:SetTarget(s.sptg)
+	e1:SetOperation(s.spop)
 	c:RegisterEffect(e1)
 end
-
-function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,nil) end
-	local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,nil)
-	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-end
-function s.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD+LOCATION_HAND,0,1,4,nil)
-	local ct=Duel.Destroy(g,REASON_EFFECT)
-	local sg=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
-	if ct>0 and ct-1>=#sg and Duel.SelectYesNo(tp,1109) then
-		Duel.BreakEffect()
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local tg=sg:Select(tp,ct-1,ct-1,nil)
-		Duel.SendtoHand(tg,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,tg)
+function s.chk(e,tp,eg,ep,ev,re,r,rp)
+	for tc in aux.Next(eg) do
+		local p=tc:GetSummonPlayer()
+		if tc:IsRace(RACE_ROCK) and Duel.GetFlagEffect(p,id)==0 then
+			Duel.RegisterFlagEffect(p,id,RESET_PHASE+PHASE_END,0,0)
+		end
 	end
 end
-function s.thfilter(c)
-	return c:IsCode(31300047) and c:IsAbleToHand()
+function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
 end
-
+function s.spop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_PHASE+PHASE_END)
+	e1:SetCountLimit(1)
+	e1:SetOperation(s.tgop)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_UPDATE_LEVEL)
+	e2:SetTargetRange(LOCATION_HAND,0)
+	e2:SetValue(4)
+	e2:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e2,tp)
+end
+function s.rmfilter(c)
+	return c:IsAbleToRemove() and c:IsFacedown()
+end
+function s.tgop(e,tp,eg,ep,ev,re,r,rp)
+	if Duel.GetFlagEffect(tp,id)==0 then
+		Duel.Hint(HINT_CARD,0,id)
+		local g=Duel.GetMatchingGroup(s.rmfilter,tp,LOCATION_EXTRA,0,nil)
+		local ct=math.min(#g,4)
+		if ct>0 then
+			local sg=g:RandomSelect(tp,ct)
+			Duel.Remove(sg,POS_FACEDOWN,REASON_EFFECT)
+		end
+	end
+	e:Reset()
+end
\ No newline at end of file

expansions/script/c31300051.lua

--- 魔人 Bijou
+--魔人 Bijou
 local s,id,o=GetID()
 function s.initial_effect(c)
 	s.specialsum(c)
@@ -7,7 +7,7 @@ end
 
 
 function s.searchcard(c)
-	-- to hand
+	--to hand
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(1109)
 	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
@@ -46,7 +46,7 @@ end
 
 
 function s.specialsum(c)
-	-- special summon
+	--special summon
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(1109)
 	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
@@ -84,12 +84,12 @@ function s.thop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 		local sc=sg:Select(tp,1,1,nil):GetFirst()
 		if sc and Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)~=0 then
-			-- 
+			--
 			local e2=Effect.CreateEffect(c)
 			e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
 			e2:SetType(EFFECT_TYPE_IGNITION)
 			e2:SetRange(LOCATION_MZONE)
-			-- e2:SetCountLimit(1)
+			--e2:SetCountLimit(1)
 			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
 			e2:SetTarget(s.target)
 			e2:SetOperation(s.operation)

expansions/script/c65009020.lua

@@ -25,6 +25,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.spop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 cm.att2000aqua=true
 function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and aux.NegateEffectMonsterFilter(chkc) end

expansions/script/c81000004.lua

@@ -18,6 +18,7 @@ function cm.initial_effect(c)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_FLIPSUMMON,cm.counterfilter)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_CHAIN,cm.chainfilter)
 end
+cm.fusion_effect=true
 function cm.chainfilter(re,tp,cid)
 	return not re:IsActiveType(TYPE_MONSTER)
 end

expansions/script/c81000009.lua

@@ -17,6 +17,7 @@ function cm.initial_effect(c)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_FLIPSUMMON,cm.counterfilter)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_CHAIN,cm.chainfilter)
 end
+cm.fusion_effect=true
 function cm.chainfilter(re,tp,cid)
 	return not re:IsActiveType(TYPE_MONSTER)
 end

expansions/script/c81000010.lua

@@ -17,6 +17,7 @@ function cm.initial_effect(c)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_FLIPSUMMON,cm.counterfilter)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_CHAIN,cm.chainfilter)
 end
+cm.fusion_effect=true
 function cm.chainfilter(re,tp,cid)
 	return not re:IsActiveType(TYPE_MONSTER)
 end

expansions/script/c81000011.lua

@@ -20,6 +20,7 @@ function cm.initial_effect(c)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_FLIPSUMMON,cm.counterfilter)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_CHAIN,cm.chainfilter)
 end
+cm.fusion_effect=true
 function cm.chainfilter(re,tp,cid)
 	return not re:IsActiveType(TYPE_MONSTER)
 end

expansions/script/c81000012.lua

@@ -17,6 +17,7 @@ function cm.initial_effect(c)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_FLIPSUMMON,cm.counterfilter)
 	Duel.AddCustomActivityCounter(m,ACTIVITY_CHAIN,cm.chainfilter)
 end
+cm.fusion_effect=true
 function cm.chainfilter(re,tp,cid)
 	return not re:IsActiveType(TYPE_MONSTER)
 end

expansions/script/c81004018.lua

@@ -24,6 +24,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.spop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return not e:GetHandler():IsPublic() end
 end

expansions/script/c81009046.lua

@@ -21,6 +21,7 @@ function cm.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.cfilter(c)
 	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x66e1) and c:IsDiscardable()
 end

expansions/script/c81015050.lua

@@ -25,6 +25,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.dspop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.filter1(c,e)
 	return not c:IsImmuneToEffect(e)
 end

expansions/script/c81018024.lua

@@ -21,6 +21,7 @@ function c81018024.initial_effect(c)
 	e3:SetOperation(c81018024.spop)
 	c:RegisterEffect(e3)
 end
+cm.fusion_effect=true
 function c81018024.filter(c)
 	return c:IsSetCard(0x81b) and c:IsAbleToHand()
 end

expansions/script/c81018036.lua

@@ -21,6 +21,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.atkop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.filter1(c,e)
 	return not c:IsImmuneToEffect(e)
 end

expansions/script/c81020010.lua

@@ -23,6 +23,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.fsop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.rpfilter(c)
 	return c:IsFaceup() and c:IsSetCard(0x381f)
 end

expansions/script/c81046002.lua

@@ -25,6 +25,7 @@ function cm.initial_effect(c)
 	e2:SetValue(cm.repval)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.ffilter(c)
 	return c:IsFusionType(TYPE_EFFECT) and c:GetBaseAttack()>=2000
 end

expansions/script/c81068020.lua

@@ -28,6 +28,7 @@ function cm.initial_effect(c)
 	e3:SetCondition(cm.setcon2)
 	c:RegisterEffect(e3)
 end
+cm.fusion_effect=true
 function cm.filter0(c)
 	return c:IsSetCard(0x817) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
 end

expansions/script/c81086001.lua

@@ -26,6 +26,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.fusop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.cfilter(c,ft)
 	return c:IsAttack(1550) and c:IsDefense(1050) and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and not c:IsCode(m) and c:IsAbleToGraveAsCost()
 		and (ft>0 or c:GetSequence()<5)

expansions/script/c81086007.lua

@@ -31,6 +31,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.spop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.mfilter(c)
 	return c:IsAttack(1550) and c:IsDefense(1050)
 end

expansions/script/c81086016.lua

@@ -26,6 +26,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.spop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.mfilter(c)
 	return c:IsAttack(1550) and c:IsDefense(1050)
 end

expansions/script/c81086018.lua

@@ -24,6 +24,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.drop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 cm.att1550_def1050=true
 function cm.filter1(c,e)
 	return not c:IsImmuneToEffect(e)

expansions/script/c81086030.lua

@@ -35,6 +35,7 @@ function cm.initial_effect(c)
 	e3:SetOperation(cm.negop)
 	c:RegisterEffect(e3)
 end
+cm.fusion_effect=true
 cm.att1550_def1050=true
 function cm.fspcon(e,tp,eg,ep,ev,re,r,rp)
 	local ph=Duel.GetCurrentPhase()

expansions/script/c85481012.lua

@@ -26,6 +26,7 @@ function cm.initial_effect(c)
 	e4:SetOperation(cm.ssop)
 	c:RegisterEffect(e4)
 end
+cm.fusion_effect=true
 function cm.ffilter(c)
 	return c:IsLevelBelow(4) and c:IsType(TYPE_MONSTER)
 end

expansions/script/c85481993.lua

@@ -25,6 +25,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.lrmop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.filter0(c)
 	return (c:IsLocation(LOCATION_ONFIELD+LOCATION_GRAVE) or c:IsFaceup()) and c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToDeck()
 end

expansions/script/c85481995.lua

@@ -22,6 +22,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.thop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.filter1(c,e)
 	return not c:IsImmuneToEffect(e)
 end

expansions/script/c85481996.lua

@@ -22,6 +22,7 @@ function cm.initial_effect(c)
 	e2:SetOperation(cm.spop)
 	c:RegisterEffect(e2)
 end
+cm.fusion_effect=true
 function cm.filter0(c)
 	return c:IsOnField() and c:IsAbleToRemove()
 end

expansions/script/c85481997.lua

@@ -14,6 +14,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 end
+cm.fusion_effect=true
 function cm.filter(c,tp)
 	return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)
 end

expansions/script/c85481999.lua

@@ -12,6 +12,7 @@ function cm.initial_effect(c)
 	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 end
+cm.fusion_effect=true
 function cm.filter0(c)
 	return c:IsFaceup() and c:IsCanBeFusionMaterial()
 end