Commit c30bf45e authored by TanakaKotoha's avatar TanakaKotoha

7

parent f3496c41
...@@ -26,7 +26,6 @@ function cm.initial_effect(c) ...@@ -26,7 +26,6 @@ function cm.initial_effect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCode(EVENT_RECOVER) e2:SetCode(EVENT_RECOVER)
e2:SetRange(LOCATION_SZONE) e2:SetRange(LOCATION_SZONE)
e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e2:SetCountLimit(1) e2:SetCountLimit(1)
e2:SetCondition(cm.drcon) e2:SetCondition(cm.drcon)
e2:SetTarget(cm.drtg) e2:SetTarget(cm.drtg)
...@@ -55,9 +54,10 @@ function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) ...@@ -55,9 +54,10 @@ function cm.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
end end
function cm.tdop(e,tp,eg,ep,ev,re,r,rp) function cm.tdop(e,tp,eg,ep,ev,re,r,rp)
local tc=Duel.GetFirstTarget() local tc=Duel.GetFirstTarget()
local c=e:GetHandler()
if not tc:IsRelateToEffect(e) and not e:GetHandler():IsRelateToEffect(e) then return end if not tc:IsRelateToEffect(e) and not e:GetHandler():IsRelateToEffect(e) then return end
Duel.SendtoDeck(tc,nil,2,REASON_EFFECT) 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) Duel.Recover(tp,500,REASON_EFFECT)
end end
end end
...@@ -70,12 +70,11 @@ end ...@@ -70,12 +70,11 @@ end
function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk) function cm.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 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 and Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0) Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
end end
function cm.drop(e,tp,eg,ep,ev,re,r,rp) function cm.drop(e,tp,eg,ep,ev,re,r,rp)
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON) 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 if g:GetCount()>0 then
Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP) Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
end end
......
...@@ -58,7 +58,7 @@ function cm.ctfilter(c) ...@@ -58,7 +58,7 @@ function cm.ctfilter(c)
end end
function cm.cttg(e,tp,eg,ep,ev,re,r,rp,chk,chkc) 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 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) Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
local g=Duel.SelectTarget(tp,cm.ctfilter,tp,0,LOCATION_MZONE,1,1,nil) local g=Duel.SelectTarget(tp,cm.ctfilter,tp,0,LOCATION_MZONE,1,1,nil)
Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),0,0) Duel.SetOperationInfo(0,CATEGORY_CONTROL,g,g:GetCount(),0,0)
......
...@@ -115,13 +115,13 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp) ...@@ -115,13 +115,13 @@ function cm.atkop(e,tp,eg,ep,ev,re,r,rp)
e1:SetType(EFFECT_TYPE_SINGLE) e1:SetType(EFFECT_TYPE_SINGLE)
e1:SetCode(EFFECT_SET_ATTACK_FINAL) e1:SetCode(EFFECT_SET_ATTACK_FINAL)
e1:SetReset(RESET_EVENT+RESETS_STANDARD) e1:SetReset(RESET_EVENT+RESETS_STANDARD)
e1:SetValue(sc:GetAttack()/2) e1:SetValue(tc:GetAttack()/2)
tc:RegisterEffect(e1) tc:RegisterEffect(e1)
local e2=Effect.CreateEffect(e:GetHandler()) local e2=Effect.CreateEffect(e:GetHandler())
e2:SetType(EFFECT_TYPE_SINGLE) e2:SetType(EFFECT_TYPE_SINGLE)
e2:SetCode(EFFECT_SET_DEFENSE_FINAL) e2:SetCode(EFFECT_SET_DEFENSE_FINAL)
e2:SetReset(RESET_EVENT+RESETS_STANDARD) e2:SetReset(RESET_EVENT+RESETS_STANDARD)
e2:SetValue(sc:GetDefense()/2) e2:SetValue(tc:GetDefense()/2)
tc:RegisterEffect(e2) tc:RegisterEffect(e2)
local e3=Effect.CreateEffect(e:GetHandler()) local e3=Effect.CreateEffect(e:GetHandler())
e3:SetType(EFFECT_TYPE_SINGLE) e3:SetType(EFFECT_TYPE_SINGLE)
......
...@@ -35,7 +35,6 @@ function cm.initial_effect(c) ...@@ -35,7 +35,6 @@ function cm.initial_effect(c)
local e3=Effect.CreateEffect(c) local e3=Effect.CreateEffect(c)
e3:SetType(EFFECT_TYPE_FIELD) e3:SetType(EFFECT_TYPE_FIELD)
e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE) e3:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e3:SetRange(LOCATION_MZONE) e3:SetRange(LOCATION_MZONE)
e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e3:SetTarget(cm.indtg) e3:SetTarget(cm.indtg)
...@@ -48,7 +47,6 @@ function cm.initial_effect(c) ...@@ -48,7 +47,6 @@ function cm.initial_effect(c)
local e5=Effect.CreateEffect(c) local e5=Effect.CreateEffect(c)
e5:SetType(EFFECT_TYPE_FIELD) e5:SetType(EFFECT_TYPE_FIELD)
e5:SetRange(LOCATION_MZONE) e5:SetRange(LOCATION_MZONE)
e5:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e5:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE) e5:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
e5:SetCode(EFFECT_DISABLE) e5:SetCode(EFFECT_DISABLE)
e5:SetTarget(cm.indtg2) e5:SetTarget(cm.indtg2)
...@@ -67,6 +65,12 @@ function cm.initial_effect(c) ...@@ -67,6 +65,12 @@ function cm.initial_effect(c)
e7:SetCost(cm.cost) e7:SetCost(cm.cost)
e7:SetOperation(cm.op) e7:SetOperation(cm.op)
c:RegisterEffect(e7) 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 --Equip Okatana
local e9=Effect.CreateEffect(c) local e9=Effect.CreateEffect(c)
e9:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS) e9:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
...@@ -144,7 +148,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp) ...@@ -144,7 +148,7 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
e2:SetCode(EVENT_PHASE+PHASE_END) e2:SetCode(EVENT_PHASE+PHASE_END)
e2:SetCountLimit(1) e2:SetCountLimit(1)
e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE) e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e2:SetLabelObject(g) e2:SetLabelObject(sc)
e2:SetCondition(cm.descon) e2:SetCondition(cm.descon)
e2:SetOperation(cm.desop) e2:SetOperation(cm.desop)
Duel.RegisterEffect(e2,tp) Duel.RegisterEffect(e2,tp)
...@@ -169,11 +173,11 @@ function cm.atkval(e,c) ...@@ -169,11 +173,11 @@ function cm.atkval(e,c)
end end
--e3 --e3
function cm.indtg(e,c) 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 end
--e5 --e5
function cm.indtg2(e,c) 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 end
--e7 --e7
function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk) function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
...@@ -187,44 +191,31 @@ end ...@@ -187,44 +191,31 @@ end
function cm.op(e,tp,eg,ep,ev,re,r,rp) function cm.op(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
--activate limit --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) local e4=Effect.CreateEffect(c)
e4:SetType(EFFECT_TYPE_FIELD) e4:SetType(EFFECT_TYPE_FIELD)
e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET) e4:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e4:SetCode(EFFECT_CANNOT_ACTIVATE) e4:SetCode(EFFECT_CANNOT_ACTIVATE)
e4:SetTargetRange(1,0) e4:SetTargetRange(1,0)
e4:SetCondition(cm.econ) e4:SetValue(cm.limittg)
e4:SetValue(1)
e4:SetLabel(0)
e4:SetReset(RESET_PHASE+PHASE_END) e4:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e4,tp) Duel.RegisterEffect(e4,tp)
local e6=e4:Clone() local e4_1=Effect.CreateEffect(c)
e6:SetTargetRange(0,1) e4_1:SetType(EFFECT_TYPE_FIELD)
e6:SetLabel(1) e4_1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
e6:SetCondition(cm.econ2) e4_1:SetCode(EFFECT_CANNOT_ACTIVATE)
e6:SetReset(RESET_PHASE+PHASE_END) e4_1:SetTargetRange(0,1)
Duel.RegisterEffect(e6,tp) e4_1:SetValue(cm.limittg)
e4_1:SetReset(RESET_PHASE+PHASE_END)
Duel.RegisterEffect(e4_1,tp)
end end
function cm.counterop(e,tp,eg,ep,ev,re,r,rp) function cm.counterop(e,tp,eg,ep,ev,re,r,rp)
if ep==tp then if ep then
Duel.RegisterFlagEffect(tp,m,RESET_EVENT+0x3ff0000+RESET_PHASE+PHASE_END,0,1) Duel.RegisterFlagEffect(ep,m,RESET_PHASE+PHASE_END,0,1)
else
Duel.RegisterFlagEffect(1-tp,m,RESET_EVENT+0x3ff0000+RESET_PHASE+PHASE_END,0,1)
end end
end end
function cm.cfilter(c,type) function cm.limittg(e,re)
return c:IsFaceup() and c:IsType(type) local t1=Duel.GetFlagEffect(re:GetHandlerPlayer(),m)
end return t1>=3
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
end end
--e9 --e9
function cm.Eqop1(e,tp,eg,ep,ev,re,r,rp) 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) ...@@ -269,7 +260,7 @@ function cm.TojiEquip(ec,e,tp,eg,ep,ev,re,r,rp)
local e2=Effect.CreateEffect(ec) local e2=Effect.CreateEffect(ec)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
e2:SetCategory(CATEGORY_COUNTER) e2:SetCategory(CATEGORY_COUNTER)
e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_DAMAGE_STEP) e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetCode(EVENT_DESTROYED) e2:SetCode(EVENT_DESTROYED)
e2:SetRange(LOCATION_SZONE) e2:SetRange(LOCATION_SZONE)
e2:SetCountLimit(2,m+1) e2:SetCountLimit(2,m+1)
......
...@@ -3,7 +3,7 @@ local m=81012087 ...@@ -3,7 +3,7 @@ local m=81012087
local cm=_G["c"..m] local cm=_G["c"..m]
function cm.initial_effect(c) function cm.initial_effect(c)
--link summon --link summon
aux.AddLinkProcedure(c,cm.mfilter,2) aux.AddLinkProcedure(c,cm.mfilter,1,1)
c:EnableReviveLimit() c:EnableReviveLimit()
-- --
local e0=Effect.CreateEffect(c) local e0=Effect.CreateEffect(c)
......
...@@ -19,7 +19,7 @@ function c81041013.initial_effect(c) ...@@ -19,7 +19,7 @@ function c81041013.initial_effect(c)
local e2=Effect.CreateEffect(c) local e2=Effect.CreateEffect(c)
e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS) e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e2:SetProperty(EFFECT_FLAG_DELAY) e2:SetProperty(EFFECT_FLAG_DELAY)
e2:SetRange(LOCATION_SZONE) e2:SetRange(LOCATION_MZONE)
e2:SetCode(EVENT_DESTROYED) e2:SetCode(EVENT_DESTROYED)
e2:SetCondition(c81041013.ctcon) e2:SetCondition(c81041013.ctcon)
e2:SetOperation(c81041013.ctop) e2:SetOperation(c81041013.ctop)
...@@ -61,11 +61,11 @@ function c81041013.lvop(e,tp,eg,ep,ev,re,r,rp) ...@@ -61,11 +61,11 @@ function c81041013.lvop(e,tp,eg,ep,ev,re,r,rp)
end end
end end
function c81041013.ctfilter(c,tp) 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 and bit.band(c:GetPreviousTypeOnField(),TYPE_PENDULUM)~=0
end end
function c81041013.ctcon(e,tp,eg,ep,ev,re,r,rp) 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 end
function c81041013.ctop(e,tp,eg,ep,ev,re,r,rp) function c81041013.ctop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler() local c=e:GetHandler()
......
...@@ -35,7 +35,7 @@ function cm.spcon(e,tp,eg,ep,ev,re,r,rp) ...@@ -35,7 +35,7 @@ function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
return c:GetSequence()>4 and c:GetLinkedGroupCount()==0 return c:GetSequence()>4 and c:GetLinkedGroupCount()==0
end end
function cm.spfilter(c,e,tp) 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 c:IsCanBeSpecialSummoned(e,0,tp,false,false)
and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0 and Duel.GetLocationCountFromEx(tp,tp,nil,c)>0
end end
......
...@@ -4,7 +4,7 @@ local cm=_G["c"..m] ...@@ -4,7 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua") Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c) function cm.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c,false)
c:EnableReviveLimit() c:EnableReviveLimit()
Tenka.KoikakeRitual(c) Tenka.KoikakeRitual(c)
--Activate --Activate
......
...@@ -4,7 +4,7 @@ local cm=_G["c"..m] ...@@ -4,7 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua") Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c) function cm.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c,false)
c:EnableReviveLimit() c:EnableReviveLimit()
Tenka.KoikakeRitual(c) Tenka.KoikakeRitual(c)
--Activate --Activate
......
...@@ -4,7 +4,7 @@ local cm=_G["c"..m] ...@@ -4,7 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua") Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c) function cm.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c,false)
c:EnableReviveLimit() c:EnableReviveLimit()
Tenka.KoikakeRitual(c) Tenka.KoikakeRitual(c)
--Activate --Activate
......
...@@ -4,7 +4,7 @@ local cm=_G["c"..m] ...@@ -4,7 +4,7 @@ local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua") Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c) function cm.initial_effect(c)
--pendulum summon --pendulum summon
aux.EnablePendulumAttribute(c) aux.EnablePendulumAttribute(c,false)
c:EnableReviveLimit() c:EnableReviveLimit()
Tenka.KoikakeRitual(c) Tenka.KoikakeRitual(c)
--Activate --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