Skip to content

Y
ygopro-222DIY-cards
Commit 2ec2b20f authored by Tachibana's avatar Tachibana
Browse files
Options

ndyd

parent 477bb165
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 25 additions and 1029 deletions
expansions/222DIY.cdb
View file @ 2ec2b20f
No preview for this file type
expansions/pics/13959980.jpg
View replaced file @ 477bb165 View file @ 2ec2b20f
expansions/pics/13959980.jpg

56.9 KB | W: | H:

expansions/pics/13959980.jpg

51.1 KB | W: | H:

expansions/pics/13959980.jpg
expansions/pics/13959980.jpg
expansions/pics/13959980.jpg
expansions/pics/13959980.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/13959981.jpg
View replaced file @ 477bb165 View file @ 2ec2b20f
expansions/pics/13959981.jpg

57.5 KB | W: | H:

expansions/pics/13959981.jpg

51.9 KB | W: | H:

expansions/pics/13959981.jpg
expansions/pics/13959981.jpg
expansions/pics/13959981.jpg
expansions/pics/13959981.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/13959982.jpg
View replaced file @ 477bb165 View file @ 2ec2b20f
expansions/pics/13959982.jpg

60.8 KB | W: | H:

expansions/pics/13959982.jpg

54.7 KB | W: | H:

expansions/pics/13959982.jpg
expansions/pics/13959982.jpg
expansions/pics/13959982.jpg
expansions/pics/13959982.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/13959983.jpg
View replaced file @ 477bb165 View file @ 2ec2b20f
expansions/pics/13959983.jpg

80.6 KB | W: | H:

expansions/pics/13959983.jpg

72.2 KB | W: | H:

expansions/pics/13959983.jpg
expansions/pics/13959983.jpg
expansions/pics/13959983.jpg
expansions/pics/13959983.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/pics/13959998.jpg
View replaced file @ 477bb165 View file @ 2ec2b20f
expansions/pics/13959998.jpg

58.8 KB | W: | H:

expansions/pics/13959998.jpg

52.7 KB | W: | H:

expansions/pics/13959998.jpg
expansions/pics/13959998.jpg
expansions/pics/13959998.jpg
expansions/pics/13959998.jpg
  • 2-up
  • Swipe
  • Onion skin
