Skip to content

Y
ygopro-scripts
Commit 66ceeebd authored by 独孤朲's avatar 独孤朲
Browse files
Options

Merge pull request #55 from DailyShana/fusion_chk 

fix
parents c4dda6c7 a91364e2
Hide whitespace changes
Inline Side-by-side
Showing with 106 additions and 75 deletions
c22638495.lua
View file @ 66ceeebd
...@@ -48,22 +48,22 @@ end ...@@ -48,22 +48,22 @@ end
function c22638495.splimit(e,se,sp,st) function c22638495.splimit(e,se,sp,st)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end end
function c22638495.spfilter1(c,tp) function c22638495.spfilter1(c,tp,fc)
return c:IsSetCard(0xc7) and c:IsType(TYPE_PENDULUM) and c:IsCanBeFusionMaterial() return c:IsSetCard(0xc7) and c:IsType(TYPE_PENDULUM) and c:IsCanBeFusionMaterial(fc)
and Duel.CheckReleaseGroup(tp,c22638495.spfilter2,1,c) and Duel.CheckReleaseGroup(tp,c22638495.spfilter2,1,c,fc)
end end
function c22638495.spfilter2(c) function c22638495.spfilter2(c,fc)
return c:IsType(TYPE_PENDULUM) and c:IsCanBeFusionMaterial() return c:IsType(TYPE_PENDULUM) and c:IsCanBeFusionMaterial(fc)
end end
function c22638495.spcon(e,c) function c22638495.spcon(e,c)
if c==nil then return true end if c==nil then return true end
local tp=c:GetControler() local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2
and Duel.CheckReleaseGroup(tp,c22638495.spfilter1,1,nil,tp) and Duel.CheckReleaseGroup(tp,c22638495.spfilter1,1,nil,tp,c)
end end
function c22638495.spop(e,tp,eg,ep,ev,re,r,rp,c) function c22638495.spop(e,tp,eg,ep,ev,re,r,rp,c)
local g1=Duel.SelectReleaseGroup(tp,c22638495.spfilter1,1,1,nil,tp) local g1=Duel.SelectReleaseGroup(tp,c22638495.spfilter1,1,1,nil,tp,c)
local g2=Duel.SelectReleaseGroup(tp,c22638495.spfilter2,1,1,g1:GetFirst()) local g2=Duel.SelectReleaseGroup(tp,c22638495.spfilter2,1,1,g1:GetFirst(),c)
g1:Merge(g2) g1:Merge(g2)
c:SetMaterial(g1) c:SetMaterial(g1)
Duel.Release(g1,REASON_COST+REASON_FUSION+REASON_MATERIAL) Duel.Release(g1,REASON_COST+REASON_FUSION+REASON_MATERIAL)
......
c27346636.lua
View file @ 66ceeebd
...@@ -38,7 +38,7 @@ function c27346636.splimit(e,se,sp,st) ...@@ -38,7 +38,7 @@ function c27346636.splimit(e,se,sp,st)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end end
function c27346636.spfilter1(c,tp) function c27346636.spfilter1(c,tp)
return c:IsCode(78868776) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(true) return c:IsCode(78868776) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true)
and Duel.IsExistingMatchingCard(c27346636.spfilter2,tp,LOCATION_MZONE,0,2,c) and Duel.IsExistingMatchingCard(c27346636.spfilter2,tp,LOCATION_MZONE,0,2,c)
end end
function c27346636.spfilter2(c) function c27346636.spfilter2(c)
......
c48156348.lua
View file @ 66ceeebd
...@@ -46,7 +46,7 @@ function c48156348.splimit(e,se,sp,st) ...@@ -46,7 +46,7 @@ function c48156348.splimit(e,se,sp,st)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end end
function c48156348.spfilter1(c,tp) function c48156348.spfilter1(c,tp)
return c:IsCode(41470137) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(true) return c:IsCode(41470137) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true)
and Duel.IsExistingMatchingCard(c48156348.spfilter2,tp,LOCATION_MZONE,0,1,c) and Duel.IsExistingMatchingCard(c48156348.spfilter2,tp,LOCATION_MZONE,0,1,c)
end end
function c48156348.spfilter2(c) function c48156348.spfilter2(c)
......
c72378329.lua
View file @ 66ceeebd
...@@ -42,22 +42,22 @@ end ...@@ -42,22 +42,22 @@ end
function c72378329.splimit(e,se,sp,st) function c72378329.splimit(e,se,sp,st)
return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION return bit.band(st,SUMMON_TYPE_FUSION)==SUMMON_TYPE_FUSION
end end
function c72378329.spfilter1(c,tp) function c72378329.spfilter1(c,tp,fc)
return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeFusionMaterial() return c:IsRace(RACE_DRAGON) and c:IsAttribute(ATTRIBUTE_DARK) and c:IsCanBeFusionMaterial(fc)
and Duel.CheckReleaseGroup(tp,c72378329.spfilter2,1,c) and Duel.CheckReleaseGroup(tp,c72378329.spfilter2,1,c,fc)
end end
function c72378329.spfilter2(c) function c72378329.spfilter2(c,fc)
return c:IsRace(RACE_BEAST) and c:IsCanBeFusionMaterial() return c:IsRace(RACE_BEAST) and c:IsCanBeFusionMaterial(fc)
end end
function c72378329.spcon(e,c) function c72378329.spcon(e,c)
if c==nil then return true end if c==nil then return true end
local tp=c:GetControler() local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2
and Duel.CheckReleaseGroup(tp,c72378329.spfilter1,1,nil,tp) and Duel.CheckReleaseGroup(tp,c72378329.spfilter1,1,nil,tp,c)
end end
function c72378329.spop(e,tp,eg,ep,ev,re,r,rp,c) function c72378329.spop(e,tp,eg,ep,ev,re,r,rp,c)
local g1=Duel.SelectReleaseGroup(tp,c72378329.spfilter1,1,1,nil,tp) local g1=Duel.SelectReleaseGroup(tp,c72378329.spfilter1,1,1,nil,tp,c)
local g2=Duel.SelectReleaseGroup(tp,c72378329.spfilter2,1,1,g1:GetFirst()) local g2=Duel.SelectReleaseGroup(tp,c72378329.spfilter2,1,1,g1:GetFirst(),c)
g1:Merge(g2) g1:Merge(g2)
c:SetMaterial(g1) c:SetMaterial(g1)
Duel.Release(g1,REASON_COST+REASON_FUSION+REASON_MATERIAL) Duel.Release(g1,REASON_COST+REASON_FUSION+REASON_MATERIAL)
......
c79229522.lua
View file @ 66ceeebd
...@@ -31,7 +31,7 @@ function c79229522.splimit(e,se,sp,st) ...@@ -31,7 +31,7 @@ function c79229522.splimit(e,se,sp,st)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end end
function c79229522.spfilter1(c,tp,ft) function c79229522.spfilter1(c,tp,ft)
if c:IsCode(70095154) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(true) and (c:IsControler(tp) or c:IsFaceup()) then if c:IsCode(70095154) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(nil,true) and (c:IsControler(tp) or c:IsFaceup()) then
if ft>0 or (c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)) then if ft>0 or (c:IsControler(tp) and c:IsLocation(LOCATION_MZONE)) then
return Duel.IsExistingMatchingCard(c79229522.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c,tp) return Duel.IsExistingMatchingCard(c79229522.spfilter2,tp,LOCATION_MZONE,LOCATION_MZONE,1,c,tp)
else else
......
c80532587.lua
View file @ 66ceeebd
...@@ -40,24 +40,24 @@ function c80532587.initial_effect(c) ...@@ -40,24 +40,24 @@ function c80532587.initial_effect(c)
e4:SetOperation(c80532587.desop) e4:SetOperation(c80532587.desop)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c80532587.sprfilter1(c,tp) function c80532587.sprfilter1(c,tp,fc)
return c:IsType(TYPE_SYNCHRO) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial() return c:IsType(TYPE_SYNCHRO) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(fc)
and Duel.IsExistingMatchingCard(c80532587.sprfilter2,tp,LOCATION_MZONE,0,1,c) and Duel.IsExistingMatchingCard(c80532587.sprfilter2,tp,LOCATION_MZONE,0,1,c)
end end
function c80532587.sprfilter2(c) function c80532587.sprfilter2(c,fc)
return c:IsType(TYPE_XYZ) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial() return c:IsType(TYPE_XYZ) and c:IsAbleToGraveAsCost() and c:IsCanBeFusionMaterial(fc)
end end
function c80532587.sprcon(e,c) function c80532587.sprcon(e,c)
if c==nil then return true end if c==nil then return true end
local tp=c:GetControler() local tp=c:GetControler()
return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2 return Duel.GetLocationCount(tp,LOCATION_MZONE)>-2
and Duel.IsExistingMatchingCard(c80532587.sprfilter1,tp,LOCATION_MZONE,0,1,nil,tp) and Duel.IsExistingMatchingCard(c80532587.sprfilter1,tp,LOCATION_MZONE,0,1,nil,tp,c)
end end
function c80532587.sprop(e,tp,eg,ep,ev,re,r,rp,c) function c80532587.sprop(e,tp,eg,ep,ev,re,r,rp,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g1=Duel.SelectMatchingCard(tp,c80532587.sprfilter1,tp,LOCATION_MZONE,0,1,1,nil,tp) local g1=Duel.SelectMatchingCard(tp,c80532587.sprfilter1,tp,LOCATION_MZONE,0,1,1,nil,tp,c)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g2=Duel.SelectMatchingCard(tp,c80532587.sprfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst()) local g2=Duel.SelectMatchingCard(tp,c80532587.sprfilter2,tp,LOCATION_MZONE,0,1,1,g1:GetFirst(),c)
g1:Merge(g2) g1:Merge(g2)
c:SetMaterial(g1) c:SetMaterial(g1)
Duel.SendtoGrave(g1,REASON_COST) Duel.SendtoGrave(g1,REASON_COST)
......
c90957527.lua
View file @ 66ceeebd
...@@ -47,7 +47,7 @@ function c90957527.splimit(e,se,sp,st) ...@@ -47,7 +47,7 @@ function c90957527.splimit(e,se,sp,st)
return e:GetHandler():GetLocation()~=LOCATION_EXTRA return e:GetHandler():GetLocation()~=LOCATION_EXTRA
end end
function c90957527.spfilter1(c,tp) function c90957527.spfilter1(c,tp)
return c:IsCode(79580323) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(true) return c:IsCode(79580323) and c:IsAbleToDeckOrExtraAsCost() and c:IsCanBeFusionMaterial(nil,true)
and Duel.IsExistingMatchingCard(c90957527.spfilter2,tp,LOCATION_MZONE,0,1,c) and Duel.IsExistingMatchingCard(c90957527.spfilter2,tp,LOCATION_MZONE,0,1,c)
end end
function c90957527.spfilter2(c) function c90957527.spfilter2(c)
......
utility.lua
View file @ 66ceeebd
...@@ -385,47 +385,51 @@ function Auxiliary.FConditionCode2(code1,code2,sub,insf) ...@@ -385,47 +385,51 @@ function Auxiliary.FConditionCode2(code1,code2,sub,insf)
--chkf: check field, default:PLAYER_NONE --chkf: check field, default:PLAYER_NONE
return function(e,g,gc,chkf) return function(e,g,gc,chkf)
if g==nil then return insf end if g==nil then return insf end
local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end
if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then
return g:IsExists(Auxiliary.FConditionFilter21,1,gc,code1,code2) return mg:IsExists(Auxiliary.FConditionFilter21,1,gc,code1,code2)
elseif gc:IsCode(code1) then elseif gc:IsCode(code1) then
return g:IsExists(Card.IsCode,1,gc,code2) return mg:IsExists(Card.IsCode,1,gc,code2)
elseif gc:IsCode(code2) then elseif gc:IsCode(code2) then
return g:IsExists(Card.IsCode,1,gc,code1) return mg:IsExists(Card.IsCode,1,gc,code1)
else else
return false return false
end end
end end
local b1=0 local b2=0 local bs=0 local b1=0 local b2=0 local bs=0
local fs=false local fs=false
local tc=g:GetFirst() local tc=mg:GetFirst()
while tc do while tc do
local code=tc:GetCode() local code=tc:GetCode()
if code==code1 then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end if code==code1 then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
elseif code==code2 then b2=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end elseif code==code2 then b2=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
elseif sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end elseif sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
end end
tc=g:GetNext() tc=mg:GetNext()
end end
return b1+b2+bs>=2 and (fs or chkf==PLAYER_NONE) return b1+b2+bs>=2 and (fs or chkf==PLAYER_NONE)
end end
end end
function Auxiliary.FOperationCode2(code1,code2,sub,insf) function Auxiliary.FOperationCode2(code1,code2,sub,insf)
return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf)
local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return end
local g1=nil local g1=nil
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then
g1=eg:FilterSelect(tp,Auxiliary.FConditionFilter21,1,1,gc,code1,code2) g1=g:FilterSelect(tp,Auxiliary.FConditionFilter21,1,1,gc,code1,code2)
elseif gc:IsCode(code1) then elseif gc:IsCode(code1) then
g1=eg:FilterSelect(tp,Card.IsCode,1,1,gc,code2) g1=g:FilterSelect(tp,Card.IsCode,1,1,gc,code2)
else else
g1=eg:FilterSelect(tp,Card.IsCode,1,1,gc,code1) g1=e:FilterSelect(tp,Card.IsCode,1,1,gc,code1)
end end
Duel.SetFusionMaterial(g1) Duel.SetFusionMaterial(g1)
return return
end end
local sg=eg:Filter(Auxiliary.FConditionFilter22,nil,code1,code2,sub) local sg=g:Filter(Auxiliary.FConditionFilter22,nil,code1,code2,sub)
local g1=nil local g1=nil
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf)
...@@ -466,16 +470,18 @@ end ...@@ -466,16 +470,18 @@ end
function Auxiliary.FConditionCode3(code1,code2,code3,sub,insf) function Auxiliary.FConditionCode3(code1,code2,code3,sub,insf)
return function(e,g,gc,chkf) return function(e,g,gc,chkf)
if g==nil then return insf end if g==nil then return insf end
local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end
local b1=0 local b2=0 local b3=0 local b1=0 local b2=0 local b3=0
local tc=g:GetFirst() local tc=mg:GetFirst()
while tc do while tc do
local code=tc:GetCode() local code=tc:GetCode()
if code==code1 then b1=1 if code==code1 then b1=1
elseif code==code2 then b2=1 elseif code==code2 then b2=1
elseif code==code3 then b3=1 elseif code==code3 then b3=1
end end
tc=g:GetNext() tc=mg:GetNext()
end end
if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then
return b1+b2+b3>1 return b1+b2+b3>1
...@@ -491,7 +497,7 @@ function Auxiliary.FConditionCode3(code1,code2,code3,sub,insf) ...@@ -491,7 +497,7 @@ function Auxiliary.FConditionCode3(code1,code2,code3,sub,insf)
end end
local b1=0 local b2=0 local b3=0 local bs=0 local b1=0 local b2=0 local b3=0 local bs=0
local fs=false local fs=false
local tc=g:GetFirst() local tc=mg:GetFirst()
while tc do while tc do
local code=tc:GetCode() local code=tc:GetCode()
if code==code1 then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end if code==code1 then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
...@@ -499,15 +505,17 @@ function Auxiliary.FConditionCode3(code1,code2,code3,sub,insf) ...@@ -499,15 +505,17 @@ function Auxiliary.FConditionCode3(code1,code2,code3,sub,insf)
elseif code==code3 then b3=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end elseif code==code3 then b3=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
elseif sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end elseif sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
end end
tc=g:GetNext() tc=mg:GetNext()
end end
return b1+b2+b3+bs>=3 and (fs or chkf==PLAYER_NONE) return b1+b2+b3+bs>=3 and (fs or chkf==PLAYER_NONE)
end end
end end
function Auxiliary.FOperationCode3(code1,code2,code3,sub,insf) function Auxiliary.FOperationCode3(code1,code2,code3,sub,insf)
return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf)
local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
local sg=eg:Filter(Auxiliary.FConditionFilter31,gc,code1,code2,code3) if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return end
local sg=g:Filter(Auxiliary.FConditionFilter31,gc,code1,code2,code3)
if not gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then if not gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then
sg:Remove(Card.IsCode,nil,gc:GetCode()) sg:Remove(Card.IsCode,nil,gc:GetCode())
end end
...@@ -520,7 +528,7 @@ function Auxiliary.FOperationCode3(code1,code2,code3,sub,insf) ...@@ -520,7 +528,7 @@ function Auxiliary.FOperationCode3(code1,code2,code3,sub,insf)
Duel.SetFusionMaterial(g1) Duel.SetFusionMaterial(g1)
return return
end end
local sg=eg:Filter(Auxiliary.FConditionFilter32,nil,code1,code2,code3,sub) local sg=g:Filter(Auxiliary.FConditionFilter32,nil,code1,code2,code3,sub)
local g1=nil local g1=nil
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf)
...@@ -567,9 +575,11 @@ end ...@@ -567,9 +575,11 @@ end
function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf) function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf)
return function(e,g,gc,chkf) return function(e,g,gc,chkf)
if g==nil then return insf end if g==nil then return insf end
local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end
local b1=0 local b2=0 local b3=0 local b4=0 local b1=0 local b2=0 local b3=0 local b4=0
local tc=g:GetFirst() local tc=mg:GetFirst()
while tc do while tc do
local code=tc:GetCode() local code=tc:GetCode()
if code==code1 then b1=1 if code==code1 then b1=1
...@@ -578,7 +588,7 @@ function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf) ...@@ -578,7 +588,7 @@ function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf)
elseif code==code4 then b4=1 elseif code==code4 then b4=1
else return false else return false
end end
tc=g:GetNext() tc=mg:GetNext()
end end
if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then if gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then
return b1+b2+b3+b4>2 return b1+b2+b3+b4>2
...@@ -594,7 +604,7 @@ function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf) ...@@ -594,7 +604,7 @@ function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf)
end end
local b1=0 local b2=0 local b3=0 local b4=0 local bs=0 local b1=0 local b2=0 local b3=0 local b4=0 local bs=0
local fs=false local fs=false
local tc=g:GetFirst() local tc=mg:GetFirst()
while tc do while tc do
local code=tc:GetCode() local code=tc:GetCode()
if code==code1 then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end if code==code1 then b1=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
...@@ -603,15 +613,17 @@ function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf) ...@@ -603,15 +613,17 @@ function Auxiliary.FConditionCode4(code1,code2,code3,code4,sub,insf)
elseif code==code4 then b4=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end elseif code==code4 then b4=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
elseif sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end elseif sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then bs=1 if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end
end end
tc=g:GetNext() tc=mg:GetNext()
end end
return b1+b2+b3+b4+bs>=4 and (fs or chkf==PLAYER_NONE) return b1+b2+b3+b4+bs>=4 and (fs or chkf==PLAYER_NONE)
end end
end end
function Auxiliary.FOperationCode4(code1,code2,code3,code4,sub,insf) function Auxiliary.FOperationCode4(code1,code2,code3,code4,sub,insf)
return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf)
local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
local sg=eg:Filter(Auxiliary.FConditionFilter41,gc,code1,code2,code3,code4) if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return end
local sg=g:Filter(Auxiliary.FConditionFilter41,gc,code1,code2,code3,code4)
if not gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then if not gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE) then
sg:Remove(Card.IsCode,nil,gc:GetCode()) sg:Remove(Card.IsCode,nil,gc:GetCode())
end end
...@@ -628,7 +640,7 @@ function Auxiliary.FOperationCode4(code1,code2,code3,code4,sub,insf) ...@@ -628,7 +640,7 @@ function Auxiliary.FOperationCode4(code1,code2,code3,code4,sub,insf)
Duel.SetFusionMaterial(g1) Duel.SetFusionMaterial(g1)
return return
end end
local sg=eg:Filter(Auxiliary.FConditionFilter42,nil,code1,code2,code3,code4,sub) local sg=g:Filter(Auxiliary.FConditionFilter42,nil,code1,code2,code3,code4,sub)
local g1=nil local g1=nil
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf)
...@@ -676,17 +688,19 @@ end ...@@ -676,17 +688,19 @@ end
function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf) function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf)
return function(e,g,gc,chkf) return function(e,g,gc,chkf)
if g==nil then return insf end if g==nil then return insf end
local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if (gc:IsCode(code) or (sub and gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE))) and g:IsExists(f,cc,gc) then if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end
if (gc:IsCode(code) or (sub and gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE))) and mg:IsExists(f,cc,gc) then
return true return true
elseif f(gc) then elseif f(gc) then
local g1=Group.CreateGroup() local g2=Group.CreateGroup() local g1=Group.CreateGroup() local g2=Group.CreateGroup()
local tc=g:GetFirst() local tc=mg:GetFirst()
while tc do while tc do
if tc:IsCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) if tc:IsCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE))
then g1:AddCard(tc) end then g1:AddCard(tc) end
if f(tc) then g2:AddCard(tc) end if f(tc) then g2:AddCard(tc) end
tc=g:GetNext() tc=mg:GetNext()
end end
if cc>1 then if cc>1 then
g2:RemoveCard(gc) g2:RemoveCard(gc)
...@@ -699,7 +713,7 @@ function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf) ...@@ -699,7 +713,7 @@ function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf)
end end
local b1=0 local b2=0 local bw=0 local b1=0 local b2=0 local bw=0
local fs=false local fs=false
local tc=g:GetFirst() local tc=mg:GetFirst()
while tc do while tc do
local c1=tc:IsCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) local c1=tc:IsCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE))
local c2=f(tc) local c2=f(tc)
...@@ -710,7 +724,7 @@ function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf) ...@@ -710,7 +724,7 @@ function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf)
else b2=b2+1 else b2=b2+1
end end
end end
tc=g:GetNext() tc=mg:GetNext()
end end
if b2>cc then b2=cc end if b2>cc then b2=cc end
return b1+b2+bw>=1+cc and (fs or chkf==PLAYER_NONE) return b1+b2+bw>=1+cc and (fs or chkf==PLAYER_NONE)
...@@ -718,18 +732,20 @@ function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf) ...@@ -718,18 +732,20 @@ function Auxiliary.FConditionCodeFun(code,f,cc,sub,insf)
end end
function Auxiliary.FOperationCodeFun(code,f,cc,sub,insf) function Auxiliary.FOperationCodeFun(code,f,cc,sub,insf)
return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf)
local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if (gc:IsCode(code) or (sub and gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE))) and eg:IsExists(f,cc,gc) then if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return end
if (gc:IsCode(code) or (sub and gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE))) and g:IsExists(f,cc,gc) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
local g1=eg:FilterSelect(tp,f,cc,cc,gc) local g1=g:FilterSelect(tp,f,cc,cc,gc)
Duel.SetFusionMaterial(g1) Duel.SetFusionMaterial(g1)
else else
local sg1=Group.CreateGroup() local sg2=Group.CreateGroup() local sg1=Group.CreateGroup() local sg2=Group.CreateGroup()
local tc=eg:GetFirst() local tc=g:GetFirst()
while tc do while tc do
if tc:IsCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) then sg1:AddCard(tc) end if tc:IsCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) then sg1:AddCard(tc) end
if f(tc) then sg2:AddCard(tc) end if f(tc) then sg2:AddCard(tc) end
tc=eg:GetNext() tc=g:GetNext()
end end
if cc>1 then if cc>1 then
sg2:RemoveCard(gc) sg2:RemoveCard(gc)
...@@ -751,11 +767,11 @@ function Auxiliary.FOperationCodeFun(code,f,cc,sub,insf) ...@@ -751,11 +767,11 @@ function Auxiliary.FOperationCodeFun(code,f,cc,sub,insf)
return return
end end
local sg1=Group.CreateGroup() local sg2=Group.CreateGroup() local fs=false local sg1=Group.CreateGroup() local sg2=Group.CreateGroup() local fs=false
local tc=eg:GetFirst() local tc=g:GetFirst()
while tc do while tc do
if tc:IsCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) then sg1:AddCard(tc) end if tc:IsCode(code) or (sub and tc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) then sg1:AddCard(tc) end
if f(tc) then sg2:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end if f(tc) then sg2:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end
tc=eg:GetNext() tc=g:GetNext()
end end
if chkf~=PLAYER_NONE then if chkf~=PLAYER_NONE then
if sg2:GetCount()==cc then if sg2:GetCount()==cc then
...@@ -817,14 +833,17 @@ end ...@@ -817,14 +833,17 @@ end
function Auxiliary.FConditionFun2(f1,f2,insf) function Auxiliary.FConditionFun2(f1,f2,insf)
return function(e,g,gc,chkf) return function(e,g,gc,chkf)
if g==nil then return insf end if g==nil then return insf end
if gc then return (f1(gc) and g:IsExists(f2,1,gc)) local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
or (f2(gc) and g:IsExists(f1,1,gc)) end if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end
return (f1(gc) and mg:IsExists(f2,1,gc))
or (f2(gc) and mg:IsExists(f1,1,gc)) end
local g1=Group.CreateGroup() local g2=Group.CreateGroup() local fs=false local g1=Group.CreateGroup() local g2=Group.CreateGroup() local fs=false
local tc=g:GetFirst() local tc=mg:GetFirst()
while tc do while tc do
if f1(tc) then g1:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end if f1(tc) then g1:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end
if f2(tc) then g2:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end if f2(tc) then g2:AddCard(tc) if Auxiliary.FConditionCheckF(tc,chkf) then fs=true end end
tc=g:GetNext() tc=mg:GetNext()
end end
if chkf~=PLAYER_NONE then if chkf~=PLAYER_NONE then
return fs and g1:IsExists(Auxiliary.FConditionFilterF2,1,nil,g2) return fs and g1:IsExists(Auxiliary.FConditionFilterF2,1,nil,g2)
...@@ -833,16 +852,18 @@ function Auxiliary.FConditionFun2(f1,f2,insf) ...@@ -833,16 +852,18 @@ function Auxiliary.FConditionFun2(f1,f2,insf)
end end
function Auxiliary.FOperationFun2(f1,f2,insf) function Auxiliary.FOperationFun2(f1,f2,insf)
return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf)
local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return end
local sg=Group.CreateGroup() local sg=Group.CreateGroup()
if f1(gc) then sg:Merge(eg:Filter(f2,gc)) end if f1(gc) then sg:Merge(g:Filter(f2,gc)) end
if f2(gc) then sg:Merge(eg:Filter(f1,gc)) end if f2(gc) then sg:Merge(g:Filter(f1,gc)) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
local g1=sg:Select(tp,1,1,nil) local g1=sg:Select(tp,1,1,nil)
Duel.SetFusionMaterial(g1) Duel.SetFusionMaterial(g1)
return return
end end
local sg=eg:Filter(Auxiliary.FConditionFilterF2c,nil,f1,f2) local sg=g:Filter(Auxiliary.FConditionFilterF2c,nil,f1,f2)
local g1=nil local g1=nil
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
if chkf~=PLAYER_NONE then if chkf~=PLAYER_NONE then
...@@ -882,13 +903,16 @@ end ...@@ -882,13 +903,16 @@ end
function Auxiliary.FConditionCodeRep(code,cc,sub,insf) function Auxiliary.FConditionCodeRep(code,cc,sub,insf)
return function(e,g,gc,chkf) return function(e,g,gc,chkf)
if g==nil then return insf end if g==nil then return insf end
if gc then return (gc:IsCode(code) or gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) and g:IsExists(Card.IsCode,cc-1,gc,code) end local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
local g1=g:Filter(Card.IsCode,nil,code) if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end
return (gc:IsCode(code) or gc:IsHasEffect(EFFECT_FUSION_SUBSTITUTE)) and mg:IsExists(Card.IsCode,cc-1,gc,code) end
local g1=mg:Filter(Card.IsCode,nil,code)
if not sub then if not sub then
if chkf~=PLAYER_NONE then return g1:GetCount()>=cc and g1:FilterCount(Card.IsOnField,nil)~=0 if chkf~=PLAYER_NONE then return g1:GetCount()>=cc and g1:FilterCount(Card.IsOnField,nil)~=0
else return g1:GetCount()>=cc end else return g1:GetCount()>=cc end
end end
local g2=g:Filter(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE) local g2=mg:Filter(Card.IsHasEffect,nil,EFFECT_FUSION_SUBSTITUTE)
if chkf~=PLAYER_NONE then if chkf~=PLAYER_NONE then
return (g1:FilterCount(Card.IsOnField,nil)~=0 or g2:FilterCount(Card.IsOnField,nil)~=0) return (g1:FilterCount(Card.IsOnField,nil)~=0 or g2:FilterCount(Card.IsOnField,nil)~=0)
and g1:GetCount()>=cc-1 and g1:GetCount()+g2:GetCount()>=cc and g1:GetCount()>=cc-1 and g1:GetCount()+g2:GetCount()>=cc
...@@ -897,13 +921,15 @@ function Auxiliary.FConditionCodeRep(code,cc,sub,insf) ...@@ -897,13 +921,15 @@ function Auxiliary.FConditionCodeRep(code,cc,sub,insf)
end end
function Auxiliary.FOperationCodeRep(code,cc,sub,insf) function Auxiliary.FOperationCodeRep(code,cc,sub,insf)
return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf)
local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
local g1=eg:FilterSelect(tp,Card.IsCode,cc-1,cc-1,gc,code) local g1=g:FilterSelect(tp,Card.IsCode,cc-1,cc-1,gc,code)
Duel.SetFusionMaterial(g1) Duel.SetFusionMaterial(g1)
return return
end end
local sg=eg:Filter(Auxiliary.FConditionFilterCR,nil,code,sub) local sg=g:Filter(Auxiliary.FConditionFilterCR,nil,code,sub)
local g1=nil local g1=nil
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf) if chkf~=PLAYER_NONE then g1=sg:FilterSelect(tp,Auxiliary.FConditionCheckF,1,1,nil,chkf)
...@@ -933,8 +959,11 @@ end ...@@ -933,8 +959,11 @@ end
function Auxiliary.FConditionFunRep(f,cc,insf) function Auxiliary.FConditionFunRep(f,cc,insf)
return function(e,g,gc,chkf) return function(e,g,gc,chkf)
if g==nil then return insf end if g==nil then return insf end
if gc then return f(gc) and g:IsExists(f,cc-1,gc) end local mg=g:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
local g1=g:Filter(f,nil) if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return false end
return f(gc) and mg:IsExists(f,cc-1,gc) end
local g1=mg:Filter(f,nil)
if chkf~=PLAYER_NONE then if chkf~=PLAYER_NONE then
return g1:FilterCount(Card.IsOnField,nil)~=0 and g1:GetCount()>=cc return g1:FilterCount(Card.IsOnField,nil)~=0 and g1:GetCount()>=cc
else return g1:GetCount()>=cc end else return g1:GetCount()>=cc end
...@@ -942,13 +971,15 @@ function Auxiliary.FConditionFunRep(f,cc,insf) ...@@ -942,13 +971,15 @@ function Auxiliary.FConditionFunRep(f,cc,insf)
end end
function Auxiliary.FOperationFunRep(f,cc,insf) function Auxiliary.FOperationFunRep(f,cc,insf)
return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf) return function(e,tp,eg,ep,ev,re,r,rp,gc,chkf)
local g=eg:Filter(Card.IsCanBeFusionMaterial,nil,e:GetHandler())
if gc then if gc then
if not gc:IsCanBeFusionMaterial(e:GetHandler()) then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
local g1=eg:FilterSelect(tp,f,cc-1,cc-1,gc) local g1=g:FilterSelect(tp,f,cc-1,cc-1,gc)
Duel.SetFusionMaterial(g1) Duel.SetFusionMaterial(g1)
return return
end end
local sg=eg:Filter(f,nil) local sg=g:Filter(f,nil)
if chkf==PLAYER_NONE or sg:GetCount()==cc then if chkf==PLAYER_NONE or sg:GetCount()==cc then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FMATERIAL)
local g1=sg:Select(tp,cc,cc,nil) local g1=sg:Select(tp,cc,cc,nil)
......
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