ybb

expansions/script/c12040012.lua

@@ -31,10 +31,10 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e1)
 end
 function cm.filter(c)
-	return c:IsFaceup() and c:IsAbleToHand()
+	return c:IsAbleToHand()
 end 
 function cm.thfilter(c)
-	return c:IsRace(RACE_SEASERPENT) and c:IsAbleToHand()
+	return c:IsFaceup() and c:IsRace(RACE_SEASERPENT) and c:IsAbleToHand()
 end
 function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil,tp) end
@@ -53,8 +53,8 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp)
 		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
 		local tg=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_REMOVED,LOCATION_REMOVED,1,1,nil)
 		if tg:GetCount()>0 then
-			Duel.SendtoHand(g,nil,REASON_EFFECT)
-			Duel.ConfirmCards(1-tp,g)
+			Duel.SendtoHand(tg,nil,REASON_EFFECT)
+			Duel.ConfirmCards(1-tp,tg)
 		end
 	end
 end

expansions/script/c60000056.lua

@@ -103,14 +103,14 @@ function cm.con1(e,tp,eg,ep,ev,re,r,rp)
 	return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
 end
 function cm.spfilter(c,e,tp)
-	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x62a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetFlagEffect(tp,c:GetCode())<1
+	return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x62a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 end
 function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	local c=e:GetHandler()
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
 		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) and c:IsAbleToDeck()
-		and c:GetFlagEffect(m)==0  end
-	c:RegisterFlagEffect(m,RESET_CHAIN,0,1)
+		and c:GetFlagEffect(60000057)==0  end
+	c:RegisterFlagEffect(60000057,RESET_CHAIN,0,1)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,LOCATION_DECK)
 end
 function cm.op1(e,tp,eg,ep,ev,re,r,rp)
@@ -125,9 +125,21 @@ function cm.op1(e,tp,eg,ep,ev,re,r,rp)
 				local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
 				local tc=g:GetFirst()
 				if g:GetCount()>0 and Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0 then
-					Duel.RegisterFlagEffect(tp,tc:GetCode(),RESET_PHASE+PHASE_END,0,1)
+					local e1=Effect.CreateEffect(e:GetHandler())
+					e1:SetType(EFFECT_TYPE_FIELD)
+					e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+					e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
+					e1:SetTargetRange(1,0)
+					e1:SetLabel(tc:GetCode())
+					e1:SetTarget(cm.splimit)
+					e1:SetReset(RESET_PHASE+PHASE_END)
+					Duel.RegisterEffect(e1,tp)
 				end
 			end
 		end
 	end
 end
+function cm.splimit(e,c,sump,sumtype,sumpos,targetp,se)
+	return se and se:GetHandler():IsCode(m) and c:GetCode()==e:GetLabel()
+	and not c:IsLocation(LOCATION_HAND+LOCATION_GRAVE)
+end

expansions/script/c60000058.lua

@@ -88,10 +88,10 @@ function cm.todeckfilter(c)
 end
 function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.todeckfilter,tp,LOCATION_ONFIELD,0,1,nil)
-	and Duel.IsExistingMatchingCard(cm.todeckfilter,tp,0,LOCATION_ONFIELD,1,nil) and e:GetHandler():GetFlagEffect(m)==0
+	and Duel.IsExistingMatchingCard(cm.todeckfilter,tp,0,LOCATION_ONFIELD,1,nil) and e:GetHandler():GetFlagEffect(60000059)==0
 	and e:GetHandler():IsAbleToHand() end
 	local g=Duel.GetMatchingGroup(cm.todeckfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil)
-	e:GetHandler():RegisterFlagEffect(m,RESET_CHAIN,0,1)
+	e:GetHandler():RegisterFlagEffect(60000059,RESET_CHAIN,0,1)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
 end
 function cm.op1(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c60000059.lua

@@ -118,10 +118,10 @@ function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	local cg=e:GetHandler():GetColumnGroup()
 	if chk==0 then return cg:CheckSubGroup(cm.fselect,1,1) 
 	and e:GetHandler():IsAbleToHand()
-	and e:GetHandler():GetFlagEffect(m)==0 end
+	and e:GetHandler():GetFlagEffect(60000060)==0 end
 	local g=Duel.GetMatchingGroup(cm.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,nil,cg)
 	Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
-	e:GetHandler():RegisterFlagEffect(m,RESET_CHAIN,0,1) 
+	e:GetHandler():RegisterFlagEffect(60000060,RESET_CHAIN,0,1) 
 end
 function cm.op1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

expansions/script/c60000061.lua

@@ -118,8 +118,8 @@ function cm.con1(e,tp,eg,ep,ev,re,r,rp)
 	return (Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE)
 end
 function cm.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():GetFlagEffect(m)==0 end
-	e:GetHandler():RegisterFlagEffect(m,RESET_CHAIN,0,1)
+	if chk==0 then return e:GetHandler():GetFlagEffect(60000062)==0 end
+	e:GetHandler():RegisterFlagEffect(60000062,RESET_CHAIN,0,1)
 end
 function cm.op1(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

expansions/script/c71400024.lua

@@ -54,7 +54,7 @@ function c71400024.con2(e,tp,eg,ep,ev,re,r,rp)
 	return (c:IsReason(REASON_BATTLE) or c:IsReason(REASON_EFFECT)) and c:IsPreviousLocation(LOCATION_MZONE)
 end
 function c71400024.filter2(c,e,tp)
-	return c71400024.lcfilter(c) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(71400024)
+	return c:GetBaseAttack()>2500 and c:GetOriginalAttribute()==ATTRIBUTE_DARK and c:IsSetCard(0x714) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(71400024)
 end
 function c71400024.tg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c71400024.filter2(chkc,e,tp) end