Skip to content

P
pre-release-database-cdb
Commit f1c99093 authored by wind2009's avatar wind2009
Browse files
Options

Fix fusion 

https://github.com/Fluorohydride/ygopro-scripts/pull/2581
parent 1241fc3c
Pipeline #28095 passed with stages
          in 1 minute and 7 seconds
          Show whitespace changes
          Inline Side-by-side
          Showing with 372 additions and 0 deletions
          script-fix.cdb
          View file @ f1c99093
          No preview for this file type
          script/c14088859.lua 0 → 100644
          View file @ f1c99093
          --ネオス・フュージョン
          function c14088859.initial_effect(c)
          aux.AddCodeList(c,89943723)
          aux.AddSetNameMonsterList(c,0x3008)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetDescription(aux.Stringid(14088859,0))
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetTarget(c14088859.target)
          e1:SetOperation(c14088859.activate)
          c:RegisterEffect(e1)
          --destroy replace
          local e2=Effect.CreateEffect(c)
          e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e2:SetCode(EFFECT_DESTROY_REPLACE)
          e2:SetRange(LOCATION_GRAVE)
          e2:SetTarget(c14088859.reptg)
          e2:SetValue(c14088859.repval)
          e2:SetOperation(c14088859.repop)
          c:RegisterEffect(e2)
          --return replace
          local e3=Effect.CreateEffect(c)
          e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
          e3:SetCode(EFFECT_SEND_REPLACE)
          e3:SetRange(LOCATION_GRAVE)
          e3:SetTarget(c14088859.reptg2)
          e3:SetOperation(c14088859.repop2)
          e3:SetValue(c14088859.repval2)
          c:RegisterEffect(e3)
          end
          function c14088859.filter1(c,e)
          return c:IsType(TYPE_MONSTER) and c:IsAbleToGrave() and not c:IsImmuneToEffect(e)
          end
          function c14088859.filter2(c,e,tp,m,chkf)
          local min,max=aux.GetMaterialListCount(c)
          return min==2 and max==2 and aux.IsMaterialListCode(c,89943723)
          and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:CheckFusionMaterial(m,nil,chkf,true)
          end
          function c14088859.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(c14088859.filter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_DECK,0,nil,e)
          return Duel.IsExistingMatchingCard(c14088859.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,chkf)
          end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function c14088859.activate(e,tp,eg,ep,ev,re,r,rp)
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(c14088859.filter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_DECK,0,nil,e)
          local sg=Duel.GetMatchingGroup(c14088859.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,chkf)
          if sg:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tg=sg:Select(tp,1,1,nil)
          local tc=tg:GetFirst()
          local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf,true)
          Duel.SendtoGrave(mat,REASON_EFFECT)
          Duel.BreakEffect()
          Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)
          end
          if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
          e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
          e1:SetReset(RESET_PHASE+PHASE_END)
          e1:SetTargetRange(1,0)
          Duel.RegisterEffect(e1,tp)
          end
          end
          function c14088859.repfilter(c,tp)
          return c:IsFaceup() and c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and c:IsType(TYPE_FUSION)
          and aux.IsMaterialListCode(c,89943723) and c:IsReason(REASON_EFFECT+REASON_BATTLE) and not c:IsReason(REASON_REPLACE)
          end
          function c14088859.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c14088859.repfilter,1,nil,tp) end
          return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
          end
          function c14088859.repval(e,c)
          return c14088859.repfilter(c,e:GetHandlerPlayer())
          end
          function c14088859.repop(e,tp,eg,ep,ev,re,r,rp)
          Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
          end
          function c14088859.repfilter2(c,tp,re)
          return c:IsControler(tp) and c:IsLocation(LOCATION_MZONE) and aux.IsMaterialListCode(c,89943723) and c:IsType(TYPE_FUSION)
          and c:GetDestination()==LOCATION_DECK and re:GetOwner()==c
          end
          function c14088859.reptg2(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return bit.band(r,REASON_EFFECT)~=0 and re
          and e:GetHandler():IsAbleToRemove() and eg:IsExists(c14088859.repfilter2,1,nil,tp,re) end
          if Duel.SelectEffectYesNo(tp,e:GetHandler(),aux.Stringid(14088859,1)) then
          return true
          else return false end
          end
          function c14088859.repop2(e,tp,eg,ep,ev,re,r,rp)
          Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
          end
          function c14088859.repval2(e,c)
          return c:IsControler(e:GetHandlerPlayer()) and c:IsLocation(LOCATION_MZONE) and aux.IsMaterialListCode(c,89943723) and c:IsType(TYPE_FUSION)
          end
          \ No newline at end of file
          script/c35255456.lua 0 → 100644
          View file @ f1c99093
          --ミラクル・コンタクト
          function c35255456.initial_effect(c)
          aux.AddCodeList(c,89943723)
          aux.AddSetNameMonsterList(c,0x3008)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetTarget(c35255456.target)
          e1:SetOperation(c35255456.activate)
          c:RegisterEffect(e1)
          end
          function c35255456.filter1(c,e)
          return c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
          end
          function c35255456.filter2(c,e,tp,m,chkf)
          return c:IsSetCard(0x3008) and c:IsType(TYPE_FUSION) and aux.IsMaterialListCode(c,89943723)
          and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:CheckFusionMaterial(m,nil,chkf,true)
          end
          function c35255456.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(c35255456.filter1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_MZONE,0,nil,e)
          return Duel.IsExistingMatchingCard(c35255456.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,chkf)
          end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function c35255456.cffilter(c)
          return c:IsLocation(LOCATION_HAND) or (c:IsLocation(LOCATION_MZONE) and c:IsFacedown())
          end
          function c35255456.activate(e,tp,eg,ep,ev,re,r,rp)
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c35255456.filter1),tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_MZONE,0,nil,e)
          local sg=Duel.GetMatchingGroup(c35255456.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,chkf)
          if sg:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tg=sg:Select(tp,1,1,nil)
          local tc=tg:GetFirst()
          local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf,true)
          local cf=mat:Filter(c35255456.cffilter,nil)
          if cf:GetCount()>0 then
          Duel.ConfirmCards(1-tp,cf)
          end
          Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
          Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)
          end
          end
          \ No newline at end of file
          script/c66290900.lua 0 → 100644
          View file @ f1c99093
          --団結する剣闘獣
          function c66290900.initial_effect(c)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,66290900+EFFECT_COUNT_CODE_OATH)
          e1:SetCost(c66290900.cost)
          e1:SetCondition(c66290900.condition)
          e1:SetTarget(c66290900.target)
          e1:SetOperation(c66290900.activate)
          c:RegisterEffect(e1)
          Duel.AddCustomActivityCounter(66290900,ACTIVITY_ATTACK,c66290900.counterfilter)
          end
          function c66290900.counterfilter(c)
          return c:IsSetCard(0x19)
          end
          function c66290900.cost(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then return Duel.GetCustomActivityCount(66290900,tp,ACTIVITY_ATTACK)==0 end
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetCode(EFFECT_CANNOT_ATTACK_ANNOUNCE)
          e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE+EFFECT_FLAG_OATH)
          e1:SetTargetRange(LOCATION_MZONE,0)
          e1:SetTarget(c66290900.atktg)
          e1:SetReset(RESET_PHASE+PHASE_END)
          Duel.RegisterEffect(e1,tp)
          end
          function c66290900.atktg(e,c)
          return not c:IsSetCard(0x19)
          end
          function c66290900.condition(e,tp,eg,ep,ev,re,r,rp)
          local ph=Duel.GetCurrentPhase()
          return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
          end
          function c66290900.filter1(c,e)
          return c:IsAbleToDeck() and c:IsType(TYPE_MONSTER) and not c:IsImmuneToEffect(e)
          end
          function c66290900.filter2(c,e,tp,m,chkf)
          return c:IsType(TYPE_FUSION) and c:IsSetCard(0x19) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:CheckFusionMaterial(m,nil,chkf,true)
          end
          function c66290900.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(c66290900.filter1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_MZONE,0,nil,e)
          return Duel.IsExistingMatchingCard(c66290900.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,chkf)
          end
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_MZONE)
          end
          function c66290900.cffilter(c)
          return c:IsLocation(LOCATION_HAND) or (c:IsLocation(LOCATION_MZONE) and c:IsFacedown())
          end
          function c66290900.activate(e,tp,eg,ep,ev,re,r,rp)
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c66290900.filter1),tp,LOCATION_HAND+LOCATION_GRAVE+LOCATION_MZONE,0,nil,e)
          local sg=Duel.GetMatchingGroup(c66290900.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,chkf)
          if sg:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tg=sg:Select(tp,1,1,nil)
          local tc=tg:GetFirst()
          local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf,true)
          local cf=mat:Filter(c66290900.cffilter,nil)
          if cf:GetCount()>0 then
          Duel.ConfirmCards(1-tp,cf)
          end
          Duel.SendtoDeck(mat,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
          Duel.BreakEffect()
          Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)
          end
          end
          \ No newline at end of file
          script/c75047173.lua 0 → 100644
          View file @ f1c99093
          --フェイバリット・コンタクト
          local s,id,o=GetID()
          function s.initial_effect(c)
          aux.AddCodeList(c,89943723)
          aux.AddSetNameMonsterList(c,0x3008)
          --Activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_TODECK+CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
          e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
          e1:SetTarget(s.fstg)
          e1:SetOperation(s.fsop)
          c:RegisterEffect(e1)
          end
          function s.fsfilter1(c,e)
          return (c:IsFaceup() or not c:IsLocation(LOCATION_REMOVED)) and c:IsType(TYPE_MONSTER)
          and c:IsAbleToDeck() and not c:IsImmuneToEffect(e)
          end
          function s.fsfilter2(c,e,tp,m,chkf)
          if not (c:IsType(TYPE_FUSION) and aux.IsMaterialListSetCard(c,0x8)
          and c:IsCanBeSpecialSummoned(e,0,tp,true,false)) then return false end
          aux.FCheckAdditional=c.hero_fusion_check or s.fscheck
          local res=c:CheckFusionMaterial(m,nil,chkf,true)
          aux.FCheckAdditional=nil
          return res
          end
          function s.fscheck(tp,sg,fc)
          return sg:IsExists(Card.IsFusionSetCard,1,nil,0x8)
          end
          function s.fscfilter(c)
          return c:IsLocation(LOCATION_HAND+LOCATION_GRAVE+LOCATION_REMOVED) or (c:IsLocation(LOCATION_MZONE) and c:IsFacedown())
          end
          function s.fstg(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(s.fsfilter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
          return Duel.IsExistingMatchingCard(s.fsfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,chkf) end
          Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,0,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function s.fsop(e,tp,eg,ep,ev,re,r,rp)
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(aux.NecroValleyFilter(s.fsfilter1),tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e)
          local sg=Duel.GetMatchingGroup(s.fsfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,chkf)
          if sg:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tg=sg:Select(tp,1,1,nil)
          local tc=tg:GetFirst()
          aux.FCheckAdditional=tc.hero_fusion_check or s.fscheck
          local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf,true)
          aux.FCheckAdditional=nil
          local cf=mat:Filter(s.fscfilter,nil)
          if cf:GetCount()>0 then
          Duel.ConfirmCards(1-tp,cf)
          end
          local ng=mat:Filter(Card.IsCode,nil,89943723)
          aux.PlaceCardsOnDeckBottom(tp,mat)
          Duel.BreakEffect()
          Duel.SpecialSummon(tc,0,tp,tp,true,false,POS_FACEUP)
          if ng:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetDescription(aux.Stringid(id,1))
          e1:SetType(EFFECT_TYPE_FIELD)
          e1:SetRange(LOCATION_MZONE)
          e1:SetCode(EFFECT_CANNOT_TO_DECK)
          e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
          e1:SetTargetRange(1,1)
          e1:SetTarget(s.tdlimit)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          tc:RegisterEffect(e1,true)
          end
          end
          end
          function s.tdlimit(e,c)
          return c==e:GetHandler()
          end
          \ No newline at end of file
          script/c89190953.lua 0 → 100644
          View file @ f1c99093
          --次元融合殺
          function c89190953.initial_effect(c)
          aux.AddCodeList(c,6007213,32491822,69890967)
          --activate
          local e1=Effect.CreateEffect(c)
          e1:SetCategory(CATEGORY_REMOVE+CATEGORY_SPECIAL_SUMMON)
          e1:SetType(EFFECT_TYPE_ACTIVATE)
          e1:SetCode(EVENT_FREE_CHAIN)
          e1:SetTarget(c89190953.target)
          e1:SetOperation(c89190953.activate)
          c:RegisterEffect(e1)
          end
          function c89190953.filter1(c,e)
          return c:IsAbleToRemove() and not c:IsImmuneToEffect(e)
          end
          function c89190953.filter2(c,e,tp,m,chkf)
          return c:IsSetCard(0x144) and c:IsCanBeSpecialSummoned(e,0,tp,true,false) and c:CheckFusionMaterial(m,nil,chkf,true)
          end
          function c89190953.chfilter(c)
          return c:IsFaceup() and c:IsCode(6007213,32491822,69890967)
          end
          function c89190953.target(e,tp,eg,ep,ev,re,r,rp,chk)
          if chk==0 then
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(c89190953.filter1,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE,0,nil,e)
          return Duel.IsExistingMatchingCard(c89190953.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg,chkf)
          end
          if e:IsHasType(EFFECT_TYPE_ACTIVATE) and Duel.IsExistingMatchingCard(c89190953.chfilter,tp,LOCATION_ONFIELD,0,1,nil) then
          Duel.SetChainLimit(c89190953.chainlm)
          end
          Duel.SetOperationInfo(0,CATEGORY_REMOVE,nil,0,tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE)
          Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
          end
          function c89190953.activate(e,tp,eg,ep,ev,re,r,rp)
          local chkf=tp|0x100
          local mg=Duel.GetMatchingGroup(aux.NecroValleyFilter(c89190953.filter1),tp,LOCATION_HAND+LOCATION_MZONE+LOCATION_GRAVE,0,nil,e)
          local sg=Duel.GetMatchingGroup(c89190953.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg,chkf)
          if sg:GetCount()>0 then
          Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
          local tg=sg:Select(tp,1,1,nil)
          local tc=tg:GetFirst()
          local mat=Duel.SelectFusionMaterial(tp,tc,mg,nil,chkf,true)
          Duel.Remove(mat,POS_FACEUP,REASON_EFFECT)
          Duel.BreakEffect()
          if Duel.SpecialSummonStep(tc,0,tp,tp,true,false,POS_FACEUP) then
          local e1=Effect.CreateEffect(e:GetHandler())
          e1:SetType(EFFECT_TYPE_SINGLE)
          e1:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
          e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
          e1:SetRange(LOCATION_MZONE)
          e1:SetReset(RESET_EVENT+RESETS_STANDARD)
          e1:SetCondition(c89190953.damcon)
          e1:SetValue(1)
          e1:SetOwnerPlayer(tp)
          tc:RegisterEffect(e1)
          local e2=e1:Clone()
          e2:SetCode(EFFECT_NO_BATTLE_DAMAGE)
          e2:SetCondition(c89190953.damcon2)
          tc:RegisterEffect(e2)
          end
          Duel.SpecialSummonComplete()
          end
          end
          function c89190953.damcon(e)
          return e:GetHandlerPlayer()==e:GetOwnerPlayer()
          end
          function c89190953.damcon2(e)
          return 1-e:GetHandlerPlayer()==e:GetOwnerPlayer()
          end
          function c89190953.chainlm(e,ep,tp)
          return tp==ep
          end
          \ No newline at end of file
          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