Skip to content

no81cards
no81cards
Commit c1f2086d authored by POLYMER's avatar POLYMER
Browse files
Options

fix

parent 0148d854
Hide whitespace changes
Inline Side-by-side
Showing with 107 additions and 53 deletions
expansions/script/c11451549.lua
View file @ c1f2086d
......@@ -36,28 +36,110 @@ end
function cm.mzfilter(c)
return c:IsAbleToDeckOrExtraAsCost() and c:GetLevel()>=1 and c:IsRace(RACE_PSYCHO) and (c:IsLocation(LOCATION_GRAVE) or c:IsFacedown())
end
function cm.fselect(g)
return g:IsExists(Card.IsLocation,2,nil,LOCATION_GRAVE) and g:IsExists(Card.IsLocation,2,nil,LOCATION_REMOVED)
function cm.CheckSubGroup(g,f,min,max,...)
local min=min or 1
local max=max or #g
if min>max then return false end
local ext_params={...}
local sg=Duel.GrabSelectedCard()
if #sg>max or #(g+sg)<min then return false end
if #sg==max and (not f(sg,...) or Auxiliary.GCheckAdditional and not Auxiliary.GCheckAdditional(sg,nil,g,f,min,max,ext_params)) then return false end
if #sg>=min and #sg<=max and f(sg,...) and (not Auxiliary.GCheckAdditional or Auxiliary.GCheckAdditional(sg,nil,g,f,min,max,ext_params)) then return true end
return cm.CheckGroupRecursive(sg,g,f,min,max,ext_params)
end
function cm.CheckGroupRecursive(sg,g,f,min,max,ext_params)
local eg=g:Clone()
for c in aux.Next(g-sg) do
sg:AddCard(c)
if not Auxiliary.GCheckAdditional or Auxiliary.GCheckAdditional(sg,c,eg,f,min,max,ext_params) then
if (#sg>=min and #sg<=max and f(sg,table.unpack(ext_params))) or (#sg<max and cm.CheckGroupRecursive(sg,eg,f,min,max,ext_params)) then return true end
end
sg:RemoveCard(c)
eg:RemoveCard(c)
end
return false
end
function cm.CheckGroupRecursiveCapture(bool,sg,g,f,min,max,ext_params)
local eg=g:Clone()
for c in aux.Next(g-sg) do
if not bool or not Auxiliary.SubGroupCaptured:IsContains(c) then
sg:AddCard(c)
if not Auxiliary.GCheckAdditional or Auxiliary.GCheckAdditional(sg,c,eg,f,min,max,ext_params) then
if (#sg>=min and #sg<=max and f(sg,table.unpack(ext_params))) or (#sg<max and cm.CheckGroupRecursiveCapture(false,sg,eg,f,min,max,ext_params)) then
--Debug.Message(cm[0])
Auxiliary.SubGroupCaptured:Merge(sg)
end
end
sg:RemoveCard(c)
eg:RemoveCard(c)
end
end
end
function cm.SelectSubGroup(g,tp,f,cancelable,min,max,...)
Auxiliary.SubGroupCaptured=Group.CreateGroup()
local min=min or 1
local max=max or #g
local ext_params={...}
local sg=Group.CreateGroup()
local fg=Duel.GrabSelectedCard()
if #fg>max or min>max or #(g+fg)<min then return nil end
for tc in aux.Next(fg) do
fg:SelectUnselect(sg,tp,false,false,min,max)
end
sg:Merge(fg)
local finish=(#sg>=min and #sg<=max and f(sg,...))
while #sg<max do
cm.CheckGroupRecursiveCapture(true,sg,g,f,min,max,ext_params)
local cg=Auxiliary.SubGroupCaptured:Clone()
Auxiliary.SubGroupCaptured:Clear()
--Debug.Message(cm[0])
cg:Sub(sg)
finish=(#sg>=min and #sg<=max and f(sg,...))
if #cg==0 then break end
local cancel=not finish and cancelable
local tc=cg:SelectUnselect(sg,tp,finish,cancel,min,max)
if not tc then break end
if not fg:IsContains(tc) then
if not sg:IsContains(tc) then
sg:AddCard(tc)
if #sg==max then finish=true end
else
sg:RemoveCard(tc)
end
elseif cancelable then
return nil
end
end
if finish then
return sg
else
return nil
end
end
function cm.sprcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(cm.mzfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
local g=Group.CreateGroup()
return mg:IsExists(Card.IsLocation,2,nil,LOCATION_GRAVE) and mg:IsExists(Card.IsLocation,2,nil,LOCATION_REMOVED) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 and mg:IsExists(cm.syncheck,1,g,g,mg)
end
function cm.syncheck(c,g,mg)
g:AddCard(c)
local res=cm.syngoal(g) or mg:IsExists(cm.syncheck,1,g,g,mg)
g:RemoveCard(c)
return res
--[[Auxiliary.SubGroupCaptured=Group.CreateGroup()
local sg=Group.CreateGroup()
cm.CheckGroupRecursiveCapture(true,sg,mg,cm.syngoal,4,#mg,{1})
Debug.Message(cm[0])--]]
return mg:IsExists(Card.IsLocation,2,nil,LOCATION_GRAVE) and mg:IsExists(Card.IsLocation,2,nil,LOCATION_REMOVED) and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 and cm.CheckSubGroup(mg,cm.syngoal)
end
--cm[0]=0
function cm.syngoal(g)
--cm[0]=cm[0]+1
return #g>=4 and g:IsExists(Card.IsLocation,2,nil,LOCATION_GRAVE) and g:IsExists(Card.IsLocation,2,nil,LOCATION_REMOVED) and g:GetSum(Card.GetLevel)%5==0
end
function cm.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
local mg=Duel.GetMatchingGroup(cm.mzfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil)
local sg=Group.CreateGroup()
local sg=cm.SelectSubGroup(mg,tp,cm.syngoal,Duel.IsSummonCancelable(),4,#mg)
if sg then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
--[[local sg=Group.CreateGroup()
local cg=mg:Filter(cm.syncheck,sg,sg,mg)
local cg0=cg
local finish=cm.syngoal(sg)
......@@ -67,7 +149,7 @@ function cm.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
finish=cm.syngoal(sg)
local cancel=not finish and Duel.IsSummonCancelable()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local tc=cg:SelectUnselect(sg,tp,finish,cancel,4,#cg)
local tc=cg:SelectUnselect(sg,tp,finish,cancel,4,#mg)
if not tc then break end
if not sg:IsContains(tc) then
sg:AddCard(tc)
......@@ -80,14 +162,6 @@ function cm.sprtg(e,tp,eg,ep,ev,re,r,rp,chk,c)
sg:KeepAlive()
e:SetLabelObject(sg)
return true
else return false end
--[[local sg=g:SelectSubGroup(tp,cm.fselect,Duel.IsSummonCancelable(),4,#g)
if sg and sg:GetSum(Card.GetLevel)%5==0 then
sg:KeepAlive()
e:SetLabelObject(sg)
return true
elseif sg and sg:GetSum(Card.GetLevel)%5~=0 then
Debug.Message("选择的怪兽合计等级不是5的倍数")
else return false end--]]
end
function cm.sprop(e,tp,eg,ep,ev,re,r,rp,c)
......
expansions/script/c22348201.lua
View file @ c1f2086d
......@@ -105,22 +105,22 @@ end
function c22348201.xyz1filter(c)
return c:IsFaceup() and c:IsType(TYPE_XYZ) and c:IsRace(RACE_PLANT)
end
function c22348201.xyz2filter(c)
return c:IsSetCard(0x707) and c:IsType(TYPE_MONSTER) and c:IsCanOverlay()
function c22348201.xyz2filter(c,e)
return c:IsSetCard(0x707) and c:IsType(TYPE_MONSTER) and c:IsCanOverlay() and not c:IsImmuneToEffect(e)
end
function c22348201.xyztg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local c=e:GetHandler()
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c22348201.xyz2filter(chkc) end
if chk==0 then return Duel.IsExistingTarget(c22348201.xyz2filter,tp,LOCATION_GRAVE,0,1,nil) and Duel.IsExistingMatchingCard(c22348201.xyz1filter,tp,LOCATION_MZONE,0,1,nil)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c22348201.xyz2filter(chkc,e) end
if chk==0 then return Duel.IsExistingTarget(c22348201.xyz2filter,tp,LOCATION_GRAVE,0,1,nil,e) and Duel.IsExistingMatchingCard(c22348201.xyz1filter,tp,LOCATION_MZONE,0,1,nil)
and c:IsCanOverlay() end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
local g=Duel.SelectTarget(tp,c22348201.xyz2filter,tp,LOCATION_GRAVE,0,1,1,nil)
local g=Duel.SelectTarget(tp,c22348201.xyz2filter,tp,LOCATION_GRAVE,0,1,1,nil,e)
Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,g,1,0,0)
end
function c22348201.xyzop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and Duel.IsExistingMatchingCard(c22348201.xyz1filter,tp,LOCATION_MZONE,0,1,nil) then
local g=Group.FromCards(c,tc)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
local sg=Duel.SelectMatchingCard(tp,c22348201.xyz1filter,tp,LOCATION_MZONE,0,1,1,nil)
......@@ -129,14 +129,5 @@ function c22348201.xyzop(e,tp,eg,ep,ev,re,r,rp)
end
expansions/script/c22348330.lua
View file @ c1f2086d
......@@ -89,7 +89,7 @@ end
function c22348330.disop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsControler(1-tp) and tc:IsCanBeDisabledByEffect(e) then
if tc:IsFaceup() and tc:IsRelateToEffect(e) and tc:IsCanBeDisabledByEffect(e) then
Duel.NegateRelatedChain(tc,RESET_TURN_SET)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
......
expansions/script/c9910476.lua
View file @ c1f2086d
......@@ -54,11 +54,8 @@ function c9910476.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function c9910476.penop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local dg=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
if dg:GetCount()<2 then return end
if Duel.Destroy(dg,REASON_EFFECT)~=2 then return end
if #dg==0 or Duel.Destroy(dg,REASON_EFFECT)==0 then return end
local g=Duel.GetMatchingGroup(c9910476.spfilter,tp,LOCATION_DECK,0,nil,e,tp)
if g:GetCount()>0 then
Duel.BreakEffect()
......
expansions/script/c9910479.lua
View file @ c1f2086d
......@@ -51,11 +51,9 @@ function c9910479.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,1-tp,LOCATION_HAND)
end
function c9910479.penop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local dg=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
if dg:GetCount()<2 then return end
if Duel.Destroy(dg,REASON_EFFECT)~=2 or Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)<2 then return end
if #dg==0 or Duel.Destroy(dg,REASON_EFFECT)==0 then return end
if Duel.GetFieldGroupCount(tp,0,LOCATION_HAND)<2 then return end
local g=Duel.GetFieldGroup(tp,0,LOCATION_HAND):RandomSelect(tp,2)
Duel.ConfirmCards(tp,g)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
......
expansions/script/c9910482.lua
View file @ c1f2086d
......@@ -52,11 +52,8 @@ function c9910482.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
end
function c9910482.penop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local dg=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
if dg:GetCount()<2 then return end
if Duel.Destroy(dg,REASON_EFFECT)~=2 then return end
if #dg==0 or Duel.Destroy(dg,REASON_EFFECT)==0 then return end
if Duel.Draw(tp,2,REASON_EFFECT)==2 then
Duel.ShuffleHand(tp)
Duel.BreakEffect()
......
expansions/script/c9910485.lua
View file @ c1f2086d
......@@ -50,12 +50,9 @@ function c9910485.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,2,0,0)
end
function c9910485.penop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local dg=Duel.GetFieldGroup(tp,LOCATION_PZONE,0)
if dg:GetCount()<2 then return end
if Duel.Destroy(dg,REASON_EFFECT)~=2 then return end
local e1=Effect.CreateEffect(c)
if #dg>0 then Duel.Destroy(dg,REASON_EFFECT) end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_CHAIN_SOLVING)
e1:SetCondition(c9910485.negcon)
......
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