Skip to content

Y
ygopro-2pick
Commit c09b4b74 authored by Momobako's avatar Momobako
Browse files
Options

Push by Appveyor

parent 21d0f0a3
Hide whitespace changes
Inline Side-by-side
Showing with 389 additions and 346 deletions
expansions/script/c10901003.lua
View file @ c09b4b74
...@@ -41,6 +41,7 @@ function cm.initial_effect(c) ...@@ -41,6 +41,7 @@ function cm.initial_effect(c)
e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY) e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_SUMMON_SUCCESS) e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetRange(LOCATION_SZONE) e2:SetRange(LOCATION_SZONE)
e2:SetCondition(cm.searcon)
e2:SetCountLimit(1,m) e2:SetCountLimit(1,m)
e2:SetTarget(cm.target) e2:SetTarget(cm.target)
e2:SetOperation(cm.operation) e2:SetOperation(cm.operation)
...@@ -88,6 +89,12 @@ function cm.indct(e,re,r,rp) ...@@ -88,6 +89,12 @@ function cm.indct(e,re,r,rp)
return 1 return 1
else return 0 end else return 0 end
end end
function cm.srfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0x234)
end
function cm.searcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(cm.srfilter,1,nil)
end
function cm.filter(c) function cm.filter(c)
return c:IsSetCard(0x234) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() return c:IsSetCard(0x234) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end end
......
expansions/script/c10901008.lua
View file @ c09b4b74
...@@ -52,6 +52,7 @@ function cm.initial_effect(c) ...@@ -52,6 +52,7 @@ function cm.initial_effect(c)
e2:SetCode(EVENT_SUMMON_SUCCESS) e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetRange(LOCATION_SZONE) e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1) e2:SetCountLimit(1)
e2:SetCondition(cm.searcon)
e2:SetTarget(cm.target) e2:SetTarget(cm.target)
e2:SetOperation(cm.operation) e2:SetOperation(cm.operation)
c:RegisterEffect(e2) c:RegisterEffect(e2)
...@@ -111,6 +112,12 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp) ...@@ -111,6 +112,12 @@ function cm.desop(e,tp,eg,ep,ev,re,r,rp)
Duel.SendtoGrave(sg,REASON_EFFECT) Duel.SendtoGrave(sg,REASON_EFFECT)
end end
end end
function cm.srfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0x234)
end
function cm.searcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(cm.srfilter,1,nil)
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end if chkc then return false end
if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil) if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,LOCATION_ONFIELD,0,1,nil)
......
expansions/script/c10901013.lua
View file @ c09b4b74
...@@ -24,7 +24,7 @@ function cm.disable(e,c) ...@@ -24,7 +24,7 @@ function cm.disable(e,c)
return c==e:GetHandler() return c==e:GetHandler()
end end
function cm.sumcon(e) function cm.sumcon(e)
return Duel.GetTurnCount()<9 return Duel.GetTurnCount()<10
end end
function cm.drfilter(c) function cm.drfilter(c)
return c:IsFaceup() and c:IsCode(10901003) return c:IsFaceup() and c:IsCode(10901003)
......
expansions/script/c10919000.lua
View file @ c09b4b74
...@@ -12,7 +12,7 @@ function c10919000.initial_effect(c) ...@@ -12,7 +12,7 @@ function c10919000.initial_effect(c)
c:RegisterEffect(e0) c:RegisterEffect(e0)
local e4=e0:Clone() local e4=e0:Clone()
e4:SetRange(LOCATION_HAND) e4:SetRange(LOCATION_HAND)
e:SetCondition(c10919000.spcon2) e4:SetCondition(c10919000.spcon2)
c:RegisterEffect(e4) c:RegisterEffect(e4)
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(10919000,0)) e1:SetDescription(aux.Stringid(10919000,0))
......
expansions/script/c12003003.lua
View file @ c09b4b74
...@@ -23,6 +23,9 @@ function c12003003.initial_effect(c) ...@@ -23,6 +23,9 @@ function c12003003.initial_effect(c)
e2:SetCode(EVENT_SPSUMMON_SUCCESS) e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c12003003.matfilter(c)
return c:IsRace(RACE_SEASERPENT)
end
function c12003003.cfilter(c,g) function c12003003.cfilter(c,g)
return c:IsRace(RACE_SEASERPENT) and g:IsContains(c) return c:IsRace(RACE_SEASERPENT) and g:IsContains(c)
end end
...@@ -40,7 +43,7 @@ end ...@@ -40,7 +43,7 @@ end
function c12003003.cost(e,tp,eg,ep,ev,re,r,rp,chk) function c12003003.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c12003003.filter,tp,LOCATION_HAND,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c12003003.filter,tp,LOCATION_HAND,0,1,nil) end
local tg=Duel.SelectTarget(tp,c12003003.filter,tp,LOCATION_HAND,0,1,1,nil) local tg=Duel.SelectTarget(tp,c12003003.filter,tp,LOCATION_HAND,0,1,1,nil)
Duel.SendtoGrave(tg,REASON_EFFECT) Duel.SendtoGrave(tg,REASON_COST)
end end
function c12003003.tgfilter(c) function c12003003.tgfilter(c)
return c:IsRace(RACE_SEASERPENT) and c:IsAbleToHand() return c:IsRace(RACE_SEASERPENT) and c:IsAbleToHand()
......
expansions/script/c22250006.lua
View file @ c09b4b74
...@@ -37,13 +37,13 @@ function c22250006.spcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -37,13 +37,13 @@ function c22250006.spcon(e,tp,eg,ep,ev,re,r,rp)
end end
function c22250006.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c22250006.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,true) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end end
function c22250006.spop(e,tp,eg,ep,ev,re,r,rp) function c22250006.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(c,0,tp,tp,false,true,POS_FACEUP)
if c:IsPreviousLocation(LOCATION_GRAVE) then if c:IsPreviousLocation(LOCATION_GRAVE) then
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
...@@ -52,6 +52,7 @@ function c22250006.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -52,6 +52,7 @@ function c22250006.spop(e,tp,eg,ep,ev,re,r,rp)
e1:SetReset(RESET_EVENT+0x1fe0000) e1:SetReset(RESET_EVENT+0x1fe0000)
e1:SetValue(LOCATION_REMOVED) e1:SetValue(LOCATION_REMOVED)
c:RegisterEffect(e1) c:RegisterEffect(e1)
c:CompleteProcedure()
end end
end end
function c22250006.efcon(e,tp,eg,ep,ev,re,r,rp) function c22250006.efcon(e,tp,eg,ep,ev,re,r,rp)
......
expansions/script/c60151601.lua
View file @ c09b4b74
--平行的起点 鹿目圆香 --平行的起点 鹿目圆香
function c60151601.initial_effect(c) function c60151601.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c)
-- --
local e11=Effect.CreateEffect(c) local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE) e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE)
e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e11:SetRange(LOCATION_MZONE) e11:SetRange(LOCATION_MZONE)
e11:SetCode(EVENT_CHAIN_ACTIVATING) e11:SetCode(EVENT_CHAIN_ACTIVATING)
e11:SetOperation(c60151601.disop) e11:SetOperation(c60151601.disop)
c:RegisterEffect(e11) c:RegisterEffect(e11)
--negate --negate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151601,0)) e1:SetDescription(aux.Stringid(60151601,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING) e1:SetCode(EVENT_CHAINING)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e1:SetRange(LOCATION_HAND+LOCATION_EXTRA) e1:SetRange(LOCATION_HAND+LOCATION_EXTRA)
e1:SetCountLimit(1,60151601) e1:SetCountLimit(1,60151601)
e1:SetCondition(c60151601.condition) e1:SetCondition(c60151601.condition)
e1:SetTarget(c60151601.target) e1:SetTarget(c60151601.target)
e1:SetOperation(c60151601.operation) e1:SetOperation(c60151601.operation)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon --spsummon
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(60151601,2)) e3:SetDescription(aux.Stringid(60151601,2))
e3:SetCategory(CATEGORY_TOHAND) e3:SetCategory(CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SUMMON_SUCCESS) e3:SetCode(EVENT_SUMMON_SUCCESS)
e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetCountLimit(1,60151601) e3:SetCountLimit(1,60151601)
e3:SetTarget(c60151601.sptg) e3:SetTarget(c60151601.sptg)
e3:SetOperation(c60151601.spop) e3:SetOperation(c60151601.spop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
local e4=e3:Clone() local e4=e3:Clone()
e4:SetCode(EVENT_SPSUMMON_SUCCESS) e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetCondition(c60151601.spcondition) e4:SetCondition(c60151601.spcondition)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c60151601.spcondition(e,tp,eg,ep,ev,re,r,rp) function c60151601.spcondition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM
end end
function c60151601.filter(c) function c60151601.filter(c)
return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER) return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER)
end end
function c60151601.disop(e,tp,eg,ep,ev,re,r,rp) function c60151601.disop(e,tp,eg,ep,ev,re,r,rp)
if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end
Duel.Hint(HINT_CARD,0,60151601) Duel.Hint(HINT_CARD,0,60151601)
Duel.Recover(tp,300,REASON_EFFECT) Duel.Recover(tp,300,REASON_EFFECT)
local g=Duel.GetMatchingGroup(c60151601.filter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(c60151601.filter,tp,LOCATION_MZONE,0,nil)
local tc=g:GetFirst() local tc=g:GetFirst()
while tc do while tc do
local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(100) e1:SetValue(100)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1) tc:RegisterEffect(e1)
tc=g:GetNext() tc=g:GetNext()
end end
end end
function c60151601.condition(e,tp,eg,ep,ev,re,r,rp) function c60151601.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local rc=re:GetHandler() local rc=re:GetHandler()
return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25) return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25)
end end
function c60151601.target(e,tp,eg,ep,ev,re,r,rp,chk) function c60151601.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if e:GetHandler():IsLocation(LOCATION_EXTRA) then
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
else
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
end end
function c60151601.operation(e,tp,eg,ep,ev,re,r,rp) function c60151601.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
if c:GetSummonLocation()==LOCATION_EXTRA then if c:GetSummonLocation()==LOCATION_EXTRA then
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151601,0)) e1:SetDescription(aux.Stringid(60151601,0))
...@@ -87,17 +92,17 @@ function c60151601.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -87,17 +92,17 @@ function c60151601.operation(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c60151601.filter3(c) function c60151601.filter3(c)
return c:IsSetCard(0xcb25) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand() return c:IsSetCard(0xcb25) and c:IsType(TYPE_PENDULUM) and c:IsAbleToHand()
end end
function c60151601.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c60151601.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60151601.filter3,tp,LOCATION_GRAVE,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c60151601.filter3,tp,LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
end end
function c60151601.spop(e,tp,eg,ep,ev,re,r,rp) function c60151601.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c60151601.filter3,tp,LOCATION_GRAVE,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,c60151601.filter3,tp,LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g) Duel.ConfirmCards(1-tp,g)
end end
end end
\ No newline at end of file
expansions/script/c60151602.lua
View file @ c09b4b74
--粉色的回忆 鹿目圆香 --粉色的回忆 鹿目圆香
function c60151602.initial_effect(c) function c60151602.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c)
-- --
local e11=Effect.CreateEffect(c) local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE) e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE)
e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e11:SetRange(LOCATION_MZONE) e11:SetRange(LOCATION_MZONE)
e11:SetCode(EVENT_CHAIN_ACTIVATING) e11:SetCode(EVENT_CHAIN_ACTIVATING)
e11:SetOperation(c60151602.disop) e11:SetOperation(c60151602.disop)
c:RegisterEffect(e11) c:RegisterEffect(e11)
--negate --negate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151602,0)) e1:SetDescription(aux.Stringid(60151602,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING) e1:SetCode(EVENT_CHAINING)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e1:SetRange(LOCATION_HAND+LOCATION_EXTRA) e1:SetRange(LOCATION_HAND+LOCATION_EXTRA)
e1:SetCountLimit(1,60151602) e1:SetCountLimit(1,60151602)
e1:SetCondition(c60151602.condition) e1:SetCondition(c60151602.condition)
e1:SetTarget(c60151602.target) e1:SetTarget(c60151602.target)
e1:SetOperation(c60151602.operation) e1:SetOperation(c60151602.operation)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon --spsummon
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(60151602,2)) e3:SetDescription(aux.Stringid(60151602,2))
e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH) e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SUMMON_SUCCESS) e3:SetCode(EVENT_SUMMON_SUCCESS)
e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetCountLimit(1,60151602) e3:SetCountLimit(1,60151602)
e3:SetTarget(c60151602.sptg) e3:SetTarget(c60151602.sptg)
e3:SetOperation(c60151602.spop) e3:SetOperation(c60151602.spop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
local e4=e3:Clone() local e4=e3:Clone()
e4:SetCode(EVENT_SPSUMMON_SUCCESS) e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetCondition(c60151602.spcondition) e4:SetCondition(c60151602.spcondition)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c60151602.spcondition(e,tp,eg,ep,ev,re,r,rp) function c60151602.spcondition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM
end end
function c60151602.filter(c) function c60151602.filter(c)
return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER) return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER)
end end
function c60151602.disop(e,tp,eg,ep,ev,re,r,rp) function c60151602.disop(e,tp,eg,ep,ev,re,r,rp)
if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end
Duel.Hint(HINT_CARD,0,60151602) Duel.Hint(HINT_CARD,0,60151602)
Duel.Recover(tp,300,REASON_EFFECT) Duel.Recover(tp,300,REASON_EFFECT)
local g=Duel.GetMatchingGroup(c60151602.filter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(c60151602.filter,tp,LOCATION_MZONE,0,nil)
local tc=g:GetFirst() local tc=g:GetFirst()
while tc do while tc do
local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(100) e1:SetValue(100)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1) tc:RegisterEffect(e1)
tc=g:GetNext() tc=g:GetNext()
end end
end end
function c60151602.condition(e,tp,eg,ep,ev,re,r,rp) function c60151602.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local rc=re:GetHandler() local rc=re:GetHandler()
return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25) return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25)
end end
function c60151602.target(e,tp,eg,ep,ev,re,r,rp,chk) function c60151602.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if e:GetHandler():IsLocation(LOCATION_EXTRA) then
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
else
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
end end
function c60151602.operation(e,tp,eg,ep,ev,re,r,rp) function c60151602.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
if c:GetSummonLocation()==LOCATION_EXTRA then if c:GetSummonLocation()==LOCATION_EXTRA then
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151601,0)) e1:SetDescription(aux.Stringid(60151601,0))
...@@ -88,17 +92,17 @@ function c60151602.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -88,17 +92,17 @@ function c60151602.operation(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c60151602.filter3(c) function c60151602.filter3(c)
return c:IsSetCard(0xcb25) and c:IsType(TYPE_PENDULUM) and not c:IsCode(60151602) and c:IsAbleToHand() return c:IsSetCard(0xcb25) and c:IsType(TYPE_PENDULUM) and not c:IsCode(60151602) and c:IsAbleToHand()
end end
function c60151602.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c60151602.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c60151602.filter3,tp,LOCATION_DECK,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c60151602.filter3,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK) Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end end
function c60151602.spop(e,tp,eg,ep,ev,re,r,rp) function c60151602.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c60151602.filter3,tp,LOCATION_DECK,0,1,1,nil) local g=Duel.SelectMatchingCard(tp,c60151602.filter3,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT) Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g) Duel.ConfirmCards(1-tp,g)
end end
end end
\ No newline at end of file
expansions/script/c60151603.lua
View file @ c09b4b74
--晴空下的展望 鹿目圆香 --晴空下的展望 鹿目圆香
function c60151603.initial_effect(c) function c60151603.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c)
-- --
local e11=Effect.CreateEffect(c) local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE) e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE)
e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e11:SetRange(LOCATION_MZONE) e11:SetRange(LOCATION_MZONE)
e11:SetCode(EVENT_CHAIN_ACTIVATING) e11:SetCode(EVENT_CHAIN_ACTIVATING)
e11:SetOperation(c60151603.disop) e11:SetOperation(c60151603.disop)
c:RegisterEffect(e11) c:RegisterEffect(e11)
--negate --negate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151603,0)) e1:SetDescription(aux.Stringid(60151603,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING) e1:SetCode(EVENT_CHAINING)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e1:SetRange(LOCATION_HAND+LOCATION_EXTRA) e1:SetRange(LOCATION_HAND+LOCATION_EXTRA)
e1:SetCountLimit(1,60151603) e1:SetCountLimit(1,60151603)
e1:SetCondition(c60151603.condition) e1:SetCondition(c60151603.condition)
e1:SetTarget(c60151603.target) e1:SetTarget(c60151603.target)
e1:SetOperation(c60151603.operation) e1:SetOperation(c60151603.operation)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon --spsummon
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(60151603,2)) e3:SetDescription(aux.Stringid(60151603,2))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON) e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SUMMON_SUCCESS) e3:SetCode(EVENT_SUMMON_SUCCESS)
e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetCountLimit(1,60151603) e3:SetCountLimit(1,60151603)
e3:SetTarget(c60151603.sptg) e3:SetTarget(c60151603.sptg)
e3:SetOperation(c60151603.spop) e3:SetOperation(c60151603.spop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
local e4=e3:Clone() local e4=e3:Clone()
e4:SetCode(EVENT_SPSUMMON_SUCCESS) e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetCondition(c60151603.spcondition) e4:SetCondition(c60151603.spcondition)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c60151603.spcondition(e,tp,eg,ep,ev,re,r,rp) function c60151603.spcondition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM
end end
function c60151603.filter(c) function c60151603.filter(c)
return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER) return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER)
end end
function c60151603.disop(e,tp,eg,ep,ev,re,r,rp) function c60151603.disop(e,tp,eg,ep,ev,re,r,rp)
if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end
Duel.Hint(HINT_CARD,0,60151603) Duel.Hint(HINT_CARD,0,60151603)
Duel.Recover(tp,300,REASON_EFFECT) Duel.Recover(tp,300,REASON_EFFECT)
local g=Duel.GetMatchingGroup(c60151603.filter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(c60151603.filter,tp,LOCATION_MZONE,0,nil)
local tc=g:GetFirst() local tc=g:GetFirst()
while tc do while tc do
local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(100) e1:SetValue(100)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1) tc:RegisterEffect(e1)
tc=g:GetNext() tc=g:GetNext()
end end
end end
function c60151603.condition(e,tp,eg,ep,ev,re,r,rp) function c60151603.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local rc=re:GetHandler() local rc=re:GetHandler()
return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25) return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25)
end end
function c60151603.target(e,tp,eg,ep,ev,re,r,rp,chk) function c60151603.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if e:GetHandler():IsLocation(LOCATION_EXTRA) then
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
else
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
end end
function c60151603.operation(e,tp,eg,ep,ev,re,r,rp) function c60151603.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
if c:GetSummonLocation()==LOCATION_EXTRA then if c:GetSummonLocation()==LOCATION_EXTRA then
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151601,0)) e1:SetDescription(aux.Stringid(60151601,0))
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT) e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT)
e1:SetReset(RESET_EVENT+0x47e0000) e1:SetReset(RESET_EVENT+0x47e0000)
e1:SetValue(LOCATION_REMOVED) e1:SetValue(LOCATION_REMOVED)
c:RegisterEffect(e1,true) c:RegisterEffect(e1,true)
end end
end end
end end
function c60151603.filter3(c,e,tp) function c60151603.filter3(c,e,tp)
return c:IsSetCard(0xcb25) and (c:IsLocation(LOCATION_PZONE)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0xcb25) and (c:GetSequence()==6 or c:GetSequence()==7) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c60151603.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c60151603.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c60151603.filter3,tp,LOCATION_ONFIELD,0,1,nil,e,tp) end and Duel.IsExistingMatchingCard(c60151603.filter3,tp,LOCATION_ONFIELD,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_ONFIELD) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_ONFIELD)
end end
function c60151603.spop(e,tp,eg,ep,ev,re,r,rp) function c60151603.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,c60151603.filter3,tp,LOCATION_ONFIELD,0,1,1,nil,e,tp) local g=Duel.SelectMatchingCard(tp,c60151603.filter3,tp,LOCATION_ONFIELD,0,1,1,nil,e,tp)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.HintSelection(g) Duel.HintSelection(g)
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end end
end end
\ No newline at end of file
expansions/script/c60151604.lua
View file @ c09b4b74
...@@ -40,7 +40,7 @@ function c60151604.initial_effect(c) ...@@ -40,7 +40,7 @@ function c60151604.initial_effect(c)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c60151604.spcondition(e,tp,eg,ep,ev,re,r,rp) function c60151604.spcondition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM
end end
function c60151604.filter(c) function c60151604.filter(c)
return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER) return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER)
...@@ -68,9 +68,13 @@ function c60151604.condition(e,tp,eg,ep,ev,re,r,rp) ...@@ -68,9 +68,13 @@ function c60151604.condition(e,tp,eg,ep,ev,re,r,rp)
return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25) return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25)
end end
function c60151604.target(e,tp,eg,ep,ev,re,r,rp,chk) function c60151604.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if e:GetHandler():IsLocation(LOCATION_EXTRA) then
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
else
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
end end
function c60151604.operation(e,tp,eg,ep,ev,re,r,rp) function c60151604.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
...@@ -91,12 +95,12 @@ function c60151604.filter3(c,e,tp) ...@@ -91,12 +95,12 @@ function c60151604.filter3(c,e,tp)
return c:IsSetCard(0xcb25) and c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0xcb25) and c:IsType(TYPE_PENDULUM) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c60151604.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c60151604.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c60151604.filter3,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end and Duel.IsExistingMatchingCard(c60151604.filter3,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_REMOVED)
end end
function c60151604.spop(e,tp,eg,ep,ev,re,r,rp) function c60151604.spop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetMZoneCount(tp)<=0 then return end if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c60151604.filter3),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp) local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c60151604.filter3),tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
if g:GetCount()>0 then if g:GetCount()>0 then
......
expansions/script/c60151605.lua
View file @ c09b4b74
--因果的破却 鹿目圆香 --因果的破却 鹿目圆香
function c60151605.initial_effect(c) function c60151605.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c)
-- --
local e11=Effect.CreateEffect(c) local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE) e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE)
e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e11:SetRange(LOCATION_MZONE) e11:SetRange(LOCATION_MZONE)
e11:SetCode(EVENT_CHAIN_ACTIVATING) e11:SetCode(EVENT_CHAIN_ACTIVATING)
e11:SetOperation(c60151605.disop) e11:SetOperation(c60151605.disop)
c:RegisterEffect(e11) c:RegisterEffect(e11)
--negate --negate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151605,0)) e1:SetDescription(aux.Stringid(60151605,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING) e1:SetCode(EVENT_CHAINING)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e1:SetRange(LOCATION_HAND+LOCATION_EXTRA) e1:SetRange(LOCATION_HAND+LOCATION_EXTRA)
e1:SetCountLimit(1,60151605) e1:SetCountLimit(1,60151605)
e1:SetCondition(c60151605.condition) e1:SetCondition(c60151605.condition)
e1:SetTarget(c60151605.target) e1:SetTarget(c60151605.target)
e1:SetOperation(c60151605.operation) e1:SetOperation(c60151605.operation)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon --spsummon
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(60151605,2)) e3:SetDescription(aux.Stringid(60151605,2))
e3:SetCategory(CATEGORY_DESTROY) e3:SetCategory(CATEGORY_DESTROY)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SUMMON_SUCCESS) e3:SetCode(EVENT_SUMMON_SUCCESS)
e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetCountLimit(1,60151605) e3:SetCountLimit(1,60151605)
e3:SetTarget(c60151605.sptg) e3:SetTarget(c60151605.sptg)
e3:SetOperation(c60151605.spop) e3:SetOperation(c60151605.spop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
local e4=e3:Clone() local e4=e3:Clone()
e4:SetCode(EVENT_SPSUMMON_SUCCESS) e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetCondition(c60151605.spcondition) e4:SetCondition(c60151605.spcondition)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c60151605.spcondition(e,tp,eg,ep,ev,re,r,rp) function c60151605.spcondition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM
end end
function c60151605.filter(c) function c60151605.filter(c)
return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER) return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER)
end end
function c60151605.disop(e,tp,eg,ep,ev,re,r,rp) function c60151605.disop(e,tp,eg,ep,ev,re,r,rp)
if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end
Duel.Hint(HINT_CARD,0,60151605) Duel.Hint(HINT_CARD,0,60151605)
Duel.Recover(tp,600,REASON_EFFECT) Duel.Recover(tp,600,REASON_EFFECT)
local g=Duel.GetMatchingGroup(c60151605.filter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(c60151605.filter,tp,LOCATION_MZONE,0,nil)
local tc=g:GetFirst() local tc=g:GetFirst()
while tc do while tc do
local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(200) e1:SetValue(200)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1) tc:RegisterEffect(e1)
tc=g:GetNext() tc=g:GetNext()
end end
end end
function c60151605.condition(e,tp,eg,ep,ev,re,r,rp) function c60151605.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local rc=re:GetHandler() local rc=re:GetHandler()
return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25) return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25)
end end
function c60151605.target(e,tp,eg,ep,ev,re,r,rp,chk) function c60151605.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if e:GetHandler():IsLocation(LOCATION_EXTRA) then
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
else
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
end end
function c60151605.operation(e,tp,eg,ep,ev,re,r,rp) function c60151605.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
if c:GetSummonLocation()==LOCATION_EXTRA then if c:GetSummonLocation()==LOCATION_EXTRA then
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151601,0)) e1:SetDescription(aux.Stringid(60151601,0))
...@@ -88,18 +92,18 @@ function c60151605.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -88,18 +92,18 @@ function c60151605.operation(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c60151605.filter3(c) function c60151605.filter3(c)
return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable() return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsDestructable()
end end
function c60151605.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c60151605.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c60151605.filter3,tp,0,LOCATION_ONFIELD,1,nil) end and Duel.IsExistingMatchingCard(c60151605.filter3,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_ONFIELD) Duel.SetOperationInfo(0,CATEGORY_DESTROY,nil,1,tp,LOCATION_ONFIELD)
end end
function c60151605.spop(e,tp,eg,ep,ev,re,r,rp) function c60151605.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectMatchingCard(tp,c60151605.filter3,tp,0,LOCATION_ONFIELD,1,2,nil) local g=Duel.SelectMatchingCard(tp,c60151605.filter3,tp,0,LOCATION_ONFIELD,1,2,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.HintSelection(g) Duel.HintSelection(g)
Duel.Destroy(g,REASON_EFFECT) Duel.Destroy(g,REASON_EFFECT)
end end
end end
\ No newline at end of file
expansions/script/c60151606.lua
View file @ c09b4b74
--无暇的硝烟 鹿目圆香 --无暇的硝烟 鹿目圆香
function c60151606.initial_effect(c) function c60151606.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c)
-- --
local e11=Effect.CreateEffect(c) local e11=Effect.CreateEffect(c)
e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE) e11:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE)
e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD) e11:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e11:SetRange(LOCATION_MZONE) e11:SetRange(LOCATION_MZONE)
e11:SetCode(EVENT_CHAIN_ACTIVATING) e11:SetCode(EVENT_CHAIN_ACTIVATING)
e11:SetOperation(c60151606.disop) e11:SetOperation(c60151606.disop)
c:RegisterEffect(e11) c:RegisterEffect(e11)
--negate --negate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151606,0)) e1:SetDescription(aux.Stringid(60151606,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING) e1:SetCode(EVENT_CHAINING)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e1:SetRange(LOCATION_HAND+LOCATION_EXTRA) e1:SetRange(LOCATION_HAND+LOCATION_EXTRA)
e1:SetCountLimit(1,60151606) e1:SetCountLimit(1,60151606)
e1:SetCondition(c60151606.condition) e1:SetCondition(c60151606.condition)
e1:SetTarget(c60151606.target) e1:SetTarget(c60151606.target)
e1:SetOperation(c60151606.operation) e1:SetOperation(c60151606.operation)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--spsummon --spsummon
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(60151606,2)) e3:SetDescription(aux.Stringid(60151606,2))
e3:SetCategory(CATEGORY_REMOVE) e3:SetCategory(CATEGORY_REMOVE)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O) e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SUMMON_SUCCESS) e3:SetCode(EVENT_SUMMON_SUCCESS)
e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL) e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e3:SetCountLimit(1,60151606) e3:SetCountLimit(1,60151606)
e3:SetTarget(c60151606.sptg) e3:SetTarget(c60151606.sptg)
e3:SetOperation(c60151606.spop) e3:SetOperation(c60151606.spop)
c:RegisterEffect(e3) c:RegisterEffect(e3)
local e4=e3:Clone() local e4=e3:Clone()
e4:SetCode(EVENT_SPSUMMON_SUCCESS) e4:SetCode(EVENT_SPSUMMON_SUCCESS)
e4:SetCondition(c60151606.spcondition) e4:SetCondition(c60151606.spcondition)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c60151606.spcondition(e,tp,eg,ep,ev,re,r,rp) function c60151606.spcondition(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) return e:GetHandler():GetSummonType()==SUMMON_TYPE_PENDULUM
end end
function c60151606.filter(c) function c60151606.filter(c)
return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER) return c:IsFaceup() and c:IsSetCard(0xcb25) and c:IsType(TYPE_MONSTER)
end end
function c60151606.disop(e,tp,eg,ep,ev,re,r,rp) function c60151606.disop(e,tp,eg,ep,ev,re,r,rp)
if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end if ep==tp or not (re:IsActiveType(TYPE_MONSTER) and re:IsActivated()) then return end
Duel.Hint(HINT_CARD,0,60151606) Duel.Hint(HINT_CARD,0,60151606)
Duel.Recover(tp,600,REASON_EFFECT) Duel.Recover(tp,600,REASON_EFFECT)
local g=Duel.GetMatchingGroup(c60151606.filter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(c60151606.filter,tp,LOCATION_MZONE,0,nil)
local tc=g:GetFirst() local tc=g:GetFirst()
while tc do while tc do
local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK) e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(200) e1:SetValue(200)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE) e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END) e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1) tc:RegisterEffect(e1)
tc=g:GetNext() tc=g:GetNext()
end end
end end
function c60151606.condition(e,tp,eg,ep,ev,re,r,rp) function c60151606.condition(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
local rc=re:GetHandler() local rc=re:GetHandler()
return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25) return re:IsActiveType(TYPE_MONSTER) and re:IsActivated() and rc:IsSetCard(0xcb25)
end end
function c60151606.target(e,tp,eg,ep,ev,re,r,rp,chk) function c60151606.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if e:GetHandler():IsLocation(LOCATION_EXTRA) then
and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end if chk==0 then return Duel.GetLocationCountFromEx(tp)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
else
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
end end
function c60151606.operation(e,tp,eg,ep,ev,re,r,rp) function c60151606.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
if c:GetSummonLocation()==LOCATION_EXTRA then if c:GetSummonLocation()==LOCATION_EXTRA then
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(60151601,0)) e1:SetDescription(aux.Stringid(60151601,0))
...@@ -88,18 +92,18 @@ function c60151606.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -88,18 +92,18 @@ function c60151606.operation(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c60151606.filter3(c) function c60151606.filter3(c)
return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove() return c:IsType(TYPE_MONSTER) and c:IsAbleToRemove()
end end
function c60151606.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c60151606.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetMZoneCount(tp)>0 if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c60151606.filter3,tp,0,LOCATION_ONFIELD,1,nil) end and Duel.IsExistingMatchingCard(c60151606.filter3,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_ONFIELD) Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,1,tp,LOCATION_ONFIELD)
end end
function c60151606.spop(e,tp,eg,ep,ev,re,r,rp) function c60151606.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectMatchingCard(tp,c60151606.filter3,tp,0,LOCATION_ONFIELD,1,1,nil) local g=Duel.SelectMatchingCard(tp,c60151606.filter3,tp,0,LOCATION_ONFIELD,1,1,nil)
if g:GetCount()>0 then if g:GetCount()>0 then
Duel.HintSelection(g) Duel.HintSelection(g)
Duel.Remove(g,POS_FACEUP,REASON_EFFECT) Duel.Remove(g,POS_FACEUP,REASON_EFFECT)
end end
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