Skip to content

P
pre-release-database-cdb
Commit 541fb985 authored by wind2009's avatar wind2009
Browse files
Options

Fix 呪雷神ジェラ

parent 69568000
Show whitespace changes
Inline Side-by-side
Showing with 11 additions and 13 deletions
ALIN.cdb
View file @ 541fb985
No preview for this file type
pack/2025-01-25 ALIN.ydk
View file @ 541fb985
...@@ -20,6 +20,7 @@ ...@@ -20,6 +20,7 @@
101208037 101208037
101208204 101208204
101208039 101208039
101208043
101208205 101208205
101208045 101208045
101208046 101208046
......
script/c101208043.lua
View file @ 541fb985
...@@ -60,28 +60,25 @@ function s.destg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -60,28 +60,25 @@ function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
local b1=Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) local b1=Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil)
local b2=Duel.IsExistingMatchingCard(s.desfilter,tp,0,LOCATION_ONFIELD,1,nil) local b2=Duel.IsExistingMatchingCard(s.desfilter,tp,0,LOCATION_ONFIELD,1,nil)
if chk==0 then return b1 or b2 end if chk==0 then return b1 or b2 end
local op=0 local op=aux.SelectFromOptions(tp,
if b1 and b2 then {b1,aux.Stringid(id,1),1},
op=Duel.SelectOption(tp,aux.Stringid(id,1),aux.Stringid(id,2)) {b2,aux.Stringid(id,2),2})
elseif b1 then
op=Duel.SelectOption(tp,aux.Stringid(id,1))
else
op=Duel.SelectOption(tp,aux.Stringid(id,2))+1
end
e:SetLabel(op) e:SetLabel(op)
local g=Group.CreateGroup() local g=Group.CreateGroup()
if op==0 then if op==1 then
g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
else elseif op==2 then
g=Duel.GetMatchingGroup(s.desfilter,tp,0,LOCATION_ONFIELD,nil) g=Duel.GetMatchingGroup(s.desfilter,tp,0,LOCATION_ONFIELD,nil)
end end
if #g>0 then
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0) Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,#g,0,0)
end
end end
function s.desop(e,tp,eg,ep,ev,re,r,rp) function s.desop(e,tp,eg,ep,ev,re,r,rp)
local g=Group.CreateGroup() local g=Group.CreateGroup()
if e:GetLabel()==0 then if e:GetLabel()==1 then
g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil) g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
else elseif e:GetLabel()==2 then
g=Duel.GetMatchingGroup(s.desfilter,tp,0,LOCATION_ONFIELD,nil) g=Duel.GetMatchingGroup(s.desfilter,tp,0,LOCATION_ONFIELD,nil)
end end
Duel.Destroy(g,REASON_EFFECT) Duel.Destroy(g,REASON_EFFECT)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment