Skip to content

Y
ygopro-222DIY-cards
Commit 3bab20f8 authored by nanahira's avatar nanahira
Browse files
Options

Merge branch 'master' of github.com:purerosefallen/ygopro-222DIY-cards

parents 40c6c3b9 7813431a
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 492 additions and 481 deletions
expansions/script/c1110112.lua
View file @ 3bab20f8
This diff is collapsed.
expansions/script/c1110114.lua
View file @ 3bab20f8
This diff is collapsed.
expansions/script/c1111223.lua
View file @ 3bab20f8
--灵曲·年华静谧之月
local m=1111223
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
cm.named_with_Soul=true
--
function c1111223.initial_effect(c)
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EFFECT_DESTROY_REPLACE)
e1:SetRange(LOCATION_SZONE)
e1:SetTarget(c1111223.tg1)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(1111223,0))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCost(c1111223.cost2)
e2:SetOperation(c1111223.op2)
c:RegisterEffect(e2)
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetRange(LOCATION_SZONE)
e3:SetOperation(c1111223.op3)
c:RegisterEffect(e3)
--
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_CHAINING)
e4:SetRange(LOCATION_SZONE)
e4:SetOperation(c1111223.op4)
c:RegisterEffect(e4)
--
if not c1111223.global_check then
c1111223.global_check=true
local e5=Effect.GlobalEffect()
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_CHAINING)
e5:SetCondition(c1111223.con5)
e5:SetOperation(c1111223.op5)
Duel.RegisterEffect(e5,0)
end
--
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_FIELD)
e6:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e6:SetRange(LOCATION_SZONE)
e6:SetTargetRange(0,LOCATION_MZONE)
e6:SetTarget(c1111223.tg6)
c:RegisterEffect(e6)
--
end
--
function c1111223.tfilter1(c,tp)
return c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_REPLACE)
end
function c1111223.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,LOCATION_ONFIELD,0x1111,1,REASON_EFFECT) and eg:IsExists(c1111223.tfilter1,1,c,tp) end
if Duel.SelectEffectYesNo(tp,c,96) then
return true
else return false end
end
--
function c1111223.op1(e,tp,eg,ep,ev,re,r,rp)
Duel.RemoveCounter(tp,LOCATION_ONFIELD,LOCATION_ONFIELD,0x1111,1,REASON_EFFECT)
end
--
function c1111223.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
local num=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
if chk==0 then return num>0 and c:IsCanAddCounter(0x1111,num) end
c:AddCounter(0x1111,num)
end
--
function c1111223.op2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=true
local b2=true
local off=1
local ops={}
local opval={}
if b1 then
ops[off]=aux.Stringid(1111223,1)
opval[off-1]=1
off=off+1
end
if b2 then
ops[off]=aux.Stringid(1111223,2)
opval[off-1]=2
off=off+1
end
local op=Duel.SelectOption(tp,table.unpack(ops))
local sel=opval[op]
if sel==1 then
c:ResetFlagEffect(1111223)
c:ResetFlagEffect(1111224)
c:RegisterFlagEffect(1111223,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,1))
else
c:ResetFlagEffect(1111223)
c:ResetFlagEffect(1111224)
c:RegisterFlagEffect(1111224,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,2))
c:RegisterFlagEffect(1111224,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,3))
end
end
--
function c1111223.op3(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:GetFlagEffect(1111223)<1 then return false end
Duel.SetChainLimitTillChainEnd(aux.FALSE)
end
--
function c1111223.op4(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:GetFlagEffect(1111224)<1 then return false end
Duel.SetChainLimit(aux.FALSE)
end
--
function c1111223.con5(e,tp,eg,ep,ev,re,r,rp)
return re:IsActiveType(TYPE_MONSTER)
end
--
function c1111223.op5(e,tp,eg,ep,ev,re,r,rp)
local c=re:GetHandler()
if not c:IsLocation(LOCATION_MZONE) then return end
c:RegisterFlagEffect(1111225,RESET_EVENT+0x1fe0000,0,0)
end
--
function c1111223.tg6(e,c)
return c:GetFlagEffect(1111225)>0
end
--
--灵曲·年华静谧之月
local m=1111223
local cm=_G["c"..m]
xpcall(function() require("expansions/script/c1110198") end,function() require("script/c1110198") end)
cm.named_with_Soul=true
--
function c1111223.initial_effect(c)
--
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EFFECT_DESTROY_REPLACE)
e1:SetRange(LOCATION_SZONE)
e1:SetTarget(c1111223.tg1)
e1:SetValue(c1111223.val1)
e1:SetOperation(c1111223.op1)
c:RegisterEffect(e1)
--
local e2=Effect.CreateEffect(c)
e2:SetDescription(aux.Stringid(1111223,0))
e2:SetType(EFFECT_TYPE_IGNITION)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(1)
e2:SetCost(c1111223.cost2)
e2:SetOperation(c1111223.op2)
c:RegisterEffect(e2)
--
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e3:SetCode(EVENT_SPSUMMON_SUCCESS)
e3:SetRange(LOCATION_SZONE)
e3:SetOperation(c1111223.op3)
c:RegisterEffect(e3)
--
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e4:SetCode(EVENT_CHAINING)
e4:SetRange(LOCATION_SZONE)
e4:SetOperation(c1111223.op4)
c:RegisterEffect(e4)
--
if not c1111223.global_check then
c1111223.global_check=true
local e5=Effect.GlobalEffect()
e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e5:SetCode(EVENT_CHAINING)
e5:SetCondition(c1111223.con5)
e5:SetOperation(c1111223.op5)
Duel.RegisterEffect(e5,0)
end
--
local e6=Effect.CreateEffect(c)
e6:SetType(EFFECT_TYPE_FIELD)
e6:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
e6:SetRange(LOCATION_SZONE)
e6:SetTargetRange(0,LOCATION_MZONE)
e6:SetTarget(c1111223.tg6)
c:RegisterEffect(e6)
--
end
--
function c1111223.tfilter1(c,e,tp)
return c:IsLocation(LOCATION_ONFIELD) and c:IsReason(REASON_EFFECT) and not c:IsReason(REASON_REPLACE) and c~=e:GetHandler()
end
function c1111223.tg1(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
if chk==0 then return Duel.IsCanRemoveCounter(tp,LOCATION_ONFIELD,LOCATION_ONFIELD,0x1111,1,REASON_EFFECT) and eg:IsExists(c1111223.tfilter1,1,c,e,tp) end
return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
end
--
function c1111223.val1(e,c)
return c1111223.tfilter1(c,e,e:GetHandlerPlayer())
end
--
function c1111223.op1(e,tp,eg,ep,ev,re,r,rp)
Duel.RemoveCounter(tp,LOCATION_ONFIELD,LOCATION_ONFIELD,0x1111,1,REASON_EFFECT)
end
--
function c1111223.cost2(e,tp,eg,ep,ev,re,r,rp,chk)
local c=e:GetHandler()
local num=Duel.GetMatchingGroupCount(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
if chk==0 then return num>0 and c:IsCanAddCounter(0x1111,num) end
c:AddCounter(0x1111,num)
end
--
function c1111223.op2(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local b1=true
local b2=true
local off=1
local ops={}
local opval={}
if b1 then
ops[off]=aux.Stringid(1111223,1)
opval[off-1]=1
off=off+1
end
if b2 then
ops[off]=aux.Stringid(1111223,2)
opval[off-1]=2
off=off+1
end
local op=Duel.SelectOption(tp,table.unpack(ops))
local sel=opval[op]
if sel==1 then
c:ResetFlagEffect(1111223)
c:ResetFlagEffect(1111224)
c:RegisterFlagEffect(1111223,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,1))
else
c:ResetFlagEffect(1111223)
c:ResetFlagEffect(1111224)
c:RegisterFlagEffect(1111224,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,2))
c:RegisterFlagEffect(1111224,RESET_EVENT+0x1fe0000,EFFECT_FLAG_CLIENT_HINT,0,0,aux.Stringid(1111223,3))
end
end
--
function c1111223.op3(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:GetFlagEffect(1111223)<1 then return end
Duel.SetChainLimitTillChainEnd(aux.FALSE)
end
--
function c1111223.op4(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if c:GetFlagEffect(1111224)<1 then return end
Duel.SetChainLimit(aux.FALSE)
end
--
function c1111223.con5(e,tp,eg,ep,ev,re,r,rp)
return re:IsActiveType(TYPE_MONSTER)
end
--
function c1111223.op5(e,tp,eg,ep,ev,re,r,rp)
local c=re:GetHandler()
if not c:IsLocation(LOCATION_MZONE) then return end
c:RegisterFlagEffect(1111225,RESET_EVENT+0x1fe0000,0,0)
end
--
function c1111223.tg6(e,c)
return c:GetFlagEffect(1111225)>0
end
--
expansions/script/c81006014.lua
View file @ 3bab20f8
......@@ -15,7 +15,7 @@ function c81006014.initial_effect(c)
e1:SetType(EFFECT_TYPE_QUICK_O)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetRange(LOCATION_HAND)
e1:SetHintTiming(0,TIMING_MAIN_END)
e1:SetHintTiming(0,TIMING_MAIN_END+TIMINGS_CHECK_MONSTER)
e1:SetCondition(c81006014.spcon)
e1:SetCost(c81006014.spcost)
e1:SetTarget(c81006014.sptg)
......@@ -23,7 +23,7 @@ function c81006014.initial_effect(c)
c:RegisterEffect(e1)
end
function c81006014.rellimit(e,c,tp,sumtp)
return c:IsControler(tp) and c:IsType(TYPE_MONSTER)
return c:GetOwner()==e:GetHandler():GetOwner() and c:IsType(TYPE_MONSTER)
end
function c81006014.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
......
expansions/script/c960009.lua
View file @ 3bab20f8
......@@ -4,7 +4,7 @@ function c960009.initial_effect(c)
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetHintTiming(0,TIMING_END_PHASE)
e1:SetHintTiming(0,TIMING_ATTACK+TIMING_BATTLE_START+TIMINGS_CHECK_MONSTER)
e1:SetCountLimit(1,960009)
e1:SetCost(c960009.cost)
e1:SetOperation(c960009.activate)
......@@ -26,23 +26,27 @@ function c960009.cost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.PayLPCost(tp,500)
end
function c960009.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
--local c=e:GetHandler()
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e1:SetTargetRange(1,0)
e1:SetTargetRange(1,1)
e1:SetValue(1)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_SINGLE)
e3:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
e3:SetRange(LOCATION_MZONE)
e3:SetCode(EFFECT_IMMUNE_EFFECT)
e3:SetValue(c960009.efilter)
e3:SetReset(RESET_EVENT+RESETS_STANDARD)
Duel.RegisterEffect(e3,tp)
local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD)
e1:SetCode(EFFECT_IMMUNE_EFFECT)
e1:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e1:SetTarget(c960009.etarget)
e1:SetValue(c960009.efilter)
e1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e1,tp)
Duel.Hint(HINT_MUSIC,0,aux.Stringid(960009,0))
end
function c960009.thfilter(c)
......@@ -61,5 +65,9 @@ function c960009.thop(e,tp,eg,ep,ev,re,r,rp)
end
end
function c960009.efilter(e,te)
return te:GetOwner()~=e:GetOwner()
end
\ No newline at end of file
return te:GetHandler()~=e:GetHandler()
end
function c960009.etarget(e,c)
return true
end
expansions/script/c9980445.lua
View file @ 3bab20f8
......@@ -93,7 +93,7 @@ function c9980445.spcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.IsExistingMatchingCard(c9980445.cfilter,tp,LOCATION_MZONE,0,1,nil)
end
function c9980445.spfilter(c,e,tp)
return c:IsSetCard(0x1bca) and c:IsLevelBelow(2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
return c:IsSetCard(0x2bcb) and c:IsLevelBelow(2) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
end
function c9980445.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c9980445.spfilter(chkc,e,tp) 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