Commit 6b785e61 authored by mercury233's avatar mercury233

update new cards

parent 71c594b6
#created by ... #created by ...
#main #main
100417021
100417026
100417006
100200206 100200206
100281062 100281062
100281063 100281063
......
...@@ -24,7 +24,7 @@ function c100200206.initial_effect(c) ...@@ -24,7 +24,7 @@ function c100200206.initial_effect(c)
e2:SetCondition(c100200206.thcon) e2:SetCondition(c100200206.thcon)
e2:SetTarget(c100200206.thtg) e2:SetTarget(c100200206.thtg)
e2:SetOperation(c100200206.thop) e2:SetOperation(c100200206.thop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100200206.spfilter(c,e,tp) function c100200206.spfilter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelAbove(5) and c:IsAttribute(ATTRIBUTE_LIGHT) return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelAbove(5) and c:IsAttribute(ATTRIBUTE_LIGHT)
......
...@@ -46,7 +46,7 @@ function c100281062.tgfilter(c,e,tp,g) ...@@ -46,7 +46,7 @@ function c100281062.tgfilter(c,e,tp,g)
return g:IsContains(c) and Duel.IsExistingMatchingCard(c100281062.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,c:GetCode()) return g:IsContains(c) and Duel.IsExistingMatchingCard(c100281062.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,c:GetCode())
end end
function c100281062.spfilter(c,e,tp,code) function c100281062.spfilter(c,e,tp,code)
return c:IsCode(46986414,38033121) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(code) return c:IsCode(46986414,38033121) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsCode(code)
end end
function c100281062.spcon(e,tp,eg,ep,ev,re,r,rp) function c100281062.spcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c100281062.cfilter,1,nil,tp) return eg:IsExists(c100281062.cfilter,1,nil,tp)
......
--No-P.U.N.K.オーガ・ナンバー
--
--Script by IceBarrierTrishula
function c100417006.initial_effect(c)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(100417006,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,100417006)
e1:SetCost(c100417006.spcost)
e1:SetTarget(c100417006.sptg)
e1:SetOperation(c100417006.spop)
c:RegisterEffect(e1)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(100417006,1))
e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_HAND+LOCATION_MZONE)
e2:SetCountLimit(1,100417006+100)
e2:SetCost(c100417006.thcost)
e2:SetTarget(c100417006.thtg)
e2:SetOperation(c100417006.thop)
c:RegisterEffect(e2)
--atk up
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(100417006,2))
e3:SetCategory(CATEGORY_ATKCHANGE)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetCode(EVENT_CHAINING)
e3:SetCountLimit(1)
e3:SetRange(LOCATION_MZONE)
e3:SetCondition(c100417006.atkcon)
e3:SetOperation(c100417006.atkop)
c:RegisterEffect(e3)
end
function c100417006.spfilter(c,tp)
return c:IsSetCard(0x26f) and (c:IsControler(tp) or c:IsFaceup())
end
function c100417006.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckReleaseGroup(tp,c100417006.spfilter,1,nil,tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
local g=Duel.SelectReleaseGroup(tp,c100417006.spfilter,1,1,nil,tp)
Duel.Release(g,REASON_COST)
end
function c100417006.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
end
function c100417006.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
function c100417006.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
Duel.SendtoGrave(e:GetHandler(),REASON_COST)
end
function c100417006.thfilter(c)
return c:IsSetCard(0x26f) and c:IsType(TYPE_MONSTER) and not c:IsLevel(8) and c:IsAbleToHand()
end
function c100417006.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100417006.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c100417006.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c100417006.thfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c100417006.atkcon(e,tp,eg,ep,ev,re,r,rp)
return re:IsActiveType(TYPE_MONSTER) and rp==1-tp
end
function c100417006.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local rc=re:GetHandler()
if c:IsRelateToEffect(e) and c:IsFaceup() then
local atk=0
if rc:IsRelateToEffect(re) and (rc:IsFaceup() or not rc:IsLocation(LOCATION_MZONE)) then
if rc:IsControler(1-tp) then
atk=rc:GetBaseAttack()
end
else
atk=rc:GetTextAttack()
end
if atk>0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
c:RegisterEffect(e1)
end
end
end
...@@ -55,7 +55,7 @@ function c100417015.effop(e,tp,eg,ep,ev,re,r,rp) ...@@ -55,7 +55,7 @@ function c100417015.effop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c100417015.filter(c) function c100417015.filter(c)
return c:IsPreviousLocation(LOCATION_GRAVE) return c:IsPreviousLocation(LOCATION_GRAVE)
end end
function c100417015.spcon(e,tp,eg,ep,ev,re,r,rp) function c100417015.spcon(e,tp,eg,ep,ev,re,r,rp)
return rp~=tp and eg:IsExists(c100417015.filter,1,nil) return rp~=tp and eg:IsExists(c100417015.filter,1,nil)
......
...@@ -29,7 +29,7 @@ function c100417016.initial_effect(c) ...@@ -29,7 +29,7 @@ function c100417016.initial_effect(c)
c:RegisterEffect(e2) c:RegisterEffect(e2)
end end
function c100417016.filter(c) function c100417016.filter(c)
return c:IsPreviousLocation(LOCATION_GRAVE) return c:IsPreviousLocation(LOCATION_GRAVE)
end end
function c100417016.cfilter(c) function c100417016.cfilter(c)
return c:IsFaceup() and c:IsSetCard(0x271) return c:IsFaceup() and c:IsSetCard(0x271)
......
...@@ -107,5 +107,5 @@ function c100417019.atkop(e,tp,eg,ep,ev,re,r,rp) ...@@ -107,5 +107,5 @@ function c100417019.atkop(e,tp,eg,ep,ev,re,r,rp)
e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_XYZ)) e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_XYZ))
e1:SetValue(800) e1:SetValue(800)
e1:SetReset(RESET_PHASE+PHASE_END) e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp) Duel.RegisterEffect(e1,tp)
end end
--エクソシスター・パークス
--
--Script by IceBarrierTrishula
function c100417021.initial_effect(c)
--to hand
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(100417021,0))
e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,100417021+EFFECT_COUNT_CODE_OATH)
e1:SetHintTiming(TIMING_MAIN_END)
e1:SetCondition(c100417021.condition)
e1:SetCost(c100417021.cost)
e1:SetTarget(c100417021.target)
e1:SetOperation(c100417021.operation)
c:RegisterEffect(e1)
end
function c100417021.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
end
function c100417021.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.CheckLPCost(tp,800) end
Duel.PayLPCost(tp,800)
end
function c100417021.thfilter(c)
return c:IsSetCard(0x271) and not c:IsCode(100417021) and c:IsAbleToHand()
end
function c100417021.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100417021.thfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c100417021.spfilter(c,sc)
return c:IsType(TYPE_MONSTER) and c:IsSetCard(0x271) and aux.IsCodeListed(sc,c:GetCode())
and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
end
function c100417021.operation(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local tc=Duel.SelectMatchingCard(tp,c100417021.thfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
local res=false
if tc and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
Duel.ConfirmCards(1-tp,tc)
res=true
end
if res and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and tc:IsType(TYPE_MONSTER) and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
and Duel.IsExistingMatchingCard(c100417021.spfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil,tc)
and Duel.SelectYesNo(tp,aux.Stringid(100417021,1)) then
Duel.BreakEffect()
Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
end
end
...@@ -56,7 +56,7 @@ function c100417025.operation(e,tp,eg,ep,ev,re,r,rp) ...@@ -56,7 +56,7 @@ function c100417025.operation(e,tp,eg,ep,ev,re,r,rp)
local token=Duel.CreateToken(tp,100417125) local token=Duel.CreateToken(tp,100417125)
Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
local g=Duel.GetMatchingGroup(c100417025.setfilter,tp,LOCATION_DECK,0,nil) local g=Duel.GetMatchingGroup(c100417025.setfilter,tp,LOCATION_DECK,0,nil)
if not Duel.IsExistingMatchingCard(c100417025.cfilter,tp,LOCATION_SZONE,0,1,nil) and g:GetCount()>0 if not Duel.IsExistingMatchingCard(c100417025.cfilter,tp,LOCATION_SZONE,0,1,nil) and g:GetCount()>0
and Duel.SelectYesNo(tp,aux.Stringid(100417025,0)) then and Duel.SelectYesNo(tp,aux.Stringid(100417025,0)) then
Duel.BreakEffect() Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
......
--聖殿の水遣い
--
--Script by IceBarrierTrishula
function c100417026.initial_effect(c)
aux.AddCodeList(c,100417125)
--spsummon
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(100417026,0))
e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_HAND)
e1:SetCountLimit(1,100417026)
e1:SetCondition(c100417026.condition)
e1:SetTarget(c100417026.sptg)
e1:SetOperation(c100417026.spop)
c:RegisterEffect(e1)
--to hand
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(100417026,1))
e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_HAND+LOCATION_GRAVE)
e2:SetCountLimit(1,100417026+100)
e2:SetCost(c100417026.thcost)
e2:SetTarget(c100417026.thtg)
e2:SetOperation(c100417026.thop)
c:RegisterEffect(e2)
--set
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(100417026,2))
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_MZONE)
e3:SetCountLimit(1,100417026+200)
e3:SetCondition(c100417026.condition)
e3:SetTarget(c100417026.stg)
e3:SetOperation(c100417026.sop)
c:RegisterEffect(e3)
end
function c100417026.cfilter(c)
return c:IsCode(100417125) and c:IsFaceup()
end
function c100417026.condition(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c100417026.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c100417026.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
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
function c100417026.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
end
function c100417026.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() end
Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
end
function c100417026.thfilter(c)
return c:IsCode(100417025) and c:IsAbleToHand()
end
function c100417026.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100417026.thfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function c100417026.thop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c100417026.thfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c100417026.stfilter(c,tp)
return aux.IsCodeListed(c,100417125) and c:IsType(TYPE_FIELD) and not c:IsForbidden() and c:CheckUniqueOnField(tp)
end
function c100417026.stg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c100417026.stfilter,tp,LOCATION_DECK,0,1,1,nil,tp) end
end
function c100417026.sop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
local tc=Duel.SelectMatchingCard(tp,c100417026.stfilter,tp,LOCATION_DECK,0,1,1,nil,tp):GetFirst()
if tc then
Duel.MoveToField(tc,tp,tp,LOCATION_FZONE,POS_FACEUP,true)
end
end
...@@ -61,7 +61,7 @@ function c100417027.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -61,7 +61,7 @@ function c100417027.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) then if c:IsRelateToEffect(e) then
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end end
end end
function c100417027.atkcon(e) function c100417027.atkcon(e)
return not Duel.IsExistingMatchingCard(c100417027.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil) return not Duel.IsExistingMatchingCard(c100417027.cfilter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
......
...@@ -61,7 +61,7 @@ function c100417028.negtg(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -61,7 +61,7 @@ function c100417028.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
end end
end end
function c100417028.negop(e,tp,eg,ep,ev,re,r,rp) function c100417028.negop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)>0 then if c:IsRelateToEffect(e) and Duel.SendtoDeck(c,nil,2,REASON_EFFECT)>0 then
if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
Duel.Destroy(eg,REASON_EFFECT) Duel.Destroy(eg,REASON_EFFECT)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
--Script by IceBarrierTrishula --Script by IceBarrierTrishula
function c100417029.initial_effect(c) function c100417029.initial_effect(c)
aux.AddCodeList(c,100417125) aux.AddCodeList(c,100417125)
--Activate --Activate
local e0=Effect.CreateEffect(c) local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_ACTIVATE) e0:SetType(EFFECT_TYPE_ACTIVATE)
e0:SetCode(EVENT_FREE_CHAIN) e0:SetCode(EVENT_FREE_CHAIN)
...@@ -16,9 +16,9 @@ function c100417029.initial_effect(c) ...@@ -16,9 +16,9 @@ function c100417029.initial_effect(c)
e1:SetRange(LOCATION_SZONE) e1:SetRange(LOCATION_SZONE)
e1:SetCountLimit(1,100417029) e1:SetCountLimit(1,100417029)
e1:SetTarget(c100417029.thtg) e1:SetTarget(c100417029.thtg)
e1:SetOperation(c100417029.thop) e1:SetOperation(c100417029.thop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--equip --equip
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(100417029,1)) e2:SetDescription(aux.Stringid(100417029,1))
e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_EQUIP) e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_EQUIP)
...@@ -29,7 +29,7 @@ function c100417029.initial_effect(c) ...@@ -29,7 +29,7 @@ function c100417029.initial_effect(c)
e2:SetCountLimit(1,100417029+100) e2:SetCountLimit(1,100417029+100)
e2:SetTarget(c100417029.eqtg) e2:SetTarget(c100417029.eqtg)
e2:SetOperation(c100417029.eqop) e2:SetOperation(c100417029.eqop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
local e3=e2:Clone() local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS) e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3) c:RegisterEffect(e3)
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
function c100417030.initial_effect(c) function c100417030.initial_effect(c)
aux.AddCodeList(c,100417125) aux.AddCodeList(c,100417125)
c:SetUniqueOnField(1,0,100417030) c:SetUniqueOnField(1,0,100417030)
--Activate --Activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_EQUIP) e1:SetCategory(CATEGORY_EQUIP)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
...@@ -67,7 +67,7 @@ end ...@@ -67,7 +67,7 @@ end
function c100417030.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100417030.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return c100417030.cfilter(chkc) and chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end if chkc then return c100417030.cfilter(chkc) and chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end
local c=e:GetHandler() local c=e:GetHandler()
if chk==0 then return Duel.IsExistingTarget(c100417030.cfilter,tp,LOCATION_MZONE,0,1,nil) if chk==0 then return Duel.IsExistingTarget(c100417030.cfilter,tp,LOCATION_MZONE,0,1,nil)
and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:CheckUniqueOnField(tp) end and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:CheckUniqueOnField(tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
local g=Duel.SelectTarget(tp,c100417030.cfilter,tp,LOCATION_MZONE,0,1,1,nil) local g=Duel.SelectTarget(tp,c100417030.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
function c100417031.initial_effect(c) function c100417031.initial_effect(c)
aux.AddCodeList(c,100417125) aux.AddCodeList(c,100417125)
c:SetUniqueOnField(1,0,100417031) c:SetUniqueOnField(1,0,100417031)
--Activate --Activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_EQUIP) e1:SetCategory(CATEGORY_EQUIP)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
...@@ -68,7 +68,7 @@ end ...@@ -68,7 +68,7 @@ end
function c100417031.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100417031.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return c100417031.cfilter(chkc) and chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end if chkc then return c100417031.cfilter(chkc) and chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end
local c=e:GetHandler() local c=e:GetHandler()
if chk==0 then return Duel.IsExistingTarget(c100417031.cfilter,tp,LOCATION_MZONE,0,1,nil) if chk==0 then return Duel.IsExistingTarget(c100417031.cfilter,tp,LOCATION_MZONE,0,1,nil)
and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:CheckUniqueOnField(tp) end and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:CheckUniqueOnField(tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
local g=Duel.SelectTarget(tp,c100417031.cfilter,tp,LOCATION_MZONE,0,1,1,nil) local g=Duel.SelectTarget(tp,c100417031.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
function c100417032.initial_effect(c) function c100417032.initial_effect(c)
aux.AddCodeList(c,100417125) aux.AddCodeList(c,100417125)
c:SetUniqueOnField(1,0,100417032) c:SetUniqueOnField(1,0,100417032)
--Activate --Activate
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_EQUIP) e1:SetCategory(CATEGORY_EQUIP)
e1:SetType(EFFECT_TYPE_ACTIVATE) e1:SetType(EFFECT_TYPE_ACTIVATE)
...@@ -79,7 +79,7 @@ end ...@@ -79,7 +79,7 @@ end
function c100417032.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) function c100417032.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return c100417032.cfilter(chkc) and chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end if chkc then return c100417032.cfilter(chkc) and chkc:IsControler(tp) and chkc:IsLocation(LOCATION_MZONE) end
local c=e:GetHandler() local c=e:GetHandler()
if chk==0 then return Duel.IsExistingTarget(c100417032.cfilter,tp,LOCATION_MZONE,0,1,nil) if chk==0 then return Duel.IsExistingTarget(c100417032.cfilter,tp,LOCATION_MZONE,0,1,nil)
and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:CheckUniqueOnField(tp) end and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 and c:CheckUniqueOnField(tp) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
local g=Duel.SelectTarget(tp,c100417032.cfilter,tp,LOCATION_MZONE,0,1,1,nil) local g=Duel.SelectTarget(tp,c100417032.cfilter,tp,LOCATION_MZONE,0,1,1,nil)
......
...@@ -29,7 +29,7 @@ function c100417033.initial_effect(c) ...@@ -29,7 +29,7 @@ function c100417033.initial_effect(c)
e2:SetTarget(c100417033.damtg) e2:SetTarget(c100417033.damtg)
e2:SetOperation(c100417033.damop) e2:SetOperation(c100417033.damop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--search --search
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_IGNITION) e3:SetType(EFFECT_TYPE_IGNITION)
......
...@@ -28,7 +28,7 @@ function c100417034.initial_effect(c) ...@@ -28,7 +28,7 @@ function c100417034.initial_effect(c)
e2:SetTarget(c100417034.drtg) e2:SetTarget(c100417034.drtg)
e2:SetOperation(c100417034.drop) e2:SetOperation(c100417034.drop)
c:RegisterEffect(e2) c:RegisterEffect(e2)
--search --search
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND) e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
e3:SetType(EFFECT_TYPE_IGNITION) e3:SetType(EFFECT_TYPE_IGNITION)
......
...@@ -47,9 +47,9 @@ end ...@@ -47,9 +47,9 @@ end
function c100417035.operation(e,tp,eg,ep,ev,re,r,rp) function c100417035.operation(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
if tc:IsFaceup() and tc:IsRelateToEffect(e) then if tc:IsFaceup() and tc:IsRelateToEffect(e) then
local dg=Duel.GetMatchingGroup(c100417035.desfilter,tp,0,LOCATION_MZONE,nil,tc:GetAttack()) local dg=Duel.GetMatchingGroup(c100417035.desfilter,tp,0,LOCATION_MZONE,nil,tc:GetAttack())
if Duel.Destroy(dg,REASON_EFFECT)~=0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0 if Duel.Destroy(dg,REASON_EFFECT)~=0 and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(c100417035.efilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,tp) and Duel.IsExistingMatchingCard(aux.NecroValleyFilter(c100417035.efilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil,tp)
and Duel.SelectYesNo(tp,aux.Stringid(100417035,0)) then and Duel.SelectYesNo(tp,aux.Stringid(100417035,0)) then
Duel.BreakEffect() Duel.BreakEffect()
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100417035,1)) Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(100417035,1))
......
...@@ -14,7 +14,7 @@ function c101105087.initial_effect(c) ...@@ -14,7 +14,7 @@ function c101105087.initial_effect(c)
e1:SetCondition(c101105087.spcon) e1:SetCondition(c101105087.spcon)
e1:SetTarget(c101105087.sptg) e1:SetTarget(c101105087.sptg)
e1:SetOperation(c101105087.spop) e1:SetOperation(c101105087.spop)
c:RegisterEffect(e1) c:RegisterEffect(e1)
--th effect --th effect
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(101105087,1)) e2:SetDescription(aux.Stringid(101105087,1))
......
...@@ -20,7 +20,7 @@ function c101105090.initial_effect(c) ...@@ -20,7 +20,7 @@ function c101105090.initial_effect(c)
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN) e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetRange(LOCATION_SZONE) e2:SetRange(LOCATION_FZONE)
e2:SetCode(EVENT_DESTROYED) e2:SetCode(EVENT_DESTROYED)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
e2:SetCountLimit(1,101105190) e2:SetCountLimit(1,101105190)
......
...@@ -50,7 +50,7 @@ function c101107001.spcost(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -50,7 +50,7 @@ function c101107001.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
end end
function c101107001.spcon(e,tp,eg,ep,ev,re,r,rp) function c101107001.spcon(e,tp,eg,ep,ev,re,r,rp)
local ph=Duel.GetCurrentPhase() local ph=Duel.GetCurrentPhase()
return (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2) return (ph==PHASE_MAIN1 or (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) or ph==PHASE_MAIN2)
and Duel.GetFlagEffect(tp,101107001)~=0 and Duel.GetFlagEffect(tp,101107001)~=0
end end
function c101107001.spfilter(c,e,tp) function c101107001.spfilter(c,e,tp)
......
...@@ -29,7 +29,7 @@ function c101107003.cfilter(c,tp) ...@@ -29,7 +29,7 @@ function c101107003.cfilter(c,tp)
return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and (c:IsRace(RACE_SPELLCASTER) or aux.IsCodeListed(c,46986414) and c:IsType(TYPE_SPELL+TYPE_TRAP)) and Duel.GetMZoneCount(tp,c)>0 return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and (c:IsRace(RACE_SPELLCASTER) or aux.IsCodeListed(c,46986414) and c:IsType(TYPE_SPELL+TYPE_TRAP)) and Duel.GetMZoneCount(tp,c)>0
end end
function c101107003.spcost(e,tp,eg,ep,ev,re,r,rp,chk) function c101107003.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return if chk==0 then return
Duel.IsExistingMatchingCard(c101107003.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil,tp) Duel.IsExistingMatchingCard(c101107003.cfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil,tp)
end end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
......
...@@ -33,7 +33,7 @@ function c101107034.thcost(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -33,7 +33,7 @@ function c101107034.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return not e:GetHandler():IsPublic() end if chk==0 then return not e:GetHandler():IsPublic() end
end end
function c101107034.thfilter(c) function c101107034.thfilter(c)
return (c:IsCode(46986414) or aux.IsCodeListed(c,46986414)) and c:IsAbleToHand() return (c:IsCode(46986414) or aux.IsCodeListed(c,46986414)) and c:IsAbleToHand()
and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_RITUAL) and c:IsType(TYPE_MONSTER) and not c:IsType(TYPE_RITUAL)
end end
function c101107034.thtg(e,tp,eg,ep,ev,re,r,rp,chk) function c101107034.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
......
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