byd

expansions/script/c12400079.lua

@@ -30,7 +30,7 @@ function c12400079.initial_effect(c)
 	local e4=Effect.CreateEffect(c)
 	e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e4:SetCode(EVENT_LEAVE_FIELD)
-	e4:SetCategory(CATEGORY_DESTROY+CATEGORY_GRAVE_SPSUMMON+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
+	e4:SetCategory(CATEGORY_DESTROY)
 	e4:SetProperty(EFFECT_FLAG_DELAY)
 	e4:SetCountLimit(1,12400084)
 	e4:SetTarget(c12400079.tg4)
@@ -110,25 +110,6 @@ function c12400079.op4(e,tp,eg,ep,ev,re,r,rp)
 	if c:IsRelateToEffect(e) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP) and Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
 	local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,2,nil)
-		if Duel.Destroy(g,REASON_EFFECT)>0 then 
-		g:Remove(Card.IsLocation,nil,LOCATION_ONFIELD)
-		local cg=g:Filter(c12400079.r,nil)
-			if cg:GetCount()>0 then
-			if #cg>Duel.GetLocationCount(tp,LOCATION_MZONE) then return false end 			
-			local ct=cg:GetCount()
-			if Duel.IsPlayerAffectedByEffect(tp,59822133) and ct>1 then ct=1 end
-				if Duel.SelectYesNo(tp,aux.Stringid(12400079,0)) then
-				for i=1,ct do
-				local tc=cg:GetFirst()
-				Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-				local spg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c12400079.t,e,tp,tc:GetLevel()),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil,e,tp,tc:GetLevel())
-					if spg:GetCount()>0 then
-					Duel.SpecialSummon(spg,0,tp,tp,false,false,POS_FACEUP)
-					cg:RemoveCard(spg:GetFirst())
-					end
-				end	
-				end
-			end		
-		end		
+	Duel.Destroy(g,REASON_EFFECT)
 	end		
 end
\ No newline at end of file

expansions/script/c30900661.lua

 --不屈的狮子王·恩格拉里克
 local s,id,o=GetID()
 function s.initial_effect(c)
+aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),3)
+	c:EnableReviveLimit()
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(id,0))
 	e1:SetCategory(CATEGORY_ATKCHANGE)
@@ -10,17 +12,10 @@ function s.initial_effect(c)
 	e1:SetCondition(s.atkcon)
 	e1:SetOperation(s.atkop)
 	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_ATTACK_ALL)
-	e2:SetValue(1)
-	c:RegisterEffect(e2)
-	--special summon
 	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
-	e3:SetCode(EVENT_TO_GRAVE)
-	e3:SetOperation(s.regop)
+	e3:SetType(EFFECT_TYPE_SINGLE)
+	e3:SetCode(EFFECT_ATTACK_ALL)
+	e3:SetValue(1)
 	c:RegisterEffect(e3)
 	local e4=Effect.CreateEffect(c)
 	e4:SetDescription(aux.Stringid(id,2))
@@ -54,12 +49,6 @@ function s.atkop(e,tp,eg,ep,ev,re,r,rp)
 		c:RegisterEffect(e2)
 	end
 end
-function s.regop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsReason(REASON_DESTROY) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsSummonType(SUMMON_TYPE_LINK) then
-		c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,2)
-	end
-end
 function s.spcon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	return c:GetTurnID()~=Duel.GetTurnCount() and c:GetFlagEffect(id)>0

expansions/script/c33701424.lua

@@ -23,6 +23,8 @@ function cm.initial_effect(c)
 end
 function cm.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(1000)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000)
 end
 function cm.damop(e,tp,eg,ep,ev,re,r,rp)
@@ -36,6 +38,8 @@ function cm.damop(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.damtg1(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return true end
+	Duel.SetTargetPlayer(tp)
+	Duel.SetTargetParam(2000)
 	Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,2000)
 end
 function cm.damop1(e,tp,eg,ep,ev,re,r,rp)
@@ -60,9 +64,8 @@ function cm.damop1(e,tp,eg,ep,ev,re,r,rp)
 						if seq==1 then flag=flag|(aux.SequenceToGlobal(p,LOCATION_MZONE,5)) end
 						if seq==3 then flag=flag|(aux.SequenceToGlobal(p,LOCATION_MZONE,6)) end
 					end
-				elseif
-					if seq==5 then flag=flag|(aux.SequenceToGlobal(p,LOCATION_MZONE,1)) end
-					if seq==6 then flag=flag|(aux.SequenceToGlobal(p,LOCATION_MZONE,3)) end
+				if seq==5 then flag=flag|(aux.SequenceToGlobal(p,LOCATION_MZONE,1)) end
+			    if seq==6 then flag=flag|(aux.SequenceToGlobal(p,LOCATION_MZONE,3)) end
 				else toGrave=true
 				end
 			elseif tc:IsLocation(LOCATION_SZONE) then
@@ -77,6 +80,7 @@ function cm.damop1(e,tp,eg,ep,ev,re,r,rp)
 				Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TOZONE)
 				local s=Duel.SelectDisableField(p,1,LOCATION_ONFIELD,0,~flag)
 				local nseq=math.log(s,2)
+				local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
 				nseq=nesq-p*16
 				if tc:IsLocation(LOCATION_SZONE) then nseq=nseq-8
 				Duel.MoveSequence(c,nseq)
@@ -88,3 +92,4 @@ function cm.damop1(e,tp,eg,ep,ev,re,r,rp)
 		end
 	end
 end
+end
\ No newline at end of file

expansions/script/c81028029.lua

@@ -33,7 +33,7 @@ function cm.initial_effect(c)
 	c:RegisterEffect(e2)
 end
 function cm.matval(e,c)
-	return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_TUNER)
+	return c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_ZOMBIE) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_TUNER)
 end
 function cm.hsyncon(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
@@ -43,7 +43,7 @@ function cm.hsynreg(e,tp,eg,ep,ev,re,r,rp)
 	e:GetLabelObject():UseCountLimit(tp)
 end
 function cm.tgfilter(c)
-	return not c:IsCode(m) and c:IsRace(RACE_FIEND) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_TUNER) and c:IsAbleToGrave()
+	return not c:IsCode(m) and c:IsRace(RACE_ZOMBIE) and c:IsAttribute(ATTRIBUTE_WIND) and c:IsType(TYPE_TUNER) and c:IsAbleToGrave()
 end
 function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end

expansions/script/c96072019.lua

@@ -79,7 +79,7 @@ function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
 	if g:GetCount()==0 then return end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
 	local sg=g:Select(tp,1,g:GetCount(),nil)
-	Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT):ReverseInDeck()
+	if Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 then end
 	local ct=Duel.GetOperatedGroup():FilterCount(Card.IsLocation,nil,LOCATION_DECK)
 	local dg=Duel.GetMatchingGroup(nil,tp,0,LOCATION_ONFIELD,nil)
 	if ct>0 and dg:GetCount()>=ct and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then

expansions/script/c96072021.lua

@@ -123,8 +123,9 @@ function cm.thop(e,tp,eg,ep,ev,re,r,rp)
 	Duel.Hint(HINT_SELECTMSG,p,HINTMSG_TODECK)
 	local g=Duel.SelectMatchingCard(p,Card.IsAbleToDeck,p,LOCATION_HAND+LOCATION_ONFIELD+LOCATION_GRAVE+LOCATION_REMOVED,0,1,63,nil)
 	if g:GetCount()==0 then return end
-	Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT):ReverseInDeck()
-	Duel.ShuffleDeck(p)
-	Duel.BreakEffect()
-	Duel.Draw(tp,3,REASON_EFFECT)
+	if Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 then
+		Duel.ShuffleDeck(p)
+		Duel.BreakEffect()
+		Duel.Draw(tp,3,REASON_EFFECT)
+	end
 end
\ No newline at end of file

expansions/script/c96072024.lua

@@ -113,7 +113,6 @@ function cm.negcon(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.negop(e,tp,eg,ep,ev,re,r,rp)
 	if Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
-		Duel.Hint(HINT_CARD,0,m)
 		Duel.NegateEffect(ev)
 		e:GetHandler():RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1)
 	end