54188

expansions/script/c60002010.lua

@@ -101,6 +101,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 			e1:SetValue(cm.filter)
 			e1:SetReset(RESET_PHASE+PHASE_MAIN1)
 			Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_MAIN1,0,1)
+			Duel.RegisterEffect(e1,tp)
 		elseif Duel.GetCurrentPhase()==PHASE_MAIN2 then
 			local e1=Effect.CreateEffect(e:GetHandler())
 			e1:SetType(EFFECT_TYPE_FIELD)
@@ -109,10 +110,10 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 			e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0xa620))
 			e1:SetValue(cm.filter)
 			e1:SetReset(RESET_PHASE+PHASE_MAIN2)
-			Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_MAIN2,0,1)
-		else   
+			Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_MAIN2,0,1)  
+			Duel.RegisterEffect(e1,tp)
 		end
-		Duel.RegisterEffect(e1,tp)
+		
 	end
 	Duel.RegisterFlagEffect(tp,60002009,RESET_PHASE+PHASE_END,0,1000)
 	if Duel.IsExistingMatchingCard(cm.ofilter,tp,LOCATION_FZONE,0,1,c) then

expansions/script/c81018024.lua

 --最上静香的回忆诗
-function c81018024.initial_effect(c)
+local m=81018024
+local cm=_G["c"..m]
+Duel.LoadScript("c81000000.lua")
+function cm.initial_effect(c)
 	--Activate
 	local e1=Effect.CreateEffect(c)
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,81018024)
-	e1:SetTarget(c81018024.target)
-	e1:SetOperation(c81018024.activate)
+	e1:SetCountLimit(1,m)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
 	c:RegisterEffect(e1)
 	--fusion summon
 	local e3=Effect.CreateEffect(c)
@@ -15,68 +18,68 @@ function c81018024.initial_effect(c)
 	e3:SetType(EFFECT_TYPE_QUICK_O)
 	e3:SetCode(EVENT_FREE_CHAIN)
 	e3:SetRange(LOCATION_GRAVE)
-	e3:SetCountLimit(1,81018924)
+	e3:SetCountLimit(1,m+900)
 	e3:SetCost(aux.bfgcost)
-	e3:SetTarget(c81018024.sptg)
-	e3:SetOperation(c81018024.spop)
+	e3:SetTarget(cm.sptg)
+	e3:SetOperation(cm.spop)
 	c:RegisterEffect(e3)
 end
 cm.fusion_effect=true
-function c81018024.filter(c)
+function cm.filter(c)
 	return c:IsSetCard(0x81b) and c:IsAbleToHand()
 end
-function c81018024.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c81018024.filter,tp,LOCATION_DECK,0,1,nil) end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
-function c81018024.activate(e,tp,eg,ep,ev,re,r,rp)
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,c81018024.filter,tp,LOCATION_DECK,0,1,1,nil)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
 	if g:GetCount()>0 then
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,g)
 	end
 end
-function c81018024.spfilter1(c,e)
+function cm.spfilter1(c,e)
 	return c:IsSetCard(0x81b) and not c:IsImmuneToEffect(e)
 end
-function c81018024.spfilter2(c,e,tp,m,f,chkf)
+function cm.spfilter2(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)
 end
-function c81018024.spfilter3(c)
+function cm.spfilter3(c)
 	return c:IsCanBeFusionMaterial() and c:IsSetCard(0x81b)
 end
-function c81018024.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then
 		local chkf=tp
 		local mg1=Duel.GetFusionMaterial(tp):Filter(Card.IsSetCard,nil,0x81b)
-		local res=Duel.IsExistingMatchingCard(c81018024.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
+		local res=Duel.IsExistingMatchingCard(cm.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
 		if not res then
 			local ce=Duel.GetChainMaterial(tp)
 			if ce~=nil then
 				local fgroup=ce:GetTarget()
-				local mg2=fgroup(ce,e,tp):Filter(c81018024.spfilter3,nil)
+				local mg2=fgroup(ce,e,tp):Filter(cm.spfilter3,nil)
 				local mf=ce:GetValue()
-				res=Duel.IsExistingMatchingCard(c81018024.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
+				res=Duel.IsExistingMatchingCard(cm.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
 			end
 		end
 		return res
 	end
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
-function c81018024.spop(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local chkf=tp
-	local mg1=Duel.GetFusionMaterial(tp):Filter(c81018024.spfilter1,nil,e)
-	local sg1=Duel.GetMatchingGroup(c81018024.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
+	local mg1=Duel.GetFusionMaterial(tp):Filter(cm.spfilter1,nil,e)
+	local sg1=Duel.GetMatchingGroup(cm.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
 	local mg2=nil
 	local sg2=nil
 	local ce=Duel.GetChainMaterial(tp)
 	if ce~=nil then
 		local fgroup=ce:GetTarget()
-		mg2=fgroup(ce,e,tp):Filter(c81018024.spfilter3,nil)
+		mg2=fgroup(ce,e,tp):Filter(cm.spfilter3,nil)
 		local mf=ce:GetValue()
-		sg2=Duel.GetMatchingGroup(c81018024.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
+		sg2=Duel.GetMatchingGroup(cm.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
 	end
 	if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
 		local sg=sg1:Clone()