Skip to content

V
Vgdpro Scripts
Commit 4481e2a4 authored by whenmo's avatar whenmo Committed by GitHub
Browse files
Options

fix about getmatchinggroup

parent 979c64be
Hide whitespace changes
Inline Side-by-side
Showing with 131 additions and 225 deletions
vgfuncLib.lua
View file @ 4481e2a4
......@@ -75,27 +75,32 @@ function VgF.GetValueType(v)
else return t end
end
---如果g是Group的话，返回其第一张卡；如果g是Card的话，返回其本身；否则返回nil。
---@param g any 要操作的变量
---@return Card
function VgF.ReturnCard(g)
local tc = nil
if VgF.GetValueType(g) == "Group" then
tc = g:GetFirst()
elseif VgF.GetValueType(g) == "Card" then
tc = g
end
return tc
end
function VgF.ReturnGroup(tc)
local g = Group.CreateGroup()
if VgF.GetValueType(tc) == "Group" then
return tc
elseif VgF.GetValueType(g) == "Card" then
g:AddCard(tc)
end
return g
---返回卡片，接受 Card，Group，Effect
---@param val 要操作的参数
---@return Card 返回卡片
function VgF.ReturnCard(val)
local typ = VgF.GetValueType(val)
if typ == "Group" then
return val:GetFirst()
elseif typ == "Effect" then
return val:GetHandler()
elseif typ == "Card" then
return val
end
return nil
end
---返回卡片组，接受 Card，Group
---@param val 要操作的参数
---@return Card 返回卡片组
function VgF.ReturnGroup(val)
local typ = VgF.GetValueType(val)
if typ == "Group" then
return val
elseif typ == "Card" then
return Group.FromCards(val)
end
return Group.CreateGroup()
end
---根据控制者，区域和编号获取zone；不合法的数据会返回0
......@@ -116,7 +121,7 @@ end
function VgF.GetAvailableLocation(tp, zone)
local z
if zone then z = zone else z = 0x1f end
local rg = Duel.GetMatchingGroup(Card.IsPosition, tp, LOCATION_CIRCLE, 0, nil, POS_FACEDOWN_ATTACK)
local rg = Duel.(Card.IsPosition, tp, LOCATION_CIRCLE, 0, nil, POS_FACEDOWN_ATTACK)
for tc in VgF.Next(rg) do
local szone = VgF.SequenceToGlobal(tp, tc:GetLocation(), tc:GetSequence())
z = bit.bxor(z, szone)
......@@ -124,19 +129,45 @@ function VgF.GetAvailableLocation(tp, zone)
return z
end
---根据 loc 回传转换后的 loc 以及 con, 用于区分V/R/M
function VgF.FixVRLoc(loc)
local loc_con = VgF.True
local has_v = loc & LOCATION_VZONE > 0
local has_r = loc & LOCATION_RZONE > 0
if has_v and has_r then
loc = (loc - LOCATION_VZONE - LOCATION_RZONE) | LOCATION_MZONE
elseif has_v then
loc = (loc - LOCATION_VZONE) | LOCATION_MZONE
loc_con = Card.IsVanguard
elseif has_r then
loc = (loc - LOCATION_RZONE) | LOCATION_MZONE
loc_con = Card.IsRearguard
end
return loc, loc_con
end
---检查并转换 loc 以及 con 用于【起】等模板函数
function VgF.GetLocCondition(loc, con)
local con_exf = VgF.True
if loc == LOCATION_R_CIRCLE then
loc, con_exf = LOCATION_CIRCLE, VgF.Condition.IsR
elseif loc == LOCATION_V_CIRCLE then
loc, con_exf = LOCATION_CIRCLE, VgF.Condition.IsV
end
loc = loc or LOCATION_CIRCLE
local loc, loc_con = VgF.FixVRLoc(loc)
local condition = function(e, tp, eg, ep, ev, re, r, rp)
return (not con or con(e, tp, eg, ep, ev, re, r, rp)) and con_exf(e)
return (not con or con(e, tp, eg, ep, ev, re, r, rp)) and loc_con(e:GetHandler())
end
return loc, condition
return loc or LOCATION_MZONE, condition
end
---返回玩家 p 场上的先导者。
---@param p number 要获取先导者的玩家。不合法则返回nil。
---@return Card|nil p场上的先导者
function VgF.GetVanguard(p)
-- pre GetVMonster
if p ~= 0 and p ~= 1 then return end
return Duel.GetMatchingGroup(Card.IsVanguard, p, LOCATION_MZONE, 0, nil):GetFirst()
end
---返回玩家 p 场上的先导者的灵魂卡片组
function VgF.GetSoulGroup(p)
local tc = VgF.GetVanguard(p)
return tc and tc:GetOverlayGroup() or Group.CreateGroup()
end
--函数检查器--------------------------------------------------------------------------------
......@@ -291,7 +322,7 @@ end
function VgF.Condition.FirstCard(e)
local tp = e:GetHandlerPlayer()
local g = Duel.GetMatchingGroup(nil, tp, LOCATION_ALL, 0, nil)
local g = Duel.(nil, tp, LOCATION_ALL, 0, nil)
return e:GetHandler() == g:GetFirst()
end
function VgF.Condition.FirstTurn()
......@@ -393,7 +424,7 @@ function VgF.Cost.EnergyBlast(val)
end
return VgF.IsExistingMatchingCard(Card.IsCode, tp, LOCATION_CREST, 0, val, nil, CARD_ENERGY)
end
local sg = Duel.GetMatchingGroup(Card.IsCode, tp, LOCATION_CREST, 0, nil, CARD_ENERGY)
local sg = Duel.(Card.IsCode, tp, LOCATION_CREST, 0, nil, CARD_ENERGY)
local g = sg:GetCardsFromGroup(val)
return VgF.Sendto(0, g, tp, POS_FACEUP, REASON_COST)
end
......@@ -410,10 +441,10 @@ function VgF.Cost.SoulBlast(val)
local m = c:GetOriginalCode()
VgF.AddAlchemagic(m, "LOCATION_SOUL", "LOCATION_DROP", val, val)
end
return Duel.GetMatchingGroup(VgF.Filter.IsV, tp, LOCATION_CIRCLE, 0, nil, nil):GetFirst():GetOverlayCount() >= val
return Duel.(VgF.Filter.IsV, tp, LOCATION_CIRCLE, 0, nil, nil):GetFirst():GetOverlayCount() >= val
end
Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_REMOVEXYZ)
local g = Duel.GetMatchingGroup(VgF.Filter.IsV, tp, LOCATION_CIRCLE, 0, nil):GetFirst():GetOverlayGroup():Select(tp, nil, val, val, nil)
local g = Duel.(VgF.Filter.IsV, tp, LOCATION_CIRCLE, 0, nil):GetFirst():GetOverlayGroup():Select(tp, nil, val, val, nil)
return VgF.Sendto(LOCATION_DROP, g, REASON_COST)
end
end
......@@ -464,7 +495,7 @@ function VgF.Cost.Retire(card_code_func, max, min, except, ...)
end
return function(e, tp, eg, ep, ev, re, r, rp, chk)
leave_filter = function(c) return leave_filter(c, table.unpack(ex_params)) and c:IsAbleToGraveAsCost() end
local g = VgF.GetMatchingGroup(leave_filter, tp, LOCATION_CIRCLE, 0, except)
local g = VgF.(leave_filter, tp, LOCATION_CIRCLE, 0, except)
if chk == 0 then return g:CheckSubGroup(VgF.Cost.RetireFilter, 1, max, min, e, tp) end
Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_LEAVEFIELD)
g = g:SelectSubGroup(tp, VgF.Cost.RetireFilter, false, 1, max, min, e, tp)
......@@ -550,7 +581,7 @@ function VgF.Operation.SoulCharge(val)
end
return Duel.GetFieldGroupCount(tp, LOCATION_DECK, 0) >= val
end
local rc = Duel.GetMatchingGroup(VgF.Filter.IsV, tp, LOCATION_CIRCLE, 0, nil):GetFirst()
local rc = Duel.(VgF.Filter.IsV, tp, LOCATION_CIRCLE, 0, nil):GetFirst()
local g = Duel.GetDecktopGroup(tp, val)
Duel.DisableShuffleCheck()
Duel.RaiseEvent(g, EVENT_CUSTOM + EVENT_OVERLAY_FILL, e, 0, tp, tp, val)
......@@ -692,32 +723,23 @@ end
--Card库自定义函数-----------------------------------------------------------------------
---返回c所在列的所有单位。
---返回卡片 c 所在列的所有单位。
---@param c Card 指示某一列的卡
---@return Group 这一列的所有单位
---@return Group 这一列的所有单位(除了 c
function Card.GetColumnGroup(c)
local tp = c:GetControler()
local g = Group.CreateGroup()
if c:IsSequence(0, 1) then
-- 左列
local sg1 = VgF.GetMatchingGroup(Card.IsSequence, tp, LOCATION_CIRCLE, 0, nil, 0, 1)
local sg2 = VgF.GetMatchingGroup(Card.IsSequence, tp, 0, LOCATION_CIRCLE, nil, 3, 4)
if sg1:GetCount() > 0 then g:Merge(sg1) end
if sg2:GetCount() > 0 then g:Merge(sg2) end
elseif c:IsSequence(2, 5) then
-- 中列
local sg = VgF.GetMatchingGroup(Card.IsSequence, tp, LOCATION_CIRCLE, LOCATION_CIRCLE, nil, 2, 5)
if sg:GetCount() > 0 then g:Merge(sg) end
elseif c:IsSequence(3, 4) then
-- 右列
local sg1 = VgF.GetMatchingGroup(Card.IsSequence, tp, LOCATION_CIRCLE, 0, nil, 3, 4)
local sg2 = VgF.GetMatchingGroup(Card.IsSequence, tp, 0, LOCATION_CIRCLE, nil, 0, 1)
if sg1:GetCount() > 0 then g:Merge(sg1) end
if sg2:GetCount() > 0 then g:Merge(sg2) end
end
-- 排除自身
g:RemoveCard(c)
return g
local tp, seq = c:GetControler(), c:GetSequence()
if seq == 2 or seq == 5 then
return VgF.GetMatchingGroup(Card.IsSequence, tp, LOCATION_MZONE, LOCATION_MZONE, c, 2, 5)
end
local g1, g2 = Group.CreateGroup(), Group.CreateGroup()
if seq == 0 or seq == 1 then
g1 = VgF.GetMatchingGroup(Card.IsSequence, tp, LOCATION_MZONE, 0, nil, 0, 1)
g2 = VgF.GetMatchingGroup(Card.IsSequence, tp, 0, LOCATION_MZONE, nil, 3, 4)
elseif seq == 3 or seq == 4 then
g1 = VgF.GetMatchingGroup(Card.IsSequence, tp, LOCATION_MZONE, 0, nil, 3, 4)
g2 = VgF.GetMatchingGroup(Card.IsSequence, tp, 0, LOCATION_MZONE, nil, 0, 1)
end
return (g1 + g2):Filter(nil, c)
end
---判断c是否可以以规则的手段到G区域。
......@@ -981,179 +1003,63 @@ end
--封装操作---------------------------------------------------------------------------------
function VgF.IsExistingMatchingCard(f, tp, loc_self, loc_op, int, except_g, ...)
return VgF.GetMatchingGroupCount(f, tp, loc_self, loc_op, except_g, ...) >= int
end
function VgF.SelectMatchingCard(hintmsg, e, select_tp, f, tp, loc_self, loc_op, int_min, int_max, except_g, ...)
local a = false
if ((select_tp == tp and bit.band(loc_self, LOCATION_DECK) > 0) or (select_tp ~= tp and bit.band(loc_op, LOCATION_DECK) > 0)) and Duel.SelectYesNo(select_tp, VgF.Stringid(VgID, 13)) then
local g = Duel.GetFieldGroup(select_tp, LOCATION_DECK, 0)
Duel.DisableShuffleCheck()
Duel.ConfirmCards(select_tp, g)
a = true
end
local g = Group.CreateGroup()
local loc_self_f = VgF.True
local loc_op_f = VgF.True
if bit.band(loc_self, LOCATION_V_CIRCLE) > 0 and bit.band(loc_self, LOCATION_R_CIRCLE) > 0 then
loc_self = loc_self - LOCATION_V_CIRCLE - LOCATION_R_CIRCLE
if bit.band(loc_self, LOCATION_CIRCLE) == 0 then
loc_self = loc_self + LOCATION_CIRCLE
end
elseif bit.band(loc_self, LOCATION_V_CIRCLE) > 0 then
loc_self = loc_self - LOCATION_V_CIRCLE
loc_self_f = VgF.Filter.IsV
if bit.band(loc_self, LOCATION_CIRCLE) == 0 then
loc_self = loc_self + LOCATION_CIRCLE
end
elseif bit.band(loc_self, LOCATION_R_CIRCLE) > 0 then
loc_self = loc_self - LOCATION_R_CIRCLE
loc_self_f = VgF.Filter.IsR
if bit.band(loc_self, LOCATION_CIRCLE) == 0 then
loc_self = loc_self + LOCATION_CIRCLE
end
end
if bit.band(loc_op, LOCATION_V_CIRCLE) > 0 and bit.band(loc_op, LOCATION_R_CIRCLE) > 0 then
loc_op = loc_op - LOCATION_V_CIRCLE - LOCATION_R_CIRCLE
if bit.band(loc_op, LOCATION_CIRCLE) == 0 then
loc_op = loc_op + LOCATION_CIRCLE
end
elseif bit.band(loc_op, LOCATION_V_CIRCLE) > 0 then
loc_op = loc_op - LOCATION_V_CIRCLE
loc_op_f = VgF.Filter.IsV
if bit.band(loc_op, LOCATION_CIRCLE) == 0 then
loc_op = loc_op + LOCATION_CIRCLE
end
elseif bit.band(loc_op, LOCATION_R_CIRCLE) > 0 then
loc_op = loc_op - LOCATION_R_CIRCLE
loc_op_f = VgF.Filter.IsR
if bit.band(loc_op, LOCATION_CIRCLE) == 0 then
loc_op = loc_op + LOCATION_CIRCLE
end
end
if bit.band(loc_self, LOCATION_CIRCLE) > 0 then
local g1 = Duel.GetMatchingGroup(function (c)
return c:IsCanBeEffectTarget(e) and c:IsFaceup() and loc_self_f(c)
end, tp, LOCATION_CIRCLE, 0, nil)
loc_self = loc_self - LOCATION_CIRCLE
if g1:GetCount() > 0 then g:Merge(g1) end
end
if bit.band(loc_op, LOCATION_CIRCLE) > 0 then
local g1 = Duel.GetMatchingGroup(function (c)
return c:IsCanBeEffectTarget(e) and c:IsFaceup() and loc_op_f(c)
end, tp, 0, LOCATION_CIRCLE, nil)
loc_op = loc_op - LOCATION_CIRCLE
if g1:GetCount() > 0 then g:Merge(g1) end
end
if bit.band(loc_self, LOCATION_SOUL) > 0 then
local g1 = VgF.GetVMonster(tp):GetOverlayGroup()
loc_self = loc_self - LOCATION_SOUL
if g1:GetCount() > 0 then g:Merge(g1) end
end
if bit.band(loc_op, LOCATION_SOUL) > 0 then
local g1 = VgF.GetVMonster(1 - tp):GetOverlayGroup()
loc_op = loc_op - LOCATION_SOUL
if g1:GetCount() > 0 then g:Merge(g1) end
end
if loc_self > 0 or loc_op > 0 then
local g1 = Duel.GetMatchingGroup(nil, tp, loc_self, loc_op, nil)
if g1:GetCount() > 0 then g:Merge(g1) end
end
if g:GetCount() > 0 then
Duel.Hint(HINT_SELECTMSG, select_tp, hintmsg)
if VgF.GetValueType(f) == "function" then
g = g:FilterSelect(select_tp, f, int_min, int_max, except_g, ...)
else
g = g:Select(select_tp, int_min, int_max, except_g)
end
---过滤函数，返回玩家 p 来看的指定位置满足过滤条件 f 并且不等于 ex 的卡
---loc_self 代表玩家 p 来看的自己的位置，loc_oppo 代表玩家 p 来看的对方的位置
---第6个参数开始为额外参数
function VgF.GetMatchingGroup(f, p, loc_self, loc_oppo, ex, ...)
local loc_self, loc_self_con = VgF.GetlocCondition(loc_self)
local loc_oppo, loc_oppo_con = VgF.GetlocCondition(loc_oppo)
local g = Duel.GetMatchingGroup(loc_self_con, p, loc_self, 0, nil)
g = g + Duel.GetMatchingGroup(loc_oppo_con, p, 0, loc_oppo, nil)
g = g - Duel.GetMatchingGroup(Card.IsFacedown, p, LOCATION_MZONE, LOCATION_MZONE, nil)
if loc_self & LOCATION_OVERLAY > 0 then
g = g + VgF.GetSoulGroup(p)
end
local cg = g:Filter(function (tc)
return not tc:IsLocation(LOCATION_DECK + LOCATION_HAND + LOCATION_RIDE)
end, nil)
if cg:GetCount() > 0 then
Duel.HintSelection(cg)
Duel.SetTargetCard(cg)
if loc_oppo & LOCATION_OVERLAY > 0 then
g = g + VgF.GetSoulGroup(1 - p)
end
if a then Duel.ShuffleDeck(select_tp) end
return g
return g:Filter(f, ex, ...)
end
function VgF.GetMatchingGroupCount(f, tp, loc_self, loc_op, except_g, ...)
return VgF.GetMatchingGroup(f, tp, loc_self, loc_op, except_g, ...):GetCount()
---过滤函数，返回玩家 p 来看的指定位置满足过滤条件 f 并且不等于 ex 的卡的数量
---loc_self 代表玩家 p 来看的自己的位置，loc_oppo 代表玩家 p 来看的对方的位置
---第6个参数开始为额外参数
function VgF.GetMatchingGroupCount(f, p, loc_self, loc_oppo, ex, ...)
return #VgF.GetMatchingGroup(f, p, loc_self, loc_oppo, ex, ...)
end
function VgF.GetMatchingGroup(f, tp, loc_self, loc_op, except_g, ...)
local loc_self_f = VgF.True
local loc_op_f = VgF.True
if bit.band(loc_self, LOCATION_V_CIRCLE) > 0 and bit.band(loc_self, LOCATION_R_CIRCLE) > 0 then
loc_self = loc_self - LOCATION_V_CIRCLE - LOCATION_R_CIRCLE
if bit.band(loc_self, LOCATION_CIRCLE) == 0 then
loc_self = loc_self + LOCATION_CIRCLE
end
elseif bit.band(loc_self, LOCATION_V_CIRCLE) > 0 then
loc_self = loc_self - LOCATION_V_CIRCLE
loc_self_f = VgF.Filter.IsV
if bit.band(loc_self, LOCATION_CIRCLE) == 0 then
loc_self = loc_self + LOCATION_CIRCLE
end
elseif bit.band(loc_self, LOCATION_R_CIRCLE) > 0 then
loc_self = loc_self - LOCATION_R_CIRCLE
loc_self_f = VgF.Filter.IsR
if bit.band(loc_self, LOCATION_CIRCLE) == 0 then
loc_self = loc_self + LOCATION_CIRCLE
end
---过滤函数，检查玩家 p 来看的指定位置是否存在至少 count 张满足过滤条件 f 并且不等于 ex 的卡
---loc_self 代表玩家 p 来看的自己的位置，loc_oppo 代表玩家 p 来看的对方的位置
---第7个参数开始为额外参数
function VgF.IsExistingMatchingCard(f, p, loc_self, loc_oppo, count, ex, ...)
return #VgF.GetMatchingGroup(f, p, loc_self, loc_oppo, ex, ...) >= count
end
---过滤函数，让玩家 sp 选择玩家 p 来看的指定位置满足过滤条件 f 并且不等于 ex 的 min-max 张卡
---loc_self 代表以 p 来看的自己的位置，loc_oppo 代表以 p 来看的对方的位置
---第9个参数开始为额外参数
function VgF.SelectMatchingCard(msg, e, sp, f, p, loc_self, loc_oppo, min, max, ex, ...)
local check_deck = false
if ((sp == p and loc_self & LOCATION_DECK > 0) or (sp ~= p and loc_oppo & LOCATION_DECK > 0)) and Duel.SelectYesNo(sp, VgF.Stringid(VgID, 13)) then
Duel.DisableShuffleCheck()
Duel.ConfirmCards(sp, Duel.GetFieldGroup(sp, LOCATION_DECK, 0))
check_deck = true
end
if bit.band(loc_op, LOCATION_V_CIRCLE) > 0 and bit.band(loc_op, LOCATION_R_CIRCLE) > 0 then
loc_op = loc_op - LOCATION_V_CIRCLE - LOCATION_R_CIRCLE
if bit.band(loc_op, LOCATION_CIRCLE) == 0 then
loc_op = loc_op + LOCATION_CIRCLE
end
elseif bit.band(loc_op, LOCATION_V_CIRCLE) > 0 then
loc_op = loc_op - LOCATION_V_CIRCLE
loc_op_f = VgF.Filter.IsV
if bit.band(loc_op, LOCATION_CIRCLE) == 0 then
loc_op = loc_op + LOCATION_CIRCLE
end
elseif bit.band(loc_op, LOCATION_R_CIRCLE) > 0 then
loc_op = loc_op - LOCATION_R_CIRCLE
loc_op_f = VgF.Filter.IsR
if bit.band(loc_op, LOCATION_CIRCLE) == 0 then
loc_op = loc_op + LOCATION_CIRCLE
end
local filter = function(c, e)
return c:IsCanBeEffectTarget(e) or not c:IsLocation(LOCATION_MZONE)
end
local g = Group.CreateGroup()
if bit.band(loc_self, LOCATION_CIRCLE) > 0 then
local g1 = Duel.GetMatchingGroup(function (c)
return c:IsFaceup() and loc_self_f(c)
end, tp, LOCATION_CIRCLE, 0, nil)
loc_self = loc_self - LOCATION_CIRCLE
if g1:GetCount() > 0 then g:Merge(g1) end
end
if bit.band(loc_op, LOCATION_CIRCLE) > 0 then
local g1 = Duel.GetMatchingGroup(function (c)
return c:IsFaceup() and loc_op_f(c)
end, tp, 0, LOCATION_CIRCLE, nil)
loc_op = loc_op - LOCATION_CIRCLE
if g1:GetCount() > 0 then g:Merge(g1) end
end
if bit.band(loc_self, LOCATION_SOUL) > 0 then
local g1 = VgF.GetVMonster(tp):GetOverlayGroup()
loc_self = loc_self - LOCATION_SOUL
if g1:GetCount() > 0 then g:Merge(g1) end
end
if bit.band(loc_op, LOCATION_SOUL) > 0 then
local g1 = VgF.GetVMonster(1 - tp):GetOverlayGroup()
loc_op = loc_op - LOCATION_SOUL
if g1:GetCount() > 0 then g:Merge(g1) end
end
if loc_self > 0 or loc_op > 0 then
local g1 = Duel.GetMatchingGroup(nil, tp, loc_self, loc_op, nil)
if g1:GetCount() > 0 then g:Merge(g1) end
end
if g:GetCount() > 0 then
f = f or VgF.True
g = g:Filter(f, except_g, ...)
local g = VgF.GetMatchingGroup(filter, p, loc_self, loc_oppo, ex, e)
Duel.Hint(HINT_SELECTMSG, sp, msg)
g = g:FilterSelect(sp, f or vgf.True, min, max, ex, ...)
local sg = g:Filter(VgF.Not(Card.IsLocation), nil, LOCATION_DECK + LOCATION_HAND + LOCATION_EXTRA)
if #sg > 0 then
Duel.HintSelection(sg)
Duel.SetTargetCard(sg)
end
if check_deck then Duel.ShuffleDeck(sp) end
return g
end
---用于效果的Operation。执行“把卡sg，送去loc,第三个参数开始为额外参数，内容与原函数相同。”。
---@param loc number 要送去的区域。不填则返回0。
---@param sg Card|Group 要操作的卡|卡片组。
......
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