Skip to content

V
Vgdpro Scripts
Commit 79b49deb authored by xiaoye's avatar xiaoye
Browse files
Options

fix

parent ca32cbf1
Hide whitespace changes
Inline Side-by-side
Showing with 28 additions and 28 deletions
c10101006.lua
View file @ 79b49deb
......@@ -2,7 +2,7 @@
local cm,m,o=GetID()
function cm.initial_effect(c)
vgd.VgCard(c)
vgd.XOD(c,10101009)
vgd.OverDress(c,10101009)
vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_ATTACK_ANNOUNCE,cm.operation,nil,cm.condition)
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
......
c10401001.lua
View file @ 79b49deb
local cm,m,o=GetID()
function cm.initial_effect(c)
vgd.VgCard(c)
vgd.XOD(c,cm.filter)
vgd.OverDress(c,cm.filter)
vgd.EffectTypeContinuousChangeAttack(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,cm.val,cm.con)
vgd.EffectTypeTriggerWhenHitting(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,cm.op,cm.cost,cm.con)
end
......
c10401011.lua
View file @ 79b49deb
local cm,m,o=GetID()
function cm.initial_effect(c)
vgd.VgCard(c)
vgd.XOD(c,10101009)
vgd.OverDress(c,10101009)
vgd.EffectTypeTrigger(c,m,nil,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,vgf.DamageCost(1),cm.con)
end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
......
c10402002.lua
View file @ 79b49deb
local cm,m,o=GetID()
function cm.initial_effect(c)
vgd.VgCard(c)
vgd.XOD(c,10101009)
vgd.OverDress(c,10101009)
vgd.EffectTypeTrigger(c,m,LOCATION_HAND,EFFECT_TYPE_FIELD,EVENT_BATTLED,cm.op,vgf.OverlayCost(2),cm.con)
vgd.EffectTypeContinuousChangeAttack(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,10000,cm.con2)
vgd.EffectTypeContinuousChangeDefense(c,m,EFFECT_TYPE_SINGLE,10000,cm.con2)
......@@ -14,7 +14,7 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
g=g:Select(tp,1,1,nil)
end
if g:GetCount()>0 then
vgf.Sendto(LOCATION_MZONE,c,SUMMON_VALUE_OverDress,tp,vgf.SequenceToGlobal(tp,g:GetFirst():GetLocation(),g:GetFirst():GetSequence()))
vgf.Sendto(LOCATION_MZONE,c,SUMMON_VALUE_OVERDRESS,tp,vgf.SequenceToGlobal(tp,g:GetFirst():GetLocation(),g:GetFirst():GetSequence()))
end
end
vgf.OverlayFill(1)(e,tp,eg,ep,ev,re,r,rp)
......
vgd.lua
View file @ 79b49deb
......@@ -852,7 +852,7 @@ end
---@param c Card 要注册超限舞装功能的卡
---@param filter number 卡名为 filter 的后防者，或符合 filter 的后防者等
---@return Effect 这个效果
function VgD.XOD(c, filter)
function VgD.OverDress(c, filter)
local e1 = Effect.CreateEffect(c)
e1:SetDescription(VgF.Stringid(VgID, 9))
e1:SetType(EFFECT_TYPE_FIELD)
......@@ -860,33 +860,33 @@ function VgD.XOD(c, filter)
e1:SetRange(LOCATION_HAND)
e1:SetProperty(EFFECT_FLAG_SPSUM_PARAM)
e1:SetTargetRange(POS_FACEUP_ATTACK, 0)
e1:SetCondition(VgD.XODCondition(filter))
e1:SetOperation(VgD.XODOperation(filter))
e1:SetCondition(VgD.OverDressCondition(filter))
e1:SetOperation(VgD.OverDressOperation(filter))
c:RegisterEffect(e1)
local e2 = Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE + EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetOperation(VgD.XODSum)
e2:SetOperation(VgD.OverDressSum)
c:RegisterEffect(e2)
return e1
end
function VgD.XODCondition(filter)
function VgD.OverDressCondition(filter)
return function (e, c)
if c == nil then return true end
local tp = e:GetHandlerPlayer()
return VgF.LvCondition(e) and VgF.IsExistingMatchingCard(VgD.XODFilter, tp, LOCATION_MZONE, 0, 1, nil, filter)
return VgF.LvCondition(e) and VgF.IsExistingMatchingCard(VgD.OverDressFilter, tp, LOCATION_MZONE, 0, 1, nil, filter)
end
end
function VgD.XODFilter(c, filter, tp, zone)
function VgD.OverDressFilter(c, filter, tp, zone)
if not c:IsFaceup() then return false end
if zone and zone ~= VgF.SequenceToGlobal(tp, c:GetLocation(), c:GetSequence()) then return false end
return not filter or (type(filter) == "function" and filter(c)) or (type(filter) == "number" and c:IsCode(filter))
end
function VgD.XODOperation(filter)
function VgD.OverDressOperation(filter)
return function(e, tp, eg, ep, ev, re, r, rp)
local c = e:GetHandler()
local g = Duel.GetMatchingGroup(VgD.XODFilter, tp, LOCATION_MZONE, 0, nil, filter, tp)
local g = Duel.GetMatchingGroup(VgD.OverDressFilter, tp, LOCATION_MZONE, 0, nil, filter, tp)
local zone, szone = 0, 0
for tc in VgF.Next(g) do
zone = bit.bor(zone, VgF.SequenceToGlobal(tp, tc:GetLocation(), tc:GetSequence()))
......@@ -895,18 +895,18 @@ function VgD.XODOperation(filter)
zone = bit.bnot(zone)
Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_CallZONE)
szone = Duel.SelectField(tp, 1, LOCATION_MZONE, 0, zone)
e:SetValue(function () return SUMMON_VALUE_CALL + SUMMON_VALUE_OverDress, szone end)
local mg = Duel.GetMatchingGroup(VgD.XODFilter, tp, LOCATION_MZONE, 0, nil, filter, tp, szone)
e:SetValue(function () return SUMMON_VALUE_CALL + SUMMON_VALUE_OVERDRESS, szone end)
local mg = Duel.GetMatchingGroup(VgD.OverDressFilter, tp, LOCATION_MZONE, 0, nil, filter, tp, szone)
if #mg == 0 then return end
local og = tc:GetOverlayGroup()
local og = mg:GetFirst():GetOverlayGroup()
if #og ~= 0 then
VgF.Sendto(LOCATION_OVERLAY, og, c)
end
c:SetMaterial(Group.FromCards(tc))
c:SetMaterial(mg)
VgF.Sendto(LOCATION_OVERLAY, mg, c)
end
end
function VgD.XODSum(e, tp, eg, ep, ev, re, r, rp)
function VgD.OverDressSum(e, tp, eg, ep, ev, re, r, rp)
e:GetHandler():RegisterFlagEffect(FLAG_CONDITION, RESET_EVENT + RESETS_STANDARD, EFFECT_FLAG_CLIENT_HINT, 1, 201, VgF.Stringid(10101006, 0))
end
......@@ -940,7 +940,7 @@ end
---@param op function|nil 作为指令卡的效果
---@param cost function|nil 作为指令卡的发动费用
---@param con function|nil 作为指令卡的发动条件
---@return Effect 这个效果
---@return Effect|nil 这个效果
function VgD.SpellActivate(c, m, op, cost, con)
-- check func
local fchk = VgF.IllegalFunctionCheck("SpellActivate", c)
......@@ -1283,7 +1283,7 @@ end
---@param cost function|nil 作为指令卡的发动费用
---@param con function|nil 作为指令卡的发动条件
---@param tg function|nil 作为指令卡的发动检查
---@return Effect 这个效果
---@return Effect|nil 这个效果
function VgD.QuickSpell(c, op, cost, con, tg)
-- check func
local fchk = VgF.IllegalFunctionCheck("QuickSpell", c)
......@@ -1310,7 +1310,7 @@ end
---@param cost function|nil 作为指令卡的发动费用
---@param con function|nil 作为指令卡的发动条件
---@param tg function|nil 作为指令卡的发动检查
---@return Effect 这个效果
---@return Effect|nil 这个效果
function VgD.ContinuousSpell(c, cost, con, tg)
-- check func
local fchk = VgF.IllegalFunctionCheck("ContinuousSpell", c)
......@@ -1347,7 +1347,7 @@ end
---@param count number|nil 同一回合内最多发动的次数
---@param property number|nil 这个效果的特殊属性。
---@param id number|nil 提示脚本的卡号索引
---@return Effect 这个效果
---@return Effect|nil 这个效果
function VgD.EffectTypeTrigger(c, m, loc, typ, code, op, cost, con, tg, count, property, id)
-- check func
local fchk = VgF.IllegalFunctionCheck("EffectTypeTrigger", c)
......@@ -1386,7 +1386,7 @@ end
---@param p number|nil 被击中的卡的控制者
---@param property number|nil 这个效果的特殊属性。
---@param id number|nil 提示脚本的卡号索引
---@return Effect 这个效果 *回传两个效果*
---@return Effect|nil 这个效果 *回传两个效果*
function VgD.EffectTypeTriggerWhenHitting(c, m, loc, typ, op, cost, con, tg, count, p, property, id)
-- check func
local fchk = VgF.IllegalFunctionCheck("EffectTypeTriggerWhenHitting", c)
......@@ -1412,7 +1412,7 @@ end
---@param op function|nil 这个效果的处理函数
---@param cost function|nil 这个效果的费用函数
---@param con function|nil 这个效果的条件函数
---@return Effect 这个效果
---@return Effect|nil 这个效果
function VgD.CardToG(c, m, op, cost, con)
-- check func
local fchk = VgF.IllegalFunctionCheck("CardToG", c)
......
vgdefinition.lua
View file @ 79b49deb
......@@ -159,7 +159,7 @@ SUMMON_TYPE_LINK = 0x4c000000 --连接召唤
--Summon Value --特定的召唤方式
SUMMON_VALUE_CALL = 0x1 --通常CALL出场
SUMMON_VALUE_REVOLT = 0x2 --反抗舞装
SUMMON_VALUE_OverDress = 0x4 --超限舞装
SUMMON_VALUE_OVERDRESS = 0x4 --超限舞装
SUMMON_VALUE_DARK_SANCTUARY = 0x12 --暗黑圣域
SUMMON_VALUE_MONSTER_REBORN = 0x13 --死者苏生（千年的启示）
SUMMON_VALUE_MASK_CHANGE = 0x14 --
......
vgfuncLib.lua
View file @ 79b49deb
......@@ -328,7 +328,7 @@ function VgF.Call(g, sumtype, tp, zone, pos)
end
elseif VgF.IsExistingMatchingCard(VgD.CallFilter, tp, LOCATION_MZONE, 0, 1, nil, tp, szone) then
local tc = Duel.GetMatchingGroup(VgD.CallFilter, tp, LOCATION_MZONE, 0, nil, tp, szone):GetFirst()
if bit.band(sumtype, SUMMON_VALUE_OverDress) > 0 then VgF.Sendto(LOCATION_OVERLAY, Group.FromCards(tc), sc)
if bit.band(sumtype, SUMMON_VALUE_OVERDRESS) > 0 then VgF.Sendto(LOCATION_OVERLAY, Group.FromCards(tc), sc)
else VgF.Sendto(LOCATION_DROP, tc, REASON_COST)
end
end
......@@ -531,7 +531,7 @@ function VgF.DamageFill(val)
return function (e, tp, eg, ep, ev, re, r, rp)
local c = e:GetHandler()
Duel.Hint(HINT_SELECTMSG, tp, HINTMSG_POSCHANGE)
local g = Duel.SelectMatchingCard(tp, Card.IsFaceup, tp, LOCATION_DAMAGE, 0, val, val, nil)
local g = Duel.SelectMatchingCard(tp, Card.IsFacedown, tp, LOCATION_DAMAGE, 0, val, val, nil)
Duel.ChangePosition(g, POS_FACEUP_ATTACK)
return Duel.GetOperatedGroup():GetCount()
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