Commit 025f19ab authored by 聖園ミカ's avatar 聖園ミカ 🐟

vme50

parent a77c52e2
expansions/pics/50218505.jpg

117 KB | W: | H:

expansions/pics/50218505.jpg

130 KB | W: | H:

expansions/pics/50218505.jpg
expansions/pics/50218505.jpg
expansions/pics/50218505.jpg
expansions/pics/50218505.jpg
  • 2-up
  • Swipe
  • Onion skin
--天降曙光‧蕾德拉菲雅 --天降曙光‧蕾德拉菲雅
local s,id=GetID() local s,id=GetID()
function s.initial_effect(c) function s.initial_effect(c)
c:EnableCounterPermit(0x31a) c:EnableCounterPermit(0x31a,LOCATION_MZONE+LOCATION_PZONE)
--special counter permit
local e01=Effect.CreateEffect(c)
e01:SetType(EFFECT_TYPE_SINGLE)
e01:SetCode(EFFECT_COUNTER_PERMIT+0x31a)
e01:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
e01:SetCondition(s.ctpermit)
c:RegisterEffect(e01)
--Activate --Activate
local e0=Effect.CreateEffect(c) local e0=Effect.CreateEffect(c)
e0:SetType(EFFECT_TYPE_ACTIVATE) e0:SetType(EFFECT_TYPE_ACTIVATE)
e0:SetCode(EVENT_FREE_CHAIN) e0:SetCode(EVENT_FREE_CHAIN)
e0:SetRange(LOCATION_HAND)
e0:SetOperation(s.reg) e0:SetOperation(s.reg)
c:RegisterEffect(e0) c:RegisterEffect(e0)
--counter --counter
...@@ -77,7 +85,11 @@ function s.initial_effect(c) ...@@ -77,7 +85,11 @@ function s.initial_effect(c)
e8:SetOperation(s.op2) e8:SetOperation(s.op2)
c:RegisterEffect(e8) c:RegisterEffect(e8)
end end
function s.reg(e,tp,eg,ep,ev,re,r,rp) function s.ctpermit(e)
local c=e:GetHandler()
return c:IsLocation(LOCATION_PZONE) and c:IsStatus(STATUS_CHAINING)
end
function s.reg(e,tp,eg,ep,ev,re,r,rp,chk)
e:GetHandler():AddCounter(0x31a,8) e:GetHandler():AddCounter(0x31a,8)
end end
......
...@@ -30,7 +30,7 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk) ...@@ -30,7 +30,7 @@ function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.RegisterEffect(e1,tp) Duel.RegisterEffect(e1,tp)
end end
function cm.splimit(e,c) function cm.splimit(e,c)
return c:IsLocation(LOCATION_EXTRA) and not c:IsRace(RACE_REPTILE) return not c:IsRace(RACE_REPTILE)
end end
function cm.cfilter(c,e,tp) function cm.cfilter(c,e,tp)
return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_REPTILE) return c:IsFaceup() and c:IsType(TYPE_SYNCHRO) and c:IsRace(RACE_REPTILE)
......
...@@ -102,7 +102,8 @@ function s.setfilter(c,e,tp) ...@@ -102,7 +102,8 @@ function s.setfilter(c,e,tp)
if te and te:GetCondition() then condition=te:GetCondition() end if te and te:GetCondition() then condition=te:GetCondition() end
local tg=nil local tg=nil
if te and te:GetTarget() then tg=te:GetTarget() end if te and te:GetTarget() then tg=te:GetTarget() end
local b2=c:CheckActivateEffect(true,true,false)~=nil and (not cost or cost(e,tp,eg,ep,ev,re,r,rp,0)) local b2=c:CheckActivateEffect(true,true,false)~=nil
and (not cost or cost(e,tp,eg,ep,ev,re,r,rp,0)) and te:CheckCountLimit(tp)==true
and (not condition or condition(e,tp,eg,ep,ev,re,r,rp)) and (not tg or tg(e,tp,eg,ep,ev,re,r,rp,0)) and (not condition or condition(e,tp,eg,ep,ev,re,r,rp)) and (not tg or tg(e,tp,eg,ep,ev,re,r,rp,0))
return c:IsFaceupEx() and c:IsType(TYPE_TRAP) and (b1 or b2) return c:IsFaceupEx() and c:IsType(TYPE_TRAP) and (b1 or b2)
end end
...@@ -135,7 +136,8 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp) ...@@ -135,7 +136,8 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp)
if cte and cte:GetCondition() then condition=cte:GetCondition() end if cte and cte:GetCondition() then condition=cte:GetCondition() end
local target=nil local target=nil
if cte and cte:GetTarget() then target=cte:GetTarget() end if cte and cte:GetTarget() then target=cte:GetTarget() end
local b1=sc:CheckActivateEffect(true,true,false)~=nil and (not cost or cost(e,tp,eg,ep,ev,re,r,rp,0)) local b1=sc:CheckActivateEffect(true,true,false)~=nil
and (not cost or cost(e,tp,eg,ep,ev,re,r,rp,0)) and te:CheckCountLimit(tp)==true
and (not condition or condition(e,tp,eg,ep,ev,re,r,rp)) and (not target or target(e,tp,eg,ep,ev,re,r,rp,0)) and (not condition or condition(e,tp,eg,ep,ev,re,r,rp)) and (not target or target(e,tp,eg,ep,ev,re,r,rp,0))
local b2=sc:IsSSetable() local b2=sc:IsSSetable()
local off=1 local off=1
...@@ -155,12 +157,13 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp) ...@@ -155,12 +157,13 @@ function s.setop(e,tp,eg,ep,ev,re,r,rp)
local sel=opval[op] local sel=opval[op]
if sel==1 then if sel==1 then
Duel.MoveToField(sc,tp,tp,LOCATION_SZONE,POS_FACEUP,true) Duel.MoveToField(sc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
local bc=Duel.GetOperatedGroup():GetFirst()
te:UseCountLimit(tp,1,true) te:UseCountLimit(tp,1,true)
sc:CreateEffectRelation(te) sc:CreateEffectRelation(te)
Duel.RaiseEvent(sc,EVENT_CHAINING,cte,0,tp,tp,Duel.GetCurrentChain())
local tep=sc:GetControler() local tep=sc:GetControler()
local cost=te:GetCost() local cost=te:GetCost()
if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end if cost then cost(te,tep,eg,ep,ev,re,r,rp,1) end
Duel.RaiseEvent(sc,EVENT_CHAINING,te,0,tp,tp,Duel.GetCurrentChain())
local target=te:GetTarget() local target=te:GetTarget()
if target then target(e,tp,eg,ep,ev,re,r,rp,1) end if target then target(e,tp,eg,ep,ev,re,r,rp,1) end
local ag=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS) local ag=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
......
...@@ -71,8 +71,8 @@ function cm.cfilter(c,g) ...@@ -71,8 +71,8 @@ function cm.cfilter(c,g)
end end
function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk) function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
local lg=e:GetHandler():GetLinkedGroup() local lg=e:GetHandler():GetLinkedGroup()
if chk==0 then return Duel.CheckReleaseGroup(REASON_COST,tp,cm.cfilter,1,nil,lg) end if chk==0 then return Duel.CheckReleaseGroup(tp,cm.cfilter,1,nil,lg) end
local g=Duel.SelectReleaseGroup(REASON_COST,tp,cm.cfilter,1,1,nil,lg) local g=Duel.SelectReleaseGroup(tp,cm.cfilter,1,1,nil,lg)
Duel.Release(g,REASON_COST) Duel.Release(g,REASON_COST)
end end
function cm.spfilter(c,e,tp) function cm.spfilter(c,e,tp)
......
...@@ -112,16 +112,6 @@ end ...@@ -112,16 +112,6 @@ end
function Tenka.costfilter(c,tp) function Tenka.costfilter(c,tp)
return ((c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_TRAP)~=0 and bit.band(c:GetOriginalType(),TYPE_CONTINUOUS)~=0 and c:IsType(TYPE_MONSTER)) or c:IsHasEffect(81049012,tp)) and c:IsAbleToGraveAsCost() and (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) return ((c:IsFaceup() and bit.band(c:GetOriginalType(),TYPE_TRAP)~=0 and bit.band(c:GetOriginalType(),TYPE_CONTINUOUS)~=0 and c:IsType(TYPE_MONSTER)) or c:IsHasEffect(81049012,tp)) and c:IsAbleToGraveAsCost() and (c:IsLocation(LOCATION_HAND) or c:IsFaceup())
end end
--FlowerKnightGirl
function Tenka.FlowerKnightGirl(c)
local ea=Effect.CreateEffect(c)
ea:SetType(EFFECT_TYPE_SINGLE)
ea:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
ea:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
ea:SetRange(LOCATION_MZONE)
ea:SetValue(aux.TRUE)
c:RegisterEffect(ea)
end
--Chiyuu --Chiyuu
function Tenka.Chiyuu(c,m) function Tenka.Chiyuu(c,m)
c:SetSPSummonOnce(m) c:SetSPSummonOnce(m)
......
...@@ -3,6 +3,7 @@ local m=81040017 ...@@ -3,6 +3,7 @@ local m=81040017
local cm=_G["c"..m] local cm=_G["c"..m]
Duel.LoadScript("c81000000.lua") Duel.LoadScript("c81000000.lua")
function cm.initial_effect(c) function cm.initial_effect(c)
c:EnableReviveLimit()
--disable --disable
local e1=Effect.CreateEffect(c) local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_DISABLE) e1:SetCategory(CATEGORY_DISABLE)
......
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