Skip to content

Y
ygopro-222DIY-cards
Commit f494a1b3 authored by gg123gg's avatar gg123gg Committed by GitHub
Browse files
Options

Add files via upload

parent bfd4bf6d
Hide whitespace changes
Inline Side-by-side
Showing with 168 additions and 150 deletions
expansions/script/c12026024.lua
View file @ f494a1b3
--化作机械的暗影 拉结尔
function c12026024.initial_effect(c)
--Change effect to nothing
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(12026024,0))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING)
e1:SetCountLimit(1,12026024+100)
e1:SetRange(LOCATION_HAND)
e1:SetTarget(c12026024.target)
e1:SetOperation(c12026024.activate)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(12026024,2))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_TO_HAND)
e2:SetCountLimit(1,12026024)
e2:SetCondition(c12026024.spcon)
e2:SetTarget(c12026024.sptg)
e2:SetOperation(c12026024.spop)
c:RegisterEffect(e2)
end
function c12026024.spcon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsReason(REASON_DRAW)
end
function c12026024.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 c12026024.filter1(c,e,tp)
return ( c:IsSetCard(0x1fbd) or c:IsSetCard(0x1fb3) ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c12026024.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
Duel.BreakEffect()
if Duel.IsExistingMatchingCard(c12026024.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
if Duel.SelectYesNo(tp,aux.Stringid(12026024,3)) then
local g=Duel.SelectMatchingCard(tp,c12026024.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
end
end
function c12026024.target(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local tg=re:GetTarget()
local event=re:GetCode()
if event==EVENT_CHAINING then return
not tg or tg(e,tp,eg,ep,ev,re,r,rp,0)
else
local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(event,true)
return not tg or tg(e,tp,teg,tep,tev,tre,tr,trp,0)
end
return re:GetHandler():IsRelateToEffect(re) and c:IsAbleToGrave() and eg:GetHandler():IsAbleToGrave() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
end
local event=re:GetCode()
e:SetLabelObject(re)
e:SetCategory(re:GetCategory())
e:SetProperty(re:GetProperty())
local tg=re:GetTarget()
if event==EVENT_CHAINING then
if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end
else
local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(event,true)
if tg then tg(e,tp,teg,tep,tev,tre,tr,trp,1) end
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c12026024.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:GetOriginalCode()==12026024 then return end
if not c:IsRelateToEffect(e) then return end
Duel.BreakEffect()
local c=e:GetHandler()
local te=e:GetLabelObject()
if not te then return end
local op=te:GetOperation()
if op then op(e,tp,eg,ep,ev,re,r,rp) end
Duel.SendtoGrave(c+eg:GetHandler(),REASON_EFFECT)
--化作机械的暗影 拉结尔
function c12026024.initial_effect(c)
--Change effect to nothing
local e1=Effect.CreateEffect(c)
e1:SetDescription(aux.Stringid(12026024,0))
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_CHAINING)
e1:SetCountLimit(1,12026024+100)
e1:SetRange(LOCATION_HAND)
e1:SetTarget(c12026024.target)
e1:SetOperation(c12026024.activate)
c:RegisterEffect(e1)
--special summon
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(12026024,2))
e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_TO_HAND)
e2:SetCountLimit(1,12026024)
e2:SetCondition(c12026024.spcon)
e2:SetTarget(c12026024.sptg)
e2:SetOperation(c12026024.spop)
c:RegisterEffect(e2)
end
function c12026024.spcon(e,tp,eg,ep,ev,re,r,rp)
return not e:GetHandler():IsReason(REASON_DRAW)
end
function c12026024.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 c12026024.filter1(c,e,tp)
return ( c:IsSetCard(0x1fbd) or c:IsSetCard(0x1fb3) ) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c12026024.spop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:IsRelateToEffect(e) then return end
Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
Duel.BreakEffect()
if Duel.IsExistingMatchingCard(c12026024.filter1,tp,LOCATION_HAND,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
if Duel.SelectYesNo(tp,aux.Stringid(12026024,3)) then
local g=Duel.SelectMatchingCard(tp,c12026024.filter1,tp,LOCATION_HAND,0,1,1,nil,e,tp)
if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end
end
end
end
function c12026024.target(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then
local tg=re:GetTarget()
local event=re:GetCode()
if event==EVENT_CHAINING then return
not tg or tg(e,tp,eg,ep,ev,re,r,rp,0)
else
local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(event,true)
return not tg or tg(e,tp,teg,tep,tev,tre,tr,trp,0)
end
return re:GetHandler():IsRelateToEffect(re) and c:IsAbleToGrave() and not re:IsHasType(EFFECT_TYPE_ACTIVATE) and eg:GetHandler():IsAbleToGrave() and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
end
local event=re:GetCode()
e:SetLabelObject(re)
e:SetCategory(re:GetCategory())
e:SetProperty(re:GetProperty())
local tg=re:GetTarget()
if event==EVENT_CHAINING then
if tg then tg(e,tp,eg,ep,ev,re,r,rp,1) end
else
local res,teg,tep,tev,tre,tr,trp=Duel.CheckEvent(event,true)
if tg then tg(e,tp,teg,tep,tev,tre,tr,trp,1) end
end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
end
function c12026024.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if not c:GetOriginalCode()==12026024 then return end
if not c:IsRelateToEffect(e) then return end
Duel.BreakEffect()
local c=e:GetHandler()
local te=e:GetLabelObject()
if not te then return end
local op=te:GetOperation()
if op then op(e,tp,eg,ep,ev,re,r,rp) end
Duel.SendtoGrave(c+eg,REASON_EFFECT)
end
\ No newline at end of file
expansions/script/c12026032.lua
View file @ f494a1b3
--三位一体的女神 拉结尔
xpcall(function() require("expansions/script/c37564765") end,function() require("script/c37564765") end)
function c12026032.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure2(c,nil,aux.NonTuner(nil))
c:EnableReviveLimit()
--special summon rule
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_EXTRA)
e1:SetCountLimit(1,12026032)
e1:SetCondition(c12026032.spcon)
e1:SetOperation(c12026032.spop)
c:RegisterEffect(e1)
--atk up
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(12026020,1))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e2:SetCategory(CATEGORY_TOHAND)
e2:SetCountLimit(1,12026032+100)
e2:SetTarget(c12026020.rmtg)
e2:SetOperation(c12026020.rmop)
c:RegisterEffect(e2)
--leave field
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetCode(EVENT_LEAVE_FIELD)
e2:SetOperation(c12026032.regop)
c:RegisterEffect(e2)
end
function c12026032.confilter(c,ec)
return c:IsCanBeSynchroMaterial(ec) and c:IsSetCard(0x1fbd) and c:IsFaceup() and c:IsAbleToGraveAsCost() and c:GetLevel()>0 and c:IsSummonableCard()
end
function c12026032.gcheck(g,tp,fc)
return Duel.GetLocationCountFromEx(tp,tp,g,fc)>0 and g:GetSum(Card.GetLevel)==3
end
function c12026032.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(c12026032.confilter,tp,LOCATION_MZONE,0,nil,c)
return Senya.CheckGroup(mg,c12026032.gcheck,nil,1,4,tp,c)
end
function c12026032.spop(e,tp,eg,ep,ev,re,r,rp,c)
local mg=Duel.GetMatchingGroup(c12026032.confilter,tp,LOCATION_MZONE,0,nil,c)
local g=Senya.SelectGroup(tp,HINTMSG_TOGRAVE,mg,c12026032.gcheck,nil,1,3,tp,c)
Duel.SendtoGrave(g,REASON_COST)
end
function c12026032.regop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
--
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_HAND_LIMIT)
e2:SetReset(RESET_PHASE+PHASE_END)
e2:SetValue(99)
e2:SetTargetRange(1,0)
Duel.RegisterEffect(e2,tp)
local m=12026032
local cm=_G["c"..m]
--三位一体的女神 拉结尔
xpcall(function() require("expansions/script/c37564765") end,function() require("script/c37564765") end)
function cm.initial_effect(c)
--synchro summon
aux.AddSynchroProcedure2(c,nil,aux.NonTuner(nil))
c:EnableReviveLimit()
--special summon rule
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_SPSUMMON_PROC)
e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
e1:SetRange(LOCATION_EXTRA)
e1:SetCountLimit(1,m)
e1:SetCondition(cm.spcon)
e1:SetOperation(cm.spop)
c:RegisterEffect(e1)
--atk up
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(12026020,1))
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_SPSUMMON_SUCCESS)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
e2:SetCategory(CATEGORY_TOHAND)
e2:SetCountLimit(1,m+100)
e2:SetTarget(cm.thtg)
e2:SetOperation(cm.thop)
c:RegisterEffect(e2)
--leave field
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
e2:SetCode(EVENT_LEAVE_FIELD)
e2:SetOperation(cm.regop)
c:RegisterEffect(e2)
end
function cm.confilter(c,ec)
return c:IsCanBeSynchroMaterial(ec) and c:IsSetCard(0x1fbd) and c:IsFaceup() and c:IsAbleToGraveAsCost() and c:GetLevel()>0 and c:IsSummonableCard()
end
function cm.gcheck(g,tp,fc)
return Duel.GetLocationCountFromEx(tp,tp,g,fc)>0 and g:GetSum(Card.GetLevel)==3
end
function cm.spcon(e,c)
if c==nil then return true end
local tp=c:GetControler()
local mg=Duel.GetMatchingGroup(cm.confilter,tp,LOCATION_MZONE,0,nil,c)
return Senya.CheckGroup(mg,cm.gcheck,nil,1,4,tp,c)
end
function cm.spop(e,tp,eg,ep,ev,re,r,rp,c)
local mg=Duel.GetMatchingGroup(cm.confilter,tp,LOCATION_MZONE,0,nil,c)
local g=Senya.SelectGroup(tp,HINTMSG_TOGRAVE,mg,cm.gcheck,nil,1,3,tp,c)
Duel.SendtoGrave(g,REASON_COST)
end
function cm.thfilter(c,tp)
return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and cm.thfilter(chkc) end
if chk==0 then return Duel.IsExistingTarget(cm.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local sg=Duel.SelectTarget(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,sg,1,0,0)
end
function cm.thop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
if tc:IsRelateToEffect(e) then
Duel.SendtoHand(tc,nil,REASON_EFFECT)
end
end
function cm.regop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
--
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCode(EFFECT_HAND_LIMIT)
e2:SetReset(RESET_PHASE+PHASE_END)
e2:SetValue(99)
e2:SetTargetRange(1,0)
Duel.RegisterEffect(e2,tp)
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