Skip to content

V
Vgdpro Scripts
Commit 148fc60a authored by xiaoye's avatar xiaoye
Browse files
Options

更改超判定相关

parent 26e077b6
Show whitespace changes
Inline Side-by-side
Showing with 100 additions and 50 deletions
VgD.Lua
View file @ 148fc60a
......@@ -578,17 +578,17 @@ function VgD.CardToGOperation(e,tp,eg,ep,ev,re,r,rp)
end
--判定
function VgD.CardTrigger(c,f)
function VgD.CardTrigger(c)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_CANNOT_DISABLE+EFFECT_FLAG_DAMAGE_STEP)
e1:SetCode(EVENT_MOVE)
e1:SetCondition(VgD.CardTriggerCondtion(0))
e1:SetOperation(VgD.CardTriggerOperation(0,f))
e1:SetOperation(VgD.CardTriggerOperation(0))
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCondition(VgD.CardTriggerCondtion(1))
e2:SetOperation(VgD.CardTriggerOperation(1,f))
e2:SetOperation(VgD.CardTriggerOperation(1))
c:RegisterEffect(e2)
end
function VgD.CardTriggerCondtion(chkcon)
......@@ -605,24 +605,16 @@ function VgD.CardTriggerOperation(chkop,f)
return function (e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRace(TRIGGER_CRITICAL_STRIKE) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CRITICAL_STRIKE)
local g1=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
Duel.HintSelection(g1)
local g1=VgF.SelectMatchingCard(HINTMSG_CRITICAL_STRIKE,e,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
VgF.StarUp(c,g1,1,nil)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
local g2=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
Duel.HintSelection(g2)
local g2=VgF.SelectMatchingCard(HINTMSG_ATKUP,e,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
VgF.AtkUp(c,g2,10000,nil)
elseif c:IsRace(TRIGGER_DRAW) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
Duel.HintSelection(g)
local g=VgF.SelectMatchingCard(HINTMSG_ATKUP,e,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
VgF.AtkUp(c,g,10000,nil)
Duel.Draw(tp,1,REASON_TRIGGER)
elseif c:IsRace(TRIGGER_HEAL) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
Duel.HintSelection(g)
local g=VgF.SelectMatchingCard(HINTMSG_ATKUP,e,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
VgF.AtkUp(c,g,10000,nil)
if Duel.GetMatchingGroupCount(nil,tp,LOCATION_DAMAGE,0,nil)>=Duel.GetMatchingGroupCount(nil,tp,0,LOCATION_DAMAGE,nil) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODROP)
......@@ -638,19 +630,47 @@ function VgD.CardTriggerOperation(chkop,f)
end
if chkop==0 then
if c:IsRace(TRIGGER_SUPER) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
Duel.HintSelection(g)
VgF.AtkUp(c,g,100000000,nil)
local ops={}
local sel={}
if c:IsRelateToEffect(e) then
table.insert(ops,VgF.Stringid(VgID+5,3))
table.insert(sel,function ()
VgF.Sendto(LOCATION_EXILE,c,REASON_TRIGGER)
end)
end
if true then
table.insert(ops,VgF.Stringid(VgID+5,4))
table.insert(sel,function ()
Duel.Draw(tp,1,REASON_TRIGGER)
if c:IsRelateToEffect(e) then VgF.Sendto(LOCATION_EXILE,c,REASON_TRIGGER) end
end)
end
if VgF.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,nil) then
table.insert(ops,VgF.Stringid(VgID+5,5))
table.insert(sel,function ()
local g=VgF.SelectMatchingCard(HINTMSG_ATKUP,e,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
VgF.AtkUp(c,g,100000000,nil)
end)
end
if VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,0) then
table.insert(ops,VgF.Stringid(VgID+5,5))
table.insert(sel,function ()
VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,1)
end)
end
while #ops>0 do
local i=Duel.SelectOption(tp,table.unpack(ops))+1
sel[i]()
table.remove(ops,i)
table.remove(sel,i)
end
else
if VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,0) then VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,1) end
if c:IsRelateToEffect(e) then
VgF.Sendto(LOCATION_DAMAGE,c,tp,POS_FACEUP_ATTACK,REASON_EFFECT)
Duel.Damage(tp,1,REASON_TRIGGER)
end
end
local rc=Duel.GetMatchingGroup(VgF.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst()
local rc=VgF.GetVMonster(tp)
local bc=rc:GetBattleTarget()
local label=bc:GetFlagEffectLabel(FLAG_DAMAGE_TRIGGER)
if not label then return end
......@@ -664,19 +684,45 @@ function VgD.CardTriggerOperation(chkop,f)
Duel.RaiseEvent(rc,EVENT_CUSTOM+EVENT_DAMAGE_TRIGGER,e,0,tp,tp,0)
end
else
VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c)
if c:IsRace(TRIGGER_SUPER) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
Duel.HintSelection(g)
VgF.AtkUp(c,g,100000000,nil)
if f then f(e,tp,eg,ep,ev,re,r,rp) end
local ops={}
local sel={}
if c:IsRelateToEffect(e) then
table.insert(ops,VgF.Stringid(VgID+5,3))
table.insert(sel,function ()
VgF.Sendto(LOCATION_EXILE,c,REASON_TRIGGER)
end)
end
if true then
table.insert(ops,VgF.Stringid(VgID+5,4))
table.insert(sel,function ()
Duel.Draw(tp,1,REASON_TRIGGER)
if c:IsRelateToEffect(e) then VgF.Sendto(LOCATION_EXILE,c,REASON_TRIGGER) end
end)
end
if VgF.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,0,1,nil) then
table.insert(ops,VgF.Stringid(VgID+5,5))
table.insert(sel,function ()
local g=VgF.SelectMatchingCard(HINTMSG_ATKUP,e,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
VgF.AtkUp(c,g,100000000,nil)
end)
end
if VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,0) then
table.insert(ops,VgF.Stringid(VgID+5,5))
table.insert(sel,function ()
VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,1)
end)
end
while #ops>0 do
local i=Duel.SelectOption(tp,table.unpack(ops))+1
sel[i]()
table.remove(ops,i)
table.remove(sel,i)
end
else
if VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,0) then VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,1) end
if c:IsRelateToEffect(e) then VgF.Sendto(LOCATION_HAND,c,nil,REASON_TRIGGER) end
end
local rc=Duel.GetMatchingGroup(VgF.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst()
local rc=VgF.GetVMonster(tp)
local label=rc:GetFlagEffectLabel(FLAG_ATTACK_TRIGGER)
if not label then return end
if label>1 then
......@@ -691,15 +737,20 @@ function VgD.CardTriggerOperation(chkop,f)
end
end
function VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c)
function VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c,chk)
local effect_when_trigger
tabel.copy(effect_when_trigger,c.effect_when_trigger)
local cost,con,tg=true,true,true
if #effect_when_trigger==0 then return end
if (VgF.GetValueType(effect_when_trigger[5])=="boolean" and not effect_when_trigger[5]) or (VgF.GetValueType(effect_when_trigger[5])~="boolean" and Duel.GetTurnPlayer()~=c:GetControler()) then return false end
if VgF.GetValueType(effect_when_trigger[2])=="function" then cost=effect_when_trigger[2](e,tp,eg,ep,ev,re,r,rp,0) end
if VgF.GetValueType(effect_when_trigger[3])=="function" then con=effect_when_trigger[3](e,tp,eg,ep,ev,re,r,rp) end
if VgF.GetValueType(effect_when_trigger[4])=="function" then tg=effect_when_trigger[4](e,tp,eg,ep,ev,re,r,rp,0) end
if VgF.GetValueType(effect_when_trigger[1])=="function" and cost and con and tg and Duel.SelectYesNo(tp,VgF.Stringid(VgID,15)) then
if VgF.GetValueType(effect_when_trigger[1])=="function" and cost and con and tg then
if chk==0 then return true else return false end
local activate_chk=true
if VgF.GetValueType(effect_when_trigger[2])=="function" then activate_chk=Duel.SelectYesNo(tp,VgF.Stringid(VgID,15)) end
if activate_chk then
Duel.HintSelection(Group.FromCards(c))
local _,m=c:GetOriginalCode()
Duel.Hint(HINT_CARD,0,m)
......@@ -707,6 +758,7 @@ function VgD.OperationWhenCardTrigger(e,tp,eg,ep,ev,re,r,rp,c)
if VgF.GetValueType(effect_when_trigger[4])=="function" then effect_when_trigger[4](e,tp,eg,ep,ev,re,r,rp,1) end
effect_when_trigger[1](e,tp,eg,ep,ev,re,r,rp)
end
end
end
--vg规则
......
VgFuncLib.lua
View file @ 148fc60a
......@@ -11,13 +11,11 @@ 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
if not c:IsRace(TRIGGER_SUPER) then
VgD.CardTrigger(c,nil)
end
end
---获取脚本基本信息
function GetID()
......@@ -1202,9 +1200,9 @@ function VgF.AddMixCostGroupFilter(c,m,...)
local cm=_G["c"..m]
cm.cos_filter={...}
end
function VgF.AddEffectWhenTrigger(c,m,op,cost,con,tg)
function VgF.AddEffectWhenTrigger(c,m,op,cost,con,tg,chk)
local cm=_G["c"..m]
cm.effect_when_trigger={op,cost,con,tg}
cm.effect_when_trigger={op,cost,con,tg,chk}
end
function VgF.ShiftLocationFromString(str)
......
c10101010.lua
View file @ 148fc60a
......@@ -2,7 +2,7 @@
local cm,m,o=GetID()
function cm.initial_effect(c)
vgf.VgCard(c)
vgd.CardTrigger(c,cm.operation)
vgf.AddEffectWhenTrigger(c,m,cm.operation)
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
......
c10401013.lua
View file @ 148fc60a
local cm,m,o=GetID()
function cm.initial_effect(c)
vgf.VgCard(c)
vgd.CardTrigger(c,cm.op)
vgf.AddEffectWhenTrigger(c,m,cm.op)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local g=vgf.SelectMatchingCard(HINTMSG_VMONSTER,e,tp,vgf.VMonsterFilter,tp,LOCATION_MZONE,0,1,1,nil)
......
c10401016.lua
View file @ 148fc60a
local cm,m,o=GetID()
function cm.initial_effect(c)
vgf.VgCard(c)
vgd.CardTrigger(c,cm.op)
vgf.AddEffectWhenTrigger(c,m,cm.op)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
......
c10401019.lua
View file @ 148fc60a
local cm,m,o=GetID()
function cm.initial_effect(c)
vgf.VgCard(c)
vgd.CardTrigger(c,cm.op)
vgf.AddEffectWhenTrigger(c,m,cm.op)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
......
c10401022.lua
View file @ 148fc60a
local cm,m,o=GetID()
function cm.initial_effect(c)
vgf.VgCard(c)
vgd.CardTrigger(c,cm.operation)
vgf.AddEffectWhenTrigger(c,m,cm.operation)
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
......
c10401025.lua
View file @ 148fc60a
......@@ -3,7 +3,7 @@ local cm,m,o=GetID()
function cm.initial_effect(c)
vgf.VgCard(c)
--追加效果——抽1张卡！选择你的1个单位，这个回合中，☆+1！将当前存在于前列的你所有的单位的力量+10000！你的伤害区中的卡的张数在对手的伤害区中的卡的张数以上的话，选择你的伤害区中的1张卡，回复！
vgd.CardTrigger(c,cm.operation)
vgf.AddEffectWhenTrigger(c,m,cm.operation)
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
......
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