fix

expansions/script/c99600346.lua

@@ -27,26 +27,14 @@ function s.initial_effect(c)
 --
 	local e4=Effect.CreateEffect(c)
 	e4:SetDescription(aux.Stringid(id,4))
-	e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e4:SetType(EFFECT_TYPE_QUICK_O)
-	e4:SetCode(EVENT_FREE_CHAIN)
-	e4:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e4:SetCountLimit(1)
+	e4:SetCategory(CATEGORY_TODECK)
+	e4:SetType(EFFECT_TYPE_IGNITION)
 	e4:SetRange(LOCATION_MZONE)
-	e4:SetTarget(s.maht)
-	e4:SetOperation(s.maho)
+	e4:SetCost(s.toextra)
+	e4:SetTarget(s.allt)
+	e4:SetOperation(s.allo)
+	e4:SetCondition(s.allc)
 	c:RegisterEffect(e4)
---
-	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(id,5))
-	e5:SetCategory(CATEGORY_TODECK)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_MZONE)
-	e5:SetCost(s.toextra)
-	e5:SetTarget(s.allt)
-	e5:SetOperation(s.allo)
-	e5:SetCondition(s.allc)
-	c:RegisterEffect(e5)
 --
 	local e6=Effect.CreateEffect(c)
 	e6:SetType(EFFECT_TYPE_FIELD)
@@ -76,39 +64,6 @@ end
 function s.check(g)
 	return g:GetClassCount(Card.GetRank)==1 and g:GetClassCount(Card.GetAttribute)==g:GetCount()
 end
-function s.change(c)
-	local g=Duel.GetMatchingGroup(s.robot,tp,LOCATION_MZONE,0,nil)
-	return g:GetClassCount(Card.GetAttribute)==4
-		and c:IsFaceup()
-		and c:IsSetCard(0x1231)
-end
-function s.robot(c)
-	return c:IsFaceup()
-		and c:IsSetCard(0x1234)
-end
-function s.two(e,re,r,rp)
-	return bit.band(r,REASON_BATTLE+REASON_EFFECT)~=0
-end
-function s.value(e,c)
-	return c:GetOverlayCount()*800
-end
-function s.toextra(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return c:IsAbleToExtraAsCost() end
-	Duel.SendtoDeck(c,nil,SEQ_DECKTOP,REASON_COST)
-end
-function s.allt(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,1,nil) end
-	local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,nil)
-	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
-end
-function s.allo(e,tp,eg,ep,ev,re,r,rp)
-	local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,nil)
-	Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
-end
-function s.allc(e)
-	return e:GetHandler():GetOverlayCount()>0
-end
 function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return c:CheckRemoveOverlayCard(tp,1,REASON_COST) end
@@ -167,41 +122,23 @@ end
 function s.sazer(c)
 	return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
 end
-function s.maht(e,tp,eg,ep,ev,re,r,rp,chk)
+function s.toextra(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
-	local o=c:GetOverlayGroup():Filter(s.pcard,nil,e,tp)
-	local x=o:GetCount()
-	if chk==0 then return x>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_OVERLAY)
+	if chk==0 then return c:IsAbleToExtraAsCost() end
+	Duel.SendtoDeck(c,nil,SEQ_DECKTOP,REASON_COST)
+end
+function s.allt(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,1,nil) end
+	local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,nil)
+	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
 end
-function s.pcard(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-		and c:IsRace(RACE_MACHINE)
-		and c:IsType(TYPE_PENDULUM)
+function s.allo(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,nil)
+	Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
 end
-function s.maho(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local o=c:GetOverlayGroup():Filter(s.pcard,nil,e,tp)
-	local z=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	if z<=0 or o:GetCount()==0 then return end
-	if Duel.IsPlayerAffectedByEffect(tp,59822133) then z=1 end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local i=o:Select(tp,1,z,nil)
-	local f=i:GetFirst()
-	while f do
-		Duel.SpecialSummonStep(f,0,tp,tp,false,false,POS_FACEUP)
-		f=i:GetNext()
-	end
-	Duel.SpecialSummonComplete()
-	local ex=Effect.CreateEffect(c)
-	ex:SetType(EFFECT_TYPE_FIELD)
-	ex:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
-	ex:SetTarget(s.exlimit)
-	ex:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	ex:SetTargetRange(1,0)
-	ex:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(ex,tp)
+function s.allc(e)
+	return e:GetHandler():GetOverlayCount()>0
 end
-function s.exlimit(e,c)
-	return not c:IsType(TYPE_PENDULUM)
+function s.value(e,c)
+	return c:GetOverlayCount()*800
 end
\ No newline at end of file