1145141919810

expansions/script/c16400001.lua

@@ -14,10 +14,10 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
 end
 function cm.check(c,e,tp)
-	return c:IsDiscardable() and Duel.IsExistingMatchingCard(cm.spcheck,tp,LOCATION_HAND,0,1,c,e,tp)
+	return c:IsDiscardable() and c:IsSetCard(0xce0) and Duel.IsExistingMatchingCard(cm.spcheck,tp,LOCATION_HAND,0,1,c,e,tp)
 end
 function cm.spcheck(c,e,tp)
-	return c:IsSetCard(0xce0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
+	return c:IsSetCard(0xce0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelBelow(4)
 end
 function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.check,tp,LOCATION_HAND,0,1,nil,e,tp) end

expansions/script/c16400006.lua

@@ -7,6 +7,7 @@ function cm.initial_effect(c)
 	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_CONTROL)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_MZONE)
+	e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
 	e1:SetCost(cm.cost)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.op)

expansions/script/c16400007.lua

@@ -16,12 +16,12 @@ function cm.initial_effect(c)
 	effect1:SetOperation(cm.operation)
 	local global_e=The_True_lt.register_cost_for_z(c)
 end
-function cm.check2(c)
+function cm.check2(c,e,tp)
 	return c:IsDiscardable() and c:IsSetCard(0xce0) and Duel.IsExistingMatchingCard(cm.check3,tp,LOCATION_HAND,0,1,c,e,tp)
 end
 function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.check2,tp,LOCATION_HAND,0,1,nil) end
-	Duel.DiscardHand(tp,cm.check2,1,1,REASON_COST)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.check2,tp,LOCATION_HAND,0,1,nil,e,tp) end
+	Duel.DiscardHand(tp,cm.check2,1,1,REASON_COST,nil,e,tp)
 end
 function cm.check3(c,e,tp)
 	return c:IsSetCard(0xce0) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelBelow(4)
@@ -37,7 +37,7 @@ function cm.op(e,tp)
 	Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 end
 function cm.condition(e,tp,eg,ep,ev,re,r,rp)
-	return r&REASON_EFFECT~=0 and r&REASON_DISCARD~=0 and Duel.IsExistingMatchingCard(cm.check_to_hand,tp,LOCATION_GRAVE,0,1,nil,e,tp) 
+	return r&REASON_EFFECT~=0 and r&REASON_DISCARD~=0 and Duel.IsExistingMatchingCard(cm.check_to_hand,tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetFlagEffect(tp,m)==0 and e:GetHandler():IsPreviousLocation(LOCATION_HAND)
 end
 function cm.check_to_hand(c,e,tp)
 	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0xce0) and c:IsAbleToHand() and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
@@ -54,4 +54,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	g:Sub(sg)
 	Duel.BreakEffect()
 	Duel.SpecialSummon(g,0,tp,1-tp,false,false,POS_FACEUP)
+	Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
 end
\ No newline at end of file

expansions/script/c16400008.lua

@@ -9,7 +9,7 @@ function cm.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
 	e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
 	e2:SetRange(LOCATION_MZONE)
-	e2:SetValue(1)
+	e2:SetValue(1,m+EFFECT_COUNT_CODE_OATH)
 	c:RegisterEffect(e2)
 	--actlimit
 	local e2=Effect.CreateEffect(c)
@@ -26,6 +26,7 @@ function cm.initial_effect(c)
 	e1:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON+CATEGORY_GRAVE_ACTION)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_GRAVE)
+	e1:SetValue(1,m+EFFECT_COUNT_CODE_OATH)
 	e1:SetCost(cm.cost)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.op)

expansions/script/c16400009.lua

@@ -27,6 +27,7 @@ function cm.initial_effect(c)
 	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_GRAVE)
+	e1:SetValue(1,m+EFFECT_COUNT_CODE_OATH)
 	e1:SetCost(cm.cost)
 	e1:SetTarget(cm.target)
 	e1:SetOperation(cm.op)

expansions/script/c16400010.lua

@@ -8,7 +8,7 @@ function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	--
 	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TODECK)
+	e1:SetCategory(CATEGORY_TODECK+CATEGORY_DESTROY)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetRange(LOCATION_MZONE)
 	e1:SetCountLimit(1,m)
