Skip to content

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

Update VgFuncLib.lua

parent d8c1c36b
Hide whitespace changes
Inline Side-by-side
Showing with 194 additions and 219 deletions
VgFuncLib.lua
View file @ b601c80a
...@@ -7,69 +7,34 @@ bit = {} ...@@ -7,69 +7,34 @@ bit = {}
---@class Group ---@class Group
---@class Effect ---@class Effect
---初始化c，使c具有vg卡的功能。
---@param c Card 要初始化的卡
function VgF.VgCard(c)
VgD.Rule(c)
VgF.DefineArguments()
VgD.RideUp(c)
VgD.CardTrigger(c)
if c:IsType(TYPE_MONSTER) then
VgD.CallToR(c)
VgD.MonsterBattle(c)
end
end
---获取脚本基本信息 ---获取脚本基本信息
function GetID() function GetID()
local offset = self_code < 100000000 and 1 or 100 local offset = self_code < 100000000 and 1 or 100
return self_table, self_code, offset return self_table, self_code, offset
end end
---根据卡号和索引获取描述编号 ---根据卡号和索引获取描述编号
---@param code integer 卡片密码 ---@param code number 卡片密码
---@param id integer 索引 ---@param id number 索引
---@return integer 描述的编号 ---@return number 描述的编号
function VgF.Stringid(code, id) function VgF.Stringid(code, id)
return code * 16 + id return code * 16 + id
end
function VgF.DefineArguments()
if not code then code = nil end
if not loc then loc = nil end
if not typ then typ = nil end
if not typ2 then typ2 = nil end
if not count then count = nil end
if not property then property = nil end
if not reset then reset = nil end
if not op then op = nil end
if not cost then cost = nil end
if not con then con = nil end
if not tg then tg = nil end
if not f then f = nil end
if not zone then zone = nil end
end end
---根据控制者，区域和编号获取zone；不合法的数据会返回0 ---根据控制者，区域和编号获取zone；不合法的数据会返回0
---@param p integer 控制者 ---@param p number 控制者
---@param loc integer 所在区域，若不是LOCATION_MZONE或LOCATION_SZONE则返回0 ---@param loc number 所在区域，若不是LOCATION_MZONE或LOCATION_SZONE则返回0
---@param seq integer 编号 ---@param seq number 编号
---@return integer 卡片所在的zone ---@return number 卡片所在的zone
function VgF.SequenceToGlobal(p, loc, seq) function VgF.SequenceToGlobal(p, loc, seq)
if p ~= 0 and p ~= 1 then if p ~= 0 or p ~= 1 or loc & 0xc ~= loc then
return 0 Debug.Message("VgF.SequenceToGlobal param illegal")
end return 0
if loc == LOCATION_MZONE then end
if seq <= 6 then if loc == LOCATION_MZONE and seq <= 6 then
return 0x0001 << (seq) return 0x0001 << (seq)
else elseif loc == LOCATION_SZONE and seq <= 4 then
return 0 return 0x0100 << (16 * p + seq)
end end
elseif loc == LOCATION_SZONE then return 0
if seq <= 4 then
return 0x0100 << (16 * p + seq)
else
return 0
end
else
return 0
end
end end
---一个总是返回true的函数。 ---一个总是返回true的函数。
---@return true ---@return true
...@@ -85,23 +50,23 @@ end ...@@ -85,23 +50,23 @@ end
---@param g Group 要遍历的卡片组 ---@param g Group 要遍历的卡片组
---@return function 指示返回的卡的函数 ---@return function 指示返回的卡的函数
function VgF.Next(g) function VgF.Next(g)
local first = true local first = true
return function() return function()
if first then first = false return g:GetFirst() if first then first = false return g:GetFirst()
else return g:GetNext() end else return g:GetNext() end
end end
end end
---返回v在lua中的变量类型，以string方式呈现。 ---返回v在lua中的变量类型，以string方式呈现。
---@param v any 要获取类型的变量（或常量） ---@param v any 要获取类型的变量（或常量）
---@return string 以字符串形式呈现的类型 ---@return string 以字符串形式呈现的类型
function VgF.GetValueType(v) function VgF.GetValueType(v)
local t = type(v) local t = type(v)
if t == "userdata" then if t == "userdata" then
local mt = getmetatable(v) local mt = getmetatable(v)
if mt == Group then return "Group" if mt == Group then return "Group"
elseif mt == Effect then return "Effect" elseif mt == Effect then return "Effect"
else return "Card" end else return "Card" end
else return t end else return t end
end end
---如果g是Group的话，返回其第一张卡；如果g是Card的话，返回其本身；否则返回nil。 ---如果g是Group的话，返回其第一张卡；如果g是Card的话，返回其本身；否则返回nil。
---@param g any 要操作的变量 ---@param g any 要操作的变量
...@@ -128,7 +93,7 @@ end ...@@ -128,7 +93,7 @@ end
---返回g的前val张卡。 ---返回g的前val张卡。
---@param g Group 要操作的卡片组 ---@param g Group 要操作的卡片组
---@param val integer 要获取的卡片数量 ---@param val number 要获取的卡片数量
function VgF.GetCardsFromGroup(g, val) function VgF.GetCardsFromGroup(g, val)
if VgF.GetValueType(g) == "Group" then if VgF.GetValueType(g) == "Group" then
local sg = Group.CreateGroup() local sg = Group.CreateGroup()
...@@ -155,45 +120,45 @@ function table.copy(copy, original) ...@@ -155,45 +120,45 @@ function table.copy(copy, original)
end end
---返回对a和b进行按位与运算的结果。 ---返回对a和b进行按位与运算的结果。
---@param a integer 操作数1 ---@param a number 操作数1
---@param b integer 操作数2 ---@param b number 操作数2
---@return integer 运算结果 ---@return number 运算结果
function bit.band(a, b) function bit.band(a, b)
return a & b return a & b
end end
---返回对a和b进行按位或运算的结果。 ---返回对a和b进行按位或运算的结果。
---@param a integer 操作数1 ---@param a number 操作数1
---@param b integer 操作数2 ---@param b number 操作数2
---@return integer 运算结果 ---@return number 运算结果
function bit.bor(a, b) function bit.bor(a, b)
return a | b return a | b
end end
---返回对a和b进行按位异或运算的结果。 ---返回对a和b进行按位异或运算的结果。
---@param a integer 操作数1 ---@param a number 操作数1
---@param b integer 操作数2 ---@param b number 操作数2
---@return integer 运算结果 ---@return number 运算结果
function bit.bxor(a, b) function bit.bxor(a, b)
return a ~ b return a ~ b
end end
---返回a按位左移b位后的结果。 ---返回a按位左移b位后的结果。
---@param a integer 操作数1 ---@param a number 操作数1
---@param b integer 操作数2 ---@param b number 操作数2
---@return integer 运算结果 ---@return number 运算结果
function bit.lshift(a, b) function bit.lshift(a, b)
return a << b return a << b
end end
---返回a按位右移b位后的结果。 ---返回a按位右移b位后的结果。
---@param a integer 操作数1 ---@param a number 操作数1
---@param b integer 操作数2 ---@param b number 操作数2
---@return integer 运算结果 ---@return number 运算结果
function bit.rshift(a, b) function bit.rshift(a, b)
return a >> b return a >> b
end end
---返回a按位非后的结果。 ---返回a按位非后的结果。
---@param a integer 操作数 ---@param a number 操作数
---@return integer 运算结果 ---@return number 运算结果
function bit.bnot(a) function bit.bnot(a)
return ~a return ~a
end end
---返回c是不是先导者。 ---返回c是不是先导者。
---@param c Card 要判断的卡 ---@param c Card 要判断的卡
...@@ -238,7 +203,7 @@ function VgF.IsSummonTypeR(c) ...@@ -238,7 +203,7 @@ function VgF.IsSummonTypeR(c)
end end
---判断c是否在当前区域的某（几）个编号上 ---判断c是否在当前区域的某（几）个编号上
---@param c Card 要判断的卡 ---@param c Card 要判断的卡
---@param ... integer 编号 ---@param ... number 编号
---@return boolean 指示是否在给定编号上 ---@return boolean 指示是否在给定编号上
function VgF.IsSequence(c, ...) function VgF.IsSequence(c, ...)
for i, v in ipairs{...} do for i, v in ipairs{...} do
...@@ -263,9 +228,9 @@ end ...@@ -263,9 +228,9 @@ end
---@param f 要操作的函数 ---@param f 要操作的函数
---@return function 经过操作的函数 ---@return function 经过操作的函数
function VgF.Not(f) function VgF.Not(f)
return function(...) return function(...)
return not f(...) return not f(...)
end end
end end
---返回c所在列的所有单位。 ---返回c所在列的所有单位。
---@param c Card 指示某一列的卡 ---@param c Card 指示某一列的卡
...@@ -324,11 +289,11 @@ function VgF.GetAvailableLocation(tp, zone) ...@@ -324,11 +289,11 @@ function VgF.GetAvailableLocation(tp, zone)
end end
---将g（中的每一张卡）Call到单位区。返回Call成功的数量。 ---将g（中的每一张卡）Call到单位区。返回Call成功的数量。
---@param g Card|Group 要Call的卡（片组） ---@param g Card|Group 要Call的卡（片组）
---@param sumtype integer Call的方式，默认填0 ---@param sumtype number Call的方式，默认填0
---@param tp integer Call的玩家 ---@param tp number Call的玩家
---@param zone integer|nil 指示要Call到的格子。<br>前列的R：17； 后列的R：14； 全部的R：31； V：32 ---@param zone number|nil 指示要Call到的格子。<br>前列的R：17； 后列的R：14； 全部的R：31； V：32
---@param pos integer|nil 表示形式 ---@param pos number|nil 表示形式
---@return integer Call成功的数量 ---@return number Call成功的数量
function VgF.Call(g, sumtype, tp, zone, pos) function VgF.Call(g, sumtype, tp, zone, pos)
if (VgF.GetValueType(g) ~= "Card" and VgF.GetValueType(g) ~= "Group") or (VgF.GetValueType(g) == "Group" and g:GetCount() == 0) then return 0 end if (VgF.GetValueType(g) ~= "Card" and VgF.GetValueType(g) ~= "Group") or (VgF.GetValueType(g) == "Group" and g:GetCount() == 0) then return 0 end
if VgF.GetValueType(pos) ~= "number" then pos = POS_FACEUP_ATTACK end if VgF.GetValueType(pos) ~= "number" then pos = POS_FACEUP_ATTACK end
...@@ -370,7 +335,7 @@ function VgF.Call(g, sumtype, tp, zone, pos) ...@@ -370,7 +335,7 @@ function VgF.Call(g, sumtype, tp, zone, pos)
else VgF.Sendto(LOCATION_DROP, tc, REASON_COST) else VgF.Sendto(LOCATION_DROP, tc, REASON_COST)
end end
end end
return Duel.SpecialSummon(sc, sumtype, tp, tp, false, false, pos, szone) return Duel.SpecialSummon(sc, sumtype, tp, tp, false, false, pos, szone)
else else
local sg local sg
local z = bit.bnot(VgF.GetAvailableLocation(tp)) local z = bit.bnot(VgF.GetAvailableLocation(tp))
...@@ -411,8 +376,8 @@ end ...@@ -411,8 +376,8 @@ end
---以c的名义，使g（中的每一张卡）的攻击力上升val，并在reset时重置。 ---以c的名义，使g（中的每一张卡）的攻击力上升val，并在reset时重置。
---@param c Card 要使卡上升攻击力的卡 ---@param c Card 要使卡上升攻击力的卡
---@param g Card|Group 要被上升攻击力的卡 ---@param g Card|Group 要被上升攻击力的卡
---@param val integer|string 要上升的攻击力（可以为负） ---@param val number|string 要上升的攻击力（可以为负）
---@param reset integer|nil 指示重置的时点，默认为“回合结束时”。无论如何，都会在离场时重置。 ---@param reset number|nil 指示重置的时点，默认为“回合结束时”。无论如何，都会在离场时重置。
function VgF.AtkUp(c, g, val, reset, resetcount) function VgF.AtkUp(c, g, val, reset, resetcount)
if not c or not g then return end if not c or not g then return end
if not resetcount then resetcount = 1 end if not resetcount then resetcount = 1 end
...@@ -455,8 +420,8 @@ end ...@@ -455,8 +420,8 @@ end
---以c的名义，使g（中的每一张卡）的盾值上升val，并在reset时重置。 ---以c的名义，使g（中的每一张卡）的盾值上升val，并在reset时重置。
---@param c Card 要使卡上升盾值的卡 ---@param c Card 要使卡上升盾值的卡
---@param g Card|Group 要被上升盾值的卡 ---@param g Card|Group 要被上升盾值的卡
---@param val integer|string 要上升的盾值（可以为负） ---@param val number|string 要上升的盾值（可以为负）
---@param reset integer|nil 指示重置的时点，默认为“回合结束时”。无论如何，都会在离场时重置。 ---@param reset number|nil 指示重置的时点，默认为“回合结束时”。无论如何，都会在离场时重置。
function VgF.DefUp(c, g, val, reset, resetcount) function VgF.DefUp(c, g, val, reset, resetcount)
if not c or not g then return end if not c or not g then return end
if not reset then reset = RESET_PHASE + PHASE_END end if not reset then reset = RESET_PHASE + PHASE_END end
...@@ -498,8 +463,8 @@ end ...@@ -498,8 +463,8 @@ end
---以c的名义，使g（中的每一张卡）的☆上升val，并在reset时重置。 ---以c的名义，使g（中的每一张卡）的☆上升val，并在reset时重置。
---@param c Card 要使卡上升☆的卡 ---@param c Card 要使卡上升☆的卡
---@param g Card|Group 要被上升☆的卡 ---@param g Card|Group 要被上升☆的卡
---@param val integer|string 要上升的☆（可以为负） ---@param val number|string 要上升的☆（可以为负）
---@param reset integer|nil 指示重置的时点，默认为“回合结束时”。无论如何，都会在离场时重置。 ---@param reset number|nil 指示重置的时点，默认为“回合结束时”。无论如何，都会在离场时重置。
function VgF.StarUp(c, g, val, reset, resetcount) function VgF.StarUp(c, g, val, reset, resetcount)
if not c or not g then return end if not c or not g then return end
if not reset then reset = RESET_PHASE + PHASE_END end if not reset then reset = RESET_PHASE + PHASE_END end
...@@ -562,7 +527,7 @@ function VgF.IsAbleToGZone(c, loc) ...@@ -562,7 +527,7 @@ function VgF.IsAbleToGZone(c, loc)
return false return false
end end
---用于效果的Operation。它返回一个执行“[计数回充val]”的函数。 ---用于效果的Operation。它返回一个执行“[计数回充val]”的函数。
---@param val integer 计数回充的数量 ---@param val number 计数回充的数量
---@return function 效果的Operation函数 ---@return function 效果的Operation函数
function VgF.DamageFill(val) function VgF.DamageFill(val)
return function (e, tp, eg, ep, ev, re, r, rp) return function (e, tp, eg, ep, ev, re, r, rp)
...@@ -606,7 +571,7 @@ function VgF.ChangePosDefence(c) ...@@ -606,7 +571,7 @@ function VgF.ChangePosDefence(c)
end end
---用于效果的Cost。它返回一个执行“【费用】[将手牌中的val张卡舍弃]”的函数。 ---用于效果的Cost。它返回一个执行“【费用】[将手牌中的val张卡舍弃]”的函数。
---@param val integer 要舍弃的卡的数量 ---@param val number 要舍弃的卡的数量
---@return function 效果的Cost函数 ---@return function 效果的Cost函数
function VgF.DisCardCost(val) function VgF.DisCardCost(val)
return function (e, tp, eg, ep, ev, re, r, rp, chk) return function (e, tp, eg, ep, ev, re, r, rp, chk)
...@@ -629,7 +594,7 @@ function VgF.DisCardCost(val) ...@@ -629,7 +594,7 @@ function VgF.DisCardCost(val)
end end
end end
---用于效果的Cost。它返回一个执行“【费用】[能量爆发val]”的函数。 ---用于效果的Cost。它返回一个执行“【费用】[能量爆发val]”的函数。
---@param val integer 能量爆发的数量 ---@param val number 能量爆发的数量
---@return function 效果的Cost函数 ---@return function 效果的Cost函数
function VgF.EnergyCost(val) function VgF.EnergyCost(val)
return function (e, tp, eg, ep, ev, re, r, rp, chk) return function (e, tp, eg, ep, ev, re, r, rp, chk)
...@@ -652,7 +617,7 @@ function VgF.EnergyCost(val) ...@@ -652,7 +617,7 @@ function VgF.EnergyCost(val)
end end
end end
---用于效果的Cost。它返回一个执行“【费用】[灵魂爆发val]”的函数。 ---用于效果的Cost。它返回一个执行“【费用】[灵魂爆发val]”的函数。
---@param val integer 灵魂爆发的数量 ---@param val number 灵魂爆发的数量
---@return function 效果的Cost函数 ---@return function 效果的Cost函数
function VgF.OverlayCost(val) function VgF.OverlayCost(val)
return function (e, tp, eg, ep, ev, re, r, rp, chk) return function (e, tp, eg, ep, ev, re, r, rp, chk)
...@@ -675,7 +640,7 @@ function VgF.OverlayCost(val) ...@@ -675,7 +640,7 @@ function VgF.OverlayCost(val)
end end
end end
---用于效果的Cost或Operation。它返回一个执行“【费用】[灵魂填充val]”的函数。 ---用于效果的Cost或Operation。它返回一个执行“【费用】[灵魂填充val]”的函数。
---@param val integer 灵魂填充的数量 ---@param val number 灵魂填充的数量
---@return function 效果的Cost或Operation函数 ---@return function 效果的Cost或Operation函数
function VgF.OverlayFill(val) function VgF.OverlayFill(val)
return function (e, tp, eg, ep, ev, re, r, rp, chk) return function (e, tp, eg, ep, ev, re, r, rp, chk)
...@@ -700,7 +665,7 @@ function VgF.OverlayFill(val) ...@@ -700,7 +665,7 @@ function VgF.OverlayFill(val)
end end
end end
---用于效果的Cost。它返回一个执行“【费用】[计数爆发val]”的函数。 ---用于效果的Cost。它返回一个执行“【费用】[计数爆发val]”的函数。
---@param val integer 计数爆发的数量 ---@param val number 计数爆发的数量
---@return function 效果的Cost函数 ---@return function 效果的Cost函数
function VgF.DamageCost(val) function VgF.DamageCost(val)
return function (e, tp, eg, ep, ev, re, r, rp, chk) return function (e, tp, eg, ep, ev, re, r, rp, chk)
...@@ -725,8 +690,8 @@ function VgF.DamageCost(val) ...@@ -725,8 +690,8 @@ function VgF.DamageCost(val)
end end
---用于效果的Cost。它返回一个执行“【费用】[将xxx退场]”的函数。 ---用于效果的Cost。它返回一个执行“【费用】[将xxx退场]”的函数。
---@param card_code_func Card|integer|function 退场的卡的条件 ---@param card_code_func Card|integer|function 退场的卡的条件
---@param val_max integer 退场的卡的最大数量 ---@param val_max number 退场的卡的最大数量
---@param val_min integer 退场的卡的最小数量 ---@param val_min number 退场的卡的最小数量
---@param except Card ---@param except Card
---@param ... any ---@param ... any
---@return function 效果的Cost函数 ---@return function 效果的Cost函数
...@@ -775,8 +740,8 @@ function VgF.IsCanBeCalled(c, e, tp, sumtype, pos, zone) ...@@ -775,8 +740,8 @@ function VgF.IsCanBeCalled(c, e, tp, sumtype, pos, zone)
return z > 0 and c:IsCanBeSpecialSummoned(e, sumtype, tp, false, false, pos, tp, zone) return z > 0 and c:IsCanBeSpecialSummoned(e, sumtype, tp, false, false, pos, tp, zone)
end end
---用于效果的Operation。执行“从loc_from中选取最少int_min，最多int_max张满足f的卡，送去loc_to。”。 ---用于效果的Operation。执行“从loc_from中选取最少int_min，最多int_max张满足f的卡，送去loc_to。”。
---@param loc_to integer 要送去的区域。不填则返回0。 ---@param loc_to number 要送去的区域。不填则返回0。
---@param loc_from integer 要选取的区域。不填则返回0。 ---@param loc_from number 要选取的区域。不填则返回0。
---@param f function|nil 卡片过滤的条件 ---@param f function|nil 卡片过滤的条件
function VgF.SearchCard(loc_to, loc_from, f, int_max, int_min, ...) function VgF.SearchCard(loc_to, loc_from, f, int_max, int_min, ...)
local ext_params = {...} local ext_params = {...}
...@@ -852,80 +817,80 @@ function VgF.SearchCard(loc_to, loc_from, f, int_max, int_min, ...) ...@@ -852,80 +817,80 @@ function VgF.SearchCard(loc_to, loc_from, f, int_max, int_min, ...)
end end
end end
function Group.CheckSubGroup(g, f, min, max, ...) function Group.CheckSubGroup(g, f, min, max, ...)
min = min or 1 min = min or 1
max = max or #g max = max or #g
if min > max then return false end if min > max then return false end
local ext_params = {...} local ext_params = {...}
-- selected group -- selected group
local sg = Group.CreateGroup() local sg = Group.CreateGroup()
-- be select group -- be select group
local bg = g:Clone() local bg = g:Clone()
for c in VgF.Next(g) do for c in VgF.Next(g) do
if VgF.CheckGroupRecursiveCapture(c, sg, bg, f, min, max, ext_params) then return true end if VgF.CheckGroupRecursiveCapture(c, sg, bg, f, min, max, ext_params) then return true end
bg:RemoveCard(c) bg:RemoveCard(c)
end end
return false return false
end end
function VgF.CheckGroupRecursiveCapture(c, sg, bg, f, min, max, ext_params) function VgF.CheckGroupRecursiveCapture(c, sg, bg, f, min, max, ext_params)
sg = sg + c sg = sg + c
if VgF.G_Add_Check and not VgF.G_Add_Check(sg, c, bg) then if VgF.G_Add_Check and not VgF.G_Add_Check(sg, c, bg) then
sg = sg - c sg = sg - c
return false return false
end end
local res = #sg >= min and #sg <= max and (not f or f(sg, table.unpack(ext_params))) local res = #sg >= min and #sg <= max and (not f or f(sg, table.unpack(ext_params)))
if not res and #sg < max then if not res and #sg < max then
res = bg:IsExists(VgF.CheckGroupRecursiveCapture, 1, sg, sg, bg, f, min, max, ext_params) res = bg:IsExists(VgF.CheckGroupRecursiveCapture, 1, sg, sg, bg, f, min, max, ext_params)
end end
sg = sg - c sg = sg - c
return res return res
end end
function Group.SelectSubGroup(g, tp, f, cancelable, min, max, ...) function Group.SelectSubGroup(g, tp, f, cancelable, min, max, ...)
VgF.SubGroupCaptured = Group.CreateGroup() VgF.SubGroupCaptured = Group.CreateGroup()
min = min or 1 min = min or 1
max = max or #g max = max or #g
local ext_params = {...} local ext_params = {...}
local sg = Group.CreateGroup() local sg = Group.CreateGroup()
local fg = Duel.GrabSelectedCard() local fg = Duel.GrabSelectedCard()
if #fg > max or min > max or #(g + fg) < min then return nil end if #fg > max or min > max or #(g + fg) < min then return nil end
for tc in VgF.Next(fg) do for tc in VgF.Next(fg) do
fg:SelectUnselect(sg, tp, false, false, min, max) fg:SelectUnselect(sg, tp, false, false, min, max)
end end
sg:Merge(fg) sg:Merge(fg)
local finish = (#sg >= min and #sg <= max and f(sg, ...)) local finish = (#sg >= min and #sg <= max and f(sg, ...))
while #sg < max do while #sg < max do
local cg = Group.CreateGroup() local cg = Group.CreateGroup()
local eg = g:Clone() local eg = g:Clone()
for c in VgF.Next(g - sg) do for c in VgF.Next(g - sg) do
if not cg:IsContains(c) then if not cg:IsContains(c) then
if VgF.CheckGroupRecursiveCapture(c, sg, eg, f, min, max, ext_params) then if VgF.CheckGroupRecursiveCapture(c, sg, eg, f, min, max, ext_params) then
cg:Merge(VgF.SubGroupCaptured) cg:Merge(VgF.SubGroupCaptured)
else else
eg:RemoveCard(c) eg:RemoveCard(c)
end end
end end
end end
cg:Sub(sg) cg:Sub(sg)
finish = (#sg >= min and #sg <= max and f(sg, ...)) finish = (#sg >= min and #sg <= max and f(sg, ...))
if #cg == 0 then break end if #cg == 0 then break end
local cancel = not finish and cancelable local cancel = not finish and cancelable
local tc = cg:SelectUnselect(sg, tp, finish, cancel, min, max) local tc = cg:SelectUnselect(sg, tp, finish, cancel, min, max)
if not tc then break end if not tc then break end
if not fg:IsContains(tc) then if not fg:IsContains(tc) then
if not sg:IsContains(tc) then if not sg:IsContains(tc) then
sg:AddCard(tc) sg:AddCard(tc)
if #sg == max then finish = true end if #sg == max then finish = true end
else else
sg:RemoveCard(tc) sg:RemoveCard(tc)
end end
elseif cancelable then elseif cancelable then
return nil return nil
end end
end end
if finish then if finish then
return sg return sg
else else
return nil return nil
end end
end end
function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2, int_max2, except_g, ...) function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2, int_max2, except_g, ...)
if VgF.GetValueType(f1) ~= "function" then f1 = VgF.True end if VgF.GetValueType(f1) ~= "function" then f1 = VgF.True end
...@@ -935,8 +900,8 @@ function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2, ...@@ -935,8 +900,8 @@ function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2,
local g2 = g:Filter(f2, except_g, ...) local g2 = g:Filter(f2, except_g, ...)
local g3 = Group.__band(g1, g2) local g3 = Group.__band(g1, g2)
if g:GetCount() < int_min1 + int_min2 or g1:GetCount() < int_min1 or g2:GetCount() < int_min2 then return result end if g:GetCount() < int_min1 + int_min2 or g1:GetCount() < int_min1 or g2:GetCount() < int_min2 then return result end
if g1:GetCount() < int_max1 then int_max1 = g1:GetCount() end if g1:GetCount() < int_max1 then int_max1 = g1:GetCount() end
if g2:GetCount() < int_max2 then int_max2 = g2:GetCount() end if g2:GetCount() < int_max2 then int_max2 = g2:GetCount() end
if g3:GetCount() == g2:GetCount() and g3:GetCount() == g1:GetCount() then if g3:GetCount() == g2:GetCount() and g3:GetCount() == g1:GetCount() then
local min = int_min1 + int_min2 local min = int_min1 + int_min2
local max = int_max1 + int_max2 local max = int_max1 + int_max2
...@@ -950,8 +915,8 @@ function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2, ...@@ -950,8 +915,8 @@ function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2,
for tc in VgF.Next(Group.__sub(g1, result1)) do for tc in VgF.Next(Group.__sub(g1, result1)) do
if g3:IsContains(tc) and not check_group:IsExists(VgF.True, int_min2, tc) then sg:RemoveCard(tc) end if g3:IsContains(tc) and not check_group:IsExists(VgF.True, int_min2, tc) then sg:RemoveCard(tc) end
end end
local btok = false local btok = false
if result1:GetCount() >= int_min1 then btok = true end if result1:GetCount() >= int_min1 then btok = true end
local tc = sg:SelectUnselect(result1, p, btok, false, int_min1, int_max1) local tc = sg:SelectUnselect(result1, p, btok, false, int_min1, int_max1)
if not tc then break if not tc then break
elseif result1:IsContains(tc) then result1:RemoveCard(tc) elseif result1:IsContains(tc) then result1:RemoveCard(tc)
...@@ -960,8 +925,8 @@ function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2, ...@@ -960,8 +925,8 @@ function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2,
g2:Sub(result1) g2:Sub(result1)
while result2:GetCount() < int_max2 do while result2:GetCount() < int_max2 do
local sg = Group.__sub(g2, result2) local sg = Group.__sub(g2, result2)
local btok = false local btok = false
if result2:GetCount() >= int_min2 then btok = true end if result2:GetCount() >= int_min2 then btok = true end
local tc = sg:SelectUnselect(result2, p, btok, false, int_min2, int_max2) local tc = sg:SelectUnselect(result2, p, btok, false, int_min2, int_max2)
if not tc then break if not tc then break
elseif result2:IsContains(tc) and not result1:IsContains(tc) then result2:RemoveCard(tc) elseif result2:IsContains(tc) and not result1:IsContains(tc) then result2:RemoveCard(tc)
...@@ -971,7 +936,7 @@ function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2, ...@@ -971,7 +936,7 @@ function Group.SelectDoubleSubGroup(g, p, f1, int_min1, int_max1, f2, int_min2,
return result return result
end end
---返回p场上的先导者。 ---返回p场上的先导者。
---@param p integer 要获取先导者的玩家。不合法则返回nil。 ---@param p number 要获取先导者的玩家。不合法则返回nil。
---@return Card|nil p场上的先导者 ---@return Card|nil p场上的先导者
function VgF.GetVMonster(p) function VgF.GetVMonster(p)
if p ~= 0 and p ~= 1 then return end if p ~= 0 and p ~= 1 then return end
...@@ -994,13 +959,13 @@ function VgF.PrisonFilter(c, ct) ...@@ -994,13 +959,13 @@ function VgF.PrisonFilter(c, ct)
end end
---收容g（中的每一张卡）到p的监狱。没有监狱时，不操作。 ---收容g（中的每一张卡）到p的监狱。没有监狱时，不操作。
---@param g Card|Group ---@param g Card|Group
---@param p integer ---@param p number
function VgF.SendtoPrison(g, p) function VgF.SendtoPrison(g, p)
if not VgF.CheckPrison(p) or not g then return end if not VgF.CheckPrison(p) or not g then return end
local og = Duel.GetFieldGroup(p, LOCATION_ORDER, 0) local og = Duel.GetFieldGroup(p, LOCATION_ORDER, 0)
local oc = og:Filter(VgF.PrisonFilter, nil, og:GetCount()):GetFirst() local oc = og:Filter(VgF.PrisonFilter, nil, og:GetCount()):GetFirst()
if VgF.GetValueType(g) == "Card" then if VgF.GetValueType(g) == "Card" then
VgF.Sendto(LOCATION_ORDER, g, p, POS_FACEUP_ATTACK, REASON_EFFECT) VgF.Sendto(LOCATION_ORDER, g, p, POS_FACEUP_ATTACK, REASON_EFFECT)
g:RegisterFlagEffect(FLAG_IMPRISON, RESET_EVENT + RESETS_STANDARD, EFFECT_FLAG_CLIENT_HINT, 1, 0, VgF.Stringid(10105015, 0)) g:RegisterFlagEffect(FLAG_IMPRISON, RESET_EVENT + RESETS_STANDARD, EFFECT_FLAG_CLIENT_HINT, 1, 0, VgF.Stringid(10105015, 0))
elseif VgF.GetValueType(g) == "Group" then elseif VgF.GetValueType(g) == "Group" then
for tc in VgF.Next(g) do for tc in VgF.Next(g) do
...@@ -1008,7 +973,7 @@ function VgF.SendtoPrison(g, p) ...@@ -1008,7 +973,7 @@ function VgF.SendtoPrison(g, p)
tc:RegisterFlagEffect(FLAG_IMPRISON, RESET_EVENT + RESETS_STANDARD, EFFECT_FLAG_CLIENT_HINT, 1, 0, VgF.Stringid(10105015, 0)) tc:RegisterFlagEffect(FLAG_IMPRISON, RESET_EVENT + RESETS_STANDARD, EFFECT_FLAG_CLIENT_HINT, 1, 0, VgF.Stringid(10105015, 0))
end end
end end
Duel.MoveSequence(oc, og:GetCount() - 1) Duel.MoveSequence(oc, og:GetCount() - 1)
end end
--[[ --[[
function VgF.PrisonFilter(c, tp) function VgF.PrisonFilter(c, tp)
...@@ -1018,13 +983,13 @@ function VgF.PrisonFilter(c, tp) ...@@ -1018,13 +983,13 @@ function VgF.PrisonFilter(c, tp)
end end
---收容g（中的每一张卡）到p的监狱。没有监狱时，不操作。 ---收容g（中的每一张卡）到p的监狱。没有监狱时，不操作。
---@param g Card|Group ---@param g Card|Group
---@param p integer ---@param p number
function VgF.SendtoPrison(g, p) function VgF.SendtoPrison(g, p)
if not VgF.CheckPrison(p) or not g then return end if not VgF.CheckPrison(p) or not g then return end
local og = Duel.GetFieldGroup(p, LOCATION_ORDER, 0) local og = Duel.GetFieldGroup(p, LOCATION_ORDER, 0)
local oc = og:Filter(VgF.PrisonFilter, nil, p):GetFirst() local oc = og:Filter(VgF.PrisonFilter, nil, p):GetFirst()
if VgF.GetValueType(g) == "Card" then if VgF.GetValueType(g) == "Card" then
Duel.Sendto(g, p, LOCATION_ORDER, POS_FACEUP_ATTACK, REASON_EFFECT, 1) Duel.Sendto(g, p, LOCATION_ORDER, POS_FACEUP_ATTACK, REASON_EFFECT, 1)
g:RegisterFlagEffect(FLAG_IMPRISON, RESET_EVENT + RESETS_STANDARD, EFFECT_FLAG_CLIENT_HINT, 1, 0, VgF.Stringid(10105015, 0)) g:RegisterFlagEffect(FLAG_IMPRISON, RESET_EVENT + RESETS_STANDARD, EFFECT_FLAG_CLIENT_HINT, 1, 0, VgF.Stringid(10105015, 0))
elseif VgF.GetValueType(g) == "Group" then elseif VgF.GetValueType(g) == "Group" then
for tc in VgF.Next(g) do for tc in VgF.Next(g) do
...@@ -1034,11 +999,11 @@ function VgF.SendtoPrison(g, p) ...@@ -1034,11 +999,11 @@ function VgF.SendtoPrison(g, p)
end end
end]] end]]
---检测p场上有没有监狱。 ---检测p场上有没有监狱。
---@param p integer ---@param p number
---@return boolean 指示p场上有没有监狱。 ---@return boolean 指示p场上有没有监狱。
function VgF.CheckPrison(p) function VgF.CheckPrison(p)
local og = Duel.GetFieldGroup(p, LOCATION_ORDER, 0) local og = Duel.GetFieldGroup(p, LOCATION_ORDER, 0)
return og:IsExists(Card.IsSetCard, 1, nil, 0x3040) return og:IsExists(Card.IsSetCard, 1, nil, 0x3040)
end end
--重置Effect --重置Effect
function VgF.EffectReset(c, e, code, con) function VgF.EffectReset(c, e, code, con)
...@@ -1244,7 +1209,7 @@ function VgF.GetMatchingGroup(f, tp, loc_self, loc_op, except_g, ...) ...@@ -1244,7 +1209,7 @@ function VgF.GetMatchingGroup(f, tp, loc_self, loc_op, except_g, ...)
return g return g
end end
---用于效果的Operation。执行“把卡sg，送去loc,第三个参数开始为额外参数，内容与原函数相同。”。 ---用于效果的Operation。执行“把卡sg，送去loc,第三个参数开始为额外参数，内容与原函数相同。”。
---@param loc integer 要送去的区域。不填则返回0。 ---@param loc number 要送去的区域。不填则返回0。
---@param sg Card|Group 要操作的卡|卡片组。 ---@param sg Card|Group 要操作的卡|卡片组。
---@return number 具体操作的卡的数量 ---@return number 具体操作的卡的数量
function VgF.Sendto(loc, sg, ...) function VgF.Sendto(loc, sg, ...)
...@@ -1411,19 +1376,29 @@ end ...@@ -1411,19 +1376,29 @@ end
function VgF.PlayerEffect(e, tp, eg, ep, ev, re, r, rp) function VgF.PlayerEffect(e, tp, eg, ep, ev, re, r, rp)
return true return true
end end
---检查func是否为nil或函数 ---创建一个函数检查器 检查func是否为nil或函数
function VgF.FunctionLegal(func, from, name) function VgF.IllegalFunctionCheck(name)
if VgF.GetValueType(func) == "nil" or VgF.GetValueType(func) == "function" then return true end local chk = function(key)
if VgF.GetValueType(name) == "string" and (VgF.GetValueType(from) == "string" or VgF.GetValueType(from) == "number") then return function(func)
Debug.Message("c"..from..".lua : VgD.EffectTypeTrigger param"..name.." is not function | nil") local ftyp = type(func)
if ftyp == "nil" or ftyp == "function" then return false end
Debug.Message("c"..self_code.." VgD."..name.." param "..key.." isn't function | nil")
return true
end
end end
return false return {con = chk("con"), cost = chk("cost"), tg = chk("tg"), op = chk("op")}
end end
---检查card是否为卡片 ---检查并转换 loc 以及 con 用于【起】等模板函数
function VgF.CardLegal(card, from, name) function VgF.GetLocCondition(loc, con)
if VgF.GetValueType(card) == "Card" then return true end local con_exf = VgF.True
if VgF.GetValueType(name) == "string" and (VgF.GetValueType(from) == "string" or VgF.GetValueType(from) == "number") then if loc == LOCATION_RZONE then
Debug.Message("c"..from..".lua : VgD.EffectTypeTrigger param"..name.." is not card") loc, con_exf = LOCATION_MZONE, VgF.RMonsterCondition
elseif loc == LOCATION_VZONE then
loc, con_exf = LOCATION_MZONE, VgF.VMonsterCondition
end
loc = loc or LOCATION_MZONE
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)
end end
return false return loc, condition
end end
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