2025/12/2 整合卡名一次的效果

script/RDLimit.lua

@@ -342,6 +342,18 @@ function RushDuel.CreateCannotActivateTrapBattle(e, desc, player, s_range, o_ran
     Duel.RegisterEffect(e2, player)
     return e1, e2
 end
+-- 创建限制: 这个回合，自己不能把「卡名」的效果发动
+function RushDuel.CreateCannotActivateSameCodeEffect(e, desc, flag, player, code)
+	if Duel.GetFlagEffect(player, flag) ~= 0 then
+        return nil
+    end
+    local e1 = RushDuel.CreateCannotActivateMix(e, desc, player, 1, 0, RESET_PHASE + PHASE_END,
+        function(e, re, tp)
+	        return re:GetHandler():IsCode(code)
+        end)
+	Duel.RegisterFlagEffect(player, flag, RESET_PHASE + PHASE_END, 0, 1)
+    return e1
+end
 -- 创建限制: 特定卡的效果最多发动X次 (只能针对1名玩家)
 function RushDuel.CreateActivateCountLimitEffect(e, desc, value, count, player, reset)
     local e1 = Effect.CreateEffect(e:GetHandler())

script/c120109057.lua

@@ -36,15 +36,9 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			RD.AttachEndPhase(e,tc,tp,m,cm.desop,aux.Stringid(m,1))
 		end)
 	end
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,2),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,2),m,tp,list[1])
 end
 function cm.desop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_CARD,0,m)
 	Duel.Destroy(e:GetLabelObject(),REASON_EFFECT)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return RD.IsLegendCode(tc,list[1])
 end
\ No newline at end of file

script/c120217023.lua

@@ -16,7 +16,7 @@ function cm.confilter(c)
 	return c:IsRace(RACE_SPELLCASTER)
 end
 function cm.filter(c)
-	return c:IsPosition(POS_FACEUP_ATTACK) and c:IsRace(RACE_SPELLCASTER) and RD.IsCanAttachBattleIndes(c, 1)
+	return c:IsPosition(POS_FACEUP_ATTACK) and c:IsRace(RACE_SPELLCASTER) and RD.IsCanAttachBattleIndes(c,1)
 end
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetAttacker()

script/c120249032.lua

@@ -11,6 +11,7 @@ function cm.initial_effect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_GRAVE_ACTION)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
 	e1:SetCost(cm.cost)
 	e1:SetOperation(cm.operation)
 	c:RegisterEffect(e1)

script/c120253017.lua

@@ -6,7 +6,7 @@ function cm.initial_effect(c)
 	--Atk Up
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_GRAVE_ACTION+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCost(cm.cost)

script/c120272012.lua

@@ -26,11 +26,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
 		RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,1),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120272013.lua

@@ -26,11 +26,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
 		RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,1),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120272014.lua

@@ -26,11 +26,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
 		RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,1),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120283001.lua

@@ -26,11 +26,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(HINTMSG_DESTROY,nil,tp,0,LOCATION_ONFIELD,1,1,nil,function(g)
 		Duel.Destroy(g,REASON_EFFECT)
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,1),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120285100.lua

@@ -27,11 +27,5 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndSpecialSummon(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,1),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120290100.lua

@@ -25,11 +25,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	if c:IsFaceup() and c:IsRelateToEffect(e) then
 		RD.AttachExtraAttack(e,c,1,aux.Stringid(m,1),RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
 	end
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,2),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120291001.lua

@@ -31,11 +31,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			Duel.Damage(1-tp,1000,REASON_EFFECT)
 		end
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,1),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return RD.IsLegendCode(tc,list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120293045.lua

 local cm,m=GetID()
-local list={120261058,120293045}
+local list={120293045,120261058}
 cm.name="夕极精 秋英宇宙星"
 function cm.initial_effect(c)
 	RD.AddCodeList(c,list)
@@ -28,7 +28,7 @@ function cm.spfilter(c,e,tp)
 		and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP)
 end
 function cm.thfilter(c)
