Skip to content

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

更改超判定相关

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