Skip to content

Y
ygopro-222DIY-cards
Commit 3f739560 authored by 森野さくら's avatar 森野さくら 🐟
Browse files
Options

Replace c60152913.lua

parent 304373ee
Hide whitespace changes
Inline Side-by-side
Showing with 38 additions and 29 deletions
expansions/script/c60152913.lua
View file @ 3f739560
...@@ -51,7 +51,7 @@ function c60152913.initial_effect(c) ...@@ -51,7 +51,7 @@ function c60152913.initial_effect(c)
local ge5=Effect.GlobalEffect() local ge5=Effect.GlobalEffect()
ge5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) ge5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
ge5:SetCode(EVENT_BATTLED) ge5:SetCode(EVENT_BATTLE_CONFIRM)
ge5:SetOperation(c60152913.checkop3) ge5:SetOperation(c60152913.checkop3)
Duel.RegisterEffect(ge5,0) Duel.RegisterEffect(ge5,0)
...@@ -93,9 +93,12 @@ function c60152913.check(c) ...@@ -93,9 +93,12 @@ function c60152913.check(c)
return c return c
end end
function c60152913.checkop3(e,tp,eg,ep,ev,re,r,rp) function c60152913.checkop3(e,tp,eg,ep,ev,re,r,rp)
if c60152913.check(Duel.GetAttacker()) and c60152913.check(Duel.GetAttackTarget()) then local c0,c1=Duel.GetBattleMonster(0)
Duel.RegisterFlagEffect(tp,60152903,RESET_PHASE+PHASE_END,0,1) if c60152913.check(c0) then
Duel.RegisterFlagEffect(1-tp,60152903,RESET_PHASE+PHASE_END,0,1) Duel.RegisterFlagEffect(0,60152903,RESET_PHASE+PHASE_END,0,1)
end
if c60152913.check(c1) then
Duel.RegisterFlagEffect(1,60152903,RESET_PHASE+PHASE_END,0,1)
end end
end end
...@@ -133,12 +136,12 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp) ...@@ -133,12 +136,12 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp)
e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,6012901) e1:SetCountLimit(1,6012911)
e1:SetCondition(c60152913.e22901con) e1:SetCondition(c60152913.e22901con)
e1:SetTarget(c60152913.e22901tg) e1:SetTarget(c60152913.e22901tg)
e1:SetOperation(c60152913.e22901op) e1:SetOperation(c60152913.e22901op)
c:RegisterEffect(e1) c:RegisterEffect(e1)
c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(c60152913,1)) c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(60152913,1))
end end
if g:IsExists(Card.IsOriginalCodeRule,1,nil,60152902) then if g:IsExists(Card.IsOriginalCodeRule,1,nil,60152902) then
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
...@@ -147,7 +150,7 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp) ...@@ -147,7 +150,7 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp)
e2:SetType(EFFECT_TYPE_QUICK_O) e2:SetType(EFFECT_TYPE_QUICK_O)
e2:SetCode(EVENT_FREE_CHAIN) e2:SetCode(EVENT_FREE_CHAIN)
e2:SetRange(LOCATION_MZONE) e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1,6012902) e2:SetCountLimit(1,6012912)
e2:SetCondition(c60152913.con) e2:SetCondition(c60152913.con)
e2:SetTarget(c60152913.e22902tg) e2:SetTarget(c60152913.e22902tg)
e2:SetOperation(c60152913.e22902op) e2:SetOperation(c60152913.e22902op)
...@@ -159,9 +162,10 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp) ...@@ -159,9 +162,10 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp)
e3:SetDescription(aux.Stringid(60152903,1)) e3:SetDescription(aux.Stringid(60152903,1))
e3:SetCategory(CATEGORY_DAMAGE+CATEGORY_DEFCHANGE) e3:SetCategory(CATEGORY_DAMAGE+CATEGORY_DEFCHANGE)
e3:SetType(EFFECT_TYPE_QUICK_O) e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetCode(EVENT_FREE_CHAIN) e3:SetCode(EVENT_FREE_CHAIN)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,6012903) e3:SetCountLimit(1,6012913)
e3:SetCondition(c60152913.con) e3:SetCondition(c60152913.con)
e3:SetTarget(c60152913.e22903tg) e3:SetTarget(c60152913.e22903tg)
e3:SetOperation(c60152913.e22903op) e3:SetOperation(c60152913.e22903op)
...@@ -175,7 +179,7 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp) ...@@ -175,7 +179,7 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp)
e4:SetType(EFFECT_TYPE_QUICK_O) e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetCode(EVENT_FREE_CHAIN) e4:SetCode(EVENT_FREE_CHAIN)
e4:SetRange(LOCATION_MZONE) e4:SetRange(LOCATION_MZONE)
e4:SetCountLimit(1,6012904) e4:SetCountLimit(1,6012914)
e4:SetCondition(c60152913.e22904con) e4:SetCondition(c60152913.e22904con)
e4:SetTarget(c60152913.e22904tg) e4:SetTarget(c60152913.e22904tg)
e4:SetOperation(c60152913.e22904op) e4:SetOperation(c60152913.e22904op)
...@@ -185,15 +189,19 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp) ...@@ -185,15 +189,19 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp)
if g:IsExists(Card.IsOriginalCodeRule,1,nil,60152905) then if g:IsExists(Card.IsOriginalCodeRule,1,nil,60152905) then
local e5=Effect.CreateEffect(c) local e5=Effect.CreateEffect(c)
e5:SetDescription(aux.Stringid(60152905,1)) e5:SetDescription(aux.Stringid(60152905,1))
e5:SetCategory(CATEGORY_DISABLE) e5:SetCategory(CATEGORY_NEGATE)
e5:SetType(EFFECT_TYPE_QUICK_O) e5:SetType(EFFECT_TYPE_QUICK_O)
e5:SetCode(EVENT_FREE_CHAIN) e5:SetCode(EVENT_FREE_CHAIN)
e5:SetRange(LOCATION_MZONE) e5:SetRange(LOCATION_MZONE)
e5:SetCountLimit(1,6012905) e5:SetCountLimit(1,6012915)
e5:SetCondition(c60152913.e22905con) e5:SetCondition(c60152913.e22905con)
e5:SetTarget(c60152913.e22905tg) e5:SetTarget(c60152913.e22905tg)
e5:SetOperation(c60152913.e22905op) e5:SetOperation(c60152913.e22905op)
c:RegisterEffect(e5) c:RegisterEffect(e5)
local e8=e5:Clone()
e8:SetCondition(c60152913.e22905con1)
e8:SetCode(EVENT_CHAINING)
c:RegisterEffect(e8)
c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(60152913,5)) c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(60152913,5))
end end
if g:IsExists(Card.IsOriginalCodeRule,1,nil,60152906) then if g:IsExists(Card.IsOriginalCodeRule,1,nil,60152906) then
...@@ -203,7 +211,7 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp) ...@@ -203,7 +211,7 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp)
e6:SetType(EFFECT_TYPE_QUICK_O) e6:SetType(EFFECT_TYPE_QUICK_O)
e6:SetCode(EVENT_FREE_CHAIN) e6:SetCode(EVENT_FREE_CHAIN)
e6:SetRange(LOCATION_MZONE) e6:SetRange(LOCATION_MZONE)
e6:SetCountLimit(1,6012906) e6:SetCountLimit(1,6012916)
e6:SetCondition(c60152913.con) e6:SetCondition(c60152913.con)
e6:SetTarget(c60152913.e22906tg) e6:SetTarget(c60152913.e22906tg)
e6:SetOperation(c60152913.e22906op) e6:SetOperation(c60152913.e22906op)
...@@ -217,11 +225,11 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp) ...@@ -217,11 +225,11 @@ function c60152913.e3op(e,tp,eg,ep,ev,re,r,rp)
e7:SetType(EFFECT_TYPE_QUICK_O) e7:SetType(EFFECT_TYPE_QUICK_O)
e7:SetCode(EVENT_FREE_CHAIN) e7:SetCode(EVENT_FREE_CHAIN)
e7:SetRange(LOCATION_MZONE) e7:SetRange(LOCATION_MZONE)
e7:SetCountLimit(1,6012907) e7:SetCountLimit(1,6012917)
e7:SetCondition(c60152913.con) e7:SetCondition(c60152913.con)
e7:SetTarget(c60152913.e22907tg) e7:SetTarget(c60152913.e22907tg)
e7:SetOperation(c60152913.e22907op) e7:SetOperation(c60152913.e22907op)
c:RegisterEffect(e2) c:RegisterEffect(e7)
c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(60152913,7)) c:RegisterFlagEffect(0,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(60152913,7))
end end
end end
...@@ -375,26 +383,27 @@ function c60152913.e22904op(e,tp,eg,ep,ev,re,r,rp) ...@@ -375,26 +383,27 @@ function c60152913.e22904op(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c60152913.e22905con(e,tp,eg,ep,ev,re,r,rp) function c60152913.e22905con(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCustomActivityCount(60152905,1-tp,ACTIVITY_CHAIN)>0 return Duel.GetCustomActivityCount(60152905,1-tp,ACTIVITY_CHAIN)>0 and Duel.GetCurrentChain()==0
and Duel.GetMatchingGroupCount(Card.IsFacedown,tp,LOCATION_EXTRA,0,nil)==0
end
function c60152913.e22905con1(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCustomActivityCount(60152905,1-tp,ACTIVITY_CHAIN)>0 and Duel.GetCurrentChain()>0
and Duel.GetMatchingGroupCount(Card.IsFacedown,tp,LOCATION_EXTRA,0,nil)==0
end end
function c60152913.e22905tg(e,tp,eg,ep,ev,re,r,rp,chk) function c60152913.e22905tg(e,tp,eg,ep,ev,re,r,rp,chk)
local p=PLAYER_ALL local p=PLAYER_ALL
if chk==0 then return true end if chk==0 then return true end
Duel.SetTargetPlayer(p)
Duel.SetTargetParam(1000)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,p,1000)
local ng=Group.CreateGroup() local ng=Group.CreateGroup()
local dg=Group.CreateGroup() local dg=Group.CreateGroup()
for i=1,ev do for i=1,ev do
local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER) local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
if tgp~=tp and Duel.IsChainNegatable(i) then if tgp~=tp and (te:IsActiveType(TYPE_MONSTER) or te:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.IsChainNegatable(i) then
local tc=te:GetHandler() local tc=te:GetHandler()
ng:AddCard(tc) ng:AddCard(tc)
if tc:IsOnField() and tc:IsRelateToEffect(te) and tc:IsAbleToDeck() then
dg:AddCard(tc)
end
end end
end end
Duel.SetTargetPlayer(p)
Duel.SetTargetParam(1000)
Duel.SetTargetCard(dg) Duel.SetTargetCard(dg)
Duel.SetOperationInfo(0,CATEGORY_NEGATE,ng,ng:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_NEGATE,ng,ng:GetCount(),0,0)
end end
...@@ -405,13 +414,13 @@ function c60152913.e22905op(e,tp,eg,ep,ev,re,r,rp) ...@@ -405,13 +414,13 @@ function c60152913.e22905op(e,tp,eg,ep,ev,re,r,rp)
Duel.Damage(1,d,REASON_EFFECT,true) Duel.Damage(1,d,REASON_EFFECT,true)
Duel.RDComplete() Duel.RDComplete()
Duel.BreakEffect() Duel.BreakEffect()
local dg=Group.CreateGroup() local dg=Group.CreateGroup()
for i=1,ev do for i=1,ev do
local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER) local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
if tgp~=tp and Duel.NegateActivation(i) then if tgp~=tp and (te:IsActiveType(TYPE_MONSTER) or te:IsHasType(EFFECT_TYPE_ACTIVATE)) and Duel.NegateActivation(i) then
local tc=te:GetHandler() local tc=te:GetHandler()
if tc:IsRelateToEffect(e) and tc:IsRelateToEffect(te) and tc:IsAbleToDeck() then if tc:IsRelateToEffect(e) and tc:IsRelateToEffect(te) then
dg:AddCard(tc) dg:AddCard(tc)
end end
end end
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