Skip to content

V
Vgdpro Scripts
Commit 0c6430a0 authored by xiaoye's avatar xiaoye
Browse files
Options

fixed

parent d07e5127
Hide whitespace changes
Inline Side-by-side
Showing with 120 additions and 51 deletions
VgD.Lua
View file @ 0c6430a0
...@@ -842,7 +842,7 @@ end ...@@ -842,7 +842,7 @@ end
---当c被卡号为code的卡Ride时触发的效果。 ---当c被卡号为code的卡Ride时触发的效果。
---@param c Card 被Ride的卡 ---@param c Card 被Ride的卡
---@param m integer 指示脚本的整数。cxxx的脚本应填入xxx。cm的脚本应填入m。 ---@param m integer 指示脚本的整数。cxxx的脚本应填入xxx。cm的脚本应填入m。
---@param code integer|nil Ride的卡 ---@param code function|number|nil Ride的卡
---@param op function|nil 触发的效果 ---@param op function|nil 触发的效果
---@param cost function|nil 效果的费用 ---@param cost function|nil 效果的费用
---@param con function|nil 效果的条件 ---@param con function|nil 效果的条件
......
VgFuncLib.lua
View file @ 0c6430a0
...@@ -307,8 +307,8 @@ end ...@@ -307,8 +307,8 @@ end
---@param g Card|Group 要Call的卡（片组） ---@param g Card|Group 要Call的卡（片组）
---@param sumtype integer Call的方式，默认填0 ---@param sumtype integer Call的方式，默认填0
---@param tp integer Call的玩家 ---@param tp integer Call的玩家
---@param zone integer 指示要Call到的格子。<br>前列的R：17； 后列的R：14； 全部的R：31； V：32 ---@param zone integer|nil 指示要Call到的格子。<br>前列的R：17； 后列的R：14； 全部的R：31； V：32
---@param pos integer 表示形式 ---@param pos integer|nil 表示形式
---@return integer Call成功的数量 ---@return integer Call成功的数量
function VgF.Call(g,sumtype,tp,zone,pos,chk) function VgF.Call(g,sumtype,tp,zone,pos,chk)
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
......
c10201001.lua
View file @ 0c6430a0
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,5000,cm.con)
vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_ATTACK_ANNOUNCE,cm.op,cm.cost,vgf.VMonsterCondition)
end end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c==Duel.GetAttacker() and vgf.IsExistingMatchingCard(function (tc)
return tc:GetFlagEffect(FLAG_SUPPORT)>0
end,tp,LOCATION_MZONE,0,nil) and vgf.RMonsterCondition(e)
end
function cm.filter(c)
return c:IsAttribute(SKILL_SUPPORT) and vgf.BackFilter(c) and c:IsAttackPos()
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return vgf.OverlayCost(1)(e,tp,eg,ep,ev,re,r,rp,chk) and vgf.IsExistingMatchingCard(nil,tp,LOCATION_HAND,0,1,nil) end
vgf.OverlayCost(1)(e,tp,eg,ep,ev,re,r,rp,chk)
local g=vgf.SelectMatchingCard(HINTMSG_DISCARD,e,tp,nil,tp,LOCATION_HAND,0,1,1,nil)
vgf.Sendto(LOCATION_GRAVE,g,REASON_COST)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=vgf.GetMatchingGroup(cm.filter,tp,LOCATION_MZONE,0,nil)
Duel.ChangePosition(g,POS_FACEUP_DEFENCE)
for tc in vgf.Next(g) do
tc:RegisterFlagEffect(FLAG_SUPPORT,RESET_EVENT+RESETS_STANDARD,0,1)
Duel.RaiseEvent(tc,EVENT_CUSTOM+EVENT_SUPPORT,e,0,tp,tp,0)
end
if g:GetCount()>=3 then
vgd.TriggerCountUp(c,1,RESET_PHASE+PHASE_END)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_BATTLED)
e1:SetCountLimit(1)
e1:SetOperation(cm.op2)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
end
function cm.op2(e,tp,eg,ep,ev,re,r,rp)
local g=vgf.SelectMatchingCard(HINTMSG_RMONSTER,e,tp,function (tc)
return vgf.BackFilter(tc) and tc:IsPosition(POS_FACEUP_DEFENCE)
end,tp,LOCATION_MZONE,0,2,2,nil)
Duel.ChangePosition(g,POS_FACEUP_ATTACK)
end
\ No newline at end of file
c10201002.lua
View file @ 0c6430a0
-- 【自】：这个单位被含有「莲南」的单位RIDE时，通过【费用】[灵魂爆发1]，选择你的废弃区中的1张等级1以下的卡，CALL到R上。
-- 【永】【R】：后列的你的后防者有3张以上的话，这个单位获得『支援』的技能。
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
...@@ -19,16 +16,11 @@ function cm.filter(c) ...@@ -19,16 +16,11 @@ function cm.filter(c)
return c:IsSetCard(0x74) return c:IsSetCard(0x74)
end end
function cm.operation(e,tp,eg,ep,ev,re,r,rp) function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local g=vgf.SelectMatchingCard(HINTMSG_CALL,e,tp,vgf.IsLevel,tp,LOCATION_DROP,0,1,1,nil,0,1)
vgf.Call(g,0,tp)
local g=Duel.SelectMatchingCard(tp,vgf.IsLevel,tp,LOCATION_GRAVE,0,1,1,nil,0,1)
if g:GetCount()>0 then
vgf.Call(g,0,tp)
end
end end
function cm.condition(e,tp,eg,ep,ev,re,r,rp) function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return vgf.RMonsterCondition(e) and Duel.IsExistingMatchingCard(vgf.IsSequence,tp,LOCATION_MZONE,0,3,nil,1,2,3) return vgf.RMonsterCondition(e) and vgf.IsExistingMatchingCard(vgf.IsSequence,tp,LOCATION_MZONE,0,3,nil,1,2,3)
end end
c10201003.lua
View file @ 0c6430a0
-- 【自】：这个单位被「华美的旋律 蕾奎缇娜」RIDE时，你可以将这张卡CALL到R上。
-- 【永】【R】：这个单位支援先导者的战斗中，这个单位的力量+5000。
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
vgd.BeRidedByCard(c,m,10201002,cm.operation)
vgd.BeRidedByCard(c,m,10201002,cm.operation,nil) vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,5000,cm.con)
vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_FIELD,EVENT_CUSTOM+EVENT_SUPPORT,cm.operation2,nil,cm.condition3)
end end
function cm.operation(e,tp,eg,ep,ev,re,r,rp) function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetLabelObject() local c=e:GetLabelObject()
vgf.Call(c,0,tp) vgf.Call(c,0,tp)
end end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
-- if c:IsRelateToEffect() then return vgf.VMonsterFilter(Duel.GetAttacker()) and c:GetFlagEffect(FLAG_SUPPORT)>0 and vgf.RMonsterCondition(e)
VgF.AtkUp(c,c,5000,EVENT_BATTLED)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_BATTLED)
e1:SetRange(LOCATION_MZONE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetOperation(cm.operation3)
c:RegisterEffect(e1)
-- end
end
function cm.condition3(e,tp,eg,ep,ev,re,r,rp)
return eg:GetFirst()==e:GetHandler()
end end
\ No newline at end of file
c10201004.lua
View file @ 0c6430a0
-- 【自】：这个单位被RIDE时，你是后攻的话，抽1张卡。
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
......
c10201005.lua
View file @ 0c6430a0
-- 【自】【R】：这个单位攻击先导者时，后列的你的后防者有3张以上的话，通过【费用】[计数爆发1]，这次战斗中，这个单位的力量+10000。
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
...@@ -8,16 +7,10 @@ end ...@@ -8,16 +7,10 @@ end
function cm.operation(e,tp,eg,ep,ev,re,r,rp) function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) then if c:IsRelateToEffect(e) then
VgF.AtkUp(c,c,10000,EVENT_BATTLED) local e1=vgf.AtkUp(c,c,10000)
local e1=Effect.CreateEffect(c) vgf.EffectReset(c,e1,EVENT_BATTLED)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_BATTLED)
e1:SetRange(LOCATION_MZONE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_IGNORE_IMMUNE)
c:RegisterEffect(e1)
end end
end end
function cm.condition(e,tp,eg,ep,ev,re,r,rp) function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return vgf.VMonsterFilter(Duel.GetAttackTarget()) and vgf.RMonsterCondition(e) and Duel.IsExistingMatchingCard(vgf.IsSequence,tp,LOCATION_MZONE,0,3,nil,1,2,3) return vgf.VMonsterFilter(Duel.GetAttackTarget()) and vgf.RMonsterCondition(e) and vgf.IsExistingMatchingCard(vgf.IsSequence,tp,LOCATION_MZONE,0,3,nil,1,2,3)
end end
c10201006.lua
View file @ 0c6430a0
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
vgd.EffectTypeTrigger(c,m,loc,EFFECT_TYPE_SINGLE,EVENT_MOVE,cm.op,nil,cm.con)
end end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsLocation(LOCATION_GZONE) and re:GetHandler()==c and vgf.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,2,nil)
end
function cm.filter(c)
return c:IsLevelBelow(2) and vgf.BackFilter(c)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=vgf.DefUp(c,c,10000)
vgf.EffectReset(c,e1,EVENT_BATTLED)
end
\ No newline at end of file
c10201008.lua
View file @ 0c6430a0
-- 【起】【R】【1回合1次】：你有等级3以上的先导者的话，通过【费用】[计数爆发2]，抽1张卡
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
......
c10201009.lua
View file @ 0c6430a0
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
vgd.EffectTypeTriggerWhenHitting(c,m,LOCATION_MZONE,EFFECT_TYPE_FIELD,cm.op,cm.cost,cm.con)
end end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
Duel.Draw(tp,1,REASON_EFFECT)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then vgf.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND,0,1,nil) end
local g=vgf.SelectMatchingCard(HINTMSG_OVERLAY,e,tp,cm.filter,tp,LOCATION_HAND,0,1,1,nil)
vgf.Sendto(LOCATION_OVERLAY,g)
end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetFlagEffect(FLAG_SUPPORT)>0 and vgf.VMonsterFilter(Duel.GetAttackTarget)
end
function cm.filter(c)
return c:IsLevelBelow(3)
end
\ No newline at end of file
c10201011.lua
View file @ 0c6430a0
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
vgd.EffectTypeTrigger(c,m,loc,EFFECT_TYPE_SINGLE,EVENT_DISCARD,cm.operation,vgf.True,cm.condition)
end end
function cm.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentPhase()==PHASE_STANDBY
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if vgf.IsCanBeCalled(c,e,tp) then
vgf.Sendto(LOCATION_MZONE,c,0,tp)
end
end
\ No newline at end of file
c10201016.lua
View file @ 0c6430a0
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
vgd.EffectTypeTrigger(c,m,loc,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,vgf.DamageCost(1),cm.con)
end end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Draw(tp,1,REASON_EFFECT)
if vgf.GetVMonster(1-tp):IsLevelAbove(4) then
vgf.AtkUp(c,c,10000)
end
end
function cm.con(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return c:IsPreviousLocation(LOCATION_HAND) and vgf.FrontFilter(c) and vgf.IsExistingMatchingCard(vgf.BackFilter,tp,LOCATION_MZONE,0,3,nil)
end
\ No newline at end of file
c10201018.lua
View file @ 0c6430a0
local cm,m,o=GetID() local cm,m,o=GetID()
function cm.initial_effect(c) function cm.initial_effect(c)
vgf.VgCard(c) vgf.VgCard(c)
vgd.SpellActivate(c,m,cm.op,vgf.DamageCost(1))
end end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=vgf.GetMatchingGroup(cm.filter,tp,LOCATION_MZONE,0,nil)
vgf.AtkUp(c,g,5000)
end
function cm.filter(c)
return c:IsLevelBelow(2) and vgf.RMonsterFilter(c)
end
\ No newline at end of file
c10203008.lua
View file @ 0c6430a0
...@@ -5,10 +5,15 @@ function cm.initial_effect(c) ...@@ -5,10 +5,15 @@ function cm.initial_effect(c)
end end
function cm.con(e,tp,eg,ep,ev,re,r,rp) function cm.con(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
return c:IsLocation(LOCATION_GZONE) and c:IsPreviousLocation(LOCATION_MZONE) and vgf.GetVMonster(tp):GetOverlayGroup():FilterCount(Card.IsSetCard,nil,0x76)>=1 return c:IsLocation(LOCATION_GZONE) and re:GetHandler()==c and c:IsPreviousLocation(LOCATION_MZONE) and vgf.GetVMonster(tp):GetOverlayGroup():FilterCount(Card.IsSetCard,nil,0x76)>=1
end end
function cm.filter(e,tp,eg,ep,ev,re,r,rp) function cm.filter(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local e1=vgf.DefUp(c,c,10000) local e1=vgf.DefUp(c,c,10000)
vgf.EffectReset(c,e1,EVENT_BATTLED) vgf.EffectReset(c,e1,EVENT_BATTLED)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=vgf.DefUp(c,c,10000)
vgf.EffectReset(c,e1,EVENT_BATTLED)
end end
\ No newline at end of file
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