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/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