Skip to content

Y
ygopro-THC-cards
Commit 8d1ba57c authored by wyykak's avatar wyykak
Browse files
Options

fix from gold 

Signed-off-by: wyykak's avatarwyykak <wyy_1414@126.com>
parent c13737e2
Pipeline #40226 passed with stage
    in 19 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 245 additions and 3 deletions
    script/c86379652.lua
    View file @ 8d1ba57c
    ......@@ -24,6 +24,57 @@ function c86379652.initial_effect(c)
    e3:SetTarget(c86379652.destg)
    e3:SetOperation(c86379652.desop)
    c:RegisterEffect(e3)
    --
    if not c86379652.global_check then
    c86379652.global_check=true
    local ge1=Effect.CreateEffect(c)
    ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge1:SetCode(EVENT_SUMMON_SUCCESS)
    ge1:SetOperation(c86379652.checkop1)
    Duel.RegisterEffect(ge1,0)
    local ge2=Effect.CreateEffect(c)
    ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
    ge2:SetOperation(c86379652.checkop2)
    Duel.RegisterEffect(ge2,0)
    local ge3=Effect.CreateEffect(c)
    ge3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge3:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
    ge3:SetOperation(c86379652.checkop3)
    Duel.RegisterEffect(ge3,0)
    local ge4=Effect.CreateEffect(c)
    ge4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge4:SetCode(EVENT_MSET)
    ge4:SetOperation(c86379652.checkop1)
    Duel.RegisterEffect(ge4,0)
    local ge5=Effect.CreateEffect(c)
    ge5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge5:SetCode(EVENT_SSET)
    ge5:SetOperation(c86379652.checkop4)
    Duel.RegisterEffect(ge5,0)
    end
    end
    --
    --
    function c86379652.checkop1(e,tp,eg,ep,ev,re,r,rp)
    for tc in aux.Next(eg) do
    tc:RegisterFlagEffect(186379654,RESET_EVENT+RESET_TOFIELD+RESET_TOHAND+RESET_TOGRAVE+RESET_PHASE+PHASE_END,0,1)
    end
    end
    function c86379652.checkop2(e,tp,eg,ep,ev,re,r,rp)
    for tc in aux.Next(eg) do
    tc:RegisterFlagEffect(186379655,RESET_EVENT+RESET_TOFIELD+RESET_TOHAND+RESET_TOGRAVE+RESET_PHASE+PHASE_END,0,1)
    end
    end
    function c86379652.checkop3(e,tp,eg,ep,ev,re,r,rp)
    for tc in aux.Next(eg) do
    tc:RegisterFlagEffect(186379656,RESET_EVENT+RESET_TOFIELD+RESET_TOHAND+RESET_TOGRAVE+RESET_PHASE+PHASE_END,0,1)
    end
    end
    function c86379652.checkop4(e,tp,eg,ep,ev,re,r,rp)
    for tc in aux.Next(eg) do
    tc:RegisterFlagEffect(186379657,RESET_EVENT+RESET_TOFIELD+RESET_TOHAND+RESET_TOGRAVE+RESET_PHASE+PHASE_END,0,1)
    end
    end
    --
    function c86379652.matfilter(c)
    ......@@ -68,7 +119,77 @@ function c86379652.op1_1(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    local fid,ct=e:GetLabel()
    if tc:GetFlagEffect(86379652)>0 and tc:GetFlagEffectLabel(86379652)==fid then
    Duel.ReturnToField(tc)
    local rc=tc
    local pos=rc:GetPreviousPosition()
    local cp=rc:GetPreviousControler()
    if rc:IsType(TYPE_FIELD) and rc:IsPreviousLocation(LOCATION_FZONE) then
    if Duel.CheckLocation(cp,LOCATION_SZONE,5) then
    Duel.MoveToField(rc,cp,cp,LOCATION_FZONE,pos,true)
    if rc:IsFacedown() and rc:GetFlagEffect(186379657)>0 then
    rc:SetStatus(STATUS_SET_TURN,true)
    end
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    elseif rc:IsType(TYPE_PENDULUM) and rc:IsPreviousLocation(LOCATION_PZONE) then
    if Duel.CheckLocation(cp,LOCATION_SZONE,0) or Duel.CheckLocation(cp,LOCATION_SZONE,4) then
    Duel.MoveToField(rc,cp,cp,LOCATION_PZONE,pos,true)
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    elseif rc:IsType(TYPE_MONSTER) and rc:IsPreviousLocation(LOCATION_SZONE) then
    local ty=rc:GetPreviousTypeOnField()
    if Duel.GetLocationCount(cp,LOCATION_SZONE)>0 then
    Duel.MoveToField(rc,cp,cp,LOCATION_SZONE,pos,true)
    local e1=Effect.CreateEffect(c)
    e1:SetCode(EFFECT_CHANGE_TYPE)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
    e1:SetValue(ty)
    rc:RegisterEffect(e1,true)
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    elseif rc:IsPreviousLocation(LOCATION_MZONE) then
    if Duel.GetLocationCount(cp,LOCATION_MZONE)>0 and rc:IsType(TYPE_MONSTER) then
    local a=0
    if rc:GetFlagEffect(186379654)>0 then
    a=1
    end
    if rc:GetFlagEffect(186379655)>0 then
    a=2
    end
    if rc:GetFlagEffect(186379656)>0 then
    a=3
    end
    Duel.MoveToField(rc,cp,cp,LOCATION_MZONE,pos,true)
    if a==1 then
    rc:SetStatus(STATUS_SUMMON_TURN,true)
    end
    if a==2 then
    rc:SetStatus(STATUS_SPSUMMON_TURN,true)
    end
    if a==3 then
    rc:SetStatus(STATUS_FLIP_SUMMON_TURN,true)
    end
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    elseif rc:IsPreviousLocation(LOCATION_SZONE) then
    if Duel.GetLocationCount(cp,LOCATION_SZONE)>0 then
    local a=0
    if rc:GetFlagEffect(186379657)>0 then
    a=4
    end
    Duel.MoveToField(rc,cp,cp,LOCATION_SZONE,pos,true)
    if rc:IsFacedown() and a==4 then
    rc:SetStatus(STATUS_SET_TURN,true)
    end
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    end
    end
    end
    --
    ......
    script/c86379692.lua
    View file @ 8d1ba57c
    ......@@ -36,6 +36,57 @@ function c86379692.initial_effect(c)
    e3:SetTarget(c86379692.sptg2)
    e3:SetOperation(c86379692.spop2)
    c:RegisterEffect(e3)
    --
    if not c86379692.global_check then
    c86379692.global_check=true
    local ge1=Effect.CreateEffect(c)
    ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge1:SetCode(EVENT_SUMMON_SUCCESS)
    ge1:SetOperation(c86379692.checkop1)
    Duel.RegisterEffect(ge1,0)
    local ge2=Effect.CreateEffect(c)
    ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge2:SetCode(EVENT_SPSUMMON_SUCCESS)
    ge2:SetOperation(c86379692.checkop2)
    Duel.RegisterEffect(ge2,0)
    local ge3=Effect.CreateEffect(c)
    ge3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge3:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
    ge3:SetOperation(c86379692.checkop3)
    Duel.RegisterEffect(ge3,0)
    local ge4=Effect.CreateEffect(c)
    ge4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge4:SetCode(EVENT_MSET)
    ge4:SetOperation(c86379692.checkop1)
    Duel.RegisterEffect(ge4,0)
    local ge5=Effect.CreateEffect(c)
    ge5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
    ge5:SetCode(EVENT_SSET)
    ge5:SetOperation(c86379692.checkop4)
    Duel.RegisterEffect(ge5,0)
    end
    end
    --
    --
    function c86379692.checkop1(e,tp,eg,ep,ev,re,r,rp)
    for tc in aux.Next(eg) do
    tc:RegisterFlagEffect(186379654,RESET_EVENT+RESET_TOFIELD+RESET_TOHAND+RESET_TOGRAVE+RESET_PHASE+PHASE_END,0,1)
    end
    end
    function c86379692.checkop2(e,tp,eg,ep,ev,re,r,rp)
    for tc in aux.Next(eg) do
    tc:RegisterFlagEffect(186379655,RESET_EVENT+RESET_TOFIELD+RESET_TOHAND+RESET_TOGRAVE+RESET_PHASE+PHASE_END,0,1)
    end
    end
    function c86379692.checkop3(e,tp,eg,ep,ev,re,r,rp)
    for tc in aux.Next(eg) do
    tc:RegisterFlagEffect(186379656,RESET_EVENT+RESET_TOFIELD+RESET_TOHAND+RESET_TOGRAVE+RESET_PHASE+PHASE_END,0,1)
    end
    end
    function c86379692.checkop4(e,tp,eg,ep,ev,re,r,rp)
    for tc in aux.Next(eg) do
    tc:RegisterFlagEffect(186379657,RESET_EVENT+RESET_TOFIELD+RESET_TOHAND+RESET_TOGRAVE+RESET_PHASE+PHASE_END,0,1)
    end
    end
    --
    function c86379692.filter(c)
    ......@@ -88,14 +139,84 @@ function c86379692.op1_2(e,tp,eg,ep,ev,re,r,rp)
    local tc=e:GetLabelObject()
    local fid=e:GetLabel()
    if tc:GetFlagEffect(86379693)>0 and tc:GetFlagEffectLabel(86379693)==fid then
    Duel.ReturnToField(tc)
    local rc=tc
    local pos=rc:GetPreviousPosition()
    local cp=rc:GetPreviousControler()
    if rc:IsType(TYPE_FIELD) and rc:IsPreviousLocation(LOCATION_FZONE) then
    if Duel.CheckLocation(cp,LOCATION_SZONE,5) then
    Duel.MoveToField(rc,cp,cp,LOCATION_FZONE,pos,true)
    if rc:IsFacedown() and rc:GetFlagEffect(186379657)>0 then
    rc:SetStatus(STATUS_SET_TURN,true)
    end
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    elseif rc:IsType(TYPE_PENDULUM) and rc:IsPreviousLocation(LOCATION_PZONE) then
    if Duel.CheckLocation(cp,LOCATION_SZONE,0) or Duel.CheckLocation(cp,LOCATION_SZONE,4) then
    Duel.MoveToField(rc,cp,cp,LOCATION_PZONE,pos,true)
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    elseif rc:IsType(TYPE_MONSTER) and rc:IsPreviousLocation(LOCATION_SZONE) then
    local ty=rc:GetPreviousTypeOnField()
    if Duel.GetLocationCount(cp,LOCATION_SZONE)>0 then
    Duel.MoveToField(rc,cp,cp,LOCATION_SZONE,pos,true)
    local e1=Effect.CreateEffect(c)
    e1:SetCode(EFFECT_CHANGE_TYPE)
    e1:SetType(EFFECT_TYPE_SINGLE)
    e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_SET_AVAILABLE)
    e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
    e1:SetValue(ty)
    rc:RegisterEffect(e1,true)
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    elseif rc:IsPreviousLocation(LOCATION_MZONE) then
    if Duel.GetLocationCount(cp,LOCATION_MZONE)>0 and rc:IsType(TYPE_MONSTER) then
    local a=0
    if rc:GetFlagEffect(186379654)>0 then
    a=1
    end
    if rc:GetFlagEffect(186379655)>0 then
    a=2
    end
    if rc:GetFlagEffect(186379656)>0 then
    a=3
    end
    Duel.MoveToField(rc,cp,cp,LOCATION_MZONE,pos,true)
    if a==1 then
    rc:SetStatus(STATUS_SUMMON_TURN,true)
    end
    if a==2 then
    rc:SetStatus(STATUS_SPSUMMON_TURN,true)
    end
    if a==3 then
    rc:SetStatus(STATUS_FLIP_SUMMON_TURN,true)
    end
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    elseif rc:IsPreviousLocation(LOCATION_SZONE) then
    if Duel.GetLocationCount(cp,LOCATION_SZONE)>0 then
    local a=0
    if rc:GetFlagEffect(186379657)>0 then
    a=4
    end
    Duel.MoveToField(rc,cp,cp,LOCATION_SZONE,pos,true)
    if rc:IsFacedown() and a==4 then
    rc:SetStatus(STATUS_SET_TURN,true)
    end
    else
    Duel.SendtoGrave(rc,REASON_RULE)
    end
    end
    end
    end
    --
    function c86379692.spfilter(c,e,tp,lc)
    return c:IsControler(tp) and c:IsLocation(LOCATION_GRAVE) and c:IsSetCard(0x225a,0xc225)
    and bit.band(c:GetReason(),REASON_LINK)~=0 and bit.band(c:GetReason(),REASON_MATERIAL)~=0 and c:GetReasonCard()==lc
    and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY)
    and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and not c:IsHasEffect(EFFECT_NECRO_VALLEY) and c:IsSetCard(0x225a,0xc225) and c:IsRace(RACE_BEAST)
    end
    function c86379692.spfilter2(c,e,tp,lc)
    return c:IsControler(tp) and c:IsLocation(LOCATION_GRAVE)
    ......
    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