-	return c:IsCode(list[1]) and c:IsAbleToHand()
+	return c:IsCode(list[2]) and c:IsAbleToHand()
 end
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 	return RD.IsSpecialSummonMainPhase(e:GetHandler(),SUMMON_TYPE_FUSION)
@@ -45,11 +45,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
 		end)
 	end
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,2),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[2])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,2),m,tp,list[1])
 end
\ No newline at end of file

script/c120293046.lua

@@ -34,11 +34,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			RD.ResetFusionSummonMaterialCount(e)
 		end
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,2),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,2),m,tp,list[1])
 end
\ No newline at end of file

script/c120293067.lua

@@ -29,11 +29,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
 		RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,1),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return RD.IsLegendCode(tc,list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120294000.lua

@@ -51,11 +51,5 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndSpecialSummon(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,2),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,2),m,tp,list[1])
 end
\ No newline at end of file

script/c120294009.lua

@@ -8,7 +8,7 @@ function cm.initial_effect(c)
 	--Destroy
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,0))
-	e1:SetCategory(CATEGORY_DESTROY)
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCondition(cm.condition)

script/c120294011.lua

@@ -32,11 +32,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	if c:IsFaceup() and c:IsRelateToEffect(e) and RD.SendToHandAndExists(tc,e,tp,REASON_EFFECT) then
 		RD.CanSelectAndSpecialSummon(aux.Stringid(m,1),aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP,true)
 	end
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,2),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,2),m,tp,list[1])
 end
\ No newline at end of file

script/c120294018.lua

@@ -25,12 +25,8 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			and Duel.GetMZoneCount(tp)>0 and RD.IsCanBeSpecialSummoned(tc,e,tp,POS_FACEUP)
 			and Duel.SelectEffectYesNo(tp,tc,aux.Stringid(m,1)) then
 			if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)~=0 then
-				RD.CreateCannotActivateEffect(e,aux.Stringid(m,2),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
+				RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,2),m,tp,list[1])
 			end
 		end
 	end
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return RD.IsLegendCode(tc,list[1])
 end
\ No newline at end of file

script/c120294036.lua

@@ -32,11 +32,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
 		RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,1),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
 end
\ No newline at end of file

script/c120294043.lua

 local cm,m=GetID()
-local list={120246061,120294043}
+local list={120294043,120246061}
 cm.name="歌怜奏女 双重八音盒人偶"
 function cm.initial_effect(c)
 	RD.AddCodeList(c,list)
 	--Fusion Material
-	RD.AddFusionProcedure(c,list[1],list[1])
+	RD.AddFusionProcedure(c,list[2],list[2])
 	--Contact Fusion
 	RD.EnableContactFusion(c,aux.Stringid(m,0))
 	--To Deck
@@ -35,11 +35,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			RD.CanSelectAndSpecialSummon(aux.Stringid(m,2),aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP,true)
 		end
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,3),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[2])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,3),m,tp,list[1])
 end
\ No newline at end of file

script/c120294100.lua

@@ -28,11 +28,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 			RD.AttachAtkDef(e,tc,500,0,RESET_EVENT+RESETS_STANDARD)
 		end)
 	end)
-	if Duel.GetFlagEffect(tp,m)~=0 then return end
-	RD.CreateCannotActivateEffect(e,aux.Stringid(m,2),cm.aclimit,tp,1,0,RESET_PHASE+PHASE_END)
-	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
-end
-function cm.aclimit(e,re,tp)
-	local tc=re:GetHandler()
-	return tc:IsCode(list[1])
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,2),m,tp,list[1])
 end
\ No newline at end of file

script/c120298001.lua

+local cm,m=GetID()
+local list={120264030}
+cm.name="叛骨装剑 盖加斯贝尔格"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Atk Up
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.atkcon)
+	e1:SetValue(1000)
+	c:RegisterEffect(e1)
+	--Indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(cm.condition)
+	e2:SetValue(cm.indval)
+	c:RegisterEffect(e2)
+	--Continuous Effect
+	RD.AddContinuousEffect(c,e1,e2)
+end
+--Atk Up
+function cm.atkcon(e)
+	return Duel.GetTurnPlayer()==e:GetHandlerPlayer()
+end
+--Indes
+function cm.condition(e)
+	return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_GRAVE,0,1,nil,list[1])
+end
+cm.indval=RD.ValueEffectIndesType(TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP,TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP)
\ No newline at end of file

script/c120298002.lua

+local cm,m=GetID()
+local list={120264031}
+cm.name="叛骨装典 苏芙蕾鲁达"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Damage
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+	e1:SetCode(EVENT_BATTLE_DESTROYING)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.damcon)
+    e1:SetOperation(cm.damop)
+	c:RegisterEffect(e1)
+	--Indes
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_SINGLE)
+	e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetCondition(cm.indcon)
+	e2:SetValue(1)
+	c:RegisterEffect(e2)
+	--Continuous Effect
+	RD.AddContinuousEffect(c,e1,e2)
+end
+--Damage
+function cm.damcon(e,tp,eg,ep,ev,re,r,rp)
+	local tc=eg:GetFirst()
+	local rc=tc:GetReasonCard()
+	return eg:GetCount()==1 and rc:IsControler(tp) and rc:GetOriginalRace()==RACE_ZOMBIE
+		and tc:IsType(TYPE_MONSTER) and tc:IsReason(REASON_BATTLE) and tc:IsLocation(LOCATION_GRAVE)
+end
+function cm.damop(e,tp,eg,ep,ev,re,r,rp)
+	local sg=Duel.GetMatchingGroup(Card.IsLevelAbove,tp,LOCATION_GRAVE,0,nil,1)
+	if sg:GetCount()>0 then
+		local _,lv=sg:GetMaxGroup(Card.GetLevel)
+		Duel.Hint(HINT_CARD,0,m)
+		Duel.Damage(1-tp,lv*200,REASON_EFFECT)
+	end
+end
+--Indes
+function cm.indcon(e)
+	return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_GRAVE,0,1,nil,list[1])
+		and e:GetHandler():IsDefensePos()
+end
\ No newline at end of file

script/c120298004.lua

+local cm,m=GetID()
+cm.name="髑岩骑士 莫尔德卢涅"
+function cm.initial_effect(c)
+	--Summon Procedure
+	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,cm.sumfilter)
+	--Atk Up
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Summon Procedure
+function cm.sumfilter(c,e,tp)
+	return c:IsRace(RACE_ZOMBIE)
+end
+--Atk Up
+function cm.filter(c)
+	return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_ZOMBIE)
+end
+function cm.atkfilter(c)
+	return c:IsFaceup() and c:IsRace(RACE_ZOMBIE)
+end
+cm.cost=RD.CostSendDeckTopToGrave(1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local atk=Duel.GetMatchingGroupCount(cm.atkfilter,tp,LOCATION_MZONE,0,nil)*400
+	if atk==0 then return end
+	RD.SelectAndDoAction(aux.Stringid(m,2),cm.filter,tp,LOCATION_MZONE,0,1,1,nil,function(g)
+		RD.AttachAtkDef(e,g:GetFirst(),atk,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end)
+end
\ No newline at end of file

script/c120298006.lua

+local cm,m=GetID()
+local list={120264031}
+cm.name="叛骨之吉法"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Change Code
+	RD.EnableChangeCode(c,list[1],LOCATION_GRAVE)
+	--Level Up
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Summon Procedure
+function cm.sumfilter(c,e,tp)
+	return c:IsRace(RACE_ZOMBIE)
+end
+--Level Up
+function cm.exfilter(c,e,tp)
+	return c:IsLevel(5) and c:IsCode(list[1])
+		and RD.IsAbleToHandOrSpecialSummon(c,e,tp,POS_FACEUP)
+end
+cm.cost=RD.CostSendDeckTopToGrave(1)
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.AttachLevel(e,c,1,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		RD.CanSelectAndToHandOrSpecialSummon(aux.Stringid(m,1),aux.Stringid(m,2),aux.NecroValleyFilter(cm.exfilter),tp,LOCATION_GRAVE,0,nil,e,POS_FACEUP,true)
+	end
+end
\ No newline at end of file

script/c120298007.lua

+local cm,m=GetID()
+local list={120298007,0}
+cm.name="髑岩妃 索普拉"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Discard Deck
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DECKDES+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(RD.ConditionSummonOrSpecialSummonMainPhase)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Discard Deck
+function cm.thfilter(c)
+	return ((c:IsLevel(3) and c:IsRace(RACE_ZOMBIE) and c:IsAttack(1200))
+		or c:IsCode(list[2])) and c:IsAbleToHand()
+end
+cm.cost=RD.CostSendDeckTopToGrave(1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,1) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,1)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	if RD.SendDeckTopToGraveAndExists(tp,1) then
+		RD.CanSelectAndDoAction(aux.Stringid(m,1),HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
+			Duel.BreakEffect()
+			RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
+		end)
+	end
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,2),m,tp,list[1])
+end
\ No newline at end of file