@@ -34,19 +34,24 @@ function cm.check3(c)
 	return c:IsSetCard(0xce0) and c:IsType(TYPE_SPELL) and c:IsSSetable() and c:IsAbleToDeck()
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.check3,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0 end
+	if chk==0 then return Duel.IsExistingMatchingCard(nil,tp,LOCATION_ONFIELD,0,1,e:GetHandler()) and Duel.IsExistingMatchingCard(cm.check3,tp,LOCATION_GRAVE,0,1,nil) and Duel.GetLocationCount(1-tp,LOCATION_SZONE)>0 end
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE)
 end
 function cm.op(e,tp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
-	local g=Duel.SelectMatchingCard(tp,cm.check3,tp,LOCATION_GRAVE,0,2,2,nil,e,tp)
-	if g:GetCount()>=2 then
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
-		local sg=g:Select(1-tp,1,1,nil)
-		Duel.SSet(tp,sg,1-tp)
-		Duel.BreakEffect()
-		g:Sub(sg)
-		Duel.SendtoDeck(g,nil,1,REASON_EFFECT)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
+	local sg=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_ONFIELD,0,1,1,e:GetHandler())
+	if sg:GetCount()>0 then
+		if Duel.Destroy(sg,REASON_EFFECT)>0 then
+			Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SELECT)
+			local g=Duel.SelectMatchingCard(tp,cm.check3,tp,LOCATION_GRAVE,0,2,2,nil,e,tp)
+			if g:GetCount()>=2 then
+				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
+				local sg=g:Select(1-tp,1,1,nil)
+				Duel.SSet(tp,sg,1-tp)
+				g:Sub(sg)
+				Duel.SendtoDeck(g,nil,1,REASON_EFFECT)
+			end
+		end
 	end
 end
 function cm.check2(c)

expansions/script/c16400017.lua

@@ -55,6 +55,6 @@ end
 function cm.op(e,tp)
 	if Duel.Draw(tp,1,REASON_EFFECT)>0 then
 		Duel.BreakEffect()
-		Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT,nil)
+		Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD,nil)
 	end
 end
\ No newline at end of file

expansions/script/c16400020.lua

@@ -22,9 +22,9 @@ function cm.check2(c,tp)
 	return c:IsDiscardable() and Duel.IsExistingMatchingCard(cm.check,tp,LOCATION_HAND,0,1,c)
 end
 function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.check,tp,LOCATION_HAND,0,1,nil) end
-	if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.IsExistingMatchingCard(cm.check2,tp,LOCATION_HAND,0,1,nil,tp) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
-		Duel.DiscardHand(tp,cm.check2,1,1,REASON_COST,nil,tp)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.check,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) and Duel.IsExistingMatchingCard(cm.check2,tp,LOCATION_HAND,0,1,e:GetHandler(),tp) and Duel.SelectYesNo(tp,aux.Stringid(m,0)) then
+		Duel.DiscardHand(tp,cm.check2,1,1,REASON_COST,e:GetHandler(),tp)
 	end
 	Duel.DiscardHand(tp,cm.check,1,1,REASON_COST,nil)
 end
@@ -33,14 +33,14 @@ function cm.tdfilter(c)
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	local a=Duel.IsPlayerCanDraw(1-tp,2)
-	local b=Duel.GetFieldGroupCount(tp,0,LOCATION_EXTRA)>0
+	local b=Duel.GetFieldGroupCount(tp,LOCATION_EXTRA,0)>0
 	if chk==0 then return a or b end
 	Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,1-tp,2)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local a=Duel.IsPlayerCanDraw(1-tp,2)
-	local b=Duel.GetFieldGroupCount(tp,0,LOCATION_EXTRA)>0
+	local b=Duel.GetFieldGroupCount(tp,LOCATION_EXTRA,0)>0
 	local op=2
 	if a and b then
 		op=Duel.SelectOption(1-tp,aux.Stringid(m,2),aux.Stringid(m,1))
@@ -65,7 +65,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		end
 		Duel.RegisterEffect(e2,1-tp)
 	elseif op==1 then
-		local sg=Duel.GetFieldCard(tp,LOCATION_EXTRA,0)
+		local sg=Duel.GetFieldGroup(tp,LOCATION_EXTRA,0)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
 		local g=sg:Select(tp,1,3,nil)
 		Duel.ConfirmCards(1-tp,g)

expansions/script/c16400021.lua

@@ -21,16 +21,20 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
 	local g=Duel.SelectTarget(tp,cm.check,tp,LOCATION_ONFIELD,0,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) 
+end
+function cm.check1(c)
+	return c:IsSetCard(0xce0) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local sg=Duel.SelectMatchingCard(tp,cm,check1,tp,LOCATION_DECK,0,1,1,nil)
+	local sg=Duel.SelectMatchingCard(tp,cm.check1,tp,LOCATION_DECK,0,1,1,nil)
 	if Duel.SendtoHand(sg,tp,REASON_EFFECT)>0 then
 		Duel.ConfirmCards(1-tp,sg)
 		Duel.BreakEffect()
-		Duel.DiscardHand(tp,nil,2,2,REASON_EFFECT,nil)
+		Duel.DiscardHand(tp,nil,2,2,REASON_EFFECT+REASON_DISCARD,nil)
 		if tc:IsRelateToEffect(e) then
 			Duel.Destroy(tc,REASON_EFFECT)
 		end

expansions/script/c16400022.lua

@@ -22,8 +22,8 @@ function cm.check(c)
 	return c:IsSetCard(0xce0) and c:IsDiscardable()
 end
 function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.check,tp,LOCATION_HAND,0,1,nil) end
-	Duel.DiscardHand(tp,cm.check,1,1,REASON_COST,nil)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.check,tp,LOCATION_HAND,0,1,e:GetHandler()) end
+	Duel.DiscardHand(tp,cm.check,1,1,REASON_COST,e:GetHandler())
 end
 function cm.check1(c)
 	return not c:IsCode(m) and c:IsAbleToHand()
@@ -43,7 +43,7 @@ function cm.activate(e,tp,eg,ep,ev,re,r,rp)
 		local g=sg:SelectSubGroup(tp,cm.gfilter,false,1,3)
 		if Duel.SendtoHand(g,tp,REASON_EFFECT)>0 then
 			Duel.BreakEffect()
-			Duel.DiscardHand(tp,nil,2,2,REASON_EFFECT,nil)
+			Duel.DiscardHand(tp,nil,2,2,REASON_EFFECT+REASON_DISCARD,nil)
 		end
 	end
 end

expansions/script/c16400024.lua

@@ -30,14 +30,14 @@ end
 function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
 	e:SetLabel(100)
 	if chk==0 then 
-		if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then
-			return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil)
+		if e:GetHandler():IsLocation(LOCATION_HAND) then
+			return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler())
 		else
 			return true
 		end
 	end
 	if e:GetHandler():IsStatus(STATUS_ACT_FROM_HAND) then
-		Duel.DiscardHand(tp,nil,1,1,REASON_COST,nil,tp)
+		Duel.DiscardHand(tp,nil,1,1,REASON_COST,e:GetHandler(),tp)
 	end
 end
 function cm.cptg(e,tp,eg,ep,ev,re,r,rp,chk)

expansions/script/c16400025.lua

@@ -114,7 +114,7 @@ function cm.disop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 function cm.gfilter(g,tp)
-	return g:IsExists(Card.IsLinkSetCard,1,nil,0xce0) and Duel.IsExistingMatchingCard(Card.IsLinkSummonable,tp,LOCATION_EXTRA,0,1,nil,g,#g,#g)
+	return g:IsExists(Card.IsLinkSetCard,1,nil,0xce0) and Duel.IsExistingMatchingCard(Card.IsLinkSummonable,tp,LOCATION_EXTRA,0,1,nil,g,g:GetFirst(),#g,#g)
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	local sg=Duel.GetMatchingGroup(Card.IsCanBeLinkMaterial,tp,LOCATION_MZONE,0,nil,nil)
@@ -127,7 +127,7 @@ function cm.op(e,tp)
 	local g=sg:SelectSubGroup(tp,cm.gfilter,false,1,#sg,tp)
 	if g:GetCount()>0 then
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-		local lg=Duel.SelectMatchingCard(tp,Card.IsLinkSummonable,tp,LOCATION_EXTRA,0,1,1,nil,g,#g,#g)
+		local lg=Duel.SelectMatchingCard(tp,Card.IsLinkSummonable,tp,LOCATION_EXTRA,0,1,1,nil,g,g:GetFirst(),#g,#g)
 		if lg:GetCount()>0 then
 			local tc=lg:GetFirst()
 			Duel.LinkSummon(tp,tc,g)