tnndx

expansions/script/c33401302.lua

@@ -12,7 +12,7 @@ function c33401302.initial_effect(c)
 	e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
 	e2:SetProperty(EFFECT_FLAG_DELAY)
 	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	e2:SetRange(LOCATION_SZONE)
+	e2:SetRange(LOCATION_FZONE)
 	e2:SetCountLimit(1,33401302)
 	e2:SetCondition(c33401302.spcon)
 	e2:SetTarget(c33401302.sptg)

expansions/script/c33401402.lua

@@ -31,28 +31,25 @@ function cm.seqcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SendtoGrave(e:GetHandler(),REASON_COST)
 end
 function cm.chkfilter1(c,e,tp)
-	return (not c:IsSetCard(0xc342)) and  c:IsSetCard(0x341) and c:IsType(TYPE_MONSTER) and Duel.IsPlayerCanSpecialSummon(tp,0,POS_FACEUP,1-tp,c)  
+	return (not c:IsSetCard(0xc342)) and c:IsSetCard(0x341) and c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,1-tp) 
 end
 function cm.chkfilter2(c,tp)
-	return  c:IsSetCard(0x341) and c:IsType(TYPE_FIELD)   and (c:IsAbleToHand() or c:GetActivateEffect():IsActivatable(tp))
-	  
+	return c:IsSetCard(0x341) and c:IsType(TYPE_FIELD) and (c:IsAbleToHand() or c:GetActivateEffect():IsActivatable(tp))
 end
-function cm.seqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsOnField()  end
-	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil)
-	and Duel.IsExistingTarget(Card.IsSetCard,tp,LOCATION_FZONE,0,1,nil,0x341) and Duel.IsExistingMatchingCard(cm.chkfilter1,tp,LOCATION_DECK+LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) and  Duel.IsExistingMatchingCard(cm.chkfilter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
+function cm.seqtg(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsSetCard,tp,LOCATION_FZONE,0,1,nil,0x341) and Duel.IsExistingMatchingCard(cm.chkfilter1,tp,LOCATION_DECK+LOCATION_GRAVE,LOCATION_GRAVE,1,nil,e,tp) and  Duel.IsExistingMatchingCard(cm.chkfilter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) end
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
-	 Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,nil,LOCATION_DECK+LOCATION_GRAVE)
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,nil,LOCATION_DECK+LOCATION_GRAVE)
 end
 function cm.seqop(e,tp,eg,ep,ev,re,r,rp)  
 local c=e:GetHandler()
 	local sg=Duel.GetMatchingGroup(cm.chkfilter1,tp,LOCATION_DECK+LOCATION_GRAVE,LOCATION_GRAVE,nil,e,tp)
-		if sg:GetCount()>0   and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0  then
-			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-			local g1=sg:Select(tp,1,1,nil)
-			local tc1=g1:GetFirst()			   
-			Duel.SpecialSummon(tc1,0,tp,1-tp,false,false,POS_FACEUP)  
-			 local e1=Effect.CreateEffect(c)
+	if sg:GetCount()>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0  then
+		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
+		local g1=sg:Select(tp,1,1,nil)
+		local tc1=g1:GetFirst()		 
+		if Duel.SpecialSummonStep(tc1,0,tp,1-tp,false,false,POS_FACEUP) then 
+			local e1=Effect.CreateEffect(c)
 			e1:SetType(EFFECT_TYPE_SINGLE)
 			e1:SetCode(EFFECT_DISABLE)
 			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
@@ -62,35 +59,38 @@ local c=e:GetHandler()
 			e2:SetCode(EFFECT_DISABLE_EFFECT)
 			e2:SetReset(RESET_EVENT+RESETS_STANDARD)
 			tc1:RegisterEffect(e2)
-		end 
-  if Duel.IsExistingMatchingCard(cm.chkfilter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) then
-	 Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,2))
-	local g=Duel.SelectMatchingCard(tp,cm.chkfilter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp)
-	local tc=g:GetFirst()
-	if tc then
-		local te=tc:GetActivateEffect()
-		local b1=tc:IsAbleToHand()
-		local b2=tc:GetActivateEffect():IsActivatable(tp)
-		if b1 and (not b2 or Duel.SelectOption(tp,1190,1150)==0) then
-			Duel.SendtoHand(tc,nil,REASON_EFFECT)
-			Duel.ConfirmCards(1-tp,tc)
-		else
-			local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
-			if fc then
-				Duel.SendtoGrave(fc,REASON_RULE)
-				Duel.BreakEffect()
+			if Duel.IsExistingMatchingCard(cm.chkfilter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,tp) then
+				Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(m,2))
+				local g=Duel.SelectMatchingCard(tp,cm.chkfilter2,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,tp)
+				local tc=g:GetFirst()
+				if tc then
+					local te=tc:GetActivateEffect()
+					local b1=tc:IsAbleToHand()
+					local b2=tc:GetActivateEffect():IsActivatable(tp)
+					if b1 and (not b2 or Duel.SelectOption(tp,1190,1150)==0) then
+						Duel.SendtoHand(tc,nil,REASON_EFFECT)
+						Duel.ConfirmCards(1-tp,tc)
+					else
+						local fc=Duel.GetFieldCard(tp,LOCATION_FZONE,0)
+						if fc then
+							Duel.SendtoGrave(fc,REASON_RULE)
+							Duel.BreakEffect()
+						end
+						Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
+						te:UseCountLimit(tp,1,true)
+						local tep=tc:GetControler()
+						local cost=te:GetCost()
+						if cost then 
+							cost(te,tep,eg,ep,ev,re,r,rp,1) 
+						end
+						Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+					end
+				end
 			end
-			Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
-			te:UseCountLimit(tp,1,true)
-			local tep=tc:GetControler()
-			local cost=te:GetCost()
-			if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
-			Duel.RaiseEvent(tc,4179255,te,0,tp,tp,Duel.GetCurrentChain())
+			Duel.SpecialSummonComplete()
 		end
 	end
-  end
 end
-
 function cm.filter(c,e,tp,re)
 	return  c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE)
 		and c:IsReason(REASON_EFFECT+REASON_BATTLE) 
@@ -110,5 +110,5 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
 	local tc=g:GetFirst()
-		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)		
+		Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)	  
 end
\ No newline at end of file