script/c120298009.lua

+local cm,m=GetID()
+local list={120264030,120264031}
+cm.name="叛骨装魂 梅伊尼尔"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--To Hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION+CATEGORY_DESTROY)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(RD.ConditionSummonTurn)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--To Hand
+function cm.thfilter1(c)
+	return c:IsCode(list[1],list[2])
+end
+function cm.thfilter2(c)
+	return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_SPELL)
+end
+function cm.thfilter(c)
+	return (cm.thfilter1(c) or cm.thfilter2(c)) and c:IsAbleToHand()
+end
+function cm.check(g)
+	local tc1=g:GetFirst()
+	local tc2=g:GetNext()
+	return (cm.thfilter1(tc1) and cm.thfilter2(tc2))
+		or (cm.thfilter1(tc2) and cm.thfilter2(tc1))
+end
+cm.cost=RD.CostSendSelfToGrave()
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	local g=Duel.GetMatchingGroup(cm.thfilter,tp,LOCATION_GRAVE,0,nil)
+	if chk==0 then return g:CheckSubGroup(cm.check,2,2) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,2,tp,LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectGroupAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),cm.check,tp,LOCATION_GRAVE,0,2,2,nil,function(g)
+		RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
+	end)
+end
\ No newline at end of file

script/c120298011.lua

+local cm,m=GetID()
+local list={120298001,120264031}
+cm.name="骸骨反叛之旋风"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Activate
+	local e1=RD.CreateRitualEffect(c,RITUAL_ORIGINAL_LEVEL_GREATER,cm.matfilter,cm.spfilter,nil,0,0,nil,RD.RitualToGrave,nil,cm.operation)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.matfilter(c)
+	return c:IsFaceup() and c:IsOnField() and c:IsRace(RACE_ZOMBIE)
+end
+function cm.spfilter(c)
+	return c:IsCode(list[1])
+end
+function cm.exfilter(c)
+	return c:IsOriginalCodeRule(list[1]) and c:IsLocation(LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp,mat,rc)
+	if mat:IsExists(cm.exfilter,1,nil) then
+		RD.CanSelectAndDoAction(aux.Stringid(m,1),HINTMSG_DESTROY,Card.IsFacedown,tp,0,LOCATION_ONFIELD,1,1,nil,function(g)
+			Duel.Destroy(g,REASON_EFFECT)
+		end)
+	end
+end
\ No newline at end of file

script/c120298012.lua

+local cm,m=GetID()
+local list={120298002,120264030}
+cm.name="骸骨反叛之紫罗兰"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Activate
+	local e1=RD.CreateRitualEffect(c,RITUAL_ORIGINAL_LEVEL_GREATER,cm.matfilter,cm.spfilter,nil,0,0,nil,RD.RitualToGrave,nil,cm.operation)
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.matfilter(c)
+	return c:IsFaceup() and c:IsOnField() and c:IsRace(RACE_ZOMBIE)
+end
+function cm.spfilter(c)
+	return c:IsCode(list[1])
+end
+function cm.exfilter(c)
+	return c:IsOriginalCodeRule(list[1]) and c:IsLocation(LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp,mat,rc)
+	if mat:IsExists(cm.exfilter,1,nil) then
+		RD.CanDraw(aux.Stringid(m,1),tp,1)
+	end
+end
\ No newline at end of file

script/c120298013.lua

+local cm,m=GetID()
+local list={120298016}
+cm.name="吹拂翼之骸骨反叛"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.filter(c)
+	return ((c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_ZOMBIE))
+		or c:IsCode(list[1])) and c:IsAbleToHand()
+end
+cm.cost=RD.CostSendHandToDeckBottom(Card.IsAbleToDeckAsCost,1,1,false)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.filter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
+		RD.SendToHandAndExists(g,e,tp,REASON_EFFECT)
+	end)
+end
\ No newline at end of file

script/c120298014.lua

+local cm,m=GetID()
+local list={120298014,120264030,120264031}
+cm.name="最初之骸骨反叛"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DRAW+CATEGORY_TOGRAVE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+--Activate
+function cm.costfilter(c)
+	return c:IsCode(list[2],list[3]) and c:IsAbleToGraveAsCost()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return RD.IsPlayerNoActivateInThisTurn(tp,list[1])
+end
+cm.cost=RD.CostSendHandToGrave(cm.costfilter,1,1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDraw(tp,3) end
+	RD.TargetDraw(tp,3)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	if RD.Draw()~=0 and Duel.IsExistingMatchingCard(Card.IsType,tp,LOCATION_GRAVE,0,4,nil,TYPE_MONSTER) then
+		RD.SelectAndDoAction(HINTMSG_TODECK,Card.IsAbleToGrave,tp,LOCATION_HAND,0,1,1,nil,function(g)
+			Duel.SendtoGrave(g,REASON_EFFECT)
+		end)
+	end
+end
\ No newline at end of file

script/c120298016.lua

+local cm,m=GetID()
+cm.name="叛骨的命运"
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+end
+--Activate
+cm.indval=RD.ValueEffectIndesType(0,TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP)
+function cm.confilter(c,tp)
+	return c:GetSummonPlayer()==tp
+end
+function cm.filter(c,tp)
+	return c:IsFaceup() and c:IsLevelBelow(5)
+		and c:IsAttribute(ATTRIBUTE_WIND) and c:IsRace(RACE_ZOMBIE)
+		and (RD.IsCanAttachBattleIndes(c,1) or RD.IsCanAttachEffectIndes(c,tp,cm.indval))
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.confilter,1,nil,1-tp)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil,tp) end
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local filter=RD.Filter(cm.filter,tp)
+	RD.SelectAndDoAction(aux.Stringid(m,1),filter,tp,LOCATION_MZONE,0,1,2,nil,function(g)
+		g:ForEach(function(tc)
+			RD.AttachBattleIndes(e,tc,1,aux.Stringid(m,2),RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+			RD.AttachEffectIndes(e,tc,cm.indval,aux.Stringid(m,3),RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		end)
+	end)
+end
\ No newline at end of file

script/c120298018.lua

+local cm,m=GetID()
+local list={120298018,120120042,120105014}
+cm.name="火星心激情少女"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Destroy
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Destroy
+cm.cost=RD.CostSendHandOrFieldToGrave(Card.IsAbleToGraveAsCost,1,1,true)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,0,LOCATION_ONFIELD,1,nil) end
+	local g=Duel.GetFieldGroup(tp,0,LOCATION_ONFIELD)
+	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,list[2])
+		and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,list[3]) then
+		Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,700)
+	end
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_DESTROY,nil,tp,0,LOCATION_ONFIELD,1,1,nil,function(g)
+		if Duel.Destroy(g,REASON_EFFECT)~=0
+			and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,list[2])
+			and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,list[3]) then
+			Duel.BreakEffect()
+			Duel.Damage(1-tp,700,REASON_EFFECT)
+		end
+	end)
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,1),m,tp,list[1])
+end
\ No newline at end of file

script/c120298022.lua

+local cm,m=GetID()
+local list={120298022,120120042,120105014}
+cm.name="火星心姐姐"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Special Summon Procedure
+	RD.AddHandSpecialSummonProcedure(c,aux.Stringid(m,0),cm.spcon)
+	--Discard Deck
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_DECKDES+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(RD.ConditionSummonOrSpecialSummonMainPhase)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Special Summon Procedure
+function cm.spconfilter(c)
+	return c:IsCode(list[2],list[3])
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+		and Duel.IsExistingMatchingCard(cm.spconfilter,tp,LOCATION_GRAVE,0,1,nil)
+end
+--Discard Deck
+function cm.thfilter(c)
+	return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_SPELLCASTER)
+		and c:IsLocation(LOCATION_GRAVE) and c:IsAbleToHand()
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,3) end
+	Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,tp,3)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local sg,og=RD.SendDeckTopToGraveAndCanSelect(tp,3,aux.Stringid(m,2),HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),1,1)
+	if sg:GetCount()>0 then
+		Duel.BreakEffect()
+		RD.SendToHandAndExists(sg,e,tp,REASON_EFFECT)
+	end
+	RD.CreateCannotActivateSameCodeEffect(e,aux.Stringid(m,3),m,tp,list[1])
+end
\ No newline at end of file

script/c120298031.lua

+local cm,m=GetID()
+local list={120298035,120298039}
+cm.name="究极完全态大飞蛾"
+function cm.initial_effect(c)
+	--Fusion Material
+	RD.AddFusionProcedure(c,list[1],list[2])
+end
\ No newline at end of file

script/c120298033.lua

+local cm,m=GetID()
+local list={120120008,120298039}
+cm.name="蛹化的飞蛾幼虫"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Fusion Material
+	RD.AddFusionProcedure(c,list[1],cm.matfilter)
+	--Contact Fusion
+	RD.EnableContactFusion(c,aux.Stringid(m,0))
+	--Change Code
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Fusion Material
+cm.unspecified_funsion=true
+function cm.matfilter(c)
+	return c:IsLevelBelow(5) and c:IsRace(RACE_INSECT)
+end
+--Change Code
+function cm.spfilter(c)
+	return c:IsLevelBelow(8) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_INSECT)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return not e:GetHandler():IsCode(list[2])
+end
+cm.cost=RD.CostSendDeckTopToGrave(1)
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.ChangeCode(e,c,list[2],RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		RD.CanFusionSummon(aux.Stringid(m,2),nil,cm.spfilter,nil,0,0,nil,RD.FusionToGrave,e,tp,POS_FACEUP,true,true)
+	end
+end
\ No newline at end of file

script/c120298035.lua

+local cm,m=GetID()
+local list={120120008}
+cm.name="大飞蛾"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Special Summon Procedure
+	RD.AddHandSpecialSummonProcedure(c,aux.Stringid(m,0),cm.spcon,cm.sptg,cm.spop)
+end
+--Special Summon Procedure
+function cm.spconfilter(c,tp)
+	return c:IsFaceup() and c:IsCode(list[1]) and c:IsAbleToGraveAsCost()
+		and Duel.GetMZoneCount(tp,c)>0
+end
+function cm.spcon(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.IsExistingMatchingCard(cm.spconfilter,tp,LOCATION_MZONE,0,1,nil,tp)
+end
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk,c)
+	local mg=Duel.GetMatchingGroup(cm.spconfilter,tp,LOCATION_MZONE,0,nil,tp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
+	local tc=mg:SelectUnselect(nil,tp,false,true,1,1)
+	if tc then
+		e:SetLabelObject(tc)
+		return true
+	else
+		return false
+	end
+end
+function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
+	local tc=e:GetLabelObject()
+	Duel.SendtoGrave(tc,REASON_SPSUMMON)
+end
\ No newline at end of file

script/c120298039.lua

+local cm,m=GetID()
+cm.name="进化之茧"
+function cm.initial_effect(c)
+	--Fusion Summon
+	local e1=RD.CreateFusionEffect(c,nil,cm.spfilter,nil,0,0,nil,nil,nil,nil,nil,nil,true)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	c:RegisterEffect(e1)
+end
+--Fusion Summon
+function cm.spfilter(c)
+	return c:IsLevelBelow(8) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsRace(RACE_INSECT)
+end
\ No newline at end of file