Commit b2c47c20 authored by Nemo Ma's avatar Nemo Ma

fix

parent 8a8f4cac
......@@ -24,8 +24,9 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
local e1=Effect.CreateEffect(c)
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_ADJUST)
e1:SetCode(EVENT_PHASE+PHASE_END)
e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
e1:SetCountLimit(1)
e1:SetCondition(cm.adjustcon)
e1:SetOperation(cm.adjustop)
e1:SetReset(RESET_PHASE+PHASE_END)
......@@ -36,7 +37,7 @@ function cm.testp(tp)
return 1-tp
end
function cm.exf(c,sg)
return c:IsSynchroSummonable(nil,sg,#sg-1,#sg) or c:IsXyzSummonable(sg,#sg-1,#sg) or c:IsLinkSummonable(sg,nil,#sg-1,#sg)
return c:IsSynchroSummonable(nil,sg,#sg-2,#sg) or c:IsXyzSummonable(sg,#sg-2,#sg) or c:IsLinkSummonable(sg,nil,#sg-2,#sg)
end
function cm.adjustcon(e,tp,eg,ep,ev,re,r,rp)
return Duel.GetCurrentChain()==0 and cm[cm.testp(tp)]==0 and Duel.GetFieldGroupCount(cm.testp(tp),LOCATION_MZONE,0)>3 and Duel.GetCurrentPhase()==PHASE_END
......@@ -44,14 +45,14 @@ end
function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
local phase=Duel.GetCurrentPhase()
local p=cm.testp(tp)
if (phase==PHASE_DAMAGE and not Duel.IsDamageCalculated()) or phase==PHASE_DAMAGE_CAL then return end
--if (phase==PHASE_DAMAGE and not Duel.IsDamageCalculated()) or phase==PHASE_DAMAGE_CAL then return end
cm[p]=1
local mzg=Duel.GetFieldGroup(p,LOCATION_MZONE,0)
Duel.Hint(HINT_SELECTMSG,p,HINTMSG_SPSUMMON)
local exg=Duel.SelectMatchingCard(p,cm.exf,p,LOCATION_EXTRA,0,1,1,nil,mzg)
local tc=exg:GetFirst()
if tc then
local e1=Effect.CreateEffect(e:GetHandler())
--[[local e1=Effect.CreateEffect(e:GetHandler())
e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
e1:SetCode(EVENT_SPSUMMON_SUCCESS)
e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
......@@ -62,32 +63,32 @@ function cm.adjustop(e,tp,eg,ep,ev,re,r,rp)
Duel.RegisterEffect(e1,p)
local e2=e1:Clone()
e2:SetCode(EVENT_SPSUMMON_NEGATED)
Duel.RegisterEffect(e2,p)
Duel.RegisterEffect(e2,p)]]
local off=1
local ops={}
local opval={}
if tc:IsSynchroSummonable(nil,mzg,#mzg-1,#mzg) then
if tc:IsSynchroSummonable(nil,mzg,#mzg-2,#mzg) then
ops[off]=1164
opval[off-1]=1
off=off+1
end
if tc:IsXyzSummonable(mzg,#mzg-1,#mzg) then
if tc:IsXyzSummonable(mzg,#mzg-2,#mzg) then
ops[off]=1165
opval[off-1]=2
off=off+1
end
if tc:IsLinkSummonable(mzg,nil,#mzg-1,#mzg) then
if tc:IsLinkSummonable(mzg,nil,#mzg-2,#mzg) then
ops[off]=1166
opval[off-1]=3
off=off+1
end
local op=Duel.SelectOption(p,table.unpack(ops))
if opval[op]==1 then
Duel.SynchroSummon(p,tc,nil,mzg,#mzg-1,#mzg)
Duel.SynchroSummon(p,tc,nil,mzg,#mzg-2,#mzg)
elseif opval[op]==2 then
Duel.XyzSummon(p,tc,mzg,#mzg-1,#mzg)
Duel.XyzSummon(p,tc,mzg,#mzg-2,#mzg)
elseif opval[op]==3 then
Duel.LinkSummon(p,tc,mzg,nil,#mzg-1,#mzg)
Duel.LinkSummon(p,tc,mzg,nil,#mzg-2,#mzg)
end
else
cm[p]=0
......
......@@ -27,7 +27,7 @@ function cm.limtg(e,tp,eg,ep,ev,re,r,rp,chk)
Duel.SetChainLimit(cm.chainlm)
end
function cm.chainlm(re,rp,tp)
return re:GetHandler():IsOnField()
return not re:GetHandler():IsOnField()
end
function cm.limop(e,tp,eg,ep,ev,re,r,rp)
local e1=Effect.CreateEffect(e:GetHandler())
......
--OOO驱动器
function c32100014.initial_effect(c)
--Activate
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
e1:SetType(EFFECT_TYPE_ACTIVATE)
e1:SetCode(EVENT_FREE_CHAIN)
e1:SetCountLimit(1,32100014)
e1:SetCost(c32100014.cost)
e1:SetTarget(c32100014.target)
e1:SetOperation(c32100014.activate)
c:RegisterEffect(e1)
--to deck and to hand
local e1=Effect.CreateEffect(c)
e1:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND)
e1:SetType(EFFECT_TYPE_IGNITION)
e1:SetRange(LOCATION_GRAVE)
e1:SetCountLimit(1,32100014)
e1:SetTarget(c32100014.tdhtg)
e1:SetOperation(c32100014.tdhop)
c:RegisterEffect(e1)
end
function c32100014.cost(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,2,e:GetHandler()) end
Duel.DiscardHand(tp,Card.IsDiscardable,2,2,REASON_COST+REASON_DISCARD,e:GetHandler())
end
function c32100014.filter(c)
return c.SetCard_HR_Corecoin and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
end
function c32100014.target(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(c32100014.filter,tp,LOCATION_DECK,0,3,nil) end
Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
end
function c32100014.activate(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
local g=Duel.SelectMatchingCard(tp,c32100014.filter,tp,LOCATION_DECK,0,3,3,nil)
if g:GetCount()>0 then
Duel.SendtoHand(g,nil,REASON_EFFECT)
Duel.ConfirmCards(1-tp,g)
end
end
function c32100014.tdhtg(e,tp,eg,ep,ev,re,r,rp,chk)
if chk==0 then return Duel.IsExistingMatchingCard(function(c) return c.SetCard_HR_Corecoin and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() end,tp,LOCATION_GRAVE,0,3,nil) and e:GetHandler():IsAbleToHand() end
Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,3,tp,LOCATION_GRAVE)
Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
end
function c32100014.tdhop(e,tp,eg,ep,ev,re,r,rp)
local c=e:GetHandler()
if Duel.IsExistingMatchingCard(function(c) return c.SetCard_HR_Corecoin and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() end,tp,LOCATION_GRAVE,0,3,nil) then
local sg=Duel.SelectMatchingCard(tp,function(c) return c.SetCard_HR_Corecoin and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() end,tp,LOCATION_GRAVE,0,3,3,nil)
if Duel.SendtoDeck(sg,nil,2,REASON_EFFECT)~=0 and c:IsRelateToEffect(e) then
Duel.SendtoHand(c,nil,REASON_EFFECT)
end
end
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