nmbd

expansions/script/c21520155.lua

@@ -58,10 +58,10 @@ function c21520155.operation(e,tp,eg,ep,ev,re,r,rp)
 			sg:GetFirst():CompleteProcedure()
 			Duel.ShuffleDeck(tp)
 		else 
-			Duel.Damage(tp,ac*1000,REASON_RULE)
+			Duel.SetLP(tp,Duel.GetLP(tp)-1000*ac)
 		end
 	else 
-		Duel.Damage(tp,ac*1000,REASON_RULE)
+		Duel.SetLP(tp,Duel.GetLP(tp)-1000*ac)
 	end
 end
 function c21520155.effectfilter(c)

expansions/script/c21520191.lua

@@ -53,7 +53,7 @@ function c21520191.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	local code=e:GetHandler():GetCode()
 	local ct=Duel.GetFlagEffect(tp,code)
 	Duel.RegisterFlagEffect(tp,code,RESET_PHASE+PHASE_END,0,1)
-	Duel.Damage(tp,100*2^ct,REASON_RULE)
+	Duel.SetLP(tp,Duel.GetLP(tp)-100*2^ct)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)

expansions/script/c21520192.lua

@@ -53,7 +53,7 @@ function c21520192.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	local code=e:GetHandler():GetCode()
 	local ct=Duel.GetFlagEffect(tp,code)
 	Duel.RegisterFlagEffect(tp,code,RESET_PHASE+PHASE_END,0,1)
-	Duel.Damage(tp,100*2^ct,REASON_RULE)
+	Duel.SetLP(tp,Duel.GetLP(tp)-100*2^ct)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)

expansions/script/c21520193.lua

@@ -53,7 +53,7 @@ function c21520193.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	local code=e:GetHandler():GetCode()
 	local ct=Duel.GetFlagEffect(tp,code)
 	Duel.RegisterFlagEffect(tp,code,RESET_PHASE+PHASE_END,0,1)
-	Duel.Damage(tp,100*2^ct,REASON_RULE)
+	Duel.SetLP(tp,Duel.GetLP(tp)-100*2^ct)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)

expansions/script/c21520194.lua

@@ -50,7 +50,7 @@ function c21520194.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	local code=e:GetHandler():GetCode()
 	local ct=Duel.GetFlagEffect(tp,code)
 	Duel.RegisterFlagEffect(tp,code,RESET_PHASE+PHASE_END,0,1)
-	Duel.Damage(tp,100*2^ct,REASON_RULE)
+	Duel.SetLP(tp,Duel.GetLP(tp)-100*2^ct)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)

expansions/script/c21520195.lua

@@ -50,7 +50,7 @@ function c21520195.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	local code=e:GetHandler():GetCode()
 	local ct=Duel.GetFlagEffect(tp,code)
 	Duel.RegisterFlagEffect(tp,code,RESET_PHASE+PHASE_END,0,1)
-	Duel.Damage(tp,100*2^ct,REASON_RULE)
+	Duel.SetLP(tp,Duel.GetLP(tp)-100*2^ct)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)

expansions/script/c21520196.lua

@@ -50,7 +50,7 @@ function c21520196.spop(e,tp,eg,ep,ev,re,r,rp,c)
 	local code=e:GetHandler():GetCode()
 	local ct=Duel.GetFlagEffect(tp,code)
 	Duel.RegisterFlagEffect(tp,code,RESET_PHASE+PHASE_END,0,1)
-	Duel.Damage(tp,100*2^ct,REASON_RULE)
+	Duel.SetLP(tp,Duel.GetLP(tp)-100*2^ct)
 	local e1=Effect.CreateEffect(e:GetHandler())
 	e1:SetType(EFFECT_TYPE_FIELD)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_OATH)

expansions/script/c21520199.lua

@@ -72,7 +72,7 @@ function c21520199.atkop(e,tp,eg,ep,ev,re,r,rp)
 			e1:SetReset(RESET_EVENT+0x1fe0000)
 			c:RegisterEffect(e1)
 		else
-			Duel.Damage(tp,1000,REASON_RULE)
+			Duel.SetLP(tp,Duel.GetLP(tp)-1000*ac)
 		end
 		c:SetHint(CHINT_NUMBER,sum)
 	end

expansions/script/c21520221.lua

@@ -87,25 +87,47 @@ end
 function c21520221.aclimit(e,re,tp)
 	return not re:GetHandler():IsSetCard(0x491)
 end
+function c21520221.effectfilter(c)
+	return c:IsCode(21520133) and c:IsFaceup() and not c:IsStatus(STATUS_BATTLE_DESTROYED)
+end
 function c21520221.igfilter(c)
-	return c:IsAbleToHand() and c:IsSetCard(0x491) and c:IsType(TYPE_SPELL+TYPE_TRAP)
+	return c:IsSetCard(0x491) and c:IsType(TYPE_SPELL+TYPE_TRAP)
 end
 function c21520221.igtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c21520221.igfilter,tp,LOCATION_DECK,0,1,nil) end
+	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
 	Duel.SetOperationInfo(0,CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK)
 end
 function c21520221.igop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.GetMatchingGroup(c21520221.igfilter,tp,LOCATION_DECK,0,nil)
-	if g:GetCount()>0 then 
-		Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-		local sg=g:Select(tp,1,1,nil)
-		Duel.SendtoHand(sg,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,sg)
-		Duel.BreakEffect()
-		local hg=Duel.GetMatchingGroup(Card.IsAbleToDeck,tp,LOCATION_HAND,0,nil)
-		if hg:GetCount()>0 then 
-			local sdg=hg:Select(tp,1,1,nil)
-			Duel.SendtoDeck(sdg,nil,2,REASON_EFFECT)
+	local dcount=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
+	if dcount==0 then return end
+	if g:GetCount()==0 then
+		Duel.ConfirmDecktop(tp,dcount)
+		Duel.ShuffleDeck(tp)
+		return
+	end
+	local seq=-1
+	local tc=g:GetFirst()
+	local spcard=nil
+	while tc do
+		if tc:GetSequence()>seq then
+			seq=tc:GetSequence()
+			spcard=tc
 		end
+		tc=g:GetNext()
+	end
+	Duel.ConfirmDecktop(tp,dcount-seq)
+	local dg=Duel.GetDecktopGroup(tp,dcount-seq)
+	local tdg=dg:Filter(Card.IsSetCard,nil,0x491)
+	dg:Sub(tdg)
+	if dg:GetCount()>0 and not Duel.IsExistingMatchingCard(c21520221.effectfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then 
+		Duel.SetLP(tp,Duel.GetLP(tp)-dg:GetCount()*600)
 	end
+	if spcard:IsAbleToHand() then
+		Duel.DisableShuffleCheck()
+		Duel.SendtoHand(spcard,nil,REASON_EFFECT)
+		Duel.DiscardDeck(tp,dcount-seq-1,REASON_EFFECT+REASON_REVEAL)
+		Duel.ConfirmCards(1-tp,spcard)
+		Duel.ShuffleHand(tp)
+	else Duel.DiscardDeck(tp,dcount-seq,REASON_EFFECT+REASON_REVEAL) end
 end

expansions/script/c21520235.lua

@@ -119,7 +119,7 @@ function c21520235.igop(e,tp,eg,ep,ev,re,r,rp)
 			e2:SetCode(EFFECT_DISABLE_EFFECT)
 			tc:RegisterEffect(e2)
 			local val=tc:GetBaseAttack()+tc:GetBaseDefense()
-			Duel.Damage(tp,val,REASON_RULE)
+			Duel.SetLP(tp,Duel.GetLP(tp)-val)
 		end
 		Duel.SpecialSummonComplete()
 	end

expansions/script/c21520237.lua

@@ -124,6 +124,6 @@ function c21520237.igop(e,tp,eg,ep,ev,re,r,rp)
 	end
 	if not Duel.IsExistingMatchingCard(c21520237.effectfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then 
 		Duel.BreakEffect()
-		Duel.Damage(tp,1500,REASON_RULE)
+		Duel.SetLP(tp,Duel.GetLP(tp)-1500)
 	end
 end

expansions/script/c21520238.lua

@@ -124,6 +124,6 @@ function c21520238.igop(e,tp,eg,ep,ev,re,r,rp)
 	end
 	if not Duel.IsExistingMatchingCard(c21520238.effectfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) then 
 		Duel.BreakEffect()
-		Duel.Damage(tp,2000,REASON_RULE)
+		Duel.SetLP(tp,Duel.GetLP(tp)-1500)
 	end
 end

expansions/script/c21520241.lua

@@ -56,10 +56,10 @@ function c21520241.operation(e,tp,eg,ep,ev,re,r,rp)
 			sg:GetFirst():CompleteProcedure()
 			Duel.ShuffleDeck(tp)
 		else 
-			Duel.Damage(tp,ac*1000,REASON_RULE)
+			Duel.SetLP(tp,Duel.GetLP(tp)-1000*ac)
 		end
 	else 
-		Duel.Damage(tp,ac*1000,REASON_RULE)
+		Duel.SetLP(tp,Duel.GetLP(tp)-1000*ac)
 	end
 end
 function c21520241.effectfilter(c)