expansions/script/c13959994.lua 0 → 100644
View file @ 2ec2b20f
This diff is collapsed.
expansions/script/c13959997.lua
View file @ 2ec2b20f
--2pick utilities
c13959996={}
Duel.LoadScript("c13959996.lua")
local cc=13959997
local this=_G["c"..cc]
......@@ -179,8 +177,12 @@ function this.initSet(s)
s.add=this.add
s.del=this.del
end
function this.loadCardList(useBanList,ignoreBlackList)
local cl=c13959996
function this.loadCardList(useBanList,ignoreBlackList,clCode)
if not _G["c"..clCode] then
_G["c"..clCode]={}
Duel.LoadScript("c"..clCode..".lua")
end
local cl=_G["c"..clCode]
local mainList=this.toList(this.loadSet(cl.Main))
local extraList=this.toList(this.loadSet(cl.Extra))
local ml={}
......
expansions/script/c13959998.lua
View file @ 2ec2b20f
......@@ -11,6 +11,7 @@ this.extracount=20
this.useBanList=true
this.skillEnabled=false
this.CardList={}
this.clCode=13959996
function this.initial_effect(c)
if not this.gc then
......@@ -173,6 +174,9 @@ function this.op(e,tp)
this.extracount=Duel.AnnounceLevel(0,1,10)*10
end
this.useBanList=Duel.SelectYesNo(0,aux.Stringid(13959997,2))
if Duel.SelectYesNo(0,aux.Stringid(13959997,6)) then
this.clCode=({13959996,13959994})[Duel.SelectOption(0,aux.Stringid(13959997,7),aux.Stringid(13959997,8))+1]
end
end
this.option=Duel.SelectOption(0,aux.Stringid(cc,0),aux.Stringid(cc,1),aux.Stringid(cc,6),aux.Stringid(cc,7),aux.Stringid(cc,11),aux.Stringid(cc,10),aux.Stringid(13959997,4),aux.Stringid(13959997,5))
local n=0
......@@ -244,7 +248,7 @@ end
function this.ccGen(from,count)
if not this.CardList.Main then
local ml,el,mat,eat=c13959997.loadCardList(this.useBanList)
local ml,el,mat,eat=c13959997.loadCardList(this.useBanList,false,this.clCode)
this.CardList.Main=ml
this.CardList.Extra=el
this.CardList.MainAliasTable=mat
......@@ -711,7 +715,7 @@ end
function this.picrandom(g)
if not this.CardList.Main then
local ml,el,mat,eat=c13959997.loadCardList(this.useBanList)
local ml,el,mat,eat=c13959997.loadCardList(this.useBanList,false,this.clCode)
this.CardList.Main=ml
this.CardList.Extra=el
this.CardList.MainAliasTable=mat
......
expansions/script/c33403520.lua deleted 100644 → 0
View file @ 477bb165
--Re:CREATORS 筑城院真鉴
local m=33403520
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
c:SetUniqueOnField(1,0,m)
--change effect
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
e1:SetCode(EVENT_CHAINING)
e1:SetRange(LOCATION_MZONE+LOCATION_HAND)
e1:SetCountLimit(1,m)
e1:SetCondition(cm.chcon)
e1:SetOperation(cm.chop)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,1))
e2:SetCategory(CATEGORY_TOGRAVE)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_CHAIN_NEGATED)
e2:SetRange(LOCATION_MZONE+LOCATION_HAND)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,m+10000)
e2:SetCondition(cm.condition)
e2:SetTarget(cm.sptg)
e2:SetOperation(cm.spop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_CHAIN_DISABLED)
c:RegisterEffect(e3)
--draw
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,1))
e4:SetCategory(CATEGORY_TOGRAVE)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e4:SetCode(EVENT_PHASE+PHASE_END)
e4:SetRange(LOCATION_MZONE+LOCATION_HAND)
e4:SetCountLimit(1,m+20000)
e4:SetTarget(cm.sptg2)
e4:SetOperation(cm.spop2)
c:RegisterEffect(e4)
end
function cm.chcon(e,tp,eg,ep,ev,re,r,rp)
local ct=Duel.GetCurrentChain()
if ct<2 then return end
local te,p=Duel.GetChainInfo(ct-1,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
return te and te:GetHandler():IsSetCard(0x6349) and p==tp and rp==1-tp
end
function cm.chop(e,tp,eg,ep,ev,re,r,rp)
local g=Group.CreateGroup()
Duel.ChangeTargetCard(ev,g)
Duel.ChangeChainOperation(ev,cm.repop)
if e:GetHandler():IsLocation(LOCATION_HAND) then Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)end
end
function cm.filter1(c)
return c:IsSetCard(0x6349) and c:IsAbleToHand()
end
function cm.repop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(1-tp,cm.filter1,1-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 cm.condition(e,tp,eg,ep,ev,re,r,rp)
return re:GetHandler():IsSetCard(0x6349)
end
function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(XY.maganeckfilter10,tp,LOCATION_GRAVE,0,1,nil,tp) end
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp)
if not Duel.IsExistingMatchingCard(XY.maganeckfilter10,tp,LOCATION_GRAVE,0,1,nil,tp) then return end
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(33403530,1))
local g=Duel.SelectMatchingCard(tp,XY.maganeckfilter10,tp,LOCATION_GRAVE,0,1,1,nil,tp)
if g:GetCount()>0 then
local tc=g:GetFirst()
if tc:IsCode(33403521) then
XY.maganere1(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403522) then
XY.maganere2(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403523) and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) then
XY.maganere3(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403524) and Duel.IsPlayerCanDraw(tp,3) then
XY.maganere4(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403525) and (Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) or Duel.GetLocationCount(1-tp,LOCATION_MZONE)==0) then
XY.maganere5(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403526) and Duel.IsPlayerCanDraw(tp,1) then
XY.maganere6(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403527) and Duel.IsExistingMatchingCard(XY.maganethfilter4,tp,LOCATION_GRAVE,0,1,nil) then
XY.maganere7(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403528) then
XY.maganere8(e,tp,eg,ep,ev,re,r,rp)
end
cm1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
cm2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
if tc:IsCode(33403529) and cm1>=4 and cm2>=4 and Duel.IsPlayerCanDraw(tp,1) then
XY.maganere9(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403530) then
XY.maganere10(e,tp,eg,ep,ev,re,r,rp)
end
end
if e:GetHandler():IsLocation(LOCATION_HAND) then Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)end
end
function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(XY.maganethfilter0,tp,LOCATION_GRAVE,0,1,nil,tp) end
end
function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
if not Duel.IsExistingMatchingCard(XY.maganethfilter0,tp,LOCATION_GRAVE,0,1,nil,tp) then return end
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,aux.Stringid(33403530,1))
local g=Duel.SelectMatchingCard(tp,XY.maganethfilter0,tp,LOCATION_GRAVE,0,1,1,nil,tp)
if g:GetCount()>0 then
local tc=g:GetFirst()
if tc:IsCode(33403521) then
XY.maganere1(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403522) then
XY.maganere2(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403523) and Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) then
XY.maganere3(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403524) and Duel.IsPlayerCanDraw(tp,3) then
XY.maganere4(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403525) and (Duel.IsExistingMatchingCard(Card.IsAbleToChangeControler,tp,0,LOCATION_MZONE,1,nil) or Duel.GetLocationCount(1-tp,LOCATION_MZONE)==0) then
XY.maganere5(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403526) and Duel.IsPlayerCanDraw(tp,1) then
XY.maganere6(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403527) and Duel.IsExistingMatchingCard(XY.maganethfilter4,tp,LOCATION_GRAVE,0,1,nil) then
XY.maganere7(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403528) then
XY.maganere8(e,tp,eg,ep,ev,re,r,rp)
end
cm1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
cm2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
if tc:IsCode(33403529) and cm1>=4 and cm2>=4 and Duel.IsPlayerCanDraw(tp,1) then
XY.maganere9(e,tp,eg,ep,ev,re,r,rp)
end
if tc:IsCode(33403530) then
XY.maganere10(e,tp,eg,ep,ev,re,r,rp)
end
end
if e:GetHandler():IsLocation(LOCATION_HAND) then Duel.SendtoGrave(e:GetHandler(),REASON_EFFECT)end
end
expansions/script/c33403521.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 幕影
local m=33403521
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.cfilter(c)
return c:IsSetCard(0x6349) and c:IsAbleToGraveAsCost()
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.filter(c)
return c:IsCode(33403520) and c:IsAbleToHand()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local tc=Duel.GetFirstMatchingCard(cm.filter,tp,LOCATION_DECK+LOCATION_GRAVE,0,nil)
if tc then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
\ No newline at end of file
expansions/script/c33403522.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 灭计
local m=33403522
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,1))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_DAMAGE+CATEGORY_TOGRAVE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.filter(c)
return c:IsCode(33403520) and c:IsAbleToHand()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,1-tp,LOCATION_ONFIELD)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_ONFIELD)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,Card.IsAbleToGrave,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
if g:GetCount()>0 then
Duel.HintSelection(g)
if Duel.SendtoGrave(g,REASON_EFFECT)~=0 then
Duel.Damage(1-tp,500,REASON_EFFECT)
end
end
if Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local tc=Duel.GetFirstMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,nil)
if tc then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,tc)
end
end
end
\ No newline at end of file
expansions/script/c33403523.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 残杀
local m=33403523
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.filter(c)
return c:IsCode(33403520) and c:IsAbleToHand()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler()) end
local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,sg,sg:GetCount(),0,0)
end
function cm.spfilter(c,e,tp)
return c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local sg=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,aux.ExceptThisCard(e))
Duel.SendtoGrave(sg,REASON_EFFECT)
Duel.Damage(1-tp,500,REASON_EFFECT)
if Duel.IsExistingMatchingCard(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
local g2=Duel.GetMatchingGroup(aux.NecroValleyFilter(cm.spfilter),1-tp,LOCATION_GRAVE,0,nil,e,1-tp)
if g2:GetCount()>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
and Duel.SelectYesNo(1-tp,aux.Stringid(m,1)) then
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
local sg=g2:Select(1-tp,1,1,nil)
Duel.SpecialSummon(sg,0,1-tp,1-tp,false,false,POS_FACEUP)
end
end
expansions/script/c33403524.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 感伤
local m=33403524
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.filter(c,tp)
return (c:IsSetCard(0x6349) or c:IsCode(33403520) or c:GetOwner()==1-tp) and c:IsAbleToGrave()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,2)
and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,e:GetHandler(),tp) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_HAND+LOCATION_ONFIELD)
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,2)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,e:GetHandler(),tp)
local tc=g:GetFirst()
if tc then Duel.SendtoGrave(tc,REASON_EFFECT) end
Duel.Draw(tp,2,REASON_EFFECT)
end
expansions/script/c33403525.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 掠夺
local m=33403525
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_CONTROL+CATEGORY_DAMAGE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.filter(c,tp)
return c:GetOwner()==1-tp
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsControlerCanBeChanged() end
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
local g=Duel.GetMatchingGroup(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,nil)
Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,1,0,0)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
local g=Duel.SelectMatchingCard(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
Duel.GetControl(g,tp)
local ss=Duel.GetMatchingGroupCount(cm.filter,tp,LOCATION_ONFIELD,0,nil,tp)
Duel.Damage(1-tp,ss*500,REASON_EFFECT)
end
expansions/script/c33403526.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 安眠
local m=33403526
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DRAW)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.tgfilter(c)
return (c:IsSetCard(0x6349) or c:IsCode(33403520)) and c:IsAbleToGrave()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsPlayerCanDraw(tp,1) and Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetCode(EFFECT_CHANGE_DAMAGE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetTargetRange(1,0)
e2:SetValue(cm.val)
e2:SetReset(RESET_PHASE+PHASE_END,2)
Duel.RegisterEffect(e2,tp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
Duel.Draw(tp,1,REASON_EFFECT)
end
function cm.val(e,re,dam,r,rp,rc)
if dam<=3000 then
return 0
else
return dam
end
end
expansions/script/c33403527.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 谎言
local m=33403527
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.tgfilter(c)
return (c:IsSetCard(0x6349) or c:IsCode(33403520)) and c:IsAbleToGrave()
end
function cm.thfilter(c,cd)
return ((c:IsSetCard(0x6349) and not c:IsCode(cd)) or c:IsCode(33403520)) and c:IsAbleToHand()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
local tc=g:GetFirst()
if tc and Duel.SendtoGrave(tc,REASON_EFFECT)~=0 and Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil,tc:GetCode()) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g2=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil,tc:GetCode())
Duel.SendtoHand(g2,nil,REASON_EFFECT)
end
end
expansions/script/c33403528.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 联合
local m=33403528
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,2))
e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.cfilter(c)
return c:IsSetCard(0x6349) and c:IsAbleToGraveAsCost()
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_DECK,0,1,nil) and Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_DECK,0,1,1,nil)
Duel.SendtoGrave(g,REASON_COST)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.filter(c)
return c:IsCode(33403520) and c:IsFaceup()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local g=Duel.GetMatchingGroup(cm.filter,tp,LOCATION_MZONE,0,nil)
if g:GetCount()>0 then
local g2=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
local atk=g2:GetSum(Card.GetAttack)
local def=g2:GetSum(Card.GetDefense)
local tc=g:GetFirst()
while tc do
if atk>0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(atk)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
if def>0 then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_DEFENSE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)
e1:SetValue(def)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
tc:RegisterEffect(e1)
end
local ss=Duel.GetMatchingGroup(nil,tp,LOCATION_MZONE,0,nil):GetCount()
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_EXTRA_ATTACK)
e1:SetValue(ss)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
tc:RegisterEffect(e1)
tc=g:GetNext()
end
end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_CANNOT_ATTACK)
e1:SetTargetRange(LOCATION_MZONE,0)
e1:SetTarget(cm.atktg)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
end
function cm.atktg(e,c)
return not c:IsCode(33403520)
end
\ No newline at end of file
expansions/script/c33403529.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 布局
local m=33403529
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetTarget(cm.target)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.filter1(c)
return (c:IsSetCard(0x6349) or c:IsCode(33403520)) and c:IsAbleToHand()
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
local b1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
local b2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
if chk==0 then return b1>=4 and b2>=4 end
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
local cm1=Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)
local cm2=Duel.GetFieldGroupCount(tp,0,LOCATION_DECK)
if cm1>=4 then
local g=Duel.GetDecktopGroup(tp,4)
Duel.ConfirmCards(tp,g)
if g:IsExists(cm.filter1,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:FilterSelect(tp,cm.filter1,1,1,nil)
Duel.DisableShuffleCheck()
Duel.SendtoHand(sg,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
Duel.ShuffleHand(tp)
Duel.SortDecktop(tp,tp,3)
else Duel.SortDecktop(tp,tp,4)
end
end
if cm2>=4 then
local g=Duel.GetDecktopGroup(1-tp,4)
Duel.ConfirmCards(tp,g)
if g:IsExists(cm.filter1,1,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,1)) then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=g:FilterSelect(tp,cm.filter1,1,1,nil)
Duel.DisableShuffleCheck()
Duel.SendtoHand(sg,tp,REASON_EFFECT)
Duel.ConfirmCards(1-tp,sg)
Duel.ShuffleHand(tp)
Duel.SortDecktop(tp,1-tp,3)
else Duel.SortDecktop(tp,1-tp,4)
end
end
end
expansions/script/c33403530.lua deleted 100644 → 0
View file @ 477bb165
--言叶无限欺 永远的诈欺师
local m=33403530
local cm=_G["c"..m]
Duel.LoadScript("c33400000.lua")
function cm.initial_effect(c)
XY.magane(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,m+EFFECT_COUNT_CODE_OATH)
e1:SetCost(cm.cost)
e1:SetOperation(cm.activate)
c:RegisterEffect(e1)
end
function cm.costfilter1(c)
return c:IsSetCard(0x6349) or c:IsCode(33403520)
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.costfilter1,tp,LOCATION_HAND,0,1,e:GetHandler()) and Duel.GetFlagEffect(tp,m)==0 and Duel.GetFlagEffect(tp,m+30000)==0 end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
local g1=Duel.SelectMatchingCard(tp,cm.costfilter1,tp,LOCATION_HAND,0,1,1,e:GetHandler())
local tc=g1:GetFirst()
Duel.ConfirmCards(1-tp,tc)
Duel.Hint(HINT_OPSELECTED,1-tp,e:GetDescription())
end
function cm.activate(e,tp,eg,ep,ev,re,r,rp)
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+RESET_PHASE+PHASE_END,0,0)
end
expansions/script/c47530030.lua deleted 100644 → 0
View file @ 477bb165
--沙扎比
function c47530030.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),4)
c:EnableReviveLimit()
--atk
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_UPDATE_ATTACK)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e1:SetRange(LOCATION_MZONE)
e1:SetValue(c47530030.val)
c:RegisterEffect(e1)
--soul of zeon
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_IMMUNE_EFFECT)
e2:SetRange(LOCATION_MZONE)
e2:SetCondition(c47530030.incon1)
e2:SetValue(c47530030.efilter)
c:RegisterEffect(e2)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_PRE_DAMAGE_CALCULATE)
e3:SetRange(LOCATION_MZONE)
e3:SetCondition(c47530030.incon2)
e3:SetOperation(c47530030.atkop)
c:RegisterEffect(e3)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetRange(LOCATION_MZONE)
e4:SetCategory(CATEGORY_NEGATE+CATEGORY_TODECK)
e4:SetCode(EVENT_CHAINING)
e4:SetCondition(c47530030.incon3)
e4:SetCost(c47530030.negcost)
e4:SetTarget(c47530030.negtg)
e4:SetOperation(c47530030.negop)
c:RegisterEffect(e4)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_IGNITION)
e5:SetRange(LOCATION_MZONE)
e5:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_REMOVE)
e5:SetCondition(c47530030.incon4)
e5:SetTarget(c47530030.aitg)
e5:SetOperation(c47530030.aiop)
c:RegisterEffect(e5)
end
function c47530030.val(e,c)
return Duel.GetMatchingGroupCount(Card.IsRace,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)*300
end
function c47530030.incon1(e,c)
local c=e:GetHandler()
return Duel.GetMatchingGroupCount(Card.IsRace,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)>=2
end
function c47530030.incon2(e,c)
local c=e:GetHandler()
return Duel.GetMatchingGroupCount(Card.IsRace,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)>=3
end
function c47530030.incon4(e,c)
local c=e:GetHandler()
return Duel.GetMatchingGroupCount(Card.IsRace,c:GetControler(),LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)>8
end
function c47530030.efilter(e,te)
return te:GetOwner()~=e:GetOwner()
end
function c47530030.atkop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_DISABLE)
e1:SetTargetRange(0,LOCATION_ONFIELD)
e1:SetTarget(c47530030.distg)
e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
Duel.RegisterEffect(e1,tp)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetCode(EVENT_CHAIN_SOLVING)
e2:SetRange(LOCATION_MZONE)
e2:SetOperation(c47530030.disop)
e2:SetReset(RESET_PHASE+PHASE_DAMAGE)
Duel.RegisterEffect(e2,tp)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(0,LOCATION_MZONE)
e3:SetReset(RESET_PHASE+PHASE_DAMAGE)
Duel.RegisterEffect(e3,tp)
local tc=Duel.GetAttackTarget()
if not tc then return end
if tc:IsControler(tp) then tc=Duel.GetAttacker() end
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetRange(LOCATION_MZONE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetValue(0)
e1:SetReset(RESET_PHASE+PHASE_DAMAGE)
tc:RegisterEffect(e1,true)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
e2:SetValue(0)
e2:SetReset(RESET_PHASE+PHASE_DAMAGE)
tc:RegisterEffect(e2,true)
end
function c47530030.distg(e,c)
return c~=e:GetHandler()
end
function c47530030.disop(e,tp,eg,ep,ev,re,r,rp)
local loc=Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)
if bit.band(loc,LOCATION_ONFIELD)~=0 then
Duel.NegateEffect(ev)
end
end
function c47530030.incon3(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
return Duel.GetMatchingGroupCount(Card.IsRace,tp,LOCATION_MZONE,LOCATION_MZONE,nil,RACE_MACHINE)>=4 and not c:IsStatus(STATUS_BATTLE_DESTROYED) and Duel.IsChainNegatable(ev) and rp==1-tp
end
function c47530030.cfilter(c,g)
return g:IsContains(c) and not c:IsStatus(STATUS_BATTLE_DESTROYED)
end
function c47530030.negcost(e,tp,eg,ep,ev,re,r,rp,chk)
local lg=e:GetHandler():GetLinkedGroup()
if chk==0 then return Duel.CheckReleaseGroup(tp,c47530030.cfilter,1,nil,lg) end
local g=Duel.SelectReleaseGroup(tp,c47530030.cfilter,1,1,nil,lg)
Duel.Release(g,REASON_COST)
end
function c47530030.negtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local ng=Group.CreateGroup()
local dg=Group.CreateGroup()
for i=1,ev do
local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
if tgp~=tp and Duel.IsChainNegatable(i) then
local tc=te:GetHandler()
ng:AddCard(tc)
if tc:IsOnField() and tc:IsRelateToEffect(te) and not tc:IsHasEffect(EFFECT_CANNOT_TO_DECK) and Duel.IsPlayerCanSendtoDeck(tp,tc) then
dg:AddCard(tc)
end
end
end
Duel.SetTargetCard(dg)
Duel.SetOperationInfo(0,CATEGORY_NEGATE,ng,ng:GetCount(),0,0)
Duel.SetOperationInfo(0,CATEGORY_TODECK,dg,dg:GetCount(),0,0)
end
function c47530030.negop(e,tp,eg,ep,ev,re,r,rp)
local dg=Group.CreateGroup()
for i=1,ev do
local te,tgp=Duel.GetChainInfo(i,CHAININFO_TRIGGERING_EFFECT,CHAININFO_TRIGGERING_PLAYER)
if tgp~=tp and Duel.NegateActivation(i) then
local tc=te:GetHandler()
if tc:IsRelateToEffect(e) and tc:IsRelateToEffect(te) and not tc:IsHasEffect(EFFECT_CANNOT_TO_DECK) and Duel.IsPlayerCanSendtoDeck(tp,tc) then
tc:CancelToGrave()
dg:AddCard(tc)
end
end
end
Duel.SendtoDeck(dg,nil,2,REASON_EFFECT)
end
function c47530030.hspfilter(c,e,tp)
return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
end
function c47530030.aitg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(c47530030.hspfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp) and Duel.IsExistingMatchingCard(c47530030.hspfilter,1-tp,LOCATION_EXTRA,0,1,nil,e,1-tp) end
local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0x1e,0x1e,e:GetHandler())
Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,g:GetCount(),0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,1-tp,LOCATION_EXTRA)
end
function c47530030.aiop(e,tp,eg,ep,ev,re,r,rp)
local g=Duel.GetMatchingGroup(Card.IsAbleToRemove,tp,0x1e,0x1e,nil)
if Duel.Remove(g,POS_FACEDOWN,REASON_EFFECT)~=0 then
local g=Duel.GetMatchingGroup(c47530030.hspfilter,1-tp,LOCATION_EXTRA,0,nil,e,1-tp)
if g:GetCount()>0 and Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
local sg=g:Select(1-tp,1,1,nil)
Duel.SpecialSummon(sg,0,1-tp,1-tp,true,false,POS_FACEUP)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
local g1=Duel.GetMatchingGroup(c47530030.hspfilter,tp,LOCATION_EXTRA,0,nil,e,tp)
if g1:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local sg=g:Select(tp,1,1,nil)
Duel.SpecialSummon(sg,0,tp,tp,true,false,POS_FACEUP)
end
end
end
\ No newline at end of file
expansions/script/c47530102.lua deleted 100644 → 0
View file @ 477bb165
--力天使高达
function c47530102.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkType,TYPE_EFFECT),2)
c:EnableReviveLimit()
--direct attack
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_DIRECT_ATTACK)
c:RegisterEffect(e1)
--lock on
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_MZONE)
e2:SetCountLimit(1)
e2:SetCost(c47530102.locost)
e2:SetTarget(c47530102.lotg)
e2:SetOperation(c47530102.loop)
c:RegisterEffect(e2)
--GN Sniper Rifle
local e3=Effect.CreateEffect(c)
e3:SetCategory(CATEGORY_REMOVE)
e3:SetType(EFFECT_TYPE_QUICK_O)
e3:SetRange(LOCATION_SZONE)
e3:SetCode(EVENT_FREE_CHAIN)
e3:SetCountLimit(1)
e3:SetProperty(EFFECT_FLAG_NO_TURN_RESET)
e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
e3:SetTarget(c47530102.sptg)
e3:SetOperation(c47530102.spop)
c:RegisterEffect(e3)
--
local e4=Effect.CreateEffect(c)
e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e4:SetRange(LOCATION_SZONE)
e4:SetCode(EVENT_PHASE+PHASE_STANDBY)
e4:SetCondition(c47530102.spcon)
e4:SetOperation(c47530102.spop1)
c:RegisterEffect(e4)
end
function c47530102.locost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_CANNOT_ATTACK)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH)
e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
e:GetHandler():RegisterEffect(e1)
end
function c47530102.lotg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0 end
end
function c47530102.loop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.GetLocationCount(tp,LOCATION_SZONE)>0 then
Duel.MoveToField(c,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
local e1=Effect.CreateEffect(c)
e1:SetCode(EFFECT_CHANGE_TYPE)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
e1:SetLabelObject(c)
c:RegisterEffect(e1)
end
end
function c47530102.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,bc) end
Duel.SetOperationInfo(0,CATEGORY_REMOVE,1,1,0,0)
end
function c47530102.spop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local g=Duel.SelectMatchingCard(tp,Card.IsAbleToRemove,tp,0,LOCATION_ONFIELD,1,1,nil)
local tc=g:GetFirst()
if tc then
Duel.Remove(tc,POS_FACEDOWN,REASON_EFFECT)
end
end
function c47530102.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetTurnPlayer()==tp
end
function c47530102.spop1(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
end
\ No newline at end of file
expansions/strings.conf
View file @ 2ec2b20f
......@@ -685,7 +685,6 @@
!setname 0x6344 万由里
!setname 0x9344 白之女王
!setname 0x5349 森罗万象
!setname 0x6349 言叶无限欺
!setname 0xa349 Re:CREATORS
!counter 0x34f 时间指示物
......
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