byd

expansions/script/c12400075.lua

@@ -3,7 +3,6 @@ function c12400075.initial_effect(c)
 	aux.IsCodeListed(12400075)
 	c:EnableReviveLimit()
 	aux.AddFusionProcFunRep(c,c12400075.mfilter,2,true)
-	aux.AddContactFusionProcedure(c,c12400075.cfilter,LOCATION_MZONE+LOCATION_HAND,0,Duel.SendtoGrave,REASON_COST)
 	local e0=Effect.CreateEffect(c)
 	e0:SetType(EFFECT_TYPE_SINGLE)
 	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
@@ -38,13 +37,21 @@ function c12400075.initial_effect(c)
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_SINGLE)
 	e3:SetCode(EFFECT_SPSUMMON_COST)
-	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
+	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 	e3:SetCost(c12400075.spcost)
 	e3:SetOperation(c12400075.spcop)
 	c:RegisterEffect(e3)
+	local e5=Effect.CreateEffect(c)
+	e5:SetType(EFFECT_TYPE_FIELD)
+	e5:SetCode(EFFECT_SPSUMMON_PROC)
+	e5:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
+	e5:SetRange(LOCATION_EXTRA)
+	e5:SetCondition(c12400075.con5)
+	e5:SetOperation(c12400075.op5)
+	c:RegisterEffect(e5)
 end
 function c12400075.ssplimit(e,se,sp,st)
-	return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
+	return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION 
 end
 function c12400075.mfilter(c)
 	return c:IsRace(RACE_MACHINE)
@@ -102,4 +109,18 @@ function c12400075.con2(e,c)
 	if c==nil then return true end
 	local tp=c:GetControler()
 	return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(c12400075.spfilter,tp,LOCATION_MZONE,0,1,nil) and c:IsStatus(STATUS_PROC_COMPLETE)
+end
+function c12400075.sp5(c,sc,p)
+	return Duel.GetLocationCountFromEx(p,p,c,sc) and not c:IsFacedown() and c:IsAbleToGraveAsCost() and c:IsRace(RACE_MACHINE)
+end
+function c12400075.con5(e,c)
+	if c==nil then return true end
+	local tp=c:GetControler()
+	return Duel.IsExistingMatchingCard(c12400075.sp5,tp,LOCATION_MZONE+LOCATION_HAND,0,2,nil,c,tp)
+end
+function c12400075.op5(e,tp,eg,ep,ev,re,r,rp,c)
+	local p=c:GetControler()
+	Duel.Hint(3,p,HINTMSG_TOGRAVE)
+	local g=Duel.SelectMatchingCard(p,c12400075.sp5,p,LOCATION_MZONE+LOCATION_HAND,0,2,2,nil,c,p)
+	Duel.SendtoGrave(g,REASON_COST)
 end
\ No newline at end of file