Skip to content

no81cards
no81cards
Commit 7c20916c authored by Nemo Ma's avatar Nemo Ma
Browse files
Options

remove

parent 3148a93b
Hide whitespace changes
Inline Side-by-side
Showing with 0 additions and 348 deletions
expansions/no81.cdb
View file @ 7c20916c
No preview for this file type
expansions/script/c29010107.lua deleted 100644 → 0
View file @ 3148a93b
--风色诗人·温迪
local m=29010107
local cm=_G["c"..m]
if windy then return end
windy=cm
function windy.add_freecheck(c)
local tc=c
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetRange(0x7f)
e3:SetCode(29010100)
tc:RegisterEffect(e3)
return e3
end
if not cm then return end
function cm.initial_effect(c)
aux.AddCodeList(c,29010100)
--code
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e2:SetCode(EFFECT_CHANGE_CODE)
e2:SetValue(29010100)
c:RegisterEffect(e2)
--spsummon
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(m,1))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetProperty(EFFECT_FLAG_DELAY)
e3:SetCountLimit(1,m)
e3:SetTarget(cm.sptg2)
e3:SetOperation(cm.spop2)
c:RegisterEffect(e3)
--Poetry of Balbatos
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,2))
e4:SetCategory(CATEGORY_DESTROY+CATEGORY_TOGRAVE)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetRange(LOCATION_MZONE)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetCountLimit(1)
e4:SetCost(cm.cost)
e4:SetTarget(cm.target)
e4:SetOperation(cm.operation)
c:RegisterEffect(e4)
end
function cm.filter(c,e,tp)
return c:IsCode(29010100) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
end
function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
function cm.tdcheck(c)
return (c:IsCode(29010100) or c:GetEffectCount(29010100)>0) and c:IsAbleToDeckAsCost() and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
end
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tdcheck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,2,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local dg=Duel.SelectMatchingCard(tp,cm.tdcheck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,2,2,nil)
Duel.SendtoDeck(dg,nil,2,REASON_COST)
end
function cm.seqfilter(c,seq,g)
local cseq=c:GetSequence()
if cseq>=5 then return false end
return cseq==seq and g:IsContains(c)
end
function cm.seqcheck(c,seq)
local cseq=c:GetSequence()
return math.abs(cseq-seq)==1
end
function cm.checkmove1(c,seq)
return c:GetSequence()>seq
end
function cm.checkmove2(c,seq)
return c:GetSequence()<seq
end
function cm.descheck(c,tp)
local cseq=c:GetSequence()
local flag=false
if cseq==5 then return false end
if cseq==0 then
for i=1,3 do
if Duel.CheckLocation(tp,LOCATION_MZONE,i) and Duel.IsExistingMatchingCard(cm.checkmove1,tp,LOCATION_MZONE,0,1,nil,i) then
flag=true
end
end
end
if cseq==4 then
for i=1,3 do
if Duel.CheckLocation(tp,LOCATION_MZONE,i) and Duel.IsExistingMatchingCard(cm.checkmove2,tp,LOCATION_MZONE,0,1,nil,i) then
flag=true
end
end
end
if cseq~=0 and cseq~=4 then
for i=1,cseq do
if Duel.CheckLocation(tp,LOCATION_MZONE,i) and Duel.IsExistingMatchingCard(cm.checkmove2,tp,LOCATION_MZONE,0,1,nil,i) then
flag=true
end
end
for i=cseq,3 do
if Duel.CheckLocation(tp,LOCATION_MZONE,i) and Duel.IsExistingMatchingCard(cm.checkmove1,tp,LOCATION_MZONE,0,1,nil,i) then
flag=true
end
end
end
return flag
end
function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
local filter=0
for i=0,4 do
filter=filter|1<<(i+16)
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
local flag=Duel.SelectField(tp,1,0,LOCATION_MZONE,filter)
local seq=math.log(flag>>16,2)
local g=Duel.GetFieldCard(1-tp,LOCATION_MZONE,seq)
e:SetLabel(seq)
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,0,LOCATION_DECK)
Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
end
function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local seq=e:GetLabel()
local sc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,seq)
Duel.Destroy(sc,REASON_EFFECT)
if seq~=4 and seq~=0 then
for i=seq-1,0,-1 do
local mc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,i)
if mc and Duel.CheckLocation(1-tp,LOCATION_MZONE,i+1) and not mc:IsImmuneToEffect(e) then
Duel.MoveSequence(mc,i+1)
end
end
for i=seq+1,4 do
local mc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,i)
if mc and Duel.CheckLocation(1-tp,LOCATION_MZONE,i-1) and not mc:IsImmuneToEffect(e) then
Duel.MoveSequence(mc,i-1)
end
end
elseif seq==4 then
for i=3,0,-1 do
local mc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,i)
if mc and Duel.CheckLocation(1-tp,LOCATION_MZONE,i+1) and not mc:IsImmuneToEffect(e) then
Duel.MoveSequence(mc,i+1)
end
end
elseif seq==0 then
for i=seq+1,4 do
local mc=Duel.GetFieldCard(1-tp,LOCATION_MZONE,i)
if mc and Duel.CheckLocation(1-tp,LOCATION_MZONE,i-1) and not mc:IsImmuneToEffect(e) then
Duel.MoveSequence(mc,i-1)
end
end
end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
local sg=Duel.SelectMatchingCard(tp,function(c) return c:IsCode(29010100) and c:IsAbleToGrave() end,tp,LOCATION_DECK,0,1,1,nil)
if sg:GetCount()>0 then
Duel.SendtoGrave(sg,REASON_EFFECT)
end
end
\ No newline at end of file
expansions/script/c29010108.lua deleted 100644 → 0
View file @ 3148a93b
--侦察骑士·安柏
if not pcall(function() require("expansions/script/c29010107") end) then require("script/c29010107") end
local m=29010108
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddCodeList(c,29010100)
--code
local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_SINGLE)
e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e0:SetCode(EFFECT_CHANGE_CODE)
e0:SetValue(29010105)
c:RegisterEffect(e0)
--search
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(m,0))
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_DELAY)
e1:SetCode(EVENT_SUMMON_SUCCESS)
e1:SetCountLimit(1,m)
e1:SetTarget(cm.tg)
e1:SetOperation(cm.op)
c:RegisterEffect(e1)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e2)
local e3=windy.add_freecheck(c)
end
function cm.filter(c)
return c:IsSetCard(0x57af) and c:IsAbleToHand()
end
function cm.tg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_DECK,0,1,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function cm.check(c)
return c:IsFaceup() and c:IsCode(29010110)
end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK,0,1,1,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
local tc=g:GetFirst()
if Duel.IsExistingMatchingCard(cm.check,tp,LOCATION_FZONE,0,1,nil) and g:GetFirst():IsSummonable(true,nil) and Duel.SelectYesNo(tp,aux.Stringid(m,2)) then
Duel.Summon(tp,tc,true,nil)
end
end
end
\ No newline at end of file
expansions/script/c29010113.lua deleted 100644 → 0
View file @ 3148a93b
--无害甜度·砂糖
local m=29010113
local cm=_G["c"..m]
function cm.initial_effect(c)
aux.AddCodeList(c,29010100)
--code
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e1:SetCode(EFFECT_CHANGE_CODE)
e1:SetValue(29010100)
c:RegisterEffect(e1)
--to grave
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(m,0))
e2:SetCategory(CATEGORY_TOGRAVE)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCountLimit(1,m)
e2:SetTarget(cm.tgtg)
e2:SetOperation(cm.tgop)
c:RegisterEffect(e2)
local e3=e2:Clone()
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
c:RegisterEffect(e3)
--token
local e4=Effect.CreateEffect(c)
e4:SetDescription(aux.Stringid(m,1))
e4:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
e4:SetType(EFFECT_TYPE_QUICK_O)
e4:SetRange(LOCATION_MZONE)
e4:SetCode(EVENT_FREE_CHAIN)
e4:SetCountLimit(1)
e4:SetCost(cm.tkcost)
e4:SetTarget(cm.tktg)
e4:SetOperation(cm.tkop)
c:RegisterEffect(e4)
end
function cm.tgfilter(c)
return c:IsCode(29010100) and c:IsAbleToGrave()
end
function cm.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tgfilter,tp,LOCATION_DECK,0,3,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,3,tp,LOCATION_DECK)
end
function cm.tgop(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,3,3,nil)
if g:GetCount()>=3 then
Duel.SendtoGrave(g,REASON_EFFECT)
end
end
function cm.tdcheck(c)
return (c:IsCode(29010100) or c:GetEffectCount(29010100)>0) and c:IsAbleToDeckAsCost() and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
end
function cm.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(cm.tdcheck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,2,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
local dg=Duel.SelectMatchingCard(tp,cm.tdcheck,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,2,2,nil)
Duel.SendtoDeck(dg,nil,2,REASON_COST)
end
function cm.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return true end
Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
end
function cm.tkop(e,tp,eg,ep,ev,re,r,rp)
if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
if Duel.IsPlayerCanSpecialSummonMonster(tp,29010114,0,TYPES_TOKEN_MONSTER,2000,2000,4,RACE_PSYCHO,ATTRIBUTE_WIND) then
local token=Duel.CreateToken(tp,29010114)
Duel.SpecialSummon(token,0,tp,tp,false,false,POS_FACEUP)
end
end
expansions/script/c29065905.lua deleted 100644 → 0
View file @ 3148a93b
--幻兽机 回转猎鹰
function c29065905.initial_effect(c)
--spsummon
local e3=Effect.CreateEffect(c)
e3:SetDescription(aux.Stringid(29065905,0))
e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
e3:SetType(EFFECT_TYPE_IGNITION)
e3:SetRange(LOCATION_GRAVE)
e3:SetCountLimit(1,29065905)
e3:SetCondition(c29065905.spcon)
e3:SetTarget(c29065905.sptg)
e3:SetOperation(c29065905.spop)
c:RegisterEffect(e3)
--splimit
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
e2:SetTargetRange(1,0)
e2:SetTarget(c29065905.splimit)
c:RegisterEffect(e2)
end
function c29065905.cfilter(c)
return c:IsCode(31533705)
end
function c29065905.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c29065905.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c29065905.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c29065905.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:IsRelateToEffect(e) and Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
e1:SetValue(LOCATION_REMOVED)
c:RegisterEffect(e1)
end
Duel.SpecialSummonComplete()
end
function c29065905.splimit(e,c)
return not (c:IsType(TYPE_SYNCHRO) or c:IsSetCard(0x101b))
end
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment