Add files via upload

expansions/script/c12038013.lua

@@ -5,7 +5,13 @@ local cm=_G["c"..m]
 function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	c:SetSPSummonOnce(m)
-	aux.AddLinkProcedure(c,nil,1,99,srprzm.spcheck)
+	aux.AddLinkProcedure(c,nil,1,99)
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_COST)
+	e1:SetCost(cm.cost1)
+	c:RegisterEffect(e1)
 	--Negate
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,0))
@@ -31,6 +37,10 @@ function cm.initial_effect(c)
 	e4:SetOperation(cm.spop1)
 	c:RegisterEffect(e4)
 end
+function cm.cost1(e,c,tp,st)
+	if bit.band(st,SUMMON_TYPE_LINK)~=SUMMON_TYPE_LINK then return true end
+	return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_ONFIELD,0,1,nil,12038000)
+end
 function cm.thcon(e,tp,eg,ep,ev,re,r,rp)
 	local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
 	return rp==1-tp and bit.band(loc,LOCATION_MZONE)~=0

expansions/script/c12038014.lua

@@ -4,7 +4,13 @@ local m=12038014
 local cm=_G["c"..m]
 function cm.initial_effect(c)
 	----synchro summon
-	aux.AddSynchroMixProcedure(c,aux.Tuner(nil),nil,nil,aux.NonTuner(nil),1,99,srprzm.spcheck)
+	aux.AddSynchroMixProcedure(c,aux.Tuner(nil),nil,nil,aux.NonTuner(nil),1,99)
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_COST)
+	e1:SetCost(cm.cost1)
+	c:RegisterEffect(e1)
 	--SpecialSummon
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,0))
@@ -32,6 +38,10 @@ function cm.initial_effect(c)
 	e4:SetOperation(cm.spop1)
 	c:RegisterEffect(e4)
 end
+function cm.cost1(e,c,tp,st)
+	if bit.band(st,SUMMON_TYPE_SYNCHRO)~=SUMMON_TYPE_SYNCHRO then return true end
+	return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_ONFIELD,0,1,nil,12038000)
+end
 function cm.filter(c)
 	return c:IsRace(RACE_PSYCHO) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
 end
@@ -63,4 +73,4 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.HintSelection(g)
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 	end
-end
+end
\ No newline at end of file

expansions/script/c12038015.lua

@@ -6,6 +6,12 @@ function cm.initial_effect(c)
 
 	c:EnableReviveLimit()
 	aux.AddXyzProcedure(c,nil,9,3,cm.ovfilter,aux.Stringid(m,0))
+	--
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SPSUMMON_COST)
+	e1:SetCost(cm.cost1)
+	c:RegisterEffect(e1)
 	--SpecialSummon
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(m,0))
@@ -34,8 +40,13 @@ function cm.initial_effect(c)
 	e4:SetOperation(cm.spop1)
 	c:RegisterEffect(e4)
 end
+function cm.cost1(e,c,tp,st)
+	if bit.band(st,SUMMON_TYPE_XYZ)~=SUMMON_TYPE_XYZ then return true end
+	return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_ONFIELD,0,1,nil,12038000)
+end
 function cm.ovfilter(c)
-	return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetOverlayCount()==0 and srprzm.spcheck(c)
+	local tp=c:GetControl()
+	return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:GetOverlayCount()==0 and srprzm.spcheck(c,tp)
 end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
@@ -48,8 +59,8 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Draw(p,d,REASON_EFFECT)
 	if Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>3 and e:GetHandler():IsType(TYPE_XYZ) then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
-		local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_HAND,0,1,1,nil)
-		Duel.Overlay(e:GetHandler(),g)
+		local g=Duel.SelectMatchingCard(tp,Card.IsCanOverlay,tp,LOCATION_HAND,0,1,1,nil)
+		Duel.Overlay(c,g)
 	end
 end
 function cm.spcon1(e,tp,eg,ep,ev,re,r,rp)
@@ -73,4 +84,4 @@ function cm.spop1(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
 	local g=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,ct-1,ct-1,nil)
 	Duel.SendtoDeck(g,nil,2,REASON_EFFECT)
-end
+end
\ No newline at end of file