Skip to content

no81cards
no81cards
Commit 5c6cba06 authored by Nemo Ma's avatar Nemo Ma
Browse files
Options

fix

parent b251cce6
Hide whitespace changes
Inline Side-by-side
Showing with 173 additions and 42 deletions
expansions/script/c11451462.lua
View file @ 5c6cba06
...@@ -41,6 +41,9 @@ end ...@@ -41,6 +41,9 @@ end
function cm.filter2(c) function cm.filter2(c)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove()
end end
function cm.filter22(c,e)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
end
function cm.filter3(c,e,tp) function cm.filter3(c,e,tp)
return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
...@@ -100,7 +103,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -100,7 +103,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp) function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local mg=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,0,nil) local mg=Duel.GetMatchingGroup(cm.filter22,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,0,nil,e)
local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp) local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp)
local tg=Group.CreateGroup() local tg=Group.CreateGroup()
for sc in aux.Next(sg) do for sc in aux.Next(sg) do
......
expansions/script/c11451463.lua
View file @ 5c6cba06
...@@ -39,6 +39,9 @@ end ...@@ -39,6 +39,9 @@ end
function cm.filter2(c) function cm.filter2(c)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove()
end end
function cm.filter22(c,e)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
end
function cm.filter3(c,e,tp) function cm.filter3(c,e,tp)
return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
...@@ -104,7 +107,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -104,7 +107,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp) function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local mg=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,0,nil) local mg=Duel.GetMatchingGroup(cm.filter22,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,0,nil,e)
local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp) local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp)
local tg=Group.CreateGroup() local tg=Group.CreateGroup()
for sc in aux.Next(sg) do for sc in aux.Next(sg) do
......
expansions/script/c11451464.lua
View file @ 5c6cba06
...@@ -73,6 +73,9 @@ end ...@@ -73,6 +73,9 @@ end
function cm.filter2(c) function cm.filter2(c)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove()
end end
function cm.filter22(c,e)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
end
function cm.filter3(c,e,tp) function cm.filter3(c,e,tp)
return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
...@@ -160,7 +163,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -160,7 +163,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp) function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local mg=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,nil) local mg=Duel.GetMatchingGroup(cm.filter22,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,nil,e)
local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp) local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp)
local tg=Group.CreateGroup() local tg=Group.CreateGroup()
for sc in aux.Next(sg) do for sc in aux.Next(sg) do
......
expansions/script/c11451465.lua
View file @ 5c6cba06
...@@ -57,6 +57,9 @@ end ...@@ -57,6 +57,9 @@ end
function cm.filter2(c) function cm.filter2(c)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove()
end end
function cm.filter22(c,e)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
end
function cm.filter3(c,e,tp) function cm.filter3(c,e,tp)
return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
...@@ -138,7 +141,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -138,7 +141,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp) function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local mg=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,nil) local mg=Duel.GetMatchingGroup(cm.filter22,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,nil,e)
local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp) local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp)
local tg=Group.CreateGroup() local tg=Group.CreateGroup()
for sc in aux.Next(sg) do for sc in aux.Next(sg) do
......
expansions/script/c11451466.lua
View file @ 5c6cba06
...@@ -62,6 +62,9 @@ end ...@@ -62,6 +62,9 @@ end
function cm.filter2(c) function cm.filter2(c)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove()
end end
function cm.filter22(c,e)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
end
function cm.filter3(c,e,tp) function cm.filter3(c,e,tp)
return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
...@@ -151,7 +154,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -151,7 +154,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp) function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local mg=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,nil) local mg=Duel.GetMatchingGroup(cm.filter22,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,nil,e)
local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp) local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp)
local trg=mg:Filter(Card.IsType,nil,TYPE_TUNER) local trg=mg:Filter(Card.IsType,nil,TYPE_TUNER)
local ng=mg-trg local ng=mg-trg
......
expansions/script/c11451467.lua
View file @ 5c6cba06
...@@ -65,6 +65,9 @@ end ...@@ -65,6 +65,9 @@ end
function cm.filter2(c) function cm.filter2(c)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove()
end end
function cm.filter22(c,e)
return c:IsSetCard(0x97a) and ((c:IsFaceup() and c:IsLocation(LOCATION_ONFIELD)) or (c:IsPublic() and c:IsLocation(LOCATION_HAND)) or c:IsLocation(LOCATION_GRAVE)) and c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
end
function cm.filter3(c,e,tp) function cm.filter3(c,e,tp)
return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x97a) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
...@@ -180,7 +183,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -180,7 +183,7 @@ function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function cm.spop(e,tp,eg,ep,ev,re,r,rp) function cm.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local mg=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,nil) local mg=Duel.GetMatchingGroup(cm.filter22,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,LOCATION_HAND+LOCATION_GRAVE+LOCATION_ONFIELD,nil,e)
local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp) local sg=Duel.GetMatchingGroup(cm.filter3,tp,LOCATION_DECK,0,nil,e,tp)
local trg=mg:Filter(Card.IsType,nil,TYPE_TUNER) local trg=mg:Filter(Card.IsType,nil,TYPE_TUNER)
local ng=mg-trg local ng=mg-trg
......
expansions/script/c11451652.lua
View file @ 5c6cba06
...@@ -12,6 +12,24 @@ function cm.initial_effect(c) ...@@ -12,6 +12,24 @@ function cm.initial_effect(c)
e1:SetTarget(cm.target) e1:SetTarget(cm.target)
e1:SetOperation(cm.operation) e1:SetOperation(cm.operation)
c:RegisterEffect(e1) c:RegisterEffect(e1)
if not cm.global_check then
cm.global_check=true
local ge1=Effect.CreateEffect(c)
ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge1:SetCode(EVENT_CHAINING)
ge1:SetOperation(cm.checkop)
Duel.RegisterEffect(ge1,0)
end
end
function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
local rc=re:GetHandler()
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(0x10000000+m)
e1:SetLabelObject(re)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
rc:RegisterEffect(e1,true)
end end
function cm.condition(e,tp,eg,ep,ev,re,r,rp) function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL) return e:GetHandler():IsSummonType(SUMMON_TYPE_RITUAL)
...@@ -39,6 +57,13 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -39,6 +57,13 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
end--]] end--]]
local g=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0xff,0xff,nil,ac) local g=Duel.GetMatchingGroup(Card.IsOriginalCodeRule,tp,0xff,0xff,nil,ac)
local reg=Card.RegisterEffect local reg=Card.RegisterEffect
local ctl=Effect.SetCountLimit
Effect.SetCountLimit=function(se,ct,code)
if se:GetType()&EFFECT_TYPE_IGNITION>0 and (not code or code==0) then
cm[se]=true
end
ctl(se,ct,code)
end
Card.RegisterEffect=function(sc,se,bool) Card.RegisterEffect=function(sc,se,bool)
if se:GetType()&EFFECT_TYPE_IGNITION>0 and sc:GetOriginalType()&TYPE_MONSTER>0 then if se:GetType()&EFFECT_TYPE_IGNITION>0 and sc:GetOriginalType()&TYPE_MONSTER>0 then
se:SetType(EFFECT_TYPE_QUICK_O) se:SetType(EFFECT_TYPE_QUICK_O)
...@@ -49,6 +74,17 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -49,6 +74,17 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
se:SetProperty(pro,pro2) se:SetProperty(pro,pro2)
end end
reg(sc,se,true) reg(sc,se,true)
if cm[se] then
cm[se]=nil
local eset={sc:IsHasEffect(0x10000000+m)}
if #eset>0 then
local ct=0
for _,ee in pairs(eset) do
if ee:GetLabelObject():GetOperation()==se:GetOperation() then ct=ct+1 end
end
se:UseCountLimit(sc:GetControler(),ct)
end
end
end end
for tc in aux.Next(g) do for tc in aux.Next(g) do
if tc.initial_effect then if tc.initial_effect then
...@@ -60,4 +96,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -60,4 +96,5 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
end end
end end
Card.RegisterEffect=reg Card.RegisterEffect=reg
Effect.SetCountLimit=ctl
end end
\ No newline at end of file
expansions/script/c15000904.lua
View file @ 5c6cba06
...@@ -97,18 +97,22 @@ function cm.damop(e,tp,eg,ep,ev,re,r,rp) ...@@ -97,18 +97,22 @@ function cm.damop(e,tp,eg,ep,ev,re,r,rp)
end end
function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_REMOVED) end if chkc then return chkc:IsLocation(LOCATION_REMOVED) end
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,1,aux.ExceptThisCard(e)) end if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,1,2,aux.ExceptThisCard(e)) local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_REMOVED,0,1,2,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,0) Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g,0,0)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1) Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
end end
function cm.tdop(e,tp,eg,ep,ev,re,r,rp) function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
local sg=tg:Filter(Card.IsRelateToEffect,nil,e) local sg=tg:Filter(Card.IsRelateToEffect,nil,e)
if sg:GetCount()>0 and Duel.SendtoDeck(sg,nil,1,REASON_EFFECT)~=0 then if sg:GetCount()>0 and Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)~=0 then
Duel.ShuffleDeck(tp) local g=Duel.GetOperatedGroup()
Duel.BreakEffect() if g:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then Duel.ShuffleDeck(tp) end
Duel.Draw(tp,1,REASON_EFFECT) local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK+LOCATION_EXTRA)
if ct>0 then
Duel.BreakEffect()
Duel.Draw(tp,1,REASON_EFFECT)
end
end end
end end
\ No newline at end of file
expansions/script/c4591277.lua
View file @ 5c6cba06
...@@ -13,42 +13,114 @@ function c4591277.initial_effect(c) ...@@ -13,42 +13,114 @@ function c4591277.initial_effect(c)
e1:SetOperation(c4591277.cosoperation) e1:SetOperation(c4591277.cosoperation)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--grave fusion material --grave fusion material
if not aux.bog_grave_fus_mat then --if not aux.bog_grave_fus_mat then
aux.bog_grave_fus_mat=true -- aux.bog_grave_fus_mat=true
local ge1=Effect.CreateEffect(c) -- local ge1=Effect.CreateEffect(c)
ge1:SetType(EFFECT_TYPE_FIELD) -- ge1:SetType(EFFECT_TYPE_FIELD)
ge1:SetCode(EFFECT_EXTRA_FUSION_MATERIAL) -- ge1:SetCode(EFFECT_EXTRA_FUSION_MATERIAL)
ge1:SetTargetRange(LOCATION_GRAVE,0) -- ge1:SetTargetRange(LOCATION_GRAVE,0)
ge1:SetTarget(c4591277.mttg) -- ge1:SetTarget(c4591277.mttg)
ge1:SetValue(c4591277.mtval) -- ge1:SetValue(c4591277.mtval)
Duel.RegisterEffect(ge1,0) -- Duel.RegisterEffect(ge1,0)
local ge2=ge1:Clone() -- local ge2=ge1:Clone()
Duel.RegisterEffect(ge2,1) -- Duel.RegisterEffect(ge2,1)
end --end
--workaround --workaround
if not aux.fus_mat_hack_check then --if not aux.fus_mat_hack_check then
aux.fus_mat_hack_check=true -- aux.fus_mat_hack_check=true
function aux.fus_mat_hack_exmat_filter(c) -- function aux.fus_mat_hack_exmat_filter(c)
return c:IsHasEffect(EFFECT_EXTRA_FUSION_MATERIAL,c:GetControler()) -- return c:IsHasEffect(EFFECT_EXTRA_FUSION_MATERIAL,c:GetControler())
-- end
-- _SendtoGrave=Duel.SendtoGrave
-- function Duel.SendtoGrave(tg,reason)
-- if reason~=REASON_EFFECT+REASON_MATERIAL+REASON_FUSION or Auxiliary.GetValueType(tg)~="Group" then
-- return _SendtoGrave(tg,reason)
-- end
-- local rg=tg:Filter(Card.IsLocation,nil,LOCATION_GRAVE)
-- tg:Sub(rg)
-- local tc=rg:Filter(aux.fus_mat_hack_exmat_filter,nil):GetFirst()
-- if tc then
-- local te=tc:IsHasEffect(EFFECT_EXTRA_FUSION_MATERIAL,tc:GetControler())
-- te:UseCountLimit(tc:GetControler())
-- end
-- local ct1=_SendtoGrave(tg,reason)
-- local ct2=Duel.Remove(rg,POS_FACEUP,reason)
-- return ct1+ct2
-- end
--end
--deck fusion material
if not c4591277.globle_check then
--chain check
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_CHAIN_SOLVING)
e1:SetOperation(c4591277.chainop)
Duel.RegisterEffect(e1,0)
c4591277.globle_check=true
Swamp_hack_fusion_check=Card.CheckFusionMaterial
Swamp_hack_fusion_group=Group.CreateGroup
function Card.CheckFusionMaterial(card,Group_fus,Card_g,int_chkf,not_mat)
local exg=Group.CreateGroup()
Swamp_hack_fusion_group=Group.CreateGroup()
if card:GetOriginalCode()==4591277 then
exg=Duel.GetMatchingGroup(c4591277.filter0,int_chkf,LOCATION_GRAVE,0,nil,card)
exg=Group.__bxor(exg,Group_fus):Filter(Card.IsLocation,nil,LOCATION_GRAVE)
if exg:GetCount()>0 then
if Duel.GetFlagEffect(0,4591277)~=0 and Duel.GetFlagEffect(0,4591278)==0 then
Duel.RegisterFlagEffect(0,4591278,RESET_EVENT+RESET_CHAIN,0,1)
local e1=Effect.CreateEffect(card)
e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e1:SetCode(EVENT_CHAIN_SOLVED)
e1:SetOperation(c4591277.resetop)
e1:SetReset(RESET_EVENT+RESET_CHAIN)
Duel.RegisterEffect(e1,0)
local e2=e1:Clone()
e2:SetCode(EVENT_CHAIN_NEGATED)
Duel.RegisterEffect(e2,0)
end
local hg=Group.__add(exg,Group_fus)
return Swamp_hack_fusion_check(card,hg,Card_g,int_chkf,not_mat)
end
end
return Swamp_hack_fusion_check(card,Group_fus,Card_g,int_chkf,not_mat)
end
Swamp_hack_fusion_select=Duel.SelectFusionMaterial
function Duel.SelectFusionMaterial(tp,card,mg,gc_nil,chkf)
if card:GetOriginalCode()==4591277 and Duel.GetFlagEffect(0,4591277)~=0 and Duel.GetFlagEffect(0,4591278)~=0 then
exg=Duel.GetMatchingGroup(c4591277.filter0,int_chkf,LOCATION_GRAVE,0,nil,card)
if exg:GetCount()>0 then
mg:Merge(exg)
Swamp_hack_fusion_group=exg
end
end
Duel.ResetFlagEffect(0,4591278)
return Swamp_hack_fusion_select(tp,card,mg,gc_nil,chkf)
end end
_SendtoGrave=Duel.SendtoGrave Swamp_hack_fusion_SendtoGrave=Duel.SendtoGrave
function Duel.SendtoGrave(tg,reason) function Duel.SendtoGrave(tg,reason)
if reason~=REASON_EFFECT+REASON_MATERIAL+REASON_FUSION or Auxiliary.GetValueType(tg)~="Group" then if reason~=REASON_EFFECT+REASON_MATERIAL+REASON_FUSION or aux.GetValueType(tg)~="Group" then
return _SendtoGrave(tg,reason) return Swamp_hack_fusion_SendtoGrave(tg,reason)
end end
local rg=tg:Filter(Card.IsLocation,nil,LOCATION_GRAVE) local rg=tg:Filter(c4591277.fusion_filter,nil)
tg:Sub(rg) tg:Sub(rg)
local tc=rg:Filter(aux.fus_mat_hack_exmat_filter,nil):GetFirst() local ct1=Swamp_hack_fusion_SendtoGrave(tg,reason)
if tc then
local te=tc:IsHasEffect(EFFECT_EXTRA_FUSION_MATERIAL,tc:GetControler())
te:UseCountLimit(tc:GetControler())
end
local ct1=_SendtoGrave(tg,reason)
local ct2=Duel.Remove(rg,POS_FACEUP,reason) local ct2=Duel.Remove(rg,POS_FACEUP,reason)
return ct1+ct2 return ct1+ct2
end end
end end
end end
function c4591277.chainop(e,tp,eg,ep,ev,re,r,rp)
Duel.RegisterFlagEffect(0,4591277,RESET_EVENT+RESET_CHAIN,0,1)
end
function c4591277.resetop(e,tp,eg,ep,ev,re,r,rp)
Duel.ResetFlagEffect(0,4591277)
e:Reset()
end
function c4591277.fusion_filter(c)
return c:IsLocation(LOCATION_GRAVE) and Swamp_hack_fusion_group and
Swamp_hack_fusion_group:IsContains(c)
end
function c4591277.mttg(e,c) function c4591277.mttg(e,c)
return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
end end
......
expansions/script/c64800113.lua
View file @ 5c6cba06
...@@ -31,7 +31,7 @@ end ...@@ -31,7 +31,7 @@ end
--e1 --e1
function c64800113.thcon(e,tp,eg,ep,ev,re,r,rp) function c64800113.thcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
return c:IsSummonType(SUMMON_TYPE_SYNCHRO) not Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,c) return c:IsSummonType(SUMMON_TYPE_SYNCHRO) and not Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,0,1,c)
end end
function c64800113.cost(e,tp,eg,ep,ev,re,r,rp,chk) function c64800113.cost(e,tp,eg,ep,ev,re,r,rp,chk)
e:SetLabel(100) e:SetLabel(100)
......
expansions/script/c93600301.lua
View file @ 5c6cba06
...@@ -61,7 +61,7 @@ function cm.initial_effect(c) ...@@ -61,7 +61,7 @@ function cm.initial_effect(c)
c:RegisterEffect(e4) c:RegisterEffect(e4)
--material --material
local e5=Effect.CreateEffect(c) local e5=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,1)) e1:SetDescription(aux.Stringid(m,1))
e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e5:SetCode(EVENT_BATTLE_START) e5:SetCode(EVENT_BATTLE_START)
e5:SetCondition(cm.effcon) e5:SetCondition(cm.effcon)
...@@ -217,13 +217,13 @@ function cm.xcon(e) ...@@ -217,13 +217,13 @@ function cm.xcon(e)
end end
local tc=Duel.GetFieldCard(rp,loc,zone) local tc=Duel.GetFieldCard(rp,loc,zone)
local sg=Group.CreateGroup() local sg=Group.CreateGroup()
sg:AddCard(tc) if tc then sg:AddCard(tc) end
if zone~=21 and zone~=22 then if zone~=21 and zone~=22 then
sg=Duel.GetMatchingGroup(cm.seqfilter,rp,LOCATION_ONFIELD,0,nil,zone) sg=Duel.GetMatchingGroup(cm.seqfilter,rp,LOCATION_ONFIELD,0,nil,zone)
end end
if loc==LOCATION_FZONE then if loc==LOCATION_FZONE then
tc=Duel.GetFieldCard(rp,loc,0) tc=Duel.GetFieldCard(rp,loc,0)
sg=Group.FromCards(tc) if tc then sg=Group.FromCards(tc) end
end end
if zone==22 then if zone==22 then
local xcg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp) local xcg=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
......
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