Commit a7704740 authored by Daniel17173's avatar Daniel17173
parents 607066d6 5dfcebea
#created by ... #created by ...
#main #main
100200144
100200145
100408001 100408001
100408002 100408002
100408003 100408003
...@@ -51,6 +53,8 @@ ...@@ -51,6 +53,8 @@
100408007 100408007
100226001 100226001
!side !side
100241003
100241005
100241002 100241002
100241004 100241004
100241001 100241001
#The first line is used for comment #The first line is used for comment
!setname 0x214 空牙团 !setname 0x114 空牙团
!setname 0x215 闪刀 !setname 0x115 闪刀
!setname 0x1215 闪刀姬 !setname 0x1115 闪刀姬
--EMクレイブレイカー
--Performapal Clay Breaker
--Scripted by ahtelel
function c100200144.initial_effect(c)
--atk down
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(100200144,0))
e1:SetCategory(CATEGORY_ATKCHANGE)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
e1:SetCountLimit(1,100200144)
e1:SetCondition(c100200144.atkcon)
e1:SetOperation(c100200144.atkop)
c:RegisterEffect(e1)
--salvage
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(100200144,1))
e2:SetCategory(CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_FIELD)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetRange(LOCATION_GRAVE)
e2:SetCountLimit(1,100200144+100)
e2:SetCondition(c100200144.thcon)
e2:SetTarget(c100200144.thtg)
e2:SetOperation(c100200144.thop)
c:RegisterEffect(e2)
end
function c100200144.atkcon(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local bc=c:GetBattleTarget()
return c:IsRelateToBattle() and bc and bc:IsFaceup() and bc:IsRelateToBattle() and c:IsSummonType(SUMMON_TYPE_ADVANCE)
end
function c100200144.filter(c)
return c:IsFaceup() and c:IsType(TYPE_PENDULUM)
end
function c100200144.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local bc=c:GetBattleTarget()
local ct=Duel.GetMatchingGroupCount(c100200144.filter,tp,LOCATION_EXTRA,0,nil)*500
if c:IsFaceup() and c:IsRelateToBattle() and bc:IsFaceup() and bc:IsRelateToBattle() and ct>0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(-ct)
e1:SetReset(RESET_EVENT+0x1fe0000+RESET_PHASE+PHASE_END)
bc:RegisterEffect(e1)
end
end
function c100200144.cfilter(c,tp)
return c:GetSummonPlayer()==tp and c:IsSummonType(SUMMON_TYPE_PENDULUM)
end
function c100200144.thcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c100200144.cfilter,2,nil,tp)
end
function c100200144.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToHand() end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
end
function c100200144.thop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SendtoHand(c,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,c)
end
end
--ファーニマル・エンジェル
--Fluffal Angel
--Scripted by ahtelel
function c100200145.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
--sp summon
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_PZONE)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,100200145)
e1:SetTarget(c100200145.sptg)
e1:SetOperation(c100200145.spop)
c:RegisterEffect(e1)
--sp summon
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCost(c100200145.spcost)
e2:SetTarget(c100200145.sptg2)
e2:SetOperation(c100200145.spop2)
c:RegisterEffect(e2)
end
function c100200145.filter(c,e,tp)
return (c:IsSetCard(0xa9) or c:IsSetCard(0xc3)) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c100200145.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100200145.filter(chkc,e,tp) end
if chk==0 then return Duel.IsExistingTarget(c100200145.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp)
and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c100200145.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c100200145.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetTarget(c100200145.splimit)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function c100200145.splimit(e,c)
return not c:IsType(TYPE_FUSION) and c:IsLocation(LOCATION_EXTRA)
end
function c100200145.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsReleasable() end
Duel.Release(e:GetHandler(),REASON_COST)
end
function c100200145.filter2(c,e,tp)
return c:IsSetCard(0xad) and c:IsType(TYPE_FUSION) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c100200145.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100200145.filter2(chkc,e,tp) end
if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_HAND,0)>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
and Duel.IsExistingTarget(c100200145.filter2,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,c100200145.filter2,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
Duel.SetOperationInfo(0,CATEGORY_HANDES,nil,0,tp,1)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
end
function c100200145.spop2(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
if Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)==0 then return end
local c=e:GetHandler()
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
end
end
--Destruction Dragon
--Scripted by ahtelel
function c100241003.initial_effect(c)
c:EnableReviveLimit()
--spsummon condition
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SPSUMMON_CONDITION)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
c:RegisterEffect(e1)
--destroy & damage
local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
e2:SetDescription(aux.Stringid(100241003,0))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
e2:SetCountLimit(1)
e2:SetRange(LOCATION_MZONE)
e2:SetTarget(c100241003.target)
e2:SetOperation(c100241003.operation)
c:RegisterEffect(e2)
end
c100241003.material_trap=83555666
function c100241003.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsControler(1-tp) and chkc:IsOnField() end
if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_ONFIELD,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
if tc:IsLocation(LOCATION_MZONE) then
local atk=g:GetFirst():GetTextAttack()
if atk<0 then atk=0 end
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,atk)
end
end
function c100241003.operation(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and tc:IsControler(1-tp) then
local atk=tc:GetTextAttack()
if atk<0 then atk=0 end
if Duel.Destroy(tc,REASON_EFFECT)~=0 and tc:IsPreviousLocation(LOCATION_MZONE) then
Duel.BreakEffect()
Duel.Damage(1-tp,atk,REASON_EFFECT)
end
end
end
--Dragon Revival Rhapsody --Dragon Revival Rhapsody
--Scripted by Eerie Code --Scripted by Eerie Code
function c100241004.initial_effect(c) function c100241004.initial_effect(c)
--activate --activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
e1:SetProperty(EFFECT_FLAG_CARD_TARGET) e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
e1:SetCountLimit(1,100241004+EFFECT_COUNT_CODE_OATH) e1:SetCountLimit(1,100241004+EFFECT_COUNT_CODE_OATH)
e1:SetCondition(c100241004.condition) e1:SetCondition(c100241004.condition)
e1:SetTarget(c100241004.target) e1:SetTarget(c100241004.target)
e1:SetOperation(c100241004.activate) e1:SetOperation(c100241004.activate)
c:RegisterEffect(e1) c:RegisterEffect(e1)
end end
function c100241004.cfilter(c) function c100241004.cfilter(c)
return c:IsFaceup() and c:IsRace(RACE_SPELLCASTER) return c:IsFaceup() and c:IsRace(RACE_SPELLCASTER)
end end
function c100241004.condition(e,tp,eg,ep,ev,re,r,rp) function c100241004.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c100241004.cfilter,tp,LOCATION_MZONE,0,1,nil) return Duel.IsExistingMatchingCard(c100241004.cfilter,tp,LOCATION_MZONE,0,1,nil)
end end
function c100241004.filter(c,e,tp) function c100241004.filter(c,e,tp)
return c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsRace(RACE_DRAGON) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100241004.nfilter(c,e,tp) function c100241004.nfilter(c,e,tp)
return c100241004.filter(c,e,tp) and c:IsType(TYPE_NORMAL) return c100241004.filter(c,e,tp) and c:IsType(TYPE_NORMAL)
end end
function c100241004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100241004.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return false end if chkc then return false end
local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
if chk==0 then return ct>0 and Duel.IsExistingTarget(c100241004.nfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end if chk==0 then return ct>0 and Duel.IsExistingTarget(c100241004.nfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g1=Duel.SelectTarget(tp,c100241004.nfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp) local g1=Duel.SelectTarget(tp,c100241004.nfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
if ct>1 and not Duel.IsPlayerAffectedByEffect(tp,59822133) if ct>1 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
and Duel.IsExistingTarget(c100241004.filter,tp,LOCATION_GRAVE,0,1,g1,e,tp) and Duel.IsExistingTarget(c100241004.filter,tp,LOCATION_GRAVE,0,1,g1,e,tp)
and Duel.SelectYesNo(tp,aux.Stringid(100241004,0)) then and Duel.SelectYesNo(tp,aux.Stringid(100241004,0)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g2=Duel.SelectTarget(tp,c100241004.filter,tp,LOCATION_GRAVE,0,1,1,g1,e,tp) local g2=Duel.SelectTarget(tp,c100241004.filter,tp,LOCATION_GRAVE,0,1,1,g1,e,tp)
g1:Merge(g2) g1:Merge(g2)
end end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,g1:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g1,g1:GetCount(),0,0)
end end
function c100241004.activate(e,tp,eg,ep,ev,re,r,rp) function c100241004.activate(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler()) local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD) e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CHANGE_DAMAGE) e1:SetCode(EFFECT_CHANGE_DAMAGE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(0,1) e1:SetTargetRange(0,1)
e1:SetValue(0) e1:SetValue(0)
e1:SetReset(RESET_PHASE+PHASE_END) e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp) Duel.RegisterEffect(e1,tp)
local e2=e1:Clone() local e2=e1:Clone()
e2:SetCode(EFFECT_NO_EFFECT_DAMAGE) e2:SetCode(EFFECT_NO_EFFECT_DAMAGE)
e2:SetReset(RESET_PHASE+PHASE_END) e2:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e2,tp) Duel.RegisterEffect(e2,tp)
local ct=Duel.GetLocationCount(tp,LOCATION_MZONE) local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
if ct<1 then return end if ct<1 then return end
local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e) local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
if g:GetCount()==0 then return end if g:GetCount()==0 then return end
if g:GetCount()>ct or (g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then if g:GetCount()>ct or (g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
g=g:Select(tp,1,1,nil) g=g:Select(tp,1,1,nil)
end end
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end end
--Loop of Destruction
--Scripted by Eerie Code
function c100241005.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
c:RegisterEffect(e1)
--change code
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e2:SetCode(EFFECT_CHANGE_CODE)
e2:SetRange(LOCATION_SZONE)
e2:SetValue(83555666)
c:RegisterEffect(e2)
--destroy
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_DESTROYED)
e3:SetRange(LOCATION_SZONE)
e3:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e3:SetCountLimit(1)
e3:SetCondition(c100241005.descon)
e3:SetTarget(c100241005.destg)
e3:SetOperation(c100241005.desop)
c:RegisterEffect(e3)
end
function c100241005.cfilter(c)
return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE)
end
function c100241005.descon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c100241005.cfilter,1,nil)
end
function c100241005.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) end
if chk==0 then return Duel.IsExistingTarget(aux.TRUE,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
local g=Duel.SelectTarget(tp,aux.TRUE,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,PLAYER_ALL,500)
end
function c100241005.desop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) and Duel.Destroy(tc,REASON_EFFECT)~=0 then
Duel.Damage(tp,500,REASON_EFFECT,true)
Duel.Damage(1-tp,500,REASON_EFFECT,true)
Duel.RDComplete()
end
end
...@@ -27,7 +27,7 @@ function c100408014.initial_effect(c) ...@@ -27,7 +27,7 @@ function c100408014.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408014.spfilter(c,e,tp) function c100408014.spfilter(c,e,tp)
return c:IsSetCard(0x214) and not c:IsCode(100408014) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x114) and not c:IsCode(100408014) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100408014.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408014.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
...@@ -43,7 +43,7 @@ function c100408014.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -43,7 +43,7 @@ function c100408014.spop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100408014.cfilter(c,tp) function c100408014.cfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0x214) and c:IsControler(tp) return c:IsFaceup() and c:IsSetCard(0x114) and c:IsControler(tp)
end end
function c100408014.descon(e,tp,eg,ep,ev,re,r,rp) function c100408014.descon(e,tp,eg,ep,ev,re,r,rp)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408014.cfilter,1,nil,tp) return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408014.cfilter,1,nil,tp)
......
...@@ -27,7 +27,7 @@ function c100408015.initial_effect(c) ...@@ -27,7 +27,7 @@ function c100408015.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408015.spfilter(c,e,tp) function c100408015.spfilter(c,e,tp)
return c:IsSetCard(0x214) and not c:IsCode(100408015) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x114) and not c:IsCode(100408015) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100408015.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408015.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
...@@ -43,7 +43,7 @@ function c100408015.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -43,7 +43,7 @@ function c100408015.spop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100408015.cfilter(c,tp) function c100408015.cfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0x214) and c:IsControler(tp) return c:IsFaceup() and c:IsSetCard(0x114) and c:IsControler(tp)
end end
function c100408015.descon(e,tp,eg,ep,ev,re,r,rp) function c100408015.descon(e,tp,eg,ep,ev,re,r,rp)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408015.cfilter,1,nil,tp) return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408015.cfilter,1,nil,tp)
......
...@@ -28,7 +28,7 @@ function c100408016.initial_effect(c) ...@@ -28,7 +28,7 @@ function c100408016.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408016.spfilter(c,e,tp) function c100408016.spfilter(c,e,tp)
return c:IsSetCard(0x214) and not c:IsCode(100408016) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x114) and not c:IsCode(100408016) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100408016.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408016.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
...@@ -44,13 +44,13 @@ function c100408016.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -44,13 +44,13 @@ function c100408016.spop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100408016.cfilter(c,tp) function c100408016.cfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0x214) and c:IsControler(tp) return c:IsFaceup() and c:IsSetCard(0x114) and c:IsControler(tp)
end end
function c100408016.drcon(e,tp,eg,ep,ev,re,r,rp) function c100408016.drcon(e,tp,eg,ep,ev,re,r,rp)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408016.cfilter,1,nil,tp) return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408016.cfilter,1,nil,tp)
end end
function c100408016.drcfilter(c) function c100408016.drcfilter(c)
return c:IsSetCard(0x214) and c:IsDiscardable() return c:IsSetCard(0x114) and c:IsDiscardable()
end end
function c100408016.drcost(e,tp,eg,ep,ev,re,r,rp,chk) function c100408016.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408016.drcfilter,tp,LOCATION_HAND,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408016.drcfilter,tp,LOCATION_HAND,0,1,nil) end
......
...@@ -27,7 +27,7 @@ function c100408017.initial_effect(c) ...@@ -27,7 +27,7 @@ function c100408017.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408017.spfilter(c,e,tp) function c100408017.spfilter(c,e,tp)
return c:IsSetCard(0x214) and not c:IsCode(100408017) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x114) and not c:IsCode(100408017) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100408017.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408017.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
...@@ -43,13 +43,13 @@ function c100408017.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -43,13 +43,13 @@ function c100408017.spop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100408017.cfilter(c,tp) function c100408017.cfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0x214) and c:IsControler(tp) return c:IsFaceup() and c:IsSetCard(0x114) and c:IsControler(tp)
end end
function c100408017.thcon(e,tp,eg,ep,ev,re,r,rp) function c100408017.thcon(e,tp,eg,ep,ev,re,r,rp)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408017.cfilter,1,nil,tp) return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408017.cfilter,1,nil,tp)
end end
function c100408017.thfilter(c) function c100408017.thfilter(c)
return c:IsSetCard(0x214) and c:IsType(TYPE_MONSTER) and not c:IsCode(100408017) and c:IsAbleToHand() return c:IsSetCard(0x114) and c:IsType(TYPE_MONSTER) and not c:IsCode(100408017) and c:IsAbleToHand()
end end
function c100408017.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408017.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408017.thfilter,tp,LOCATION_DECK,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408017.thfilter,tp,LOCATION_DECK,0,1,nil) end
......
...@@ -27,7 +27,7 @@ function c100408018.initial_effect(c) ...@@ -27,7 +27,7 @@ function c100408018.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408018.spfilter(c,e,tp) function c100408018.spfilter(c,e,tp)
return c:IsSetCard(0x214) and not c:IsCode(100408018) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x114) and not c:IsCode(100408018) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100408018.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408018.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
...@@ -43,13 +43,13 @@ function c100408018.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -43,13 +43,13 @@ function c100408018.spop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100408018.cfilter(c,tp) function c100408018.cfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0x214) and c:IsControler(tp) return c:IsFaceup() and c:IsSetCard(0x114) and c:IsControler(tp)
end end
function c100408018.thcon(e,tp,eg,ep,ev,re,r,rp) function c100408018.thcon(e,tp,eg,ep,ev,re,r,rp)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408018.cfilter,1,nil,tp) return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408018.cfilter,1,nil,tp)
end end
function c100408018.thfilter(c) function c100408018.thfilter(c)
return c:IsSetCard(0x214) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() return c:IsSetCard(0x114) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end end
function c100408018.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100408018.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100408018.thfilter(chkc) end if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100408018.thfilter(chkc) end
......
...@@ -27,7 +27,7 @@ function c100408019.initial_effect(c) ...@@ -27,7 +27,7 @@ function c100408019.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408019.spfilter(c,e,tp) function c100408019.spfilter(c,e,tp)
return c:IsSetCard(0x214) and not c:IsCode(100408019) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x114) and not c:IsCode(100408019) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100408019.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408019.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
...@@ -43,13 +43,13 @@ function c100408019.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -43,13 +43,13 @@ function c100408019.spop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100408019.cfilter(c,tp) function c100408019.cfilter(c,tp)
return c:IsFaceup() and c:IsSetCard(0x214) and c:IsControler(tp) return c:IsFaceup() and c:IsSetCard(0x114) and c:IsControler(tp)
end end
function c100408019.atkcon(e,tp,eg,ep,ev,re,r,rp) function c100408019.atkcon(e,tp,eg,ep,ev,re,r,rp)
return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408019.cfilter,1,nil,tp) return not eg:IsContains(e:GetHandler()) and eg:IsExists(c100408019.cfilter,1,nil,tp)
end end
function c100408019.atkfilter(c) function c100408019.atkfilter(c)
return c:IsFaceup() and c:IsSetCard(0x214) return c:IsFaceup() and c:IsSetCard(0x114)
end end
function c100408019.atktg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408019.atktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408019.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408019.atkfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
......
...@@ -24,7 +24,7 @@ function c100408020.initial_effect(c) ...@@ -24,7 +24,7 @@ function c100408020.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408020.damfilter(c) function c100408020.damfilter(c)
return c:IsFaceup() and c:IsSetCard(0x214) and not c:IsCode(100408020) return c:IsFaceup() and c:IsSetCard(0x114) and not c:IsCode(100408020)
end end
function c100408020.damtg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408020.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408020.damfilter,tp,LOCATION_MZONE,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408020.damfilter,tp,LOCATION_MZONE,0,1,nil) end
...@@ -38,5 +38,5 @@ function c100408020.damop(e,tp,eg,ep,ev,re,r,rp) ...@@ -38,5 +38,5 @@ function c100408020.damop(e,tp,eg,ep,ev,re,r,rp)
Duel.Damage(1-tp,dam,REASON_EFFECT) Duel.Damage(1-tp,dam,REASON_EFFECT)
end end
function c100408020.tgtg(e,c) function c100408020.tgtg(e,c)
return c~=e:GetHandler() and c:IsSetCard(0x214) return c~=e:GetHandler() and c:IsSetCard(0x114)
end end
...@@ -22,7 +22,7 @@ function c100408021.initial_effect(c) ...@@ -22,7 +22,7 @@ function c100408021.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408021.filter(c) function c100408021.filter(c)
return c:IsFaceup() and c:IsSetCard(0x214) return c:IsFaceup() and c:IsSetCard(0x114)
end end
function c100408021.rmtg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408021.rmtg(e,tp,eg,ep,ev,re,r,rp,chk)
local g=Duel.GetMatchingGroup(c100408021.filter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(c100408021.filter,tp,LOCATION_MZONE,0,nil)
...@@ -41,5 +41,5 @@ function c100408021.rmop(e,tp,eg,ep,ev,re,r,rp) ...@@ -41,5 +41,5 @@ function c100408021.rmop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100408021.atlimit(e,c) function c100408021.atlimit(e,c)
return c:IsFaceup() and c:IsSetCard(0x214) and c~=e:GetHandler() return c:IsFaceup() and c:IsSetCard(0x114) and c~=e:GetHandler()
end end
...@@ -28,7 +28,7 @@ function c100408022.initial_effect(c) ...@@ -28,7 +28,7 @@ function c100408022.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408022.recfilter(c) function c100408022.recfilter(c)
return c:IsFaceup() and c:IsSetCard(0x214) and not c:IsCode(100408022) return c:IsFaceup() and c:IsSetCard(0x114) and not c:IsCode(100408022)
end end
function c100408022.rectg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408022.rectg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408022.recfilter,tp,LOCATION_MZONE,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408022.recfilter,tp,LOCATION_MZONE,0,1,nil) end
...@@ -46,7 +46,7 @@ function c100408022.negcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -46,7 +46,7 @@ function c100408022.negcon(e,tp,eg,ep,ev,re,r,rp)
and ep~=tp and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainNegatable(ev) and ep~=tp and re:IsActiveType(TYPE_SPELL+TYPE_TRAP) and Duel.IsChainNegatable(ev)
end end
function c100408022.cfilter(c) function c100408022.cfilter(c)
return c:IsSetCard(0x214) and c:IsDiscardable() return c:IsSetCard(0x114) and c:IsDiscardable()
end end
function c100408022.negcost(e,tp,eg,ep,ev,re,r,rp,chk) function c100408022.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408022.cfilter,tp,LOCATION_HAND,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408022.cfilter,tp,LOCATION_HAND,0,1,nil) end
......
...@@ -28,7 +28,7 @@ function c100408023.initial_effect(c) ...@@ -28,7 +28,7 @@ function c100408023.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100408023.ctfilter(c) function c100408023.ctfilter(c)
return c:IsFaceup() and c:IsSetCard(0x214) and not c:IsCode(100408023) return c:IsFaceup() and c:IsSetCard(0x114) and not c:IsCode(100408023)
end end
function c100408023.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408023.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then if chk==0 then
...@@ -59,7 +59,7 @@ function c100408023.negcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -59,7 +59,7 @@ function c100408023.negcon(e,tp,eg,ep,ev,re,r,rp)
and ep~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev) and ep~=tp and re:IsActiveType(TYPE_MONSTER) and Duel.IsChainNegatable(ev)
end end
function c100408023.cfilter(c) function c100408023.cfilter(c)
return c:IsSetCard(0x214) and c:IsDiscardable() return c:IsSetCard(0x114) and c:IsDiscardable()
end end
function c100408023.negcost(e,tp,eg,ep,ev,re,r,rp,chk) function c100408023.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408023.cfilter,tp,LOCATION_HAND,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408023.cfilter,tp,LOCATION_HAND,0,1,nil) end
......
...@@ -34,7 +34,7 @@ function c100408024.condition(e,tp,eg,ep,ev,re,r,rp) ...@@ -34,7 +34,7 @@ function c100408024.condition(e,tp,eg,ep,ev,re,r,rp)
and Duel.GetDrawCount(tp)>0 and Duel.GetDrawCount(tp)>0
end end
function c100408024.thfilter(c) function c100408024.thfilter(c)
return c:IsSetCard(0x214) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() return c:IsSetCard(0x114) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end end
function c100408024.target(e,tp,eg,ep,ev,re,r,rp,chk) function c100408024.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408024.thfilter,tp,LOCATION_DECK,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408024.thfilter,tp,LOCATION_DECK,0,1,nil) end
...@@ -64,7 +64,7 @@ function c100408024.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -64,7 +64,7 @@ function c100408024.operation(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100408024.cfilter(c) function c100408024.cfilter(c)
return c:IsFaceup() and c:IsSetCard(0x214) return c:IsFaceup() and c:IsSetCard(0x114)
end end
function c100408024.descon(e,tp,eg,ep,ev,re,r,rp) function c100408024.descon(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(c100408024.cfilter,tp,LOCATION_MZONE,0,nil) local g=Duel.GetMatchingGroup(c100408024.cfilter,tp,LOCATION_MZONE,0,nil)
......
...@@ -35,13 +35,13 @@ end ...@@ -35,13 +35,13 @@ end
function c100408026.spfilter1(c,e,tp,rp) function c100408026.spfilter1(c,e,tp,rp)
local lv=c:GetLevel() local lv=c:GetLevel()
return (c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT))) return (c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT)))
and c:IsPreviousSetCard(0x214) and c:IsType(TYPE_MONSTER) and c:IsPreviousSetCard(0x114) and c:IsType(TYPE_MONSTER)
and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp and c:IsPreviousLocation(LOCATION_MZONE) and c:GetPreviousControler()==tp
and c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and c:IsCanBeEffectTarget(e) and c:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and c:IsCanBeEffectTarget(e)
and lv>0 and Duel.IsExistingMatchingCard(c100408026.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp,lv) and lv>0 and Duel.IsExistingMatchingCard(c100408026.spfilter2,tp,LOCATION_DECK,0,1,nil,e,tp,lv)
end end
function c100408026.spfilter2(c,e,tp,lv) function c100408026.spfilter2(c,e,tp,lv)
return c:GetLevel()<lv and c:IsSetCard(0x214) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:GetLevel()<lv and c:IsSetCard(0x114) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100408026.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100408026.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return eg:IsContains(chkc) and c100408026.spfilter1(chkc,e,tp,rp) end if chkc then return eg:IsContains(chkc) and c100408026.spfilter1(chkc,e,tp,rp) end
......
...@@ -25,13 +25,13 @@ function c100408027.initial_effect(c) ...@@ -25,13 +25,13 @@ function c100408027.initial_effect(c)
c:RegisterEffect(e3) c:RegisterEffect(e3)
end end
function c100408027.matfilter(c) function c100408027.matfilter(c)
return c:IsLinkSetCard(0x1215) and not c:IsLinkAttribute(ATTRIBUTE_FIRE) return c:IsLinkSetCard(0x1115) and not c:IsLinkAttribute(ATTRIBUTE_FIRE)
end end
function c100408027.atkval(e) function c100408027.atkval(e)
return Duel.GetMatchingGroupCount(Card.IsType,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,TYPE_SPELL)*100 return Duel.GetMatchingGroupCount(Card.IsType,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,TYPE_SPELL)*100
end end
function c100408027.thfilter(c,tp) function c100408027.thfilter(c,tp)
return c:IsSetCard(0x215) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() return c:IsSetCard(0x115) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
end end
function c100408027.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100408027.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100408027.thfilter(chkc) end if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100408027.thfilter(chkc) end
......
...@@ -37,7 +37,7 @@ function c100408028.initial_effect(c) ...@@ -37,7 +37,7 @@ function c100408028.initial_effect(c)
c:RegisterEffect(e4) c:RegisterEffect(e4)
end end
function c100408028.matfilter(c) function c100408028.matfilter(c)
return c:IsLinkSetCard(0x1215) and not c:IsLinkAttribute(ATTRIBUTE_WATER) return c:IsLinkSetCard(0x1115) and not c:IsLinkAttribute(ATTRIBUTE_WATER)
end end
function c100408028.atkval(e) function c100408028.atkval(e)
return Duel.GetMatchingGroupCount(Card.IsType,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,TYPE_SPELL)*-100 return Duel.GetMatchingGroupCount(Card.IsType,e:GetHandlerPlayer(),LOCATION_GRAVE,0,nil,TYPE_SPELL)*-100
...@@ -49,7 +49,7 @@ function c100408028.thcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -49,7 +49,7 @@ function c100408028.thcon(e,tp,eg,ep,ev,re,r,rp)
return e:GetHandler():GetFlagEffect(100408028)~=0 return e:GetHandler():GetFlagEffect(100408028)~=0
end end
function c100408028.thfilter(c,tp) function c100408028.thfilter(c,tp)
return c:IsSetCard(0x215) and c:IsType(TYPE_SPELL) and c:IsAbleToHand() return c:IsSetCard(0x115) and c:IsType(TYPE_SPELL) and c:IsAbleToHand()
and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,c:GetCode()) and not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,c:GetCode())
end end
function c100408028.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408028.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
......
...@@ -8,6 +8,7 @@ function c100408029.initial_effect(c) ...@@ -8,6 +8,7 @@ function c100408029.initial_effect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON) e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_QUICK_O) e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMING_END_PHASE)
e1:SetRange(LOCATION_MZONE) e1:SetRange(LOCATION_MZONE)
e1:SetCountLimit(1,100408029) e1:SetCountLimit(1,100408029)
e1:SetCost(c100408029.spcost1) e1:SetCost(c100408029.spcost1)
...@@ -32,7 +33,7 @@ function c100408029.spcost1(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -32,7 +33,7 @@ function c100408029.spcost1(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.Release(e:GetHandler(),REASON_COST) Duel.Release(e:GetHandler(),REASON_COST)
end end
function c100408029.spfilter1(c,e,tp,ec) function c100408029.spfilter1(c,e,tp,ec)
return c:IsSetCard(0x1215) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x1115) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
and Duel.GetLocationCountFromEx(tp,tp,ec,c,0x60)>0 and Duel.GetLocationCountFromEx(tp,tp,ec,c,0x60)>0
end end
function c100408029.sptg1(e,tp,eg,ep,ev,re,r,rp,chk) function c100408029.sptg1(e,tp,eg,ep,ev,re,r,rp,chk)
...@@ -48,7 +49,7 @@ function c100408029.spop1(e,tp,eg,ep,ev,re,r,rp) ...@@ -48,7 +49,7 @@ function c100408029.spop1(e,tp,eg,ep,ev,re,r,rp)
end end
function c100408029.cfilter(c,tp,rp) function c100408029.cfilter(c,tp,rp)
return c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp and bit.band(c:GetPreviousTypeOnField(),TYPE_LINK)~=0 return c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp and bit.band(c:GetPreviousTypeOnField(),TYPE_LINK)~=0
and c:IsPreviousSetCard(0x1215) and (c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT))) and c:IsPreviousSetCard(0x1115) and (c:IsReason(REASON_BATTLE) or (rp~=tp and c:IsReason(REASON_EFFECT)))
end end
function c100408029.spcon2(e,tp,eg,ep,ev,re,r,rp) function c100408029.spcon2(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c100408029.cfilter,1,nil,tp,rp) return eg:IsExists(c100408029.cfilter,1,nil,tp,rp)
......
...@@ -19,7 +19,7 @@ function c100408030.condition(e,tp,eg,ep,ev,re,r,rp) ...@@ -19,7 +19,7 @@ function c100408030.condition(e,tp,eg,ep,ev,re,r,rp)
return not Duel.IsExistingMatchingCard(c100408030.cfilter,tp,LOCATION_MZONE,0,1,nil) return not Duel.IsExistingMatchingCard(c100408030.cfilter,tp,LOCATION_MZONE,0,1,nil)
end end
function c100408030.filter(c) function c100408030.filter(c)
return c:IsSetCard(0x215) and c:IsAbleToHand() and not c:IsCode(100408030) return c:IsSetCard(0x115) and c:IsAbleToHand() and not c:IsCode(100408030)
end end
function c100408030.target(e,tp,eg,ep,ev,re,r,rp,chk) function c100408030.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100408030.filter,tp,LOCATION_DECK,0,1,nil) end if chk==0 then return Duel.IsExistingMatchingCard(c100408030.filter,tp,LOCATION_DECK,0,1,nil) end
......
...@@ -7,6 +7,7 @@ function c100408033.initial_effect(c) ...@@ -7,6 +7,7 @@ function c100408033.initial_effect(c)
e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN) e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMING_END_PHASE)
e1:SetCondition(c100408033.condition) e1:SetCondition(c100408033.condition)
e1:SetTarget(c100408033.target) e1:SetTarget(c100408033.target)
e1:SetOperation(c100408033.activate) e1:SetOperation(c100408033.activate)
......
...@@ -32,10 +32,8 @@ function c100408036.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) ...@@ -32,10 +32,8 @@ function c100408036.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
local g=Duel.SelectTarget(tp,c100408036.filter,tp,0,LOCATION_GRAVE,1,1,nil) local g=Duel.SelectTarget(tp,c100408036.filter,tp,0,LOCATION_GRAVE,1,1,nil)
if spchk and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:GetFirst():IsCanBeSpecialSummoned(e,0,tp,false,false) and not g:GetFirst():IsAbleToRemove() then if spchk and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:GetFirst():IsCanBeSpecialSummoned(e,0,tp,false,false) and not g:GetFirst():IsAbleToRemove() then
e:SetCategory(CATEGORY_SPECIAL_SUMMON)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
elseif not (spchk and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:GetFirst():IsCanBeSpecialSummoned(e,0,tp,false,false)) and g:GetFirst():IsAbleToRemove() then elseif not (spchk and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and g:GetFirst():IsCanBeSpecialSummoned(e,0,tp,false,false)) and g:GetFirst():IsAbleToRemove() then
e:SetCategory(CATEGORY_REMOVE)
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0) Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
end end
end end
......
...@@ -75,13 +75,13 @@ function c100408038.chainlm(e,rp,tp) ...@@ -75,13 +75,13 @@ function c100408038.chainlm(e,rp,tp)
return tp==rp return tp==rp
end end
function c100408038.regop(e,tp,eg,ep,ev,re,r,rp) function c100408038.regop(e,tp,eg,ep,ev,re,r,rp)
if re:GetHandler():IsSetCard(0x215) and re:IsActiveType(TYPE_SPELL) and rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) then if re:GetHandler():IsSetCard(0x115) and re:IsActiveType(TYPE_SPELL) and rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
local val=e:GetLabelObject():GetLabel() local val=e:GetLabelObject():GetLabel()
e:GetLabelObject():SetLabel(val+1) e:GetLabelObject():SetLabel(val+1)
end end
end end
function c100408038.regop2(e,tp,eg,ep,ev,re,r,rp) function c100408038.regop2(e,tp,eg,ep,ev,re,r,rp)
if re:GetHandler():IsSetCard(0x215) and re:IsActiveType(TYPE_SPELL) and rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) then if re:GetHandler():IsSetCard(0x115) and re:IsActiveType(TYPE_SPELL) and rp==tp and re:IsHasType(EFFECT_TYPE_ACTIVATE) then
local val=e:GetLabelObject():GetLabel() local val=e:GetLabelObject():GetLabel()
if val==0 then val=1 end if val==0 then val=1 end
e:GetLabelObject():SetLabel(val-1) e:GetLabelObject():SetLabel(val-1)
...@@ -91,7 +91,7 @@ function c100408038.clearop(e,tp,eg,ep,ev,re,r,rp) ...@@ -91,7 +91,7 @@ function c100408038.clearop(e,tp,eg,ep,ev,re,r,rp)
e:GetLabelObject():SetLabel(0) e:GetLabelObject():SetLabel(0)
end end
function c100408038.setfilter(c) function c100408038.setfilter(c)
return c:IsSetCard(0x215) and c:IsType(TYPE_SPELL) and c:IsSSetable() return c:IsSetCard(0x115) and c:IsType(TYPE_SPELL) and c:IsSSetable()
end end
function c100408038.settg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408038.settg(e,tp,eg,ep,ev,re,r,rp,chk)
local ct=e:GetLabel() local ct=e:GetLabel()
......
...@@ -47,10 +47,10 @@ function c100408039.thop(e,tp,eg,ep,ev,re,r,rp) ...@@ -47,10 +47,10 @@ function c100408039.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.ConfirmDecktop(tp,3) Duel.ConfirmDecktop(tp,3)
local g=Duel.GetDecktopGroup(tp,3) local g=Duel.GetDecktopGroup(tp,3)
if g:GetCount()>0 then if g:GetCount()>0 then
if g:IsExists(Card.IsSetCard,1,nil,0x215) then if g:IsExists(Card.IsSetCard,1,nil,0x115) then
if Duel.SelectYesNo(tp,aux.Stringid(100408039,2)) then if Duel.SelectYesNo(tp,aux.Stringid(100408039,2)) then
Duel.Hint(HINT_SELECTMSG,p,HINTMSG_ATOHAND) Duel.Hint(HINT_SELECTMSG,p,HINTMSG_ATOHAND)
local sg=g:FilterSelect(tp,Card.IsSetCard,1,1,nil,0x215) local sg=g:FilterSelect(tp,Card.IsSetCard,1,1,nil,0x115)
if sg:GetFirst():IsAbleToHand() then if sg:GetFirst():IsAbleToHand() then
Duel.SendtoHand(sg,nil,REASON_EFFECT) Duel.SendtoHand(sg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg) Duel.ConfirmCards(1-tp,sg)
...@@ -71,7 +71,7 @@ function c100408039.spcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -71,7 +71,7 @@ function c100408039.spcon(e,tp,eg,ep,ev,re,r,rp)
return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_FZONE) return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_FZONE)
end end
function c100408039.spfilter(c,e,tp) function c100408039.spfilter(c,e,tp)
return c:IsSetCard(0x1215) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) return c:IsSetCard(0x1115) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end end
function c100408039.sptg(e,tp,eg,ep,ev,re,r,rp,chk) function c100408039.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
......
...@@ -14,7 +14,7 @@ function c100408100.initial_effect(c) ...@@ -14,7 +14,7 @@ function c100408100.initial_effect(c)
c:RegisterEffect(e1) c:RegisterEffect(e1)
end end
function c100408100.filter(c,e,tp) function c100408100.filter(c,e,tp)
return c:IsSetCard(0x214) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE) return c:IsSetCard(0x114) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
end end
function c100408100.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100408100.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100408100.filter(chkc,e,tp) end if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100408100.filter(chkc,e,tp) end
......
...@@ -92,7 +92,7 @@ function c100408101.tdcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -92,7 +92,7 @@ function c100408101.tdcon(e,tp,eg,ep,ev,re,r,rp)
return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_ONFIELD) return c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_ONFIELD)
end end
function c100408101.tdfilter(c) function c100408101.tdfilter(c)
return c:IsSetCard(0x215) and not c:IsCode(100408101) and c:IsAbleToDeck() return c:IsSetCard(0x115) and not c:IsCode(100408101) and c:IsAbleToDeck()
end end
function c100408101.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100408101.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100408101.tdfilter(chkc) end if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100408101.tdfilter(chkc) 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