Skip to content

Y
ygopro-222DIY-cards
Commit c30bf45e authored by TanakaKotoha's avatar TanakaKotoha
Browse files
Options

7

parent f3496c41
Hide whitespace changes
Inline Side-by-side
Showing with 39 additions and 49 deletions
expansions/script/c12061021.lua
View file @ c30bf45e
......@@ -26,7 +26,6 @@ function cm.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_RECOVER)
e2:SetRange(LOCATION_SZONE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCountLimit(1)
e2:SetCondition(cm.drcon)
e2:SetTarget(cm.drtg)
......@@ -55,9 +54,10 @@ function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end
function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget()
local c=e:GetHandler()
if not tc:IsRelateToEffect(e) and not e:GetHandler():IsRelateToEffect(e) then return end
Duel.SendtoDeck(tc,nil,2,REASON_EFFECT)
if tc:IsSetCard(0xafac) and c:IsAbleToHandAsCost() then
if ( tc:IsSetCard(0xafac) or tc:IsRace(RACE_PLANT) ) and tc:IsAbleToHandAsCost() then
Duel.Recover(tp,500,REASON_EFFECT)
end
end
......@@ -70,12 +70,11 @@ end
function cm.drtg(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_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
end
function cm.drop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
local g=Duel.SelectMatchingCard(tp,cm.filter,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
......
expansions/script/c33400953.lua
View file @ c30bf45e
......@@ -58,7 +58,7 @@ function cm.ctfilter(c)
end
function cm.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and cm.ctfilter(chkc) end
if chk==0 then return true end
if chk==0 then return Duel.IsExistingTarget(cm.ctfilter,tp,0,LOCATION_MZONE,1,nil) end
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
local g=Duel.SelectTarget(tp,cm.ctfilter,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),0,0)
......
expansions/script/c33400954.lua
View file @ c30bf45e
......@@ -115,13 +115,13 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetValue(sc:GetAttack()/2)
e1:SetValue(tc:GetAttack()/2)
tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
e2:SetReset(RESET_EVENT+RESETS_STANDARD)
e2:SetValue(sc:GetDefense()/2)
e2:SetValue(tc:GetDefense()/2)
tc:RegisterEffect(e2)
local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE)
......
expansions/script/c33500933.lua
View file @ c30bf45e
......@@ -35,7 +35,6 @@ function cm.initial_effect(c)
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e3:SetTarget(cm.indtg)
......@@ -48,7 +47,6 @@ function cm.initial_effect(c)
local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD)
e5:SetRange(LOCATION_MZONE)
e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e5:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e5:SetCode(EFFECT_DISABLE)
e5:SetTarget(cm.indtg2)
......@@ -67,6 +65,12 @@ function cm.initial_effect(c)
e7:SetCost(cm.cost)
e7:SetOperation(cm.op)
c:RegisterEffect(e7)
local e7_1=Effect.CreateEffect(c)
e7_1:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e7_1:SetCode(EVENT_CHAINING)
e7_1:SetRange(0x70)
e7_1:SetOperation(cm.counterop)
c:RegisterEffect(e7_1)
--Equip Okatana
local e9=Effect.CreateEffect(c)
e9:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
......@@ -144,7 +148,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetCountLimit(1)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetLabelObject(g)
e2:SetLabelObject(sc)
e2:SetCondition(cm.descon)
e2:SetOperation(cm.desop)
Duel.RegisterEffect(e2,tp)
......@@ -169,11 +173,11 @@ function cm.atkval(e,c)
end
--e3
function cm.indtg(e,c)
return (c:IsAttribute(ATTRIBUTE_WATER) or (e:GetHandler()==c and e:GetHandler():IsAttribute(ATTRIBUTE_WATER) ) )and c:GetCounter(0x1015)>0
return c:IsAttribute(ATTRIBUTE_WATER) and c:GetCounter(0x1015)>0
end
--e5
function cm.indtg2(e,c)
return (c:GetAttribute()~=ATTRIBUTE_WATER or (e:GetHandler()==c and e:GetHandler():GetAttribute()~=ATTRIBUTE_WATER) ) and c:GetCounter(0x1015)>0
return c:GetAttribute()~=ATTRIBUTE_WATER and c:GetCounter(0x1015)>0
end
--e7
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
......@@ -187,44 +191,31 @@ end
function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
--activate limit
local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
e3:SetCode(EVENT_CHAINING)
e3:SetOperation(cm.counterop)
e3:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e3,tp)
local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4:SetCode(EFFECT_CANNOT_ACTIVATE)
e4:SetTargetRange(1,0)
e4:SetCondition(cm.econ)
e4:SetValue(1)
e4:SetLabel(0)
e4:SetValue(cm.limittg)
e4:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e4,tp)
local e6=e4:Clone()
e6:SetTargetRange(0,1)
e6:SetLabel(1)
e6:SetCondition(cm.econ2)
e6:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e6,tp)
local e4_1=Effect.CreateEffect(c)
e4_1:SetType(EFFECT_TYPE_FIELD)
e4_1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4_1:SetCode(EFFECT_CANNOT_ACTIVATE)
e4_1:SetTargetRange(0,1)
e4_1:SetValue(cm.limittg)
e4_1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e4_1,tp)
end
function cm.counterop(e,tp,eg,ep,ev,re,r,rp)
if ep==tp then
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+0x3ff0000+RESET_PHASE+PHASE_END,0,1)
else
Duel.RegisterFlagEffect(1-tp,m,RESET_EVENT+0x3ff0000+RESET_PHASE+PHASE_END,0,1)
if ep then
Duel.RegisterFlagEffect(ep,m,RESET_PHASE+PHASE_END,0,1)
end
end
function cm.cfilter(c,type)
return c:IsFaceup() and c:IsType(type)
end
function cm.econ(e)
return Duel.GetCustomActivityCount(m,tp,ACTIVITY_CHAIN)>=3
end
function cm.econ2(e)
return Duel.GetCustomActivityCount(m,1-tp,ACTIVITY_CHAIN)>=3
function cm.limittg(e,re)
local t1=Duel.GetFlagEffect(re:GetHandlerPlayer(),m)
return t1>=3
end
--e9
function cm.Eqop1(e,tp,eg,ep,ev,re,r,rp)
......@@ -269,7 +260,7 @@ function cm.TojiEquip(ec,e,tp,eg,ep,ev,re,r,rp)
local e2=Effect.CreateEffect(ec)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCategory(CATEGORY_COUNTER)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_DESTROYED)
e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(2,m+1)
......
expansions/script/c81012087.lua
View file @ c30bf45e
......@@ -3,7 +3,7 @@ local m=81012087
local cm=_G["c"..m]
function cm.initial_effect(c)
--link summon
aux.AddLinkProcedure(c,cm.mfilter,2)
aux.AddLinkProcedure(c,cm.mfilter,1,1)
c:EnableReviveLimit()
--
local e0=Effect.CreateEffect(c)
......
expansions/script/c81041013.lua
View file @ c30bf45e
......@@ -19,7 +19,7 @@ function c81041013.initial_effect(c)
local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetRange(LOCATION_SZONE)
e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_DESTROYED)
e2:SetCondition(c81041013.ctcon)
e2:SetOperation(c81041013.ctop)
......@@ -61,11 +61,11 @@ function c81041013.lvop(e,tp,eg,ep,ev,re,r,rp)
end
end
function c81041013.ctfilter(c,tp)
return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP) and c:GetPreviousControler()==tp
return c:IsPreviousLocation(LOCATION_ONFIELD) and c:IsPreviousPosition(POS_FACEUP)
and bit.band(c:GetPreviousTypeOnField(),TYPE_PENDULUM)~=0
end
function c81041013.ctcon(e,tp,eg,ep,ev,re,r,rp)
return eg:IsExists(c81041013.ctfilter,1,nil,tp)
return eg:IsExists(c81041013.ctfilter,1,nil)
end
function c81041013.ctop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
......
expansions/script/c81041044.lua
View file @ c30bf45e
......@@ -35,7 +35,7 @@ function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
return c:GetSequence()>4 and c:GetLinkedGroupCount()==0
end
function cm.spfilter(c,e,tp)
return c:IsAttack(1550) and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM)
return c:IsAttack(1550) and c:IsType(TYPE_RITUAL) and c:IsType(TYPE_PENDULUM) and c:IsDefense(1050)
and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end
......
expansions/script/c81041050.lua
View file @ c30bf45e
......@@ -4,7 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
aux.EnablePendulumAttribute(c,false)
c:EnableReviveLimit()
Tenka.KoikakeRitual(c)
--Activate
......
expansions/script/c81041051.lua
View file @ c30bf45e
......@@ -4,7 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
aux.EnablePendulumAttribute(c,false)
c:EnableReviveLimit()
Tenka.KoikakeRitual(c)
--Activate
......
expansions/script/c81041052.lua
View file @ c30bf45e
......@@ -4,7 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
aux.EnablePendulumAttribute(c,false)
c:EnableReviveLimit()
Tenka.KoikakeRitual(c)
--Activate
......
expansions/script/c81041053.lua
View file @ c30bf45e
......@@ -4,7 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c)
--pendulum summon
aux.EnablePendulumAttribute(c)
aux.EnablePendulumAttribute(c,false)
c:EnableReviveLimit()
Tenka.KoikakeRitual(c)
--Activate
......
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