byd

expansions/script/c96026004.lua

@@ -72,38 +72,37 @@ function cm.stpcost(e,tp,eg,ep,ev,re,r,rp,chk)
 end
 function cm.efilter(c,e,tp,ft)
 	return (c:IsCode(96026001) or aux.IsCodeListed(c,96026001) and c:IsType(TYPE_MONSTER) and not c:IsCode(m))
-		and (c:IsAbleToHand() or spchk and c:IsCanBeSpecialSummoned(e,0,tp,false,false))
+		and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
 end
 function cm.stptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		local spchk=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
-		return Duel.IsExistingMatchingCard(cm.efilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp,spchk)
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.efilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp,ft)
 	end
 end
 function cm.stpop(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	local spchk=Duel.GetLocationCount(tp,LOCATION_MZONE)>0
+	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
-	local g=Duel.SelectMatchingCard(tp,cm.efilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp,spchk)
-	if g:GetCount()>0 then
-		local sc=g:GetFirst()
-		if spchk and sc:IsCanBeSpecialSummoned(e,0,tp,false,false)
-			and (not sc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
-			Duel.SpecialSummon(sc,0,tp,tp,false,false,POS_FACEUP)
-			if sc:IsCode(96026001) then
+	local g=Duel.SelectMatchingCard(tp,cm.efilter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp,ft)
+	local tc=g:GetFirst()
+	if tc then
+		if ft>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
+			and (not tc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
+			Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
+			if tc:IsCode(96026001) then
 				local e1=Effect.CreateEffect(c)
 				e1:SetType(EFFECT_TYPE_SINGLE)
 				e1:SetCode(EFFECT_UPDATE_ATTACK)
 				e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 				e1:SetValue(1000)
 				e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-				sc:RegisterEffect(e1)
-				sc=g:GetNext()
+				tc:RegisterEffect(e1)
+				tc=g:GetNext()
 			end
 			Duel.SpecialSummonComplete()
 		else
-			Duel.SendtoHand(sc,nil,REASON_EFFECT)
-			Duel.ConfirmCards(1-tp,sc)
+			Duel.SendtoHand(tc,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tc)
 		end
 	end
 end

expansions/script/c96026015.lua

@@ -73,7 +73,7 @@ function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return c:IsDiscardable() end
 	Duel.SendtoGrave(c,REASON_COST+REASON_DISCARD)
 end
-function cm.thfilter(c)
+function cm.thfilter(c,e,tp,ft)
 	return c:IsCode(96026001,96026004) and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
 end
 function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)

expansions/script/c96026019.lua

@@ -53,7 +53,6 @@ function cm.condition(e,tp,eg,ep,ev,re,r,rp)
 	return false
 end
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
 	if chk==0 then return true end
 	local ng=Group.CreateGroup()
 	local dg=Group.CreateGroup()
@@ -72,7 +71,6 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,dg,dg:GetCount(),0,0)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
 	local dg=Group.CreateGroup()
 	for i=3,ev do
 		local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)

expansions/script/c96026021.lua

@@ -51,7 +51,6 @@ function cm.initial_effect(c)
 	e4:SetProperty(EFFECT_FLAG_DELAY)
 	e4:SetCode(EVENT_TO_GRAVE)
 	e4:SetCountLimit(1,96026023)
-	e4:SetCost(cm.thcost)
 	e4:SetTarget(cm.thtg)
 	e4:SetOperation(cm.thop)
 	c:RegisterEffect(e4)
@@ -162,21 +161,6 @@ function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
 	Duel.SpecialSummonComplete()
 end
 --to hand
-function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local c=e:GetHandler()
-	if chk==0 then return Duel.GetCustomActivityCount(m,tp,ACTIVITY_CHAIN)==0 end
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
-	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e1:SetTargetRange(1,0)
-	e1:SetValue(cm.aclimit)
-	e1:SetReset(RESET_PHASE+PHASE_END)
-	Duel.RegisterEffect(e1,tp)
-end
-function cm.aclimit(e,re,tp)
-	return not re:GetHandler():IsAttackBelow(1500) and re:IsActiveType(TYPE_MONSTER)
-end
 function cm.thfilter(c)
 	return (c:IsCode(96026001) or aux.IsCodeListed(c,96026001) and not c:IsCode(m)) and c:IsAbleToHand()
 end
@@ -193,4 +177,15 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoHand(g,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,g)
 	end
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)
+	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e1:SetTargetRange(1,0)
+	e1:SetValue(cm.aclimit)
+	e1:SetReset(RESET_PHASE+PHASE_END)
+	Duel.RegisterEffect(e1,tp)
 end
+function cm.aclimit(e,re,tp)
+	return not re:GetHandler():IsAttackBelow(1500) and re:IsActiveType(TYPE_MONSTER)
+end
\ No newline at end of file

expansions/script/c96026028.lua

@@ -72,6 +72,7 @@ function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
 end
 function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
 	local g=Duel.GetMatchingGroup(cm.tdfilter,tp,0,LOCATION_ONFIELD,nil)
 	if g:GetCount()>0 then
 		Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)

expansions/script/c96026032.lua

@@ -31,8 +31,7 @@ function cm.initial_effect(c)
 	e3:SetDescription(aux.Stringid(m,2))
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e3:SetType(EFFECT_TYPE_QUICK_O)
-	e3:SetCode(EVENT_FREE_CHAIN)
+	e3:SetType(EFFECT_TYPE_IGNITION)
 	e3:SetRange(LOCATION_GRAVE)
 	e3:SetCountLimit(1,m)
 	e3:SetCost(aux.bfgcost)
@@ -63,7 +62,7 @@ function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
 end
 function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetLocationCountFromEx(tp)<=0 then return end
+	local c=e:GetHandler()
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
 	local tc=Duel.SelectMatchingCard(tp,cm.filter2,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,e:GetLabel()):GetFirst()
 	if tc and Duel.SpecialSummon(tc,0,tp,tp,true,true,POS_FACEUP)>0 then