Skip to content

Y
ygopro-pre-data
Commit 1a26d64a authored by mercury233's avatar mercury233
Browse files
Options

rm

parent 5af4f726
Pipeline #13914 passed with stages
      in 1 minute and 4 seconds
      Show whitespace changes
      Inline Side-by-side
      Showing with 0 additions and 6899 deletions
      deck/22-05-21 DP27.ydk deleted 100644 → 0
      View file @ 5af4f726
      #created by ...
      #main
      100427001
      100427002
      100427003
      100427006
      100427007
      100427021
      100427022
      100427023
      100427024
      100427025
      100427026
      100427027
      100427030
      100427031
      100427032
      100427033
      100427036
      #extra
      100427004
      100427005
      100427034
      100427035
      !side
      deck/22-06-11 AC02.ydk deleted 100644 → 0
      View file @ 5af4f726
      #created by ...
      #main
      100290001
      100290002
      100290003
      100290004
      100290005
      100290006
      100290007
      100290008
      100290009
      100290010
      100290011
      100290012
      100290013
      100290014
      100290015
      100290016
      100290017
      100290019
      100290020
      100290021
      100290022
      100290023
      100290024
      100290025
      100290026
      100290027
      100290028
      100290030
      100290031
      100290032
      100290033
      100290034
      100290035
      100290036
      100290038
      100290039
      100290040
      100290041
      100290046
      #extra
      100290018
      100290029
      100290037
      100290042
      100290043
      100290044
      100290045
      !side
      deck/22-06-16 new cards.ydk
      View file @ 1a26d64a
      ...@@ -23,11 +23,7 @@ ...@@ -23,11 +23,7 @@
      101110066 101110066
      101110075 101110075
      101110076 101110076
      100200218
      100200219 100200219
      100291001
      100291002
      100291003
      100344016 100344016
      100344017 100344017
      100344032 100344032
      ...@@ -48,17 +44,4 @@ ...@@ -48,17 +44,4 @@
      101110042 101110042
      101110043 101110043
      100344051 100344051
      100289001
      !side !side
      101108000
      101108081
      101108082
      101108083
      101108084
      101108085
      101108086
      101108087
      101108088
      101108089
      101108090
      101108091
      expansions/pre-strings.conf
      View file @ 1a26d64a
      #The first line is used for comment #The first line is used for comment
      !counter 0x160 G石人指示物
      !counter 0x1161 幻觉指示物
      !setname 0x5034 高等宝玉兽 A宝玉獣
      !setname 0x285 G石人 Gゴーレム
      !setname 0x1286 涂鸦兽 らくがきじゅう
      !setname 0x2286 涂鸦本 らくがきちょう
      !setname 0x287 桥梁 架け橋 !setname 0x287 桥梁 架け橋
      !setname 0x288 俱舍怒威族 クシャトリラ !setname 0x288 俱舍怒威族 クシャトリラ
      script/c100200218.lua deleted 100644 → 0
      View file @ 5af4f726
      --賢瑞官カルダーン
      --Script by Chrono-Genex
      function c100200218.initial_effect(c)
      --set
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100200218,0))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(c100200218.settg)
      e1:SetOperation(c100200218.setop)
      c:RegisterEffect(e1)
      --indestructible
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100200218,1))
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetTarget(c100200218.indtg)
      e2:SetOperation(c100200218.indop)
      c:RegisterEffect(e2)
      end
      function c100200218.setfilter(c)
      return c:GetType()==TYPE_TRAP+TYPE_CONTINUOUS and c:IsSSetable()
      end
      function c100200218.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100200218.setfilter,tp,LOCATION_HAND+LOCATION_GRAVE,0,1,nil) end
      end
      function c100200218.setop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c100200218.setfilter),tp,LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil)
      local tc=g:GetFirst()
      if tc and Duel.SSet(tp,tc)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      function c100200218.indtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFlagEffect(tp,100200218)==0 end
      end
      function c100200218.indop(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e1:SetTargetRange(LOCATION_ONFIELD,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_TRAP))
      e1:SetValue(aux.indoval)
      e1:SetReset(RESET_PHASE+PHASE_END,2)
      Duel.RegisterEffect(e1,tp)
      Duel.RegisterFlagEffect(tp,100200218,RESET_PHASE+PHASE_END,0,2)
      end
      script/c100289001.lua deleted 100644 → 0
      View file @ 5af4f726
      --魔鍵憑神－アシュタルトゥ
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,nil,8,2)
      c:EnableReviveLimit()
      --damage
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_BATTLE_DESTROYING)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1)
      e1:SetCondition(s.damcon)
      e1:SetCost(s.damcost)
      e1:SetTarget(s.damtg)
      e1:SetOperation(s.damop)
      c:RegisterEffect(e1)
      --banish
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_REMOVE)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e2:SetCountLimit(1)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(s.condition)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      end
      function s.damcon(e,tp,eg,ep,ev,re,r,rp)
      local ec=eg:GetFirst()
      local bc=ec:GetBattleTarget()
      e:SetLabelObject(bc)
      return bc and bc:GetBaseAttack()>0 and ec:IsControler(tp) and (ec:IsType(TYPE_NORMAL) or ec:IsSetCard(0x165))
      and ec:IsRelateToBattle() and ec:IsStatus(STATUS_OPPO_BATTLE)
      end
      function s.damcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
      e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
      end
      function s.damtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local bc=e:GetLabelObject()
      Duel.SetTargetCard(bc)
      local dam=bc:GetBaseAttack()
      Duel.SetTargetPlayer(1-tp)
      Duel.SetTargetParam(dam)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,dam)
      end
      function s.damop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
      local dam=tc:GetBaseAttack()
      if dam<0 then dam=0 end
      Duel.Damage(p,dam,REASON_EFFECT)
      end
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      local ph=Duel.GetCurrentPhase()
      return Duel.GetTurnPlayer()~=tp and (ph==PHASE_MAIN1 or ph==PHASE_MAIN2)
      end
      function s.gfilter(c,att)
      return c:IsAttribute(att) and (c:IsType(TYPE_NORMAL) or c:IsSetCard(0x165))
      and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
      end
      function s.filter(c,tp)
      return c:IsFaceup() and c:IsAbleToRemove()
      and Duel.IsExistingMatchingCard(s.gfilter,tp,LOCATION_MZONE+LOCATION_GRAVE,0,1,nil,c:GetAttribute())
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,0,LOCATION_MZONE,1,nil,tp)
      and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectTarget(tp,s.filter,tp,0,LOCATION_MZONE,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and c:RemoveOverlayCard(tp,1,1,REASON_EFFECT)>0 and tc:IsRelateToEffect(e) then
      Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
      end
      end
      script/c100290001.lua deleted 100644 → 0
      View file @ 5af4f726
      --ロイヤル・ストレート・スラッシャー
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,25652259,64788463,90876561)
      c:EnableReviveLimit()
      --cannot special summon
      local e1=Effect.CreateEffect(c)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SPSUMMON_CONDITION)
      e1:SetValue(aux.FALSE)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetCategory(CATEGORY_TOGRAVE+CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id)
      e2:SetCondition(s.descon)
      e2:SetTarget(s.destg)
      e2:SetOperation(s.desop)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_BATTLE_DESTROYED)
      e3:SetCountLimit(1,id+o)
      e3:SetTarget(s.sptg)
      e3:SetOperation(s.spop)
      c:RegisterEffect(e3)
      end
      function s.descon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,25652259)
      and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,64788463)
      and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,90876561)
      end
      function s.tgfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsLevelBelow(5) and c:IsAbleToGrave()
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      if not Duel.IsExistingMatchingCard(aux.TRUE,tp,0,LOCATION_ONFIELD,1,nil) then return false end
      local tg=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil)
      return tg:CheckSubGroup(aux.dlvcheck,5,5)
      end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,5,tp,LOCATION_HAND+LOCATION_DECK)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_HAND+LOCATION_DECK,0,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local sg=tg:SelectSubGroup(tp,aux.dlvcheck,false,5,5)
      if sg then
      Duel.SendtoGrave(sg,REASON_EFFECT)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,0,LOCATION_ONFIELD,nil)
      if #g>0 then
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      end
      function s.spfilter(c,e,tp)
      return c:IsRace(RACE_WARRIOR) and c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and s.spfilter(chkc,e,tp) end
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if chk==0 then return ft>0 and Duel.IsExistingTarget(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      if ft>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
      if ft>3 then ft=3 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,s.spfilter,tp,LOCATION_GRAVE,0,1,ft,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,#g,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ft<=0 then return end
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local sg=g:Filter(Card.IsRelateToEffect,nil,e)
      if sg:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
      if sg:GetCount()>ft then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      sg=sg:Select(tp,ft,ft,nil)
      end
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      script/c100290002.lua deleted 100644 → 0
      View file @ 5af4f726
      --ロイヤル・ストレート
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,25652259,64788463,90876561)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.tgfilter(c)
      return (c:IsLocation(LOCATION_HAND) or c:IsFaceup()) and c:IsCode(25652259,64788463,90876561) and c:IsAbleToGrave()
      end
      function s.spfilter(c,e,tp,g)
      if not (aux.IsCodeListed(c,25652259) and aux.IsCodeListed(c,64788463) and aux.IsCodeListed(c,90876561)) then return false end
      local proc=c:IsCode(100290001) and e:GetHandler():IsCode(id)
      if not c:IsCanBeSpecialSummoned(e,0,tp,proc,proc) then return false end
      return (not c:IsLocation(LOCATION_EXTRA) and Duel.GetMZoneCount(tp,g)>0
      or c:IsLocation(LOCATION_EXTRA) and Duel.GetLocationCountFromEx(tp,tp,g,c)>0)
      end
      function s.fgoal(g,e,tp)
      return aux.dncheck(g) and Duel.IsExistingMatchingCard(s.spfilter,tp,
      LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE,0,1,nil,e,tp,g)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local g=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil)
      if chk==0 then return g:CheckSubGroup(s.fgoal,3,3,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,3,tp,LOCATION_HAND+LOCATION_MZONE)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,
      LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(s.tgfilter,tp,LOCATION_HAND+LOCATION_MZONE,0,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local sg=g:SelectSubGroup(tp,aux.dncheck,false,3,3)
      if sg and Duel.SendtoGrave(sg,REASON_EFFECT)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,
      LOCATION_HAND+LOCATION_DECK+LOCATION_EXTRA+LOCATION_GRAVE,0,1,1,nil,e,tp,nil):GetFirst()
      if tc then
      Duel.BreakEffect()
      local proc=tc:IsCode(100290001) and e:GetHandler():IsCode(id)
      Duel.SpecialSummon(tc,0,tp,tp,proc,proc,POS_FACEUP)
      if proc then tc:CompleteProcedure() end
      end
      end
      end
      script/c100290003.lua deleted 100644 → 0
      View file @ 5af4f726
      --闇竜族の爪
      --
      --Script by Trishula9
      function c100290003.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CONTINUOUS_TARGET)
      e1:SetTarget(c100290003.target)
      e1:SetOperation(c100290003.activate)
      c:RegisterEffect(e1)
      --Equip limit
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_EQUIP_LIMIT)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetValue(c100290003.eqlimit)
      c:RegisterEffect(e2)
      --atk up
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_EQUIP)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetValue(600)
      c:RegisterEffect(e3)
      --indestructable
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_EQUIP)
      e4:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e4:SetValue(aux.indoval)
      c:RegisterEffect(e4)
      --spsummon
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_TO_GRAVE)
      e5:SetProperty(EFFECT_FLAG_DELAY)
      e5:SetCountLimit(1,100290003)
      e5:SetCondition(c100290003.spcon)
      e5:SetTarget(c100290003.sptg)
      e5:SetOperation(c100290003.spop)
      c:RegisterEffect(e5)
      end
      function c100290003.eqlimit(e,c)
      return c:IsAttribute(ATTRIBUTE_DARK)
      end
      function c100290003.filter(c)
      return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_DARK)
      end
      function c100290003.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100290003.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100290003.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      Duel.SelectTarget(tp,c100290003.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
      end
      function c100290003.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
      Duel.Equip(tp,c,tc)
      end
      end
      function c100290003.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ec=c:GetPreviousEquipTarget()
      return c:IsReason(REASON_LOST_TARGET) and ec:IsReason(REASON_BATTLE) and ec:IsPreviousControler(tp)
      end
      function c100290003.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local ec=c:GetPreviousEquipTarget()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and ec and ec:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetTargetCard(ec)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,ec,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,c,1,0,0)
      end
      function c100290003.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=e:GetHandler():GetPreviousEquipTarget()
      if tc:IsRelateToEffect(e) and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) and c:IsRelateToEffect(e) then
      Duel.Equip(tp,c,tc)
      --Add Equip limit
      local e1=Effect.CreateEffect(tc)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(c100290003.eqlim)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
      e2:SetValue(LOCATION_REMOVED)
      c:RegisterEffect(e2,true)
      end
      Duel.SpecialSummonComplete()
      end
      function c100290003.eqlim(e,c)
      return e:GetOwner()==c
      end
      \ No newline at end of file
      script/c100290004.lua deleted 100644 → 0
      View file @ 5af4f726
      --鉄球魔神ゴロゴーン
      --
      --Script by Trishula9
      function c100290004.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290004,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_DAMAGE_STEP_END)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100290004)
      e1:SetTarget(c100290004.sptg)
      e1:SetOperation(c100290004.spop)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100290004,1))
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,100290004+100)
      e2:SetCost(c100290004.descost)
      e2:SetTarget(c100290004.destg)
      e2:SetOperation(c100290004.desop)
      c:RegisterEffect(e2)
      --to hand
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100290004,2))
      e3:SetCategory(CATEGORY_DICE+CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,100290004+200)
      e3:SetCondition(c100290004.thcon)
      e3:SetTarget(c100290004.thtg)
      e3:SetOperation(c100290004.thop)
      c:RegisterEffect(e3)
      end
      c100290004.toss_dice=true
      function c100290004.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100290004.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c100290004.costfilter(c)
      return (c:IsLocation(LOCATION_HAND) or c:IsFacedown()) and c:IsType(TYPE_TRAP) and c:IsAbleToGraveAsCost()
      end
      function c100290004.descost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290004.costfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c100290004.costfilter,tp,LOCATION_HAND+LOCATION_ONFIELD,0,1,1,nil)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function c100290004.desfilter(c,g)
      return g:IsContains(c)
      end
      function c100290004.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local cg=c:GetColumnGroup()
      if chk==0 then return Duel.IsExistingMatchingCard(c100290004.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,c,cg) end
      local g=Duel.GetMatchingGroup(c100290004.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,c,cg)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,g:GetCount(),0,0)
      end
      function c100290004.desop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local cg=c:GetColumnGroup()
      if c:IsRelateToEffect(e) then
      local g=Duel.GetMatchingGroup(c100290004.desfilter,tp,LOCATION_MZONE,LOCATION_MZONE,c,cg)
      if g:GetCount()>0 then
      Duel.Destroy(g,REASON_EFFECT)
      end
      end
      end
      function c100290004.thcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT)
      end
      function c100290004.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and chkc:IsAbleToHand() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToHand,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      Duel.SelectTarget(tp,Card.IsAbleToHand,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
      end
      function c100290004.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc and tc:IsRelateToEffect(e) then
      local d=Duel.TossDice(tp,1)
      if d==6 then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      script/c100290005.lua deleted 100644 → 0
      View file @ 5af4f726
      --ダイス・ダンジョン
      --Script by id:Ruby QQ:917770701 & mercury233
      function c100290005.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:SetOperation(c100290005.activate)
      c:RegisterEffect(e1)
      --dice roll
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100290005,1))
      e2:SetCategory(CATEGORY_DICE+CATEGORY_ATKCHANGE)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_PHASE+PHASE_BATTLE_START)
      e2:SetRange(LOCATION_FZONE)
      e2:SetCountLimit(1)
      e2:SetTarget(c100290005.dicetg)
      e2:SetOperation(c100290005.diceop)
      c:RegisterEffect(e2)
      end
      c100290005.toss_dice=true
      function c100290005.thfilter(c)
      return c:IsCode(100290006) and c:IsAbleToHand()
      end
      function c100290005.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(c100290005.thfilter,tp,LOCATION_DECK,0,nil)
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100290005,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local sg=g:Select(tp,1,1,nil)
      Duel.SendtoHand(sg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sg)
      end
      end
      function c100290005.dicetg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,PLAYER_ALL,1)
      end
      function c100290005.diceop(e,tp,eg,ep,ev,re,r,rp)
      local turnp=Duel.GetTurnPlayer()
      for p=turnp,1-turnp,1-turnp-turnp do
      local dice=Duel.TossDice(p,1)
      if dice>=1 and dice<=6 then
      local g=Duel.GetMatchingGroup(Card.IsFaceup,p,LOCATION_MZONE,0,nil)
      local sc=g:GetFirst()
      while sc do
      local atk=sc:GetAttack()
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(dice<5 and EFFECT_UPDATE_ATTACK or EFFECT_SET_ATTACK_FINAL)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e1:SetValue(({-1000,1000,-500,500,math.ceil(atk/2),atk*2})[dice])
      sc:RegisterEffect(e1)
      sc=g:GetNext()
      end
      end
      end
      end
      script/c100290006.lua deleted 100644 → 0
      View file @ 5af4f726
      --ディメンジョン・ダイス
      --id:Ruby QQ:917770701
      function c100290006.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:SetCondition(c100290006.spcon)
      e1:SetCost(c100290006.cost)
      e1:SetTarget(c100290006.target)
      e1:SetOperation(c100290006.activate)
      c:RegisterEffect(e1)
      end
      function c100290006.cfilter(c)
      return c:IsFaceup() and c.toss_dice
      end
      function c100290006.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c100290006.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c100290006.costfilter(c,tp)
      return Duel.GetMZoneCount(tp,c)>0
      end
      function c100290006.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(1)
      if chk==0 then return Duel.CheckReleaseGroup(tp,c100290006.costfilter,1,nil,tp) end
      local g=Duel.SelectReleaseGroup(tp,c100290006.costfilter,1,1,nil,tp)
      Duel.Release(g,REASON_COST)
      end
      function c100290006.spfilter(c,e,tp)
      return c:IsType(TYPE_MONSTER) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and c.toss_dice and not c.toss_dice_in_pendulum_only
      end
      function c100290006.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local res=e:GetLabel()==1 or Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      e:SetLabel(0)
      return res and Duel.IsExistingMatchingCard(c100290006.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp)
      end
      e:SetLabel(0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND+LOCATION_DECK)
      end
      function c100290006.activate(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c100290006.spfilter,tp,LOCATION_HAND+LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c100290007.lua deleted 100644 → 0
      View file @ 5af4f726
      --機械仕掛けの夜－クロック・ワーク・ナイト－
      --
      --Script by Trishula9
      function c100290007.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,100290007+EFFECT_COUNT_CODE_OATH)
      c:RegisterEffect(e1)
      --race
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_CHANGE_RACE)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e2:SetValue(RACE_MACHINE)
      c:RegisterEffect(e2)
      --atk
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetRange(LOCATION_SZONE)
      e3:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e3:SetTarget(aux.TargetBoolFunction(Card.IsRace,RACE_MACHINE))
      e3:SetValue(c100290007.val)
      c:RegisterEffect(e3)
      --def
      local e4=e3:Clone()
      e4:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e4)
      --to hand
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e5:SetType(EFFECT_TYPE_IGNITION)
      e5:SetRange(LOCATION_GRAVE)
      e5:SetCountLimit(1,100290007)
      e5:SetCost(c100290007.thcost)
      e5:SetTarget(c100290007.thtg)
      e5:SetOperation(c100290007.thop)
      c:RegisterEffect(e5)
      end
      function c100290007.val(e,c)
      if c:IsControler(e:GetHandlerPlayer()) then return 500 else return -500 end
      end
      function c100290007.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost()
      and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
      Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_COST)
      Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
      end
      function c100290007.thfilter(c)
      return c:IsRace(RACE_MACHINE) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToHand()
      end
      function c100290007.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290007.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100290007.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100290007.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c100290008.lua deleted 100644 → 0
      View file @ 5af4f726
      --ENシャッフル
      --
      --Script by Trishula9 & mercury233
      function c100290008.initial_effect(c)
      aux.AddCodeList(c,89943723)
      aux.AddSetNameMonsterList(c,0x3008)
      --spsummon
      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,100290008)
      e1:SetTarget(c100290008.sptg)
      e1:SetOperation(c100290008.spop)
      c:RegisterEffect(e1)
      --draw
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TODECK+CATEGORY_DRAW)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,100290008+100)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c100290008.drtg)
      e2:SetOperation(c100290008.drop)
      c:RegisterEffect(e2)
      end
      function c100290008.tdfilter(c,e,tp)
      return c:IsFaceup() and c:IsSetCard(0x3008,0x1f) and c:IsType(TYPE_MONSTER)
      and c:IsAbleToDeck() and Duel.GetMZoneCount(tp,c)>0
      and Duel.IsExistingMatchingCard(c100290008.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode())
      end
      function c100290008.spfilter(c,e,tp,code)
      return c:IsSetCard(0x3008,0x1f) and not c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c100290008.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290008.tdfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_MZONE)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function c100290008.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local tc=Duel.SelectMatchingCard(tp,c100290008.tdfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp):GetFirst()
      if not tc then return end
      local code=tc:GetCode()
      if Duel.SendtoDeck(tc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_DECK+LOCATION_EXTRA)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c100290008.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,code)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      function c100290008.filter(c)
      return c:IsType(TYPE_MONSTER) and c:IsAbleToDeck() and (c:IsSetCard(0x3008,0x1f) or c:IsCode(89943723))
      end
      function c100290008.gcheck(g)
      return #g==1 and g:GetFirst():IsCode(89943723) or aux.gfcheck(g,Card.IsSetCard,0x3008,0x1f)
      end
      function c100290008.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      if not Duel.IsPlayerCanDraw(tp,1) then return false end
      local g=Duel.GetMatchingGroup(c100290008.filter,tp,LOCATION_GRAVE,0,nil)
      return g:CheckSubGroup(c100290008.gcheck,1,2)
      end
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_GRAVE)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function c100290008.drop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100290008.filter),tp,LOCATION_GRAVE,0,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=g:SelectSubGroup(tp,c100290008.gcheck,false,1,2)
      if sg and Duel.SendtoDeck(sg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 then
      local og=Duel.GetOperatedGroup()
      if not og:IsExists(Card.IsLocation,1,nil,LOCATION_DECK) then return end
      Duel.ShuffleDeck(tp)
      Duel.BreakEffect()
      Duel.Draw(tp,1,REASON_EFFECT)
      end
      end
      script/c100290009.lua deleted 100644 → 0
      View file @ 5af4f726
      --鎮魂の決闘
      --
      --Script by Trishula9
      function c100290009.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,100290009+EFFECT_COUNT_CODE_OATH)
      e1:SetHintTiming(0,TIMING_END_PHASE)
      e1:SetTarget(c100290009.target)
      e1:SetOperation(c100290009.activate)
      c:RegisterEffect(e1)
      end
      function c100290009.filter(c,e,tp,tid)
      return c:GetTurnID()==tid and c:IsReason(REASON_BATTLE) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK)
      end
      function c100290009.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c100290009.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp,Duel.GetTurnCount()))
      or (Duel.GetLocationCount(1-tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c100290009.filter,tp,0,LOCATION_GRAVE,1,nil,e,1-tp,Duel.GetTurnCount())) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,PLAYER_ALL,LOCATION_GRAVE)
      end
      function c100290009.activate(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100290009.filter),tp,LOCATION_GRAVE,0,nil,e,tp,Duel.GetTurnCount())
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100290009,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=g:Select(tp,1,1,nil):GetFirst()
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)
      if tc:IsCode(89943723) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SET_ATTACK_FINAL)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(c100290009.atkcon)
      e1:SetValue(c100290009.atkval)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      end
      end
      end
      if Duel.GetLocationCount(1-tp,LOCATION_MZONE,1-tp)>0 then
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100290009.filter),1-tp,LOCATION_GRAVE,0,nil,e,1-tp,Duel.GetTurnCount())
      if g:GetCount()>0 and Duel.SelectYesNo(1-tp,aux.Stringid(100290009,0)) then
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
      local tc=g:Select(1-tp,1,1,nil):GetFirst()
      Duel.SpecialSummonStep(tc,0,1-tp,1-tp,false,false,POS_FACEUP_ATTACK)
      end
      end
      Duel.SpecialSummonComplete()
      end
      function c100290009.atkcon(e)
      local ph=Duel.GetCurrentPhase()
      local a,d=Duel.GetBattleMonster(0)
      if (ph==PHASE_DAMAGE or ph==PHASE_DAMAGE_CAL) and (a==e:GetHandler() and d or a and d==e:GetHandler()) then
      e:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_DAMAGE_CAL+PHASE_END)
      return true
      end
      return false
      end
      function c100290009.atkval(e,c)
      return e:GetHandler():GetAttack()*2
      end
      \ No newline at end of file
      script/c100290010.lua deleted 100644 → 0
      View file @ 5af4f726
      --A宝玉獣 ルビー・カーバンクル
      --
      --Script by Trishula9
      function c100290010.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE)
      --self to grave
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SELF_TOGRAVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(c100290010.tgcon)
      c:RegisterEffect(e1)
      --send replace
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB)
      e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e2:SetCondition(c100290010.repcon)
      e2:SetOperation(c100290010.repop)
      c:RegisterEffect(e2)
      --spsummon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1,100290010)
      e3:SetCondition(c100290010.spcon)
      e3:SetTarget(c100290010.sptg)
      e3:SetOperation(c100290010.spop)
      c:RegisterEffect(e3)
      end
      function c100290010.tgcon(e)
      return not Duel.IsEnvironment(12644061)
      end
      function c100290010.repcon(e)
      local c=e:GetHandler()
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY)
      end
      function c100290010.repop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      end
      function c100290010.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():GetType()==TYPE_SPELL+TYPE_CONTINUOUS
      end
      function c100290010.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100290010.filter(c,e,sp)
      return c:IsFaceup() and c:IsSetCard(0x5034) and c:IsCanBeSpecialSummoned(e,0,sp,false,false)
      end
      function c100290010.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      if Duel.SpecialSummonStep(c,0,tp,tp,false,false,POS_FACEUP) then
      local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ct<=0 then
      Duel.SpecialSummonComplete()
      return
      end
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ct=1 end
      local g=Duel.GetMatchingGroup(c100290010.filter,tp,LOCATION_SZONE,0,nil,e,tp)
      local gc=g:GetCount()
      if gc>0 and Duel.SelectYesNo(tp,aux.Stringid(100290010,0)) then
      Duel.DisableSelfDestroyCheck()
      Duel.SpecialSummonComplete()
      Duel.BreakEffect()
      if gc<=ct then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      else
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:Select(tp,ct,ct,nil)
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      Duel.DisableSelfDestroyCheck(false)
      else
      Duel.SpecialSummonComplete()
      end
      else
      Duel.SpecialSummonComplete()
      end
      end
      end
      script/c100290011.lua deleted 100644 → 0
      View file @ 5af4f726
      --A宝玉獣 アメジスト・キャット
      --
      --Script by Trishula9
      function c100290011.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE)
      --self to grave
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SELF_TOGRAVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(c100290011.tgcon)
      c:RegisterEffect(e1)
      --send replace
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB)
      e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e2:SetCondition(c100290011.repcon)
      e2:SetOperation(c100290011.repop)
      c:RegisterEffect(e2)
      --direct attack
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_DIRECT_ATTACK)
      e3:SetRange(LOCATION_MZONE)
      e3:SetTargetRange(LOCATION_MZONE,0)
      e3:SetTarget(c100290011.atktg)
      c:RegisterEffect(e3)
      --damage reduce
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD)
      e4:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetTargetRange(LOCATION_MZONE,0)
      e4:SetCondition(c100290011.atkcon)
      e4:SetTarget(c100290011.atktg)
      e4:SetValue(aux.ChangeBattleDamage(1,HALF_DAMAGE))
      c:RegisterEffect(e4)
      end
      function c100290011.tgcon(e)
      return not Duel.IsEnvironment(12644061)
      end
      function c100290011.repcon(e)
      local c=e:GetHandler()
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY)
      end
      function c100290011.repop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      end
      function c100290011.atktg(e,c)
      return c:IsSetCard(0x5034)
      end
      function c100290011.atkcon(e)
      local tp=e:GetHandlerPlayer()
      return Duel.GetAttackTarget()==nil and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>0
      end
      \ No newline at end of file
      script/c100290012.lua deleted 100644 → 0
      View file @ 5af4f726
      --A宝玉獣 エメラルド・タートル
      --
      --Script by Trishula9
      function c100290012.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE)
      --self to grave
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SELF_TOGRAVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(c100290012.tgcon)
      c:RegisterEffect(e1)
      --send replace
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB)
      e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e2:SetCondition(c100290012.repcon)
      e2:SetOperation(c100290012.repop)
      c:RegisterEffect(e2)
      --position
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_POSITION)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_MZONE)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e3:SetCountLimit(1)
      e3:SetTarget(c100290012.postg)
      e3:SetOperation(c100290012.posop)
      c:RegisterEffect(e3)
      end
      function c100290012.tgcon(e)
      return not Duel.IsEnvironment(12644061)
      end
      function c100290012.repcon(e)
      local c=e:GetHandler()
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY)
      end
      function c100290012.repop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      end
      function c100290012.posfilter(c)
      return c:IsFaceup() and c:IsCanChangePosition()
      end
      function c100290012.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100290012.posfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100290012.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      Duel.SelectTarget(tp,c100290012.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      end
      function c100290012.posop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEDOWN_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
      end
      end
      \ No newline at end of file
      script/c100290013.lua deleted 100644 → 0
      View file @ 5af4f726
      --A宝玉獣 トパーズ・タイガー
      --
      --Script by Trishula9
      function c100290013.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE)
      --self to grave
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SELF_TOGRAVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(c100290013.tgcon)
      c:RegisterEffect(e1)
      --send replace
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB)
      e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e2:SetCondition(c100290013.repcon)
      e2:SetOperation(c100290013.repop)
      c:RegisterEffect(e2)
      --atk
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetRange(LOCATION_MZONE)
      e3:SetTargetRange(LOCATION_MZONE,0)
      e3:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x5034))
      e3:SetValue(400)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetTargetRange(0,LOCATION_MZONE)
      e4:SetTarget(aux.TRUE)
      e4:SetValue(-400)
      c:RegisterEffect(e4)
      --def
      local e5=e3:Clone()
      e5:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e5)
      local e6=e4:Clone()
      e6:SetCode(EFFECT_UPDATE_DEFENSE)
      c:RegisterEffect(e6)
      end
      function c100290013.tgcon(e)
      return not Duel.IsEnvironment(12644061)
      end
      function c100290013.repcon(e)
      local c=e:GetHandler()
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY)
      end
      function c100290013.repop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      end
      \ No newline at end of file
      script/c100290014.lua deleted 100644 → 0
      View file @ 5af4f726
      --A宝玉獣 アンバー・マンモス
      --
      --Script by Trishula9
      function c100290014.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE)
      --self to grave
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SELF_TOGRAVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(c100290014.tgcon)
      c:RegisterEffect(e1)
      --send replace
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB)
      e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e2:SetCondition(c100290014.repcon)
      e2:SetOperation(c100290014.repop)
      c:RegisterEffect(e2)
      --negate
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100290014,0))
      e3:SetCategory(CATEGORY_NEGATE)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_MZONE)
      e3:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
      e3:SetCountLimit(1)
      e3:SetCondition(c100290014.discon)
      e3:SetTarget(c100290014.distg)
      e3:SetOperation(c100290014.disop)
      c:RegisterEffect(e3)
      --negate attack
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(100290014,1))
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_BE_BATTLE_TARGET)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1)
      e4:SetCondition(c100290014.atkcon)
      e4:SetOperation(c100290014.atkop)
      c:RegisterEffect(e4)
      end
      function c100290014.tgcon(e)
      return not Duel.IsEnvironment(12644061)
      end
      function c100290014.repcon(e)
      local c=e:GetHandler()
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY)
      end
      function c100290014.repop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      end
      function c100290014.tfilter(c,tp)
      return c:IsLocation(LOCATION_ONFIELD) and (c:IsSetCard(0x5034) or c:IsCode(12644061))
      and c:IsControler(tp) and c:IsFaceup()
      end
      function c100290014.discon(e,tp,eg,ep,ev,re,r,rp)
      if rp==tp or e:GetHandler():IsStatus(STATUS_BATTLE_DESTROYED) then return false end
      if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
      local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
      return tg and tg:IsExists(c100290014.tfilter,1,nil,tp) and Duel.IsChainNegatable(ev)
      end
      function c100290014.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_NEGATE,eg,1,0,0)
      end
      function c100290014.disop(e,tp,eg,ep,ev,re,r,rp)
      Duel.NegateActivation(ev)
      end
      function c100290014.atkcon(e,tp,eg,ep,ev,re,r,rp)
      local d=Duel.GetAttackTarget()
      return d and d:IsControler(tp) and d:IsFaceup() and d:IsSetCard(0x5034)
      end
      function c100290014.atkop(e,tp,eg,ep,ev,re,r,rp)
      Duel.NegateAttack()
      end
      \ No newline at end of file
      script/c100290015.lua deleted 100644 → 0
      View file @ 5af4f726
      --A宝玉獣 コバルト・イーグル
      --
      --Script by Trishula9
      function c100290015.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE)
      --self to grave
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SELF_TOGRAVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(c100290015.tgcon)
      c:RegisterEffect(e1)
      --send replace
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB)
      e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e2:SetCondition(c100290015.repcon)
      e2:SetOperation(c100290015.repop)
      c:RegisterEffect(e2)
      --to hand
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100290015,0))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_HAND+LOCATION_MZONE)
      e3:SetCost(c100290015.thcost)
      e3:SetTarget(c100290015.thtg)
      e3:SetOperation(c100290015.thop)
      c:RegisterEffect(e3)
      --return deck
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(100290015,1))
      e4:SetCategory(CATEGORY_TODECK+CATEGORY_TOHAND)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_MZONE)
      e4:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e4:SetCountLimit(1)
      e4:SetTarget(c100290015.target)
      e4:SetOperation(c100290015.operation)
      c:RegisterEffect(e4)
      end
      function c100290015.tgcon(e)
      return not Duel.IsEnvironment(12644061)
      end
      function c100290015.repcon(e)
      local c=e:GetHandler()
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY)
      end
      function c100290015.repop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      end
      function c100290015.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToGraveAsCost() end
      Duel.SendtoGrave(e:GetHandler(),REASON_COST)
      end
      function c100290015.thfilter(c)
      return c:IsCode(12644061) and c:IsAbleToHand()
      end
      function c100290015.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290015.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100290015.thop(e,tp,eg,ep,ev,re,r,rp,chk)
      local tg=Duel.GetFirstMatchingCard(c100290015.thfilter,tp,LOCATION_DECK,0,nil)
      if tg then
      Duel.SendtoHand(tg,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tg)
      end
      end
      function c100290015.filter(c)
      return c:IsSetCard(0x5034) and (c:IsAbleToHand() or c:IsAbleToDeck()) and c:IsFaceup()
      end
      function c100290015.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(tp) and c100290015.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100290015.filter,tp,LOCATION_ONFIELD,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,c100290015.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
      if not g:GetFirst():IsAbleToHand() then
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
      elseif not g:GetFirst():IsAbleToDeck() then
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      end
      function c100290015.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) then
      if tc:IsAbleToHand() and (not tc:IsAbleToDeck()
      or Duel.SelectOption(tp,aux.Stringid(100290015,2),aux.Stringid(100290015,3))==0) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      else
      Duel.SendtoDeck(tc,nil,SEQ_DECKTOP,REASON_EFFECT)
      end
      end
      end
      \ No newline at end of file
      script/c100290016.lua deleted 100644 → 0
      View file @ 5af4f726
      --A宝玉獣 サファイア・ペガサス
      --
      --Script by Trishula9
      function c100290016.initial_effect(c)
      Duel.EnableGlobalFlag(GLOBALFLAG_SELF_TOGRAVE)
      --self to grave
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SELF_TOGRAVE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCondition(c100290016.tgcon)
      c:RegisterEffect(e1)
      --send replace
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_TO_GRAVE_REDIRECT_CB)
      e2:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e2:SetCondition(c100290016.repcon)
      e2:SetOperation(c100290016.repop)
      c:RegisterEffect(e2)
      --place
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SUMMON_SUCCESS)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetTarget(c100290016.target)
      e3:SetOperation(c100290016.operation)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e4)
      local e5=e3:Clone()
      e5:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
      c:RegisterEffect(e5)
      end
      function c100290016.tgcon(e)
      return not Duel.IsEnvironment(12644061)
      end
      function c100290016.repcon(e)
      local c=e:GetHandler()
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsReason(REASON_DESTROY)
      end
      function c100290016.repop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      c:RegisterEffect(e1)
      end
      function c100290016.filter(c)
      return c:IsSetCard(0x5034) and c:IsType(TYPE_MONSTER) and not c:IsForbidden()
      and (not c:IsLocation(LOCATION_REMOVED) or c:IsFaceup())
      end
      function c100290016.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsLocation(LOCATION_MZONE) and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingMatchingCard(c100290016.filter,tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED,0,1,nil) end
      end
      function c100290016.operation(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c100290016.filter),tp,LOCATION_DECK+LOCATION_GRAVE+LOCATION_HAND+LOCATION_REMOVED,0,1,1,nil)
      local tc=g:GetFirst()
      if tc then
      Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetCode(EFFECT_CHANGE_TYPE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TURN_SET)
      e1:SetValue(TYPE_SPELL+TYPE_CONTINUOUS)
      tc:RegisterEffect(e1)
      end
      end
      script/c100290017.lua deleted 100644 → 0
      View file @ 5af4f726
      --ダイナ・ベース
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --fusion summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.fustg)
      e2:SetOperation(s.fusop)
      c:RegisterEffect(e2)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetLP(tp)<Duel.GetLP(1-tp)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      function s.filter1(c,e)
      return c:IsLocation(LOCATION_MZONE+LOCATION_HAND) and not c:IsImmuneToEffect(e)
      end
      function s.filter2(c,e,tp,m,f,gc,chkf)
      return c:IsType(TYPE_FUSION) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,gc,chkf)
      end
      function s.fustg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
      local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,c,chkf)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,c,chkf)
      end
      end
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.fusop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local chkf=tp
      if not c:IsRelateToEffect(e) or c:IsImmuneToEffect(e) then return end
      local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
      local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,c,chkf)
      local mg2=nil
      local sg2=nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,c,chkf)
      end
      if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=sg:Select(tp,1,1,nil)
      local tc=tg:GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
      local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,c,chkf)
      tc:SetMaterial(mat1)
      Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,c,chkf)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      script/c100290018.lua deleted 100644 → 0
      View file @ 5af4f726
      --ダイナ・タンク
      --Script by mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFun2(c,aux.FilterBoolFunction(Card.IsRace,RACE_MACHINE),aux.FilterBoolFunction(Card.IsRace,RACE_DINOSAUR),true)
      --atk
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_MATERIAL_CHECK)
      e1:SetValue(s.valcheck)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetCondition(s.atkcon)
      e2:SetOperation(s.atkop)
      e2:SetLabelObject(e1)
      c:RegisterEffect(e2)
      --change effect target
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,0))
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetCode(EVENT_CHAINING)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,id)
      e3:SetCondition(s.cecon)
      e3:SetTarget(s.cetg)
      e3:SetOperation(s.ceop)
      c:RegisterEffect(e3)
      --special summon
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,1))
      e4:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCode(EVENT_DESTROYED)
      e4:SetCountLimit(1,id+o)
      e4:SetCondition(s.spcon)
      e4:SetTarget(s.sptg)
      e4:SetOperation(s.spop)
      c:RegisterEffect(e4)
      end
      function s.valcheck(e,c)
      local g=c:GetMaterial()
      local atk=g:Filter(Card.IsRace,nil,RACE_DINOSAUR):GetSum(Card.GetBaseAttack)
      e:SetLabel(atk)
      end
      function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local atk=e:GetLabelObject():GetLabel()
      if atk>0 then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(atk)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      c:RegisterEffect(e1)
      end
      end
      function s.cecon(e,tp,eg,ep,ev,re,r,rp)
      if e==re or not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
      local g=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
      return g and g:GetCount()==1 and g:GetFirst()==e:GetHandler()
      end
      function s.cefilter(c,ct)
      return Duel.CheckChainTarget(ct,c)
      end
      function s.cetg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and s.cefilter(chkc,ev) and chkc~=e:GetHandler() end
      if chk==0 then return Duel.IsExistingTarget(s.cefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,e:GetHandler(),ev) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      Duel.SelectTarget(tp,s.cefilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,e:GetHandler(),ev)
      end
      function s.ceop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.ChangeTargetCard(ev,Group.FromCards(tc))
      end
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return rp==1-tp and e:GetHandler():IsPreviousControler(tp)
      end
      function s.spfilter(c,e,tp)
      return c:IsRace(RACE_DINOSAUR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c100290019.lua deleted 100644 → 0
      View file @ 5af4f726
      --ガジェット・ボックス
      --
      --Script by Trishula9
      function c100290019.initial_effect(c)
      c:EnableCounterPermit(0x8)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_COUNTER)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,100290019+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(c100290019.target)
      e1:SetOperation(c100290019.activate)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1)
      e2:SetTarget(c100290019.sptg)
      e2:SetOperation(c100290019.spop)
      c:RegisterEffect(e2)
      end
      function c100290019.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanAddCounter(tp,0x8,3,e:GetHandler()) end
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,3,0,0x8)
      end
      function c100290019.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      c:AddCounter(0x8,3)
      end
      end
      function c100290019.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsCanRemoveCounter(tp,1,0,0x8,1,REASON_EFFECT) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,100290119,0x51,TYPES_TOKEN_MONSTER,0,0,1,RACE_MACHINE,ATTRIBUTE_EARTH) end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function c100290019.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.RemoveCounter(tp,1,0,0x8,1,REASON_EFFECT) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,100290119,0x51,TYPES_TOKEN_MONSTER,0,0,1,RACE_MACHINE,ATTRIBUTE_EARTH) then
      local token=Duel.CreateToken(tp,100290119)
      Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetAbsoluteRange(tp,1,0)
      e1:SetTarget(c100290019.splimit)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      token:RegisterEffect(e1,true)
      Duel.SpecialSummonComplete()
      end
      end
      function c100290019.splimit(e,c)
      return not c:IsType(TYPE_SYNCHRO) and c:IsLocation(LOCATION_EXTRA)
      end
      \ No newline at end of file
      script/c100290020.lua deleted 100644 → 0
      View file @ 5af4f726
      --D・インパクトリターン
      --
      --Script by Trishula9
      function c100290020.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,100290020)
      e1:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP)
      e1:SetTarget(c100290020.target)
      e1:SetOperation(c100290020.activate)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,100290020)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c100290020.sptg)
      e2:SetOperation(c100290020.spop)
      c:RegisterEffect(e2)
      end
      function c100290020.dfilter(c)
      return c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) and c:IsAbleToDeck()
      end
      function c100290020.filter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToDeck()
      end
      function c100290020.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and c100290020.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100290020.filter,tp,0,LOCATION_ONFIELD,1,nil)
      and Duel.IsExistingMatchingCard(c100290020.dfilter,tp,LOCATION_HAND,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,c100290020.filter,tp,0,LOCATION_ONFIELD,1,2,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,#g+1,tp,LOCATION_ONFIELD+LOCATION_HAND)
      end
      function c100290020.activate(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sc=Duel.SelectMatchingCard(tp,c100290020.dfilter,tp,LOCATION_HAND,0,1,1,nil):GetFirst()
      if not sc then return end
      Duel.ConfirmCards(1-tp,sc)
      if Duel.SendtoDeck(sc,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)>0 and sc:IsLocation(LOCATION_DECK) then
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      Duel.SendtoDeck(g,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      end
      function c100290020.spfilter(c,e,tp)
      return c:IsSetCard(0x26) and (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup())
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function c100290020.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE+LOCATION_REMOVED) and c100290020.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c100290020.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c100290020.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c100290020.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      end
      end
      \ No newline at end of file
      script/c100290021.lua deleted 100644 → 0
      View file @ 5af4f726
      --工作箱
      --
      --Script by Trishula9
      function c100290021.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,100290021)
      e2:SetCondition(c100290021.thcon)
      e2:SetTarget(c100290021.thtg)
      e2:SetOperation(c100290021.thop)
      c:RegisterEffect(e2)
      end
      function c100290021.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetFieldGroupCount(tp,LOCATION_MZONE,0)>0
      end
      function c100290021.thfilter(c)
      return c:IsType(TYPE_EQUIP) and c:IsAbleToHand()
      end
      function c100290021.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local g=Duel.GetMatchingGroup(c100290021.thfilter,tp,LOCATION_DECK,0,nil)
      return g:GetClassCount(Card.GetCode)>=2
      end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,0,LOCATION_DECK)
      end
      function c100290021.thop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(c100290021.thfilter,tp,LOCATION_DECK,0,nil)
      if g:GetClassCount(Card.GetCode)>=2 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local sg=g:SelectSubGroup(tp,aux.dncheck,false,2,2)
      Duel.ConfirmCards(1-tp,sg)
      local tg=sg:RandomSelect(1-tp,1)
      tg:GetFirst():SetStatus(STATUS_TO_HAND_WITHOUT_CONFIRM,true)
      Duel.SendtoHand(tg,nil,REASON_EFFECT)
      Duel.SendtoDeck(sg-tg,nil,SEQ_DECKBOTTOM,REASON_EFFECT)
      end
      end
      \ No newline at end of file
      script/c100290022.lua deleted 100644 → 0
      View file @ 5af4f726
      --水晶ドクロ
      --Crystal Skull
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --damage
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DAMAGE+CATEGORY_POSITION)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_F)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(s.postg)
      e1:SetOperation(s.posop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_FLIP_SUMMON_SUCCESS)
      c:RegisterEffect(e2)
      local e3=e1:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      --search
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_PHASE+PHASE_END)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,id)
      e4:SetCondition(s.thcon)
      e4:SetTarget(s.thtg)
      e4:SetOperation(s.thop)
      c:RegisterEffect(e4)
      if not s.global_check then
      s.global_check=true
      s[0]=0
      s[1]=0
      local ge1=Effect.CreateEffect(c)
      ge1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge1:SetCode(EVENT_DAMAGE)
      ge1:SetOperation(s.regop)
      Duel.RegisterEffect(ge1,0)
      local ge2=Effect.CreateEffect(c)
      ge2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      ge2:SetCode(EVENT_PHASE_START+PHASE_DRAW)
      ge2:SetOperation(s.resetop)
      Duel.RegisterEffect(ge2,0)
      end
      end
      function s.regop(e,tp,eg,ep,ev,re,r,rp)
      if r&REASON_EFFECT>0 then s[ep]=1 end
      end
      function s.resetop(e,tp,eg,ep,ev,re,r,rp)
      s[0]=0
      s[1]=0
      end
      function s.postg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,1000)
      end
      function s.posop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.Damage(tp,1000,REASON_EFFECT)<=0 then return end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and c:IsAttackPos() then
      Duel.BreakEffect()
      Duel.ChangePosition(c,POS_FACEUP_DEFENSE)
      end
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      return s[tp]==0
      end
      function s.sfilter(c,e,tp)
      return c:IsRace(RACE_ROCK) and c:IsAttack(0) and (c:IsAbleToHand()
      or (Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.sfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local tc=Duel.SelectMatchingCard(tp,s.sfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp):GetFirst()
      if tc then
      local th=tc:IsAbleToHand()
      local sp=Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
      local op=0
      if th and sp then op=Duel.SelectOption(tp,1190,1152)
      elseif th then op=0
      else op=1 end
      if op==0 then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      else
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c100290023.lua deleted 100644 → 0
      View file @ 5af4f726
      --呪詛返しのヒトガタ
      --id:Ruby QQ:917770701
      function c100290023.initial_effect(c)
      --reflect
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_CHAINING)
      e1:SetCondition(c100290023.condition)
      e1:SetOperation(c100290023.refop)
      c:RegisterEffect(e1)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_LEAVE_GRAVE)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_BATTLE_DAMAGE)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,100290023)
      e2:SetCondition(c100290023.setcon)
      e2:SetTarget(c100290023.settg)
      e2:SetOperation(c100290023.setop)
      c:RegisterEffect(e2)
      end
      function c100290023.condition(e,tp,eg,ep,ev,re,r,rp)
      return aux.damcon1(e,tp,eg,ep,ev,re,r,rp) and re:IsActiveType(TYPE_MONSTER)
      end
      function c100290023.refop(e,tp,eg,ep,ev,re,r,rp)
      local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_REFLECT_DAMAGE)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetLabel(cid)
      e1:SetValue(c100290023.refcon)
      e1:SetReset(RESET_CHAIN)
      Duel.RegisterEffect(e1,tp)
      end
      function c100290023.refcon(e,re,val,r,rp,rc)
      local cc=Duel.GetCurrentChain()
      if cc==0 or bit.band(r,REASON_EFFECT)==0 then return end
      local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
      return cid==e:GetLabel()
      end
      function c100290023.setcon(e,tp,eg,ep,ev,re,r,rp)
      return ep==tp
      end
      function c100290023.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsSSetable() end
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
      end
      function c100290023.setop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SSet(tp,c)
      end
      end
      script/c100290024.lua deleted 100644 → 0
      View file @ 5af4f726
      --ストーンヘンジ
      --id:Ruby QQ:917770701
      function c100290024.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:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,100290024+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(c100290024.target)
      e1:SetOperation(c100290024.operation)
      c:RegisterEffect(e1)
      --Destroy
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_SINGLE)
      e2:SetCode(EVENT_LEAVE_FIELD)
      e2:SetOperation(c100290024.desop)
      c:RegisterEffect(e2)
      end
      function c100290024.filter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_ATTACK) and c:IsAttack(0)
      end
      function c100290024.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100290024.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(c100290024.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c100290024.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
      end
      function c100290024.eqlimit(e,c)
      return e:GetOwner()==c
      end
      function c100290024.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) then
      if Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP_ATTACK)==0 then return end
      Duel.Equip(tp,c,tc)
      --Add Equip limit
      local e1=Effect.CreateEffect(tc)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(c100290024.eqlimit)
      c:RegisterEffect(e1)
      end
      end
      function c100290024.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetHandler():GetFirstCardTarget()
      if tc and tc:IsLocation(LOCATION_MZONE) then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      end
      script/c100290025.lua deleted 100644 → 0
      View file @ 5af4f726
      --ドリーム・シャーク
      --id:Ruby QQ:917770701
      function c100290025.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290025,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100290025)
      e1:SetCondition(c100290025.spcon)
      e1:SetTarget(c100290025.sptg)
      e1:SetOperation(c100290025.spop)
      c:RegisterEffect(e1)
      --battle indes
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCode(EFFECT_INDESTRUCTABLE_COUNT)
      e2:SetCountLimit(1)
      e2:SetValue(c100290025.valcon)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100290025,1))
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetCode(EVENT_CHAINING)
      e3:SetCountLimit(1,100290125)
      e3:SetCondition(aux.damcon1)
      e3:SetTarget(c100290025.sptg2)
      e3:SetOperation(c100290025.spop2)
      c:RegisterEffect(e3)
      end
      function c100290025.cfilter(c)
      return c:IsFacedown() or not c:IsAttribute(ATTRIBUTE_WATER)
      end
      function c100290025.spcon(e,tp,eg,ep,ev,re,r,rp)
      return not Duel.IsExistingMatchingCard(c100290025.cfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function c100290025.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100290025.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c100290025.valcon(e,re,r,rp)
      return bit.band(r,REASON_BATTLE)~=0
      end
      function c100290025.sptg2(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function c100290025.spop2(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)~=0 then
      local cid=Duel.GetChainInfo(ev,CHAININFO_CHAIN_ID)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CHANGE_DAMAGE)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetLabel(cid)
      e1:SetValue(c100290025.damval)
      e1:SetReset(RESET_CHAIN)
      Duel.RegisterEffect(e1,tp)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetReset(RESET_EVENT+RESETS_REDIRECT)
      e2:SetValue(LOCATION_REMOVED)
      c:RegisterEffect(e2,true)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_UPDATE_DEFENSE)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e3:SetValue(-1000)
      c:RegisterEffect(e3)
      end
      end
      function c100290025.damval(e,re,val,r,rp,rc)
      local cc=Duel.GetCurrentChain()
      if cc==0 or bit.band(r,REASON_EFFECT)==0 then return val end
      local cid=Duel.GetChainInfo(0,CHAININFO_CHAIN_ID)
      if cid~=e:GetLabel() then return val end
      return 0
      end
      script/c100290026.lua deleted 100644 → 0
      View file @ 5af4f726
      --ヒロイック・コール
      --Heroic Call
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --atk up
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_ATKCHANGE)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCondition(s.atkcon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(s.atktg)
      e2:SetOperation(s.atkop)
      c:RegisterEffect(e2)
      end
      function s.filter(c,e,tp)
      return c:IsRace(RACE_WARRIOR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_GRAVE+LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE+LOCATION_HAND)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.filter),tp,LOCATION_GRAVE+LOCATION_HAND,0,1,1,nil,e,tp):GetFirst()
      if tc and Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP) and not tc:IsSetCard(0x6f) then
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_CANNOT_ATTACK)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e3)
      end
      Duel.SpecialSummonComplete()
      end
      function s.atkcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetLP(tp)<=500
      end
      function s.afilter(c)
      return c:IsSetCard(0x6f) and c:IsFaceup()
      end
      function s.atktg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and chkc:IsFaceup() end
      local ct1=Duel.GetMatchingGroupCount(s.afilter,tp,LOCATION_ONFIELD,0,nil)
      local ct2=Duel.GetOverlayGroup(tp,1,0):FilterCount(Card.IsSetCard,nil,0x6f)
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil)
      and ct1+ct2>0 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil)
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() then
      local ct1=Duel.GetMatchingGroupCount(s.afilter,tp,LOCATION_ONFIELD,0,nil)
      local ct2=Duel.GetOverlayGroup(tp,1,0):FilterCount(Card.IsSetCard,nil,0x6f)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue((ct1+ct2)*500)
      tc:RegisterEffect(e1)
      end
      end
      script/c100290027.lua deleted 100644 → 0
      View file @ 5af4f726
      --オイリーゼミ
      --Oily Cicada
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --lv down
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetTarget(s.lvtg)
      e1:SetOperation(s.lvop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --special summon
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_CHANGE_POS)
      e3:SetCountLimit(1,id+o)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetTarget(s.sptg)
      e3:SetOperation(s.spop)
      c:RegisterEffect(e3)
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsLevelAbove(2) and c:IsRace(RACE_INSECT)
      end
      function s.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_MZONE,0,1,nil) end
      end
      function s.lvop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(s.filter,tp,LOCATION_MZONE,0,nil)
      for tc in aux.Next(g) do
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_UPDATE_LEVEL)
      e1:SetValue(-1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      function s.sfilter(c,e,tp)
      return c:IsCode(id) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.sfilter,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(s.sfilter),tp,LOCATION_DECK+LOCATION_HAND+LOCATION_GRAVE,0,1,1,nil,e,tp)
      if #sg>0 then
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c100290028.lua deleted 100644 → 0
      View file @ 5af4f726
      --夢蝉スイミンミン
      --Dream Cicada
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetCondition(s.spcon)
      c:RegisterEffect(e1)
      --position
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_POSITION)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetCountLimit(1,id)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetTarget(s.postg)
      e2:SetOperation(s.posop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c)
      return c:IsAttackPos() and c:IsRace(RACE_INSECT)
      end
      function s.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.postg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsCanChangePosition() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsCanChangePosition,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_POSCHANGE)
      local g=Duel.SelectTarget(tp,Card.IsCanChangePosition,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      end
      function s.posop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
      end
      end
      script/c100290029.lua deleted 100644 → 0
      View file @ 5af4f726
      --No.2 蚊学忍者シャドー・モスキート
      --QQ：974559682 githubid:106670859
      function c100290029.initial_effect(c)
      --xyz summon
      aux.AddXyzProcedure(c,nil,2,2,nil,nil,99)
      c:EnableReviveLimit()
      --indes
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetValue(1)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_AVOID_BATTLE_DAMAGE)
      c:RegisterEffect(e2)
      --must attack
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetRange(LOCATION_MZONE)
      e3:SetTargetRange(0,LOCATION_MZONE)
      e3:SetCode(EFFECT_MUST_ATTACK)
      c:RegisterEffect(e3)
      --counter
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_ATTACK_ANNOUNCE)
      e4:SetRange(LOCATION_MZONE)
      e4:SetTarget(c100290029.target)
      e4:SetOperation(c100290029.ctop)
      c:RegisterEffect(e4)
      end
      c100290029.xyz_number=2
      function c100290029.filter(c)
      return c:GetCounter(0x1161)>0 and c:IsFaceup()
      end
      function c100290029.target(e,tp,eg,ep,ev,re,r,rp,chk)
      local b1=Duel.IsExistingMatchingCard(Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,nil,0x1161,1) and e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_EFFECT)
      local b2=Duel.IsExistingMatchingCard(c100290029.filter,tp,0,LOCATION_MZONE,1,nil)
      if chk==0 then return b1 or b2 end
      local off=1
      local ops,opval={},{}
      if b1 then
      ops[off]=aux.Stringid(100290029,0)
      opval[off]=0
      off=off+1
      end
      if b2 then
      ops[off]=aux.Stringid(100290029,1)
      opval[off]=1
      off=off+1
      end
      local op=Duel.SelectOption(tp,table.unpack(ops))+1
      local sel=opval[op]
      e:SetLabel(sel)
      if sel==0 then
      e:SetCategory(CATEGORY_COUNTER)
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,1,1-tp,LOCATION_MZONE)
      elseif sel==1 then
      e:SetCategory(CATEGORY_DAMAGE)
      Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,1-tp,nil)
      end
      end
      function c100290029.ctop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local sel=e:GetLabel()
      if sel==0 then
      c:RemoveOverlayCard(tp,1,1,REASON_EFFECT)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COUNTER)
      local g1=Duel.SelectMatchingCard(tp,Card.IsCanAddCounter,tp,0,LOCATION_MZONE,1,1,nil,0x1161,1)
      if #g1==0 then return end
      Duel.HintSelection(g1)
      local tc=g1:GetFirst()
      tc:AddCounter(0x1161,1)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetCondition(c100290029.ctcon)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      elseif sel==1 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g2=Duel.SelectMatchingCard(tp,c100290029.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      if #g2==0 then return end
      Duel.HintSelection(g2)
      Duel.Damage(1-tp,g2:GetFirst():GetAttack(),REASON_EFFECT)
      end
      end
      function c100290029.ctcon(e)
      return e:GetHandler():GetCounter(0x1161)>0
      end
      \ No newline at end of file
      script/c100290030.lua deleted 100644 → 0
      View file @ 5af4f726
      --蚊学忍法・軍蚊マーチ
      --Ninjitsu Art of Mosquito Marching
      --Scripted by Naim
      function c100290030.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290030,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,100290030)
      e1:SetTarget(c100290030.sptg)
      e1:SetOperation(c100290030.spop)
      c:RegisterEffect(e1)
      --counter
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100290030,1))
      e2:SetCategory(CATEGORY_COUNTER)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,100290030+100)
      e2:SetCondition(c100290030.countercond)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c100290030.countertg)
      e2:SetOperation(c100290030.counterop)
      c:RegisterEffect(e2)
      end
      function c100290030.spfilter(c,e,tp)
      return c:IsLevelBelow(4) and c:IsRace(RACE_INSECT) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c100290030.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c100290030.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function c100290030.spop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(c100290030.spfilter,tp,LOCATION_HAND,0,nil,e,tp)
      local ft=math.min((Duel.GetLocationCount(tp,LOCATION_MZONE)),#g,2)
      if ft<=0 then return end
      if Duel.IsPlayerAffectedByEffect(tp,59822133) then ft=1 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:SelectSubGroup(tp,c100290030.spcheck,false,1,ft)
      if sg then
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c100290030.spcheck(sg)
      return sg:GetClassCount(Card.GetLevel)==1
      end
      function c100290030.cfilter(c)
      return c:IsFaceup() and c:IsCode(100290029)
      end
      function c100290030.countercond(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c100290030.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c100290030.ctfilter(c)
      return c:IsFaceup() and c:IsRace(RACE_INSECT)
      end
      function c100290030.tgfilter(c)
      return c:IsFaceup() and c:IsCanAddCounter(0x1161,1)
      end
      function c100290030.countertg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and chkc:IsFaceup() end
      local ct=Duel.GetMatchingGroupCount(c100290030.ctfilter,tp,LOCATION_MZONE,0,nil)
      if chk==0 then return ct>0 and Duel.IsExistingTarget(c100290030.tgfilter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_COUNTER)
      local g=Duel.SelectTarget(tp,c100290030.tgfilter,tp,0,LOCATION_MZONE,1,ct,nil)
      Duel.SetOperationInfo(0,CATEGORY_COUNTER,nil,0,0,0)
      end
      function c100290030.ctcon(e)
      return e:GetHandler():GetCounter(0x1161)>0
      end
      function c100290030.counterop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      if #g==0 then return end
      local c=e:GetHandler()
      for tc in aux.Next(g) do
      if tc:AddCounter(0x1161,1) then
      --Negate its effects
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetCondition(c100290030.ctcon)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      end
      script/c100290031.lua deleted 100644 → 0
      View file @ 5af4f726
      --EMオッドアイズ・プリースト
      --
      --Script by Trishula9
      function c100290031.initial_effect(c)
      aux.EnablePendulumAttribute(c)
      --to hand
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,100290031)
      e1:SetTarget(c100290031.thtg)
      e1:SetOperation(c100290031.thop)
      c:RegisterEffect(e1)
      --spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,100290031+100)
      e2:SetCondition(c100290031.spcon)
      e2:SetCost(c100290031.spcost)
      e2:SetTarget(c100290031.sptg)
      e2:SetOperation(c100290031.spop)
      c:RegisterEffect(e2)
      --to extra or grave
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_TOEXTRA+CATEGORY_TOGRAVE+CATEGORY_DECKDES)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,100290031+100)
      e3:SetCondition(c100290031.tgcon)
      e3:SetTarget(c100290031.tgtg)
      e3:SetOperation(c100290031.tgop)
      c:RegisterEffect(e3)
      end
      function c100290031.thfilter(c)
      return c:IsSetCard(0x9f,0x99) and c:IsAbleToHand()
      end
      function c100290031.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100290031.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100290031.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c100290031.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,e:GetHandler(),1,0,0)
      end
      function c100290031.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND) then
      Duel.BreakEffect()
      Duel.Destroy(e:GetHandler(),REASON_EFFECT)
      end
      end
      function c100290031.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) and e:GetHandler():IsAttackPos()
      end
      function c100290031.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsAbleToRemoveAsCost() and Duel.GetMZoneCount(tp,c)>0 end
      Duel.Remove(c,POS_FACEUP,REASON_COST)
      end
      function c100290031.spfilter(c,e,tp)
      return c:IsSetCard(0x9f,0x99) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c100290031.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100290031.spfilter(chkc,e,tp) end
      if chk==0 then return Duel.IsExistingTarget(c100290031.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c100290031.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c100290031.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c100290031.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_PENDULUM) and e:GetHandler():IsDefensePos()
      end
      function c100290031.tgfilter(c)
      return c:IsSetCard(0x9f,0x99) and c:IsType(TYPE_PENDULUM)
      and (c:IsAbleToExtra() or c:IsAbleToGrave())
      end
      function c100290031.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290031.tgfilter,tp,LOCATION_DECK,0,1,nil) end
      end
      function c100290031.tgop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local g=Duel.SelectMatchingCard(tp,c100290031.tgfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()<=0 then return end
      local tc=g:GetFirst()
      if tc:IsAbleToGrave() and (not tc:IsAbleToExtra() or Duel.SelectOption(tp,aux.Stringid(100290031,0),1191)==1) then
      Duel.SendtoGrave(tc,REASON_EFFECT)
      else
      Duel.SendtoExtraP(tc,tp,REASON_EFFECT)
      end
      end
      script/c100290032.lua deleted 100644 → 0
      View file @ 5af4f726
      --らくがきじゅう－すてご
      --
      --Script by Trishula9
      function c100290032.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290032,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100290032)
      e1:SetCondition(c100290032.spcon)
      e1:SetTarget(c100290032.sptg)
      e1:SetOperation(c100290032.spop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100290032,1))
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND+CATEGORY_HANDES)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,100290032+100)
      e2:SetTarget(c100290032.thtg)
      e2:SetOperation(c100290032.thop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function c100290032.cfilter(c)
      return c:IsFacedown() or not c:IsRace(RACE_DINOSAUR)
      end
      function c100290032.spcon(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetFieldGroup(tp,LOCATION_MZONE,0)
      return not g:IsExists(c100290032.cfilter,1,nil)
      end
      function c100290032.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100290032.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      function c100290032.thfilter(c)
      return c:IsSetCard(0x2286) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
      end
      function c100290032.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290032.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100290032.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100290032.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      Duel.BreakEffect()
      Duel.DiscardHand(tp,nil,1,1,REASON_EFFECT+REASON_DISCARD)
      end
      end
      \ No newline at end of file
      script/c100290033.lua deleted 100644 → 0
      View file @ 5af4f726
      --らくがきじゅう－てらの
      --
      --Script by Trishula9
      function c100290033.initial_effect(c)
      --summon with 1 tribute
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290033,0))
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_SUMMON_PROC)
      e1:SetCondition(c100290033.otcon)
      e1:SetOperation(c100290033.otop)
      e1:SetValue(SUMMON_TYPE_ADVANCE)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_SET_PROC)
      c:RegisterEffect(e2)
      --tribute summon
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100290033,1))
      e3:SetCategory(CATEGORY_SUMMON)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_HAND)
      e3:SetCountLimit(1,100290033)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e3:SetCondition(c100290033.sumcon)
      e3:SetTarget(c100290033.sumtg)
      e3:SetOperation(c100290033.sumop)
      c:RegisterEffect(e3)
      --destroy
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(100290033,2))
      e4:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_SUMMON_SUCCESS)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetTarget(c100290033.destg)
      e4:SetOperation(c100290033.desop)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_SINGLE)
      e5:SetCode(EFFECT_MATERIAL_CHECK)
      e5:SetValue(c100290033.valcheck)
      e5:SetLabelObject(e4)
      c:RegisterEffect(e5)
      end
      function c100290033.rfilter(c,tp)
      return c:IsRace(RACE_DINOSAUR) and (c:IsControler(tp) or c:IsFaceup())
      end
      function c100290033.otcon(e,c,minc)
      if c==nil then return true end
      local tp=c:GetControler()
      local mg=Duel.GetMatchingGroup(c100290033.rfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
      return c:IsLevelAbove(7) and minc<=1 and Duel.CheckTribute(c,1,1,mg)
      end
      function c100290033.otop(e,tp,eg,ep,ev,re,r,rp,c)
      local mg=Duel.GetMatchingGroup(c100290033.rfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil,tp)
      local sg=Duel.SelectTribute(tp,c,1,1,mg)
      c:SetMaterial(sg)
      Duel.Release(sg,REASON_SUMMON+REASON_MATERIAL)
      end
      function c100290033.cfilter(c)
      return c:IsRace(RACE_DINOSAUR) and c:IsFaceup()
      end
      function c100290033.sumcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c100290033.cfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil)
      and (Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2)
      end
      function c100290033.sumtg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsSummonable(true,nil,1) or c:IsMSetable(true,nil,1) end
      Duel.SetOperationInfo(0,CATEGORY_SUMMON,c,1,0,0)
      end
      function c100290033.sumop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      local pos=0
      if c:IsSummonable(true,nil,1) then pos=pos+POS_FACEUP_ATTACK end
      if c:IsMSetable(true,nil,1) then pos=pos+POS_FACEDOWN_DEFENSE end
      if pos==0 then return end
      if Duel.SelectPosition(tp,c,pos)==POS_FACEUP_ATTACK then
      Duel.Summon(tp,c,true,nil,1)
      else
      Duel.MSet(tp,c,true,nil,1)
      end
      end
      function c100290033.destg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function c100290033.desop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectMatchingCard(tp,aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      if g:GetCount()>0 then
      Duel.HintSelection(g)
      Duel.Destroy(g,REASON_EFFECT)
      if e:GetLabel()==1 and c:IsRelateToEffect(e) and c:IsFaceup() then
      Duel.BreakEffect()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      e1:SetValue(math.ceil(g:GetFirst():GetBaseAttack()/2))
      c:RegisterEffect(e1)
      end
      end
      end
      function c100290033.valcheck(e,c)
      local g=c:GetMaterial()
      if g:IsExists(Card.IsSetCard,1,nil,0x1286) then
      e:GetLabelObject():SetLabel(1)
      else
      e:GetLabelObject():SetLabel(0)
      end
      end
      \ No newline at end of file
      script/c100290034.lua deleted 100644 → 0
      View file @ 5af4f726
      --らくがきちょう－とおせんぼ
      --
      --Script by Trishula9
      function c100290034.initial_effect(c)
      --negate attack
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_BE_BATTLE_TARGET)
      e1:SetCountLimit(1,100290034)
      e1:SetCondition(c100290034.negcon)
      e1:SetOperation(c100290034.negop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,100290034+100)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCondition(aux.exccon)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c100290034.thtg)
      e2:SetOperation(c100290034.thop)
      c:RegisterEffect(e2)
      end
      function c100290034.negcon(e,tp,eg,ep,ev,re,r,rp)
      local tc=eg:GetFirst()
      return tc:IsControler(tp) and tc:IsFaceup() and tc:IsRace(RACE_DINOSAUR)
      end
      function c100290034.spfilter(c,e,tp)
      return c:IsSetCard(0x1286) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c100290034.negop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.NegateAttack() then
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100290034.spfilter),tp,LOCATION_GRAVE,0,nil,e,tp)
      local ct=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ct>0 and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100290034,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=g:Select(tp,1,1,nil):GetFirst()
      if tc then
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      local fid=e:GetHandler():GetFieldID()
      tc:RegisterFlagEffect(100290034,RESET_EVENT+RESETS_STANDARD,0,1,fid)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetDescription(aux.Stringid(100290034,2))
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e2:SetCode(EVENT_PHASE+PHASE_END)
      e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e2:SetCountLimit(1)
      e2:SetLabel(fid)
      e2:SetLabelObject(tc)
      e2:SetCondition(c100290034.descon)
      e2:SetOperation(c100290034.desop)
      Duel.RegisterEffect(e2,tp)
      end
      end
      end
      end
      function c100290034.descon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      if tc:GetFlagEffectLabel(100290034)~=e:GetLabel() then
      e:Reset()
      return false
      else return true end
      end
      function c100290034.desop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Destroy(e:GetLabelObject(),REASON_EFFECT)
      end
      function c100290034.thfilter(c)
      return c:IsRace(RACE_DINOSAUR) and c:IsLevelAbove(5) and c:IsAbleToHand()
      end
      function c100290034.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290034.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100290034.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100290034.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      \ No newline at end of file
      script/c100290035.lua deleted 100644 → 0
      View file @ 5af4f726
      --地雷星トドロキ
      --id:Ruby QQ:917770701
      function c100290035.initial_effect(c)
      --special summon (hand)
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290035,0))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100290035+EFFECT_COUNT_CODE_OATH)
      e1:SetCondition(c100290035.hspcon)
      e1:SetOperation(c100290035.hspop)
      c:RegisterEffect(e1)
      --fusion summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100290035,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,100290135)
      e2:SetHintTiming(0,TIMING_BATTLE_START+TIMING_BATTLE_END)
      e2:SetCondition(c100290035.spcon)
      e2:SetCost(c100290035.spcost)
      e2:SetTarget(c100290035.sptg)
      e2:SetOperation(c100290035.spop)
      c:RegisterEffect(e2)
      end
      function c100290035.hspcfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
      end
      function c100290035.hspcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c100290035.hspcfilter,tp,LOCATION_HAND,0,1,c)
      end
      function c100290035.hspop(e,tp,eg,ep,ev,re,r,rp,c)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=Duel.SelectMatchingCard(tp,c100290035.hspcfilter,tp,LOCATION_HAND,0,1,1,c)
      Duel.SendtoGrave(g,REASON_COST)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(-500)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_DISABLE)
      c:RegisterEffect(e1)
      end
      function c100290035.spcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()>=PHASE_BATTLE_START and Duel.GetCurrentPhase()<=PHASE_BATTLE
      end
      function c100290035.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLPCost(tp,500) end
      Duel.PayLPCost(tp,500)
      end
      function c100290035.spfilter1(c,e)
      return not c:IsImmuneToEffect(e)
      end
      function c100290035.spfilter2(c,e,tp,m,f,chkf)
      return c:IsType(TYPE_FUSION) and c:IsRace(RACE_WARRIOR) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
      end
      function c100290035.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp)
      local res=Duel.IsExistingMatchingCard(c100290035.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(c100290035.spfilter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
      end
      end
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function c100290035.spop(e,tp,eg,ep,ev,re,r,rp)
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(c100290035.spfilter1,nil,e)
      local sg1=Duel.GetMatchingGroup(c100290035.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
      local mg2=nil
      local sg2=nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(c100290035.spfilter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
      end
      if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=sg:Select(tp,1,1,nil)
      local tc=tg:GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
      local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
      tc:SetMaterial(mat1)
      Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      script/c100290036.lua deleted 100644 → 0
      View file @ 5af4f726
      --天雷星センコウ
      --id:Ruby QQ:917770701
      function c100290036.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290036,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetRange(LOCATION_HAND)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,100290036)
      e1:SetCondition(c100290036.spcon)
      e1:SetTarget(c100290036.sptg)
      e1:SetOperation(c100290036.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      --destroy
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100290036,1))
      e3:SetCategory(CATEGORY_DESTROY+CATEGORY_ATKCHANGE)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e3:SetRange(LOCATION_GRAVE)
      e3:SetCountLimit(1,100290136)
      e3:SetCost(aux.bfgcost)
      e3:SetTarget(c100290036.target)
      e3:SetOperation(c100290036.activate)
      c:RegisterEffect(e3)
      end
      function c100290036.spfilter(c,tp)
      return c:IsFaceup() and c:IsControler(tp) and c:IsAttribute(ATTRIBUTE_EARTH)
      end
      function c100290036.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c100290036.spfilter,1,nil,tp)
      end
      function c100290036.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100290036.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      function c100290036.filter1(c,tp)
      return c:IsFaceup() and c:IsLevelAbove(5) and c:IsRace(RACE_WARRIOR) and c:IsAttackAbove(1500)
      end
      function c100290036.filter2(c,check)
      return c:IsPosition(POS_FACEUP_ATTACK)
      end
      function c100290036.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return false end
      if chk==0 then return Duel.IsExistingTarget(c100290036.filter1,tp,LOCATION_MZONE,0,1,nil)
      and Duel.IsExistingTarget(c100290036.filter2,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g1=Duel.SelectTarget(tp,c100290036.filter1,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g2=Duel.SelectTarget(tp,c100290036.filter2,tp,0,LOCATION_MZONE,1,1,nil)
      e:SetLabelObject(g1:GetFirst())
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g2,1,0,0)
      end
      function c100290036.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local lc=tg:GetFirst()
      if lc==tc then lc=tg:GetNext() end
      if tc:IsRelateToEffect(e) and tc:IsControler(tp) and tc:IsFaceup() and tc:IsAttackAbove(1500) then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(-1500)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      if not tc:IsHasEffect(EFFECT_REVERSE_UPDATE) and lc:IsRelateToEffect(e) and lc:IsControler(1-tp) then
      Duel.Destroy(lc,REASON_EFFECT)
      end
      end
      end
      script/c100290037.lua deleted 100644 → 0
      View file @ 5af4f726
      --覇雷星ライジン
      --id:Ruby QQ:917770701
      function c100290037.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFun2(c,c100290037.ffilter1,c100290037.ffilter2,true)
      --pierce
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_PIERCE)
      c:RegisterEffect(e1)
      --double battle damage
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
      e2:SetCondition(c100290037.damcon)
      e2:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
      c:RegisterEffect(e2)
      --to grave
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetOperation(c100290037.regop)
      c:RegisterEffect(e3)
      end
      function c100290037.ffilter1(c)
      return c:IsLevelAbove(5) and c:IsRace(RACE_WARRIOR) and c:IsFusionAttribute(ATTRIBUTE_LIGHT)
      end
      function c100290037.ffilter2(c)
      return c:IsRace(RACE_WARRIOR) and c:IsFusionAttribute(ATTRIBUTE_EARTH)
      end
      function c100290037.damcon(e)
      local c=e:GetHandler()
      local bc=c:GetBattleTarget()
      return bc and not bc:IsLevelAbove(0)
      end
      function c100290037.regop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsReason(REASON_DESTROY) then
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290037,1))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,100290037)
      e1:SetRange(LOCATION_GRAVE)
      e1:SetTarget(c100290037.sptg)
      e1:SetOperation(c100290037.spop)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      end
      end
      function c100290037.filter(c,e,tp)
      return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelBelow(7) and c:IsRace(RACE_WARRIOR)
      end
      function c100290037.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and c100290037.filter(chkc,e,tp) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>=2
      and not Duel.IsPlayerAffectedByEffect(tp,59822133)
      and Duel.IsExistingTarget(c100290037.filter,tp,LOCATION_GRAVE,0,2,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c100290037.filter,tp,LOCATION_GRAVE,0,2,2,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,2,0,0)
      end
      function c100290037.spop(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ft<=0 then return end
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      if g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
      if g:GetCount()>ft then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      g=g:Select(tp,ft,ft,nil)
      end
      local tc=g:GetFirst()
      while tc do
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
      tc=g:GetNext()
      end
      Duel.SpecialSummonComplete()
      end
      script/c100290038.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネス拝謁の間
      --
      --Script by Trishula9
      function c100290038.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetOperation(c100290038.activate)
      c:RegisterEffect(e1)
      --recover
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100290038,3))
      e2:SetCategory(CATEGORY_RECOVER)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetRange(LOCATION_SZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,100290038)
      e2:SetCondition(c100290038.rccon)
      e2:SetTarget(c100290038.rctg)
      e2:SetOperation(c100290038.rcop)
      c:RegisterEffect(e2)
      end
      function c100290038.filter(c,tp,pcon)
      return ((c:IsFaceup() and c:IsLocation(LOCATION_EXTRA) and c:IsType(TYPE_PENDULUM)) or c:IsLocation(LOCATION_GRAVE))
      and c:IsSetCard(0x4) and c:IsType(TYPE_MONSTER) and (c:IsAbleToHand() or c:IsType(TYPE_PENDULUM) and pcon)
      end
      function c100290038.activate(e,tp,eg,ep,ev,re,r,rp)
      local pcon=Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100290038.filter),tp,LOCATION_GRAVE+LOCATION_EXTRA,0,nil,tp,pcon)
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100290038,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local sc=g:Select(tp,1,1,nil):GetFirst()
      if sc then
      local b1=sc:IsAbleToHand()
      local b2=sc:IsType(TYPE_PENDULUM) and pcon
      local s=0
      if b1 and not b2 then
      s=Duel.SelectOption(tp,aux.Stringid(100290038,1))
      end
      if not b1 and b2 then
      s=Duel.SelectOption(tp,aux.Stringid(100290038,2))+1
      end
      if b1 and b2 then
      s=Duel.SelectOption(tp,aux.Stringid(100290038,1),aux.Stringid(100290038,2))
      end
      if s==0 then
      Duel.SendtoHand(sc,nil,REASON_EFFECT)
      end
      if s==1 then
      Duel.MoveToField(sc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      end
      end
      function c100290038.rcfilter(c)
      return c:IsSetCard(0x4) and c:IsFaceup() and c:GetOriginalType()&TYPE_MONSTER~=0
      end
      function c100290038.rccon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c100290038.rcfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c100290038.tgfilter(c,e,tp)
      return c:IsCanBeEffectTarget(e) and c:IsControler(1-tp)
      end
      function c100290038.rctg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return eg:IsContains(chkc) and c100290038.tgfilter(chkc,e,tp) end
      if chk==0 then return eg:IsExists(c100290038.tgfilter,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local tc=eg:FilterSelect(tp,c100290038.tgfilter,1,1,nil,e,tp):GetFirst()
      Duel.SetTargetCard(tc)
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,tc,1,0,0)
      end
      function c100290038.rcop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() then
      Duel.Recover(tp,tc:GetAttack(),REASON_EFFECT)
      end
      end
      \ No newline at end of file
      script/c100290039.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネスの秘湯
      --
      --Script by Trishula9
      function c100290039.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:SetOperation(c100290039.activate)
      c:RegisterEffect(e1)
      --recover
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_RECOVER)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_BATTLE_DAMAGE)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,100290039)
      e2:SetCondition(c100290039.rccon)
      e2:SetTarget(c100290039.rctg)
      e2:SetOperation(c100290039.rcop)
      c:RegisterEffect(e2)
      end
      function c100290039.filter(c,tp,pcon)
      return c:IsSetCard(0x4) and c:IsType(TYPE_MONSTER) and (c:IsAbleToHand() or c:IsType(TYPE_PENDULUM) and pcon)
      end
      function c100290039.activate(e,tp,eg,ep,ev,re,r,rp)
      local pcon=Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1)
      local g=Duel.GetMatchingGroup(c100290039.filter,tp,LOCATION_DECK,0,nil,tp)
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100290039,0)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local sc=g:Select(tp,1,1,nil):GetFirst()
      if sc then
      local b1=sc:IsAbleToHand()
      local b2=sc:IsType(TYPE_PENDULUM) and pcon
      local s=0
      if b1 and not b2 then
      s=Duel.SelectOption(tp,aux.Stringid(100290039,1))
      end
      if not b1 and b2 then
      s=Duel.SelectOption(tp,aux.Stringid(100290039,2))+1
      end
      if b1 and b2 then
      s=Duel.SelectOption(tp,aux.Stringid(100290039,1),aux.Stringid(100290039,2))
      end
      if s==0 then
      Duel.SendtoHand(sc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,sc)
      end
      if s==1 then
      Duel.MoveToField(sc,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      end
      end
      function c100290039.cfilter(c)
      return c:IsSetCard(0x4) and c:IsFaceup() and c:GetOriginalType()&TYPE_MONSTER~=0
      end
      function c100290039.rccon(e,tp,eg,ep,ev,re,r,rp)
      return ep==tp and Duel.IsExistingMatchingCard(c100290039.cfilter,tp,LOCATION_ONFIELD,0,1,nil)
      end
      function c100290039.rctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,ev)
      end
      function c100290039.rcop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Recover(tp,ev,REASON_EFFECT)
      end
      \ No newline at end of file
      script/c100290040.lua deleted 100644 → 0
      View file @ 5af4f726
      --Gゴーレム・ロックハンマー
      --LUA BY AKAWAKU
      function c100290040.initial_effect(c)
      --level down
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290040,0))
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100290040)
      e1:SetCost(c100290040.lvcost)
      e1:SetTarget(c100290040.lvtg)
      e1:SetOperation(c100290040.lvop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100290040,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,100290140)
      e2:SetCost(c100290040.tkcost)
      e2:SetTarget(c100290040.tktg)
      e2:SetOperation(c100290040.tkop)
      c:RegisterEffect(e2)
      end
      function c100290040.lvcfilter(c)
      return c:IsRace(RACE_CYBERSE) and c:IsDiscardable()
      end
      function c100290040.lvcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290040.lvcfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
      Duel.DiscardHand(tp,c100290040.lvcfilter,1,1,REASON_DISCARD+REASON_COST,e:GetHandler())
      end
      function c100290040.lvtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsLevelAbove(3) end
      end
      function c100290040.lvop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LEVEL)
      e1:SetValue(-2)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD+RESET_DISABLE+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      end
      end
      function c100290040.tkcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsReleasable() end
      Duel.Release(e:GetHandler(),REASON_COST)
      end
      function c100290040.tktg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return not Duel.IsPlayerAffectedByEffect(tp,59822133)
      and Duel.GetMZoneCount(tp,e:GetHandler())>2
      and Duel.IsPlayerCanSpecialSummonMonster(tp,100290140,0x285,TYPES_TOKEN_MONSTER,0,0,3,RACE_CYBERSE,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,3,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,3,0,0)
      end
      function c100290040.tkop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>2 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
      and Duel.IsPlayerCanSpecialSummonMonster(tp,100290140,0x285,TYPES_TOKEN_MONSTER,0,0,3,RACE_CYBERSE,ATTRIBUTE_EARTH,POS_FACEUP_DEFENSE) then
      local ct=3
      while ct>0 do
      local token=Duel.CreateToken(tp,100290140)
      Duel.SpecialSummonStep(token,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      ct=ct-1
      end
      Duel.SpecialSummonComplete()
      end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(c100290040.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function c100290040.splimit(e,c)
      return not c:IsRace(RACE_CYBERSE)
      end
      script/c100290041.lua deleted 100644 → 0
      View file @ 5af4f726
      --Gゴーレム・ペブルドッグ
      --LUA BY AKAWAKU
      function c100290041.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290041,0))
      e1:SetCategory(CATEGORY_SEARCH+CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,100290041)
      e1:SetTarget(c100290041.sptg)
      e1:SetOperation(c100290041.spop)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e2)
      -- search
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100290041,1))
      e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCode(EVENT_TO_GRAVE)
      e3:SetCountLimit(1,100290141)
      e3:SetCondition(c100290041.thcon)
      e3:SetTarget(c100290041.thtg)
      e3:SetOperation(c100290041.thop)
      c:RegisterEffect(e3)
      end
      function c100290041.filter(c,e,tp,ft)
      return c:IsCode(100290041) and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
      end
      function c100290041.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290041.filter,tp,LOCATION_DECK,0,1,nil,e,tp,ft) end
      end
      function c100290041.spop(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_OPERATECARD)
      local g=Duel.SelectMatchingCard(tp,c100290041.filter,tp,LOCATION_DECK,0,1,1,nil,e,tp,ft)
      local tc=g:GetFirst()
      if tc then
      if ft>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and (not tc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      else
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,tc)
      end
      end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(c100290041.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function c100290041.splimit(e,c)
      return not c:IsRace(RACE_CYBERSE)
      end
      function c100290041.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_HAND)
      end
      function c100290041.thfilter(c)
      return c:IsSetCard(0x285) and c:IsAbleToHand()
      end
      function c100290041.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290041.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100290041.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100290041.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c100290042.lua deleted 100644 → 0
      View file @ 5af4f726
      --Gゴーレム・クリスタルハート
      --LUA BY AKAWAKU
      function c100290042.initial_effect(c)
      c:EnableCounterPermit(0x160)
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkRace,RACE_CYBERSE),2,2)
      c:EnableReviveLimit()
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290042,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_COUNTER)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,100290042)
      e1:SetTarget(c100290042.sptg)
      e1:SetOperation(c100290042.spop)
      c:RegisterEffect(e1)
      --atk gain
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(LOCATION_MZONE,LOCATION_MZONE)
      e2:SetCondition(c100290042.atkcon)
      e2:SetTarget(c100290042.atktg)
      e2:SetValue(c100290042.atkval)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_EXTRA_ATTACK)
      e3:SetValue(1)
      c:RegisterEffect(e3)
      local e4=e3:Clone()
      e4:SetCode(EFFECT_PIERCE)
      c:RegisterEffect(e4)
      end
      function c100290042.filter(c,e,tp,zone)
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsType(TYPE_LINK) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP,tp,zone)
      end
      function c100290042.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local zone=e:GetHandler():GetLinkedZone(tp)&0x1f
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100290042.filter(chkc,e,tp,zone) end
      if chk==0 then return Duel.IsExistingTarget(c100290042.filter,tp,LOCATION_GRAVE,0,1,nil,e,tp,zone) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectTarget(tp,c100290042.filter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,zone)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g,1,0,0)
      end
      function c100290042.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local zone=c:GetLinkedZone(tp)&0x1f
      local tc=Duel.GetFirstTarget()
      if c:IsRelateToEffect(e) and tc:IsRelateToEffect(e) and zone~=0 then
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP,zone)
      c:AddCounter(0x160,1)
      end
      end
      function c100290042.atkcon(e)
      return e:GetHandler():GetMutualLinkedGroupCount()>0
      end
      function c100290042.atktg(e,c)
      local g=e:GetHandler():GetMutualLinkedGroup()
      return g:IsContains(c) and c:IsAttribute(ATTRIBUTE_EARTH)
      end
      function c100290042.atkval(e,c)
      return e:GetHandler():GetCounter(0x160)*600
      end
      script/c100290043.lua deleted 100644 → 0
      View file @ 5af4f726
      --Gゴーレム・スタバン・メンヒル
      function c100290043.initial_effect(c)
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_EARTH),2,2)
      c:EnableReviveLimit()
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100290043,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_ACTION+CATEGORY_GRAVE_SPSUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,100290043)
      e1:SetCondition(c100290043.spcon)
      e1:SetTarget(c100290043.sptg)
      e1:SetOperation(c100290043.spop)
      c:RegisterEffect(e1)
      end
      function c100290043.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_GRAVE)
      end
      function c100290043.spfilter(c,e,tp,ft)
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsSummonableCard()
      and (c:IsAbleToHand() or (ft>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false)))
      end
      function c100290043.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100290043.spfilter(chkc,e,tp,ft) end
      if chk==0 then return Duel.IsExistingTarget(c100290043.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp,ft) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,c100290043.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp,ft)
      end
      function c100290043.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      if aux.NecroValleyNegateCheck(tc) then return end
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and tc:IsCanBeSpecialSummoned(e,0,tp,false,false)
      and (not tc:IsAbleToHand() or Duel.SelectOption(tp,1190,1152)==1) then
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      e2:SetValue(RESET_TURN_SET)
      tc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e3:SetReset(RESET_EVENT+RESETS_REDIRECT)
      e3:SetValue(LOCATION_REMOVED)
      tc:RegisterEffect(e3)
      Duel.SpecialSummonComplete()
      else
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      end
      script/c100290044.lua deleted 100644 → 0
      View file @ 5af4f726
      --Gゴーレム・インヴァリッド・ドルメン
      --LUA BY AKAWAKU
      function c100290044.initial_effect(c)
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_EARTH),2)
      c:EnableReviveLimit()
      --immune
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_IMMUNE_EFFECT)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(c100290044.indtg)
      e1:SetValue(c100290044.efilter)
      c:RegisterEffect(e1)
      --must attack
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_MUST_ATTACK)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(0,LOCATION_MZONE)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EFFECT_MUST_ATTACK_MONSTER)
      e3:SetValue(c100290044.atklimit)
      c:RegisterEffect(e3)
      --draw
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(100290044,0))
      e4:SetCategory(CATEGORY_DRAW)
      e4:SetType(EFFECT_TYPE_IGNITION)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1)
      e4:SetCost(c100290044.drcost)
      e4:SetTarget(c100290044.drtg)
      e4:SetOperation(c100290044.drop)
      c:RegisterEffect(e4)
      --disable
      local e5=Effect.CreateEffect(c)
      e5:SetDescription(aux.Stringid(100290044,1))
      e5:SetCategory(CATEGORY_DISABLE)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_DESTROYED)
      e5:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DELAY)
      e5:SetCondition(c100290044.discon)
      e5:SetTarget(c100290044.distg)
      e5:SetOperation(c100290044.disop)
      c:RegisterEffect(e5)
      local e6=Effect.CreateEffect(c)
      e6:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e6:SetCode(EVENT_LEAVE_FIELD_P)
      e6:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_IGNORE_IMMUNE)
      e6:SetLabelObject(e5)
      e6:SetOperation(c100290044.chk)
      c:RegisterEffect(e6)
      end
      function c100290044.indtg(e,c)
      return c:GetMutualLinkedGroupCount()>0
      end
      function c100290044.efilter(e,te,ev)
      return te:IsActiveType(TYPE_MONSTER) and te:GetOwnerPlayer()~=e:GetHandlerPlayer()
      and Duel.GetChainInfo(ev,CHAININFO_TRIGGERING_LOCATION)==LOCATION_MZONE
      end
      function c100290044.atklimit(e,c)
      return c==e:GetHandler()
      end
      function c100290044.costfilter(c)
      return c:IsRace(RACE_CYBERSE) and c:IsDiscardable()
      end
      function c100290044.drcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290044.costfilter,tp,LOCATION_HAND,0,1,nil) end
      Duel.DiscardHand(tp,c100290044.costfilter,1,1,REASON_DISCARD+REASON_COST)
      end
      function c100290044.drtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,1) end
      Duel.SetTargetPlayer(tp)
      Duel.SetTargetParam(1)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,1)
      end
      function c100290044.drop(e,tp,eg,ep,ev,re,r,rp)
      local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
      Duel.Draw(p,d,REASON_EFFECT)
      end
      function c100290044.chk(e,tp,eg,ep,ev,re,r,rp)
      e:GetLabelObject():SetLabel(e:GetHandler():GetMutualLinkedGroupCount())
      end
      function c100290044.discon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetLabel()>0
      end
      function c100290044.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_ONFIELD,1,nil) end
      end
      function c100290044.disop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_ONFIELD,nil)
      local tc=g:GetFirst()
      local c=e:GetHandler()
      while tc do
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      e2:SetValue(RESET_TURN_SET)
      tc:RegisterEffect(e2)
      tc=g:GetNext()
      end
      end
      script/c100290045.lua deleted 100644 → 0
      View file @ 5af4f726
      --Gゴーレム・ディグニファイド・トリリトン
      --LUA BY AKAWAKU
      function c100290045.initial_effect(c)
      --link summon
      aux.AddLinkProcedure(c,aux.FilterBoolFunction(Card.IsLinkAttribute,ATTRIBUTE_EARTH),2)
      c:EnableReviveLimit()
      --must attack
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_MUST_ATTACK)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(0,LOCATION_MZONE)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_MUST_ATTACK_MONSTER)
      e2:SetValue(c100290045.atklimit)
      c:RegisterEffect(e2)
      --atk down/disable
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100290045,0))
      e3:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_BATTLE_CONFIRM)
      e3:SetCondition(c100290045.atkcon)
      e3:SetCost(c100290045.atkcost)
      e3:SetOperation(c100290045.atkop)
      c:RegisterEffect(e3)
      --disable
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(100290045,1))
      e4:SetCategory(CATEGORY_DISABLE+CATEGORY_DESTROY)
      e4:SetType(EFFECT_TYPE_QUICK_O)
      e4:SetCode(EVENT_CHAINING)
      e4:SetRange(LOCATION_MZONE)
      e4:SetCountLimit(1,100290045)
      e4:SetCondition(c100290045.discon)
      e4:SetTarget(c100290045.distg)
      e4:SetOperation(c100290045.disop)
      c:RegisterEffect(e4)
      end
      function c100290045.atklimit(e,c)
      return c==e:GetHandler()
      end
      function c100290045.atkcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local bc=c:GetBattleTarget()
      return c:IsRelateToBattle() and bc and bc:IsFaceup() and bc:IsRelateToBattle() and bc:IsControler(1-tp)
      end
      function c100290045.cfilter(c)
      return c:IsType(TYPE_MONSTER) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsAbleToGraveAsCost()
      end
      function c100290045.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100290045.cfilter,tp,LOCATION_HAND,0,1,nil) end
      Duel.DiscardHand(tp,c100290045.cfilter,1,1,REASON_COST)
      end
      function c100290045.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local bc=c:GetBattleTarget()
      if bc:IsFaceup() and bc:IsRelateToBattle() and bc:IsControler(1-tp) then
      Duel.NegateRelatedChain(bc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(-200)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      bc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      bc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_DISABLE_EFFECT)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e3:SetValue(RESET_TURN_SET)
      bc:RegisterEffect(e3)
      end
      end
      function c100290045.acfilter(c,tp)
      return c:IsType(TYPE_LINK) and c:IsControler(tp) and c:IsType(TYPE_MONSTER) and c:IsFaceup() and c:IsLocation(LOCATION_MZONE)
      end
      function c100290045.discon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsStatus(STATUS_BATTLE_DESTROYED) then return false end
      if not re:IsHasProperty(EFFECT_FLAG_CARD_TARGET) then return false end
      local tg=Duel.GetChainInfo(ev,CHAININFO_TARGET_CARDS)
      return rp==1-tp and tg and tg:IsExists(c100290045.acfilter,1,nil,tp)
      end
      function c100290045.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,eg,1,0,0)
      if re:GetHandler():IsDestructable() and re:GetHandler():IsRelateToEffect(re) then
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,eg,1,0,0)
      end
      end
      function c100290045.disop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.NegateEffect(ev) and re:GetHandler():IsRelateToEffect(re) then
      Duel.Destroy(eg,REASON_EFFECT)
      end
      end
      script/c100290046.lua deleted 100644 → 0
      View file @ 5af4f726
      --重力均衡
      --LUA BY AKAWAKU
      function c100290046.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:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,100290046)
      e1:SetTarget(c100290046.target)
      e1:SetOperation(c100290046.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:SetCountLimit(1,100290146)
      e2:SetTarget(c100290046.reptg)
      e2:SetValue(c100290046.repval)
      e2:SetOperation(c100290046.repop)
      c:RegisterEffect(e2)
      end
      function c100290046.spfilter(c,e,tp)
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      and (c:IsFaceup() or c:IsLocation(LOCATION_GRAVE)) and c:IsCanBeEffectTarget(e)
      end
      function c100290046.fselect(g)
      return g:GetClassCount(Card.GetCode)==1
      end
      function c100290046.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local g=Duel.GetMatchingGroup(c100290046.spfilter,tp,LOCATION_GRAVE+LOCATION_REMOVED,0,nil,e,tp)
      if chkc then return false end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>1
      and g:CheckSubGroup(c100290046.fselect,2,2) and not Duel.IsPlayerAffectedByEffect(tp,59822133) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:SelectSubGroup(tp,c100290046.fselect,false,2,2)
      Duel.SetTargetCard(sg)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg,2,0,0)
      end
      function c100290046.activate(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 then return end
      local c=e:GetHandler()
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=1 or g:GetCount()~=2 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
      local tc=g:GetFirst()
      local fid=c:GetFieldID()
      while tc do
      Duel.SpecialSummonStep(tc,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      tc:RegisterFlagEffect(100290046,RESET_EVENT+RESETS_STANDARD,0,1,fid)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_DISABLE_EFFECT)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD)
      e3:SetValue(RESET_TURN_SET)
      tc:RegisterEffect(e3)
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetCode(EFFECT_SET_ATTACK_FINAL)
      e4:SetValue(0)
      e4:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e4)
      local e5=e4:Clone()
      e5:SetCode(EFFECT_SET_DEFENSE_FINAL)
      tc:RegisterEffect(e5)
      tc=g:GetNext()
      end
      Duel.SpecialSummonComplete()
      g:KeepAlive()
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetCountLimit(1)
      e1:SetLabel(fid)
      e1:SetLabelObject(g)
      e1:SetCondition(c100290046.descon)
      e1:SetOperation(c100290046.desop)
      Duel.RegisterEffect(e1,tp)
      end
      function c100290046.desfilter(c,fid)
      return c:GetFlagEffectLabel(100290046)==fid
      end
      function c100290046.descon(e,tp,eg,ep,ev,re,r,rp)
      local g=e:GetLabelObject()
      if not g:IsExists(c100290046.desfilter,1,nil,e:GetLabel()) then
      g:DeleteGroup()
      e:Reset()
      return false
      else
      return true
      end
      end
      function c100290046.desop(e,tp,eg,ep,ev,re,r,rp)
      local g=e:GetLabelObject()
      local tg=g:Filter(c100290046.desfilter,nil,e:GetLabel())
      Duel.Destroy(tg,REASON_EFFECT)
      end
      function c100290046.repfilter(c,tp)
      return c:IsFaceup() and c:IsLocation(LOCATION_MZONE) and c:IsControler(tp) and c:IsSetCard(0x285)
      and (c:IsReason(REASON_BATTLE) or (c:IsReason(REASON_EFFECT) and c:GetReasonPlayer()==1-tp)) and not c:IsReason(REASON_REPLACE)
      end
      function c100290046.reptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsAbleToRemove() and eg:IsExists(c100290046.repfilter,1,nil,tp) end
      return Duel.SelectEffectYesNo(tp,e:GetHandler(),96)
      end
      function c100290046.repval(e,c)
      return c100290046.repfilter(c,e:GetHandlerPlayer())
      end
      function c100290046.repop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Remove(e:GetHandler(),POS_FACEUP,REASON_EFFECT)
      end
      script/c100291001.lua deleted 100644 → 0
      View file @ 5af4f726
      --ファラオニック・アドベント
      --Script by Chrono-Genex
      function c100291001.initial_effect(c)
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100291001,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100291001)
      e1:SetCost(c100291001.spcost)
      e1:SetTarget(c100291001.sptg)
      e1:SetOperation(c100291001.spop)
      c:RegisterEffect(e1)
      --atkup
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetCode(EFFECT_UPDATE_ATTACK)
      e2:SetRange(LOCATION_MZONE)
      e2:SetValue(c100291001.atkval)
      c:RegisterEffect(e2)
      --to hand
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100291001,1))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1,100291001+100)
      e3:SetCost(c100291001.thcost)
      e3:SetTarget(c100291001.thtg)
      e3:SetOperation(c100291001.thop)
      c:RegisterEffect(e3)
      end
      function c100291001.rfilter(c,tp)
      return Duel.GetMZoneCount(tp,c)>0
      end
      function c100291001.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckReleaseGroup(tp,c100291001.rfilter,1,nil,tp) end
      local g=Duel.SelectReleaseGroup(tp,c100291001.rfilter,1,1,nil,tp)
      Duel.Release(g,REASON_COST)
      end
      function c100291001.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function c100291001.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c100291001.atkfilter(c)
      return (c:IsLocation(LOCATION_GRAVE) or c:IsFaceup()) and c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS)
      end
      function c100291001.atkval(e,c)
      return Duel.GetMatchingGroupCount(c100291001.atkfilter,e:GetHandlerPlayer(),LOCATION_ONFIELD+LOCATION_GRAVE,LOCATION_ONFIELD+LOCATION_GRAVE,nil)*300
      end
      function c100291001.thcfilter(c,tp)
      return c:IsRace(RACE_FAIRY+RACE_FIEND+RACE_REPTILE) and (c:IsFaceup() or c:IsControler(tp))
      end
      function c100291001.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckReleaseGroup(tp,c100291001.thcfilter,1,nil,tp) end
      local g=Duel.SelectReleaseGroup(tp,c100291001.thcfilter,1,1,nil,tp)
      Duel.Release(g,REASON_COST)
      end
      function c100291001.thfilter(c)
      return c:GetType()==TYPE_TRAP+TYPE_CONTINUOUS and c:IsAbleToHand()
      end
      function c100291001.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100291001.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100291001.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100291001.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      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
      script/c100291002.lua deleted 100644 → 0
      View file @ 5af4f726
      --墓守の刻印
      --Script by Chrono-Genex
      function c100291002.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCondition(c100291002.condition)
      e1:SetOperation(c100291002.activate)
      c:RegisterEffect(e1)
      end
      function c100291002.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 and not Duel.CheckPhaseActivity()
      end
      function c100291002.activate(e,tp,eg,ep,ev,re,r,rp)
      local op=Duel.SelectOption(tp,aux.Stringid(100291002,0),aux.Stringid(100291002,1),aux.Stringid(100291002,2))
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
      e1:SetTargetRange(1,1)
      if op==0 then
      e1:SetDescription(aux.Stringid(100291002,0))
      e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      e1:SetValue(c100291002.actlimit)
      elseif op==1 then
      e1:SetDescription(aux.Stringid(100291002,1))
      e1:SetCode(EFFECT_CANNOT_REMOVE)
      e1:SetTarget(c100291002.rmlimit)
      else
      e1:SetDescription(aux.Stringid(100291002,2))
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetTarget(c100291002.splimit)
      end
      e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
      Duel.RegisterEffect(e1,tp)
      end
      function c100291002.actlimit(e,re,tp)
      return re:GetActivateLocation()==LOCATION_GRAVE
      end
      function c100291002.rmlimit(e,c)
      return c:IsLocation(LOCATION_GRAVE)
      end
      function c100291002.splimit(e,c)
      return c:IsLocation(LOCATION_GRAVE) and c:IsType(TYPE_MONSTER)
      end
      script/c100291003.lua deleted 100644 → 0
      View file @ 5af4f726
      --澱神アポピス
      --Script by Chrono-Genex
      function c100291003.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DISABLE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCondition(c100291003.condition)
      e1:SetTarget(c100291003.target)
      e1:SetOperation(c100291003.activate)
      c:RegisterEffect(e1)
      end
      function c100291003.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function c100291003.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,100291003,0,TYPES_NORMAL_TRAP_MONSTER,2000,2200,6,RACE_REPTILE,ATTRIBUTE_EARTH) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100291003.filter(c)
      return c:IsFaceup() and c:IsType(TYPE_TRAP) and c:IsType(TYPE_CONTINUOUS)
      end
      function c100291003.activate(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or Duel.GetLocationCount(tp,LOCATION_MZONE)<=0
      or not Duel.IsPlayerCanSpecialSummonMonster(tp,100291003,0,TYPES_NORMAL_TRAP_MONSTER,2000,2200,6,RACE_REPTILE,ATTRIBUTE_EARTH) then return end
      c:AddMonsterAttribute(TYPE_NORMAL+TYPE_TRAP)
      if Duel.SpecialSummon(c,0,tp,tp,true,false,POS_FACEUP)~=0 then
      local ct=Duel.GetMatchingGroupCount(c100291003.filter,tp,LOCATION_ONFIELD,0,c)
      local g=Duel.GetMatchingGroup(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,nil)
      if ct>0 and g:GetCount() and Duel.SelectYesNo(tp,aux.Stringid(100291003,0)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
      local sg=g:Select(tp,1,ct,nil)
      Duel.HintSelection(sg)
      for tc in aux.Next(sg) do
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      tc:RegisterEffect(e2)
      end
      end
      end
      end
      script/c100427001.lua deleted 100644 → 0
      View file @ 5af4f726
      --D・テレホン
      --Script by Ruby
      function c100427001.initial_effect(c)
      --speical summon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100427001,0))
      e1:SetCategory(CATEGORY_DICE+CATEGORY_SPECIAL_SUMMON+CATEGORY_RECOVER+CATEGORY_GRAVE_SPSUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1)
      e1:SetCondition(c100427001.cona)
      e1:SetTarget(c100427001.tga)
      e1:SetOperation(c100427001.opa)
      c:RegisterEffect(e1)
      --to grave
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100427001,2))
      e2:SetCategory(CATEGORY_DICE+CATEGORY_TOGRAVE+CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(c100427001.cond)
      e2:SetTarget(c100427001.tgd)
      e2:SetOperation(c100427001.opd)
      c:RegisterEffect(e2)
      end
      c100427001.toss_dice=true
      function c100427001.cona(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsAttackPos()
      end
      function c100427001.tga(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
      Duel.SetOperationInfo(0,CATEGORY_RECOVER,nil,0,tp,0)
      end
      function c100427001.spfilter(c,e,tp,dc)
      return c:IsSetCard(0x26) and c:IsCanBeSpecialSummoned(e,0,tp,false,false) and c:IsLevelBelow(dc)
      end
      function c100427001.opa(e,tp,eg,ep,ev,re,r,rp)
      local dc=Duel.TossDice(tp,1)
      local rec=dc*100
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100427001.spfilter),tp,LOCATION_GRAVE,0,nil,e,tp,dc)
      if Duel.Recover(tp,rec,REASON_EFFECT)>0 and g:GetCount()>0 and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.SelectYesNo(tp,aux.Stringid(100427001,1)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=g:Select(tp,1,1,nil):GetFirst()
      Duel.SpecialSummon(tc,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c100427001.cond(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsDefensePos()
      end
      function c100427001.tgd(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>0 end
      Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
      end
      function c100427001.tgfilter(c)
      return c:IsSetCard(0x26) and c:IsAbleToGrave()
      end
      function c100427001.opd(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)==0 then return end
      local dc=Duel.TossDice(tp,1)
      Duel.ConfirmDecktop(tp,dc)
      local dg=Duel.GetDecktopGroup(tp,dc)
      local ct=dg:GetCount()
      local g=dg:Filter(c100427001.tgfilter,nil)
      if g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100427001,3)) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local sg=g:Select(tp,1,1,nil)
      Duel.DisableShuffleCheck()
      Duel.SendtoGrave(sg,REASON_EFFECT+REASON_REVEAL)
      ct=ct-1
      end
      local op=Duel.SelectOption(tp,aux.Stringid(100427001,4),aux.Stringid(100427001,5))
      Duel.SortDecktop(tp,tp,ct)
      if op==0 then return end
      for i=1,ct do
      local tg=Duel.GetDecktopGroup(tp,1)
      Duel.MoveSequence(tg:GetFirst(),SEQ_DECKBOTTOM)
      end
      end
      script/c100427002.lua deleted 100644 → 0
      View file @ 5af4f726
      --D・スキャナン
      --
      --Script by Trishula9
      function c100427002.initial_effect(c)
      c:EnableReviveLimit()
      --special summon
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_SPSUMMON_PROC)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCondition(c100427002.spcon)
      e1:SetOperation(c100427002.spop)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100427002,0))
      e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH+CATEGORY_TODECK)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1)
      e2:SetCondition(c100427002.srcon)
      e2:SetTarget(c100427002.srtg)
      e2:SetOperation(c100427002.srop)
      c:RegisterEffect(e2)
      --recover
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(100427002,1))
      e3:SetCategory(CATEGORY_TOHAND+CATEGORY_TODECK)
      e3:SetType(EFFECT_TYPE_IGNITION)
      e3:SetRange(LOCATION_MZONE)
      e3:SetCountLimit(1)
      e3:SetCondition(c100427002.rccon)
      e3:SetTarget(c100427002.rctg)
      e3:SetOperation(c100427002.rcop)
      c:RegisterEffect(e3)
      end
      function c100427002.spfilter(c)
      return c:IsSetCard(0x26) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
      end
      function c100427002.spcon(e,c)
      if c==nil then return true end
      local tp=c:GetControler()
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c100427002.spfilter,tp,LOCATION_HAND,0,1,e:GetHandler())
      end
      function c100427002.spop(e,tp,eg,ep,ev,re,r,rp,c)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,c100427002.spfilter,tp,LOCATION_HAND,0,1,1,e:GetHandler())
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function c100427002.srcon(e,tp,eg,ep,ev,re,r,rp)
      return not e:GetHandler():IsDisabled() and e:GetHandler():IsAttackPos()
      end
      function c100427002.srfilter(c)
      return c:IsSetCard(0x26) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
      end
      function c100427002.srtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100427002.srfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND)
      end
      function c100427002.srop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100427002.srfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 and g:GetFirst():IsLocation(LOCATION_HAND) then
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleDeck(tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,1,nil)
      if sg:GetCount()>0 then
      Duel.BreakEffect()
      Duel.ShuffleHand(tp)
      Duel.SendtoDeck(sg,nil,SEQ_DECKTOP,REASON_EFFECT)
      end
      end
      end
      function c100427002.rccon(e,tp,eg,ep,ev,re,r,rp)
      return not e:GetHandler():IsDisabled() and e:GetHandler():IsDefensePos()
      end
      function c100427002.rcfilter(c)
      return c:IsSetCard(0x26) and c:IsLevelBelow(4) and c:IsAbleToHand()
      end
      function c100427002.rctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100427002.rcfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,1,tp,LOCATION_HAND)
      end
      function c100427002.rcop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,aux.NecroValleyFilter(c100427002.rcfilter),tp,LOCATION_GRAVE,0,1,1,nil)
      if g:GetCount()>0 and Duel.SendtoHand(g,nil,REASON_EFFECT)>0 and g:GetFirst():IsLocation(LOCATION_HAND) then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local sg=Duel.SelectMatchingCard(tp,Card.IsAbleToDeck,tp,LOCATION_HAND,0,1,1,nil)
      if sg:GetCount()>0 then
      Duel.BreakEffect()
      Duel.ShuffleHand(tp)
      Duel.SendtoDeck(sg,nil,SEQ_DECKTOP,REASON_EFFECT)
      end
      end
      end
      script/c100427003.lua deleted 100644 → 0
      View file @ 5af4f726
      --ガジェット・ゲーマー
      --Script by Ruby
      local s,id,o=GetID()
      function s.initial_effect(c)
      --search
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.thtg)
      e1:SetOperation(s.thop)
      c:RegisterEffect(e1)
      --special summon
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCountLimit(1,id+o)
      e2:SetCost(s.spcost)
      e2:SetTarget(s.sptg)
      e2:SetOperation(s.spop)
      c:RegisterEffect(e2)
      end
      function s.thfilter(c)
      return c:IsLevel(1) and c:IsRace(RACE_MACHINE) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return c:IsReleasable() and Duel.GetMZoneCount(tp,c)>0 end
      Duel.Release(c,REASON_COST)
      end
      function s.spfilter(c,e,tp)
      return c:IsSetCard(0x26) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_HAND,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      function s.filter2(c,e,tp)
      return c:IsCode(28002611) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<1 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      local g2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_DECK+LOCATION_HAND,0,nil,e,tp)
      if Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)~=0
      and g2:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g2:Select(tp,1,1,nil)
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c100427004.lua deleted 100644 → 0
      View file @ 5af4f726
      --D・イヤホン
      --Script by Ruby
      local s,id,o=GetID()
      function s.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      c:EnableReviveLimit()
      --tuner
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetRange(LOCATION_MZONE)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.tntg)
      e1:SetOperation(s.tnop)
      c:RegisterEffect(e1)
      --equip
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_EQUIP)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.eqtg)
      e2:SetOperation(s.eqop)
      c:RegisterEffect(e2)
      --extra attack monster
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_EQUIP)
      e3:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
      e3:SetValue(1)
      c:RegisterEffect(e3)
      end
      function s.tnfilter(c)
      return c:IsFaceup() and not c:IsType(TYPE_TUNER)
      end
      function s.tntg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.tnfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.tnfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.tnfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      end
      function s.tnop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_ADD_TYPE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e1:SetValue(TYPE_TUNER)
      tc:RegisterEffect(e1)
      end
      end
      function s.eqfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_SYNCHRO)
      end
      function s.eqtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      local c=e:GetHandler()
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.eqfilter(chkc) and chkc~=c end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and c:CheckUniqueOnField(tp)
      and Duel.IsExistingTarget(s.eqfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,c) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      Duel.SelectTarget(tp,s.eqfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,c)
      if c:IsLocation(LOCATION_GRAVE) then
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,c,1,0,0)
      end
      end
      function s.eqop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) then return end
      if c:IsLocation(LOCATION_MZONE) and c:IsFacedown() then return end
      local tc=Duel.GetFirstTarget()
      if Duel.GetLocationCount(tp,LOCATION_SZONE)<=0 or tc:IsFacedown() or not tc:IsRelateToEffect(e) or not c:CheckUniqueOnField(tp) then
      Duel.SendtoGrave(c,REASON_EFFECT)
      return
      end
      if not Duel.Equip(tp,c,tc) then return end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EQUIP_LIMIT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(s.eqlimit)
      e1:SetLabelObject(tc)
      c:RegisterEffect(e1)
      end
      function s.eqlimit(e,c)
      return c==e:GetLabelObject()
      end
      script/c100427005.lua deleted 100644 → 0
      View file @ 5af4f726
      --パワー・ツール・ブレイバー・ドラゴン
      --
      --Script by Trishula9
      function c100427005.initial_effect(c)
      --synchro summon
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      c:EnableReviveLimit()
      --equip
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100427005,0))
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,100427005)
      e1:SetTarget(c100427005.eqtg)
      e1:SetOperation(c100427005.eqop)
      c:RegisterEffect(e1)
      --pos or neg
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100427005,1))
      e2:SetCategory(CATEGORY_POSITION+CATEGORY_DISABLE)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,100427005+100)
      e2:SetCondition(c100427005.pncon)
      e2:SetCost(c100427005.pncost)
      e2:SetTarget(c100427005.pntg)
      e2:SetOperation(c100427005.pnop)
      c:RegisterEffect(e2)
      end
      function c100427005.eqfilter(c,ec,tp)
      return c:IsType(TYPE_EQUIP) and c:CheckEquipTarget(ec) and c:CheckUniqueOnField(tp,LOCATION_SZONE) and not c:IsForbidden()
      end
      function c100427005.eqtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingMatchingCard(c100427005.eqfilter,tp,LOCATION_DECK+LOCATION_GRAVE,0,1,nil,e:GetHandler(),tp) end
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,nil,1,tp,LOCATION_DECK+LOCATION_GRAVE)
      end
      function c100427005.eqop(e,tp,eg,ep,ev,re,r,rp)
      local ft=Duel.GetLocationCount(tp,LOCATION_SZONE)
      local c=e:GetHandler()
      if ft<=0 or c:IsFacedown() or not c:IsRelateToEffect(e) then return end
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100427005.eqfilter),tp,LOCATION_DECK+LOCATION_GRAVE,0,nil,c,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      local sg=g:SelectSubGroup(tp,aux.dncheck,false,1,math.min(ft,3))
      if not sg then return end
      local tc=sg:GetFirst()
      while tc do
      Duel.Equip(tp,tc,c,true,true)
      tc=sg:GetNext()
      end
      Duel.EquipComplete()
      end
      function c100427005.pncon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function c100427005.cfilter(c,tp)
      return c:IsType(TYPE_EQUIP) and c:IsType(TYPE_SPELL) and c:IsControler(tp) and c:IsAbleToGraveAsCost()
      end
      function c100427005.pncost(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      local cg=c:GetEquipGroup()
      if chk==0 then return cg:IsExists(c100427005.cfilter,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
      local g=cg:FilterSelect(tp,c100427005.cfilter,1,1,nil,tp)
      Duel.SendtoGrave(g,REASON_COST)
      end
      function c100427005.pnfilter(c)
      return c:IsFaceup() and c:IsType(TYPE_EFFECT)
      end
      function c100427005.pntg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and c100427005.pnfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100427005.pnfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      Duel.SelectTarget(tp,c100427005.pnfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      end
      function c100427005.pnop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      local b1=tc:IsCanChangePosition()
      local b2=aux.NegateMonsterFilter(tc)
      local op=-1
      if b1 and b2 then
      op=Duel.SelectOption(tp,aux.Stringid(100427005,2),aux.Stringid(100427005,3))
      elseif b1 then
      op=0
      elseif b2 then
      op=1
      end
      if op==0 then
      Duel.ChangePosition(tc,POS_FACEUP_DEFENSE,POS_FACEUP_DEFENSE,POS_FACEUP_ATTACK,POS_FACEUP_ATTACK)
      elseif op==1 then
      if not tc:IsDisabled() and not tc:IsImmuneToEffect(e) then
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      tc:RegisterEffect(e2)
      end
      end
      end
      script/c100427006.lua deleted 100644 → 0
      View file @ 5af4f726
      --D・コンバートユニット
      --Script by Ruby & mercury233
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DECKDES)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,id+EFFECT_COUNT_CODE_OATH)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      end
      function s.tgfilter(c,e,tp)
      if not (c:IsFaceup() and c:IsRace(RACE_MACHINE)) then return false end
      if c:IsAttackPos() then
      return c:IsAbleToDeck()
      and Duel.IsExistingMatchingCard(s.atkspfilter,tp,LOCATION_DECK,0,1,nil,e,tp,c:GetCode())
      else
      return Duel.IsExistingMatchingCard(s.defspfilter,tp,LOCATION_HAND,0,1,nil,e,tp)
      end
      end
      function s.atkspfilter(c,e,tp,code)
      return c:IsSetCard(0x26) and not c:IsCode(code) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.defspfilter(c,e,tp)
      return c:IsRace(RACE_MACHINE) and c:IsLevelBelow(4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp)
      and chkc:IsFaceup() and chkc:IsRace(RACE_MACHINE) and chkc:IsPosition(e:GetLabel()) end
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingTarget(s.tgfilter,tp,LOCATION_MZONE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      local g=Duel.SelectTarget(tp,s.tgfilter,tp,LOCATION_MZONE,0,1,1,nil,e,tp)
      local tc=g:GetFirst()
      e:SetLabel(tc:GetPosition()|POS_FACEUP)
      if tc:IsAttackPos() then
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      else
      Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_HAND)
      end
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if not tc:IsRelateToEffect(e) then return end
      if tc:IsAttackPos() and tc:IsFaceup()
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,s.atkspfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp,tc:GetCode())
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      Duel.ShuffleDeck(tp)
      Duel.BreakEffect()
      Duel.SendtoDeck(tc,nil,SEQ_DECKTOP,REASON_EFFECT)
      end
      elseif tc:IsDefensePos() and Duel.ChangePosition(tc,POS_FACEUP_ATTACK)~=0
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g2=Duel.SelectMatchingCard(tp,s.defspfilter,tp,LOCATION_HAND,0,1,1,nil,e,tp)
      if g2:GetCount()>0 then
      Duel.SpecialSummon(g2,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      end
      script/c100427007.lua deleted 100644 → 0
      View file @ 5af4f726
      --命の奇跡
      --Life Exstream
      --Script by Lyris12
      local s,id=GetID()
      function s.initial_effect(c)
      --equip
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_EQUIP)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_CONTINUOUS_TARGET)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_EQUIP_LIMIT)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetValue(s.eqlimit)
      c:RegisterEffect(e2)
      --atk down
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetCode(EFFECT_UPDATE_ATTACK)
      e3:SetRange(LOCATION_SZONE)
      e3:SetTargetRange(0,LOCATION_MZONE)
      e3:SetCondition(s.atkcon)
      e3:SetTarget(s.atktg)
      e3:SetValue(-1500)
      c:RegisterEffect(e3)
      --destroy
      local e4=Effect.CreateEffect(c)
      e4:SetDescription(aux.Stringid(id,0))
      e4:SetCategory(CATEGORY_DESTROY)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_CHANGE_POS)
      e4:SetRange(LOCATION_SZONE)
      e4:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e4:SetCountLimit(1)
      e4:SetTarget(s.destg)
      e4:SetOperation(s.desop)
      c:RegisterEffect(e4)
      --special summon
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e5:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_TO_GRAVE)
      e5:SetProperty(EFFECT_FLAG_DELAY)
      e5:SetLabel(0)
      e5:SetCondition(s.spcon)
      e5:SetCost(s.spcost)
      e5:SetTarget(s.sptg)
      e5:SetOperation(s.spop)
      c:RegisterEffect(e5)
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsType(TYPE_SYNCHRO)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and s.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_EQUIP)
      Duel.SelectTarget(tp,s.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_EQUIP,e:GetHandler(),1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if e:GetHandler():IsRelateToEffect(e) and tc:IsRelateToEffect(e) and tc:IsFaceup() then
      Duel.Equip(tp,e:GetHandler(),tc)
      end
      end
      function s.eqlimit(e,c)
      return c:IsAttribute(ATTRIBUTE_EARTH) and c:IsType(TYPE_SYNCHRO)
      end
      function s.atkcon(e)
      local ec=e:GetHandler():GetEquipTarget()
      return Duel.GetCurrentPhase()==PHASE_DAMAGE_CAL and ec and ec:GetBattleTarget() and ec:IsRelateToBattle()
      end
      function s.atktg(e,c)
      local ec=e:GetHandler():GetEquipTarget()
      return c==ec:GetBattleTarget()
      end
      function s.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() end
      if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,nil,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function s.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.Destroy(tc,REASON_EFFECT) end
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_SZONE) and c:GetPreviousSequence()<5
      end
      function s.cfilter(c,e,tp)
      return c:IsSetCard(0xc2) and c:IsType(TYPE_SYNCHRO)
      and Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,c)
      end
      function s.spfilter(c,e,tp,sc)
      return c:IsCode(25165047) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_SYNCHRO,tp,false,false)
      and Duel.GetLocationCountFromEx(tp,tp,sc,c)>0
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(1)
      if chk==0 then return Duel.CheckReleaseGroup(tp,s.cfilter,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RELEASE)
      local g=Duel.SelectReleaseGroup(tp,s.cfilter,1,1,nil,e,tp)
      Duel.Release(g,REASON_COST)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local chkl=e:GetLabel()==1
      e:SetLabel(0)
      return chkl or Duel.IsExistingMatchingCard(s.spfilter,tp,LOCATION_EXTRA,0,1,nil,e,tp,nil)
      end
      e:SetLabel(0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tc=Duel.SelectMatchingCard(tp,s.spfilter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp,nil):GetFirst()
      if tc and Duel.SpecialSummon(tc,SUMMON_TYPE_SYNCHRO,tp,tp,false,false,POS_FACEUP)>0 then
      tc:CompleteProcedure()
      end
      end
      script/c100427021.lua deleted 100644 → 0
      View file @ 5af4f726
      --宿神像ケルドウ
      --
      --Script by Trishula9
      function c100427021.initial_effect(c)
      aux.AddCodeList(c,17484499)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_SEARCH+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100427021)
      e1:SetCost(c100427021.spcost)
      e1:SetTarget(c100427021.sptg)
      e1:SetOperation(c100427021.spop)
      c:RegisterEffect(e1)
      --to deck
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TODECK)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCountLimit(1,100427021+100)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c100427021.tdtg)
      e2:SetOperation(c100427021.tdop)
      c:RegisterEffect(e2)
      end
      function c100427021.cfilter(c)
      return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsDiscardable()
      end
      function c100427021.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100427021.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
      Duel.DiscardHand(tp,c100427021.cfilter,1,1,REASON_COST+REASON_DISCARD,e:GetHandler())
      end
      function c100427021.thfilter(c)
      return (c:IsCode(17484499) or aux.IsCodeListed(c,17484499)) and c:IsAbleToHand()
      end
      function c100427021.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false)
      and Duel.IsExistingMatchingCard(c100427021.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100427021.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0
      and Duel.IsExistingMatchingCard(c100427021.thfilter,tp,LOCATION_DECK,0,1,nil) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100427021.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function c100427021.filter(c)
      return c:IsCode(17484499) and (c:IsLocation(LOCATION_ONFIELD) and c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
      end
      function c100427021.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToDeck() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,e:GetHandler()) end
      local ct=5
      if not Duel.IsExistingMatchingCard(c100427021.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil) then ct=3 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,ct,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
      end
      function c100427021.tdop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local tg=g:Filter(Card.IsRelateToEffect,nil,e)
      if tg:GetCount()>0 then
      Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      end
      script/c100427022.lua deleted 100644 → 0
      View file @ 5af4f726
      --剣神官ムドラ
      --
      --Script by Trishula9
      function c100427022.initial_effect(c)
      aux.AddCodeList(c,17484499)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,100427022)
      e1:SetCost(c100427022.spcost)
      e1:SetTarget(c100427022.sptg)
      e1:SetOperation(c100427022.spop)
      c:RegisterEffect(e1)
      --to deck
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TODECK)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_MZONE+LOCATION_GRAVE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e2:SetCountLimit(1,100427022+100)
      e2:SetCost(aux.bfgcost)
      e2:SetTarget(c100427022.tdtg)
      e2:SetOperation(c100427022.tdop)
      c:RegisterEffect(e2)
      end
      function c100427022.cfilter(c)
      return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsDiscardable()
      end
      function c100427022.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100427022.cfilter,tp,LOCATION_HAND,0,1,e:GetHandler()) end
      Duel.DiscardHand(tp,c100427022.cfilter,1,1,REASON_COST+REASON_DISCARD,e:GetHandler())
      end
      function c100427022.stfilter(c)
      return c:IsCode(100427025) and not c:IsForbidden()
      end
      function c100427022.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100427022.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0
      and Duel.GetLocationCount(tp,LOCATION_SZONE)>0
      and Duel.IsExistingMatchingCard(c100427022.stfilter,tp,LOCATION_DECK,0,1,nil)
      and Duel.SelectYesNo(tp,aux.Stringid(100427022,0)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local tc=Duel.SelectMatchingCard(tp,c100427022.stfilter,tp,LOCATION_DECK,0,1,1,nil):GetFirst()
      Duel.MoveToField(tc,tp,tp,LOCATION_SZONE,POS_FACEUP,true)
      end
      end
      function c100427022.filter(c)
      return c:IsCode(17484499) and (c:IsLocation(LOCATION_ONFIELD) and c:IsFaceup() or c:IsLocation(LOCATION_GRAVE))
      end
      function c100427022.tdtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsAbleToDeck() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToDeck,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,e:GetHandler()) end
      local ct=5
      if not Duel.IsExistingMatchingCard(c100427022.filter,tp,LOCATION_ONFIELD+LOCATION_GRAVE,0,1,nil) then ct=3 end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.SelectTarget(tp,Card.IsAbleToDeck,tp,LOCATION_GRAVE,LOCATION_GRAVE,1,ct,nil)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,g,g:GetCount(),0,0)
      end
      function c100427022.tdop(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS)
      local tg=g:Filter(Card.IsRelateToEffect,nil,e)
      if tg:GetCount()>0 then
      Duel.SendtoDeck(tg,nil,SEQ_DECKSHUFFLE,REASON_EFFECT)
      end
      end
      script/c100427023.lua deleted 100644 → 0
      View file @ 5af4f726
      --古尖兵ケルベク
      --Kelbek the Ancient Vanguard
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,17484499)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_TO_GRAVE)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --deckdes
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCondition(s.tgcon)
      e2:SetTarget(s.tgtg)
      e2:SetOperation(s.tgop)
      c:RegisterEffect(e2)
      end
      function s.cfilter(c,tp)
      return c:IsPreviousLocation(LOCATION_DECK+LOCATION_HAND) and c:IsControler(1-tp)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(s.cfilter,1,nil,tp)
      end
      function s.filter(c)
      return c:IsSummonType(SUMMON_TYPE_SPECIAL) and c:IsAbleToHand()
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and s.filter(chkc) end
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,0,LOCATION_MZONE,1,nil)
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,s.filter,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0 then
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.BreakEffect()
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_DECK+LOCATION_HAND)
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,5) and Duel.IsPlayerCanDiscardDeck(1-tp,5) end
      Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,PLAYER_ALL,5)
      end
      function s.sfilter(c)
      return c:IsType(TYPE_TRAP) and c:IsSSetable()
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      local g1=Duel.GetDecktopGroup(tp,5)
      local g2=Duel.GetDecktopGroup(1-tp,5)
      g1:Merge(g2)
      Duel.DisableShuffleCheck()
      if Duel.SendtoGrave(g1,REASON_EFFECT)~=0 and g1:IsExists(Card.IsLocation,1,nil,LOCATION_GRAVE)
      and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,17484499) then
      local g=Duel.GetMatchingGroup(s.sfilter,tp,LOCATION_GRAVE,0,nil)
      if #g>0 and Duel.SelectYesNo(tp,aux.Stringid(id,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local sg=g:Select(tp,1,1,nil)
      Duel.SSet(tp,sg)
      end
      end
      end
      script/c100427024.lua deleted 100644 → 0
      View file @ 5af4f726
      --古衛兵アギド
      --
      --Script by Trishula9
      function c100427024.initial_effect(c)
      aux.AddCodeList(c,17484499)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100427024,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_TO_GRAVE)
      e1:SetRange(LOCATION_HAND)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCountLimit(1,100427024)
      e1:SetCondition(c100427024.spcon)
      e1:SetTarget(c100427024.sptg)
      e1:SetOperation(c100427024.spop)
      c:RegisterEffect(e1)
      --discard deck
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(100427024,1))
      e2:SetCategory(CATEGORY_DECKDES)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,100427024+100)
      e2:SetCondition(c100427024.discon)
      e2:SetTarget(c100427024.distg)
      e2:SetOperation(c100427024.disop)
      c:RegisterEffect(e2)
      end
      function c100427024.cfilter(c,tp)
      return c:IsPreviousLocation(LOCATION_HAND+LOCATION_DECK) and c:IsControler(1-tp)
      end
      function c100427024.spcon(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c100427024.cfilter,1,nil,tp)
      end
      function c100427024.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100427024.spfilter(c,e,tp)
      return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsLevel(4) and not c:IsCode(100427024)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c100427024.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetMatchingGroup(aux.NecroValleyFilter(c100427024.spfilter),tp,LOCATION_GRAVE,0,nil,e,tp)
      if c:IsRelateToEffect(e) and Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)>0
      and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and g:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100427024,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:Select(tp,1,1,nil)
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c100427024.discon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_DECK)
      end
      function c100427024.distg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsPlayerCanDiscardDeck(tp,5) and Duel.IsPlayerCanDiscardDeck(1-tp,5) end
      Duel.SetOperationInfo(0,CATEGORY_DECKDES,nil,0,PLAYER_ALL,5)
      end
      function c100427024.disop(e,tp,eg,ep,ev,re,r,rp)
      local g1=Duel.GetDecktopGroup(tp,5)
      local g2=Duel.GetDecktopGroup(1-tp,5)
      g1:Merge(g2)
      Duel.DisableShuffleCheck()
      if Duel.SendtoGrave(g1,REASON_EFFECT)~=0 and g1:IsExists(Card.IsLocation,1,nil,LOCATION_GRAVE)
      and Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,17484499) then
      local off=1
      local ops={}
      local opval={}
      if Duel.IsPlayerCanDiscardDeck(tp,5) then
      ops[off]=aux.Stringid(100427024,4)
      opval[off-1]=tp
      off=off+1
      end
      if Duel.IsPlayerCanDiscardDeck(1-tp,5) then
      ops[off]=aux.Stringid(100427024,5)
      opval[off-1]=1-tp
      off=off+1
      end
      ops[off]=aux.Stringid(100427024,6)
      opval[off-1]=-1
      local op=Duel.SelectOption(tp,table.unpack(ops))
      local sel=opval[op]
      if sel~=-1 then
      Duel.BreakEffect()
      Duel.DiscardDeck(sel,5,REASON_EFFECT)
      end
      end
      end
      script/c100427025.lua deleted 100644 → 0
      View file @ 5af4f726
      --墓守の罠
      --
      --Script by Trishula9
      function c100427025.initial_effect(c)
      aux.AddCodeList(c,17484499)
      --activate
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e0)
      --activate limit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetCode(EFFECT_CANNOT_ACTIVATE)
      e1:SetRange(LOCATION_SZONE)
      e1:SetTargetRange(0,1)
      e1:SetCondition(c100427025.actcon)
      e1:SetValue(c100427025.aclimit)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e2:SetRange(LOCATION_SZONE)
      e2:SetTargetRange(0,1)
      e2:SetCondition(c100427025.actcon)
      e2:SetTarget(c100427025.sumlimit)
      c:RegisterEffect(e2)
      --to hand
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e3:SetType(EFFECT_TYPE_QUICK_O)
      e3:SetCode(EVENT_FREE_CHAIN)
      e3:SetRange(LOCATION_SZONE)
      e3:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_MAIN_END)
      e3:SetCountLimit(1,100427025)
      e3:SetCondition(c100427025.thcon)
      e3:SetCost(c100427025.thcost)
      e3:SetTarget(c100427025.thtg)
      e3:SetOperation(c100427025.thop)
      c:RegisterEffect(e3)
      --confirm deck
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_ANNOUNCE+CATEGORY_TOGRAVE)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_PREDRAW)
      e4:SetRange(LOCATION_SZONE)
      e4:SetCountLimit(1,100427025+100)
      e4:SetCondition(c100427025.cfcon)
      e4:SetTarget(c100427025.cftg)
      e4:SetOperation(c100427025.cfop)
      c:RegisterEffect(e4)
      end
      function c100427025.actcon(e)
      return Duel.IsExistingMatchingCard(Card.IsCode,e:GetHandlerPlayer(),LOCATION_GRAVE,0,1,nil,17484499)
      end
      function c100427025.aclimit(e,re,tp)
      return re:GetActivateLocation()==LOCATION_GRAVE
      end
      function c100427025.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
      return c:IsLocation(LOCATION_GRAVE) and c:IsType(TYPE_MONSTER)
      end
      function c100427025.thcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_MAIN1 or Duel.GetCurrentPhase()==PHASE_MAIN2
      end
      function c100427025.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,nil) end
      Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
      end
      function c100427025.thfilter(c)
      return (c:IsSetCard(0x2e) and c:IsType(TYPE_MONSTER) or c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_EARTH))
      and c:IsAbleToHand()
      end
      function c100427025.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100427025.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100427025.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100427025.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      function c100427025.cfcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetTurnPlayer()==1-tp and Duel.GetFieldGroupCount(1-tp,LOCATION_DECK,0)>0
      and Duel.GetDrawCount(1-tp)>0 and e:GetHandler():IsStatus(STATUS_EFFECT_ENABLED)
      end
      function c100427025.cftg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CODE)
      getmetatable(e:GetHandler()).announce_filter={TYPE_FUSION+TYPE_SYNCHRO+TYPE_XYZ+TYPE_LINK,OPCODE_ISTYPE,OPCODE_NOT}
      local ac=Duel.AnnounceCard(tp,table.unpack(getmetatable(e:GetHandler()).announce_filter))
      Duel.SetTargetParam(ac)
      Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
      end
      function c100427025.cfop(e,tp,eg,ep,ev,re,r,rp)
      local ac=Duel.GetChainInfo(0,CHAININFO_TARGET_PARAM)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_DRAW)
      e1:SetLabel(ac)
      e1:SetOperation(c100427025.disop)
      e1:SetReset(RESET_PHASE+PHASE_DRAW)
      Duel.RegisterEffect(e1,tp)
      end
      function c100427025.disop(e,tp,eg,ep,ev,re,r,rp)
      if r~=REASON_RULE then return end
      Duel.ConfirmCards(tp,eg)
      local g=eg:Filter(Card.IsCode,nil,e:GetLabel())
      Duel.SendtoGrave(g,REASON_EFFECT)
      Duel.ShuffleHand(1-tp)
      end
      script/c100427026.lua deleted 100644 → 0
      View file @ 5af4f726
      --絶望と希望の逆転
      --
      --Script by Trishula9
      function c100427026.initial_effect(c)
      aux.AddCodeList(c,17484499)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100427026,0))
      e1:SetCategory(CATEGORY_TOGRAVE+CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,100427026+EFFECT_COUNT_CODE_OATH)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetCondition(c100427026.condition)
      e1:SetTarget(c100427026.target)
      e1:SetOperation(c100427026.activate)
      c:RegisterEffect(e1)
      end
      function c100427026.cfilter(c)
      return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsFaceup()
      end
      function c100427026.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(c100427026.cfilter,tp,LOCATION_MZONE,0,3,nil)
      end
      function c100427026.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,g,g:GetCount(),0,0)
      end
      function c100427026.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(aux.TRUE,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
      local g1=g:Filter(Card.IsControler,nil,tp)
      local g2=g:Filter(Card.IsControler,nil,1-tp)
      if Duel.SendtoGrave(g,REASON_EFFECT)==0 then return end
      local ft1=Duel.GetLocationCount(tp,LOCATION_MZONE)
      if ft1>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then ft1=1 end
      local ct1=g:FilterCount(c100427026.ctfilter,nil,1-tp)
      if ct1>ft1 then ct1=ft1 end
      local ft2=Duel.GetLocationCount(1-tp,LOCATION_MZONE)
      if ft2>1 and Duel.IsPlayerAffectedByEffect(1-tp,59822133) then ft2=1 end
      local ct2=g1:FilterCount(c100427026.ctfilter,nil,tp)
      if ct2>ft2 then ct2=ft2 end
      local sg1=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsCanBeSpecialSummoned),tp,0,LOCATION_GRAVE,nil,e,0,tp,false,false)
      local sg2=Duel.GetMatchingGroup(aux.NecroValleyFilter(Card.IsCanBeSpecialSummoned),1-tp,0,LOCATION_GRAVE,nil,e,0,1-tp,false,false)
      local b1=ft1>0 and sg1:GetCount()>0 and Duel.SelectYesNo(tp,aux.Stringid(100427026,1))
      local b2=ft2>0 and sg2:GetCount()>0 and Duel.SelectYesNo(1-tp,aux.Stringid(100427026,1))
      if b1 or b2 then
      Duel.BreakEffect()
      if b1 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg1=sg1:Select(tp,1,ct1,nil)
      if tg1:GetCount()>0 then
      Duel.SpecialSummon(tg1,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      if b2 then
      Duel.Hint(HINT_SELECTMSG,1-tp,HINTMSG_SPSUMMON)
      local tg2=sg2:Select(1-tp,1,ct2,nil)
      if tg2:GetCount()>0 then
      Duel.SpecialSummon(tg2,0,1-tp,1-tp,false,false,POS_FACEUP)
      end
      end
      local stg=Duel.GetMatchingGroup(c100427026.stfilter,tp,LOCATION_DECK,0,nil)
      if Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,17484499) and stg:GetCount()>0
      and Duel.SelectYesNo(tp,aux.Stringid(100427026,2)) then
      Duel.BreakEffect()
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local tc=stg:Select(tp,1,1,nil):GetFirst()
      if tc and Duel.SSet(tp,tc)~=0 then
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_TRAP_ACT_IN_SET_TURN)
      e1:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e1)
      end
      end
      end
      end
      function c100427026.ctfilter(c,p)
      return c:IsLocation(LOCATION_GRAVE) and c:IsControler(p) and c:IsType(TYPE_MONSTER)
      end
      function c100427026.stfilter(c)
      return c:IsType(TYPE_TRAP) and c:IsSSetable()
      end
      script/c100427027.lua deleted 100644 → 0
      View file @ 5af4f726
      --運命の抱く爆弾
      --
      --Script by Trishula9
      function c100427027.initial_effect(c)
      aux.AddCodeList(c,17484499)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY+CATEGORY_DAMAGE)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_ATTACK_ANNOUNCE)
      e1:SetCountLimit(1,100427027)
      e1:SetCondition(c100427027.condition)
      e1:SetTarget(c100427027.target)
      e1:SetOperation(c100427027.activate)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,100427027+100)
      e2:SetCondition(c100427027.thcon)
      e2:SetTarget(c100427027.thtg)
      e2:SetOperation(c100427027.thop)
      c:RegisterEffect(e2)
      end
      function c100427027.condition(e,tp,eg,ep,ev,re,r,rp)
      return tp~=Duel.GetTurnPlayer()
      end
      function c100427027.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
      local tg=g:GetMaxGroup(Card.GetAttack)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,tg,1,0,0)
      end
      function c100427027.activate(e,tp,eg,ep,ev,re,r,rp)
      local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
      if g:GetCount()>0 then
      local tg=g:GetMaxGroup(Card.GetAttack)
      local dam=0
      if tg:GetCount()>1 then
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local sg=tg:Select(tp,1,1,nil)
      Duel.HintSelection(sg)
      if Duel.Destroy(sg,REASON_EFFECT)>0 then
      dam=sg:GetFirst():GetBaseAttack()
      end
      else
      if Duel.Destroy(tg,REASON_EFFECT)>0 then
      dam=tg:GetFirst():GetBaseAttack()
      end
      end
      if dam>0 then
      Duel.Damage(1-tp,dam,REASON_EFFECT)
      if not Duel.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_GRAVE,0,1,nil,17484499) then
      Duel.Damage(tp,dam,REASON_EFFECT)
      end
      end
      end
      end
      function c100427027.thcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsPreviousLocation(LOCATION_HAND+LOCATION_DECK)
      end
      function c100427027.thfilter(c)
      return c:IsRace(RACE_FAIRY) and c:IsAttribute(ATTRIBUTE_EARTH) and c:IsLevel(4) and c:IsAbleToHand()
      end
      function c100427027.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100427027.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100427027.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c100427027.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c100427027.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      script/c100427030.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネスの金鞭使い
      --
      --Script by Trishula9
      function c100427030.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --atk up
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x4))
      e1:SetValue(c100427030.atkval)
      c:RegisterEffect(e1)
      --destroy
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DESTROY)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_ATTACK_ANNOUNCE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_PZONE)
      e2:SetCountLimit(1,100427030)
      e2:SetCondition(c100427030.descon)
      e2:SetTarget(c100427030.destg)
      e2:SetOperation(c100427030.desop)
      c:RegisterEffect(e2)
      --pendulum
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,100427030+100)
      e3:SetCondition(c100427030.pencon)
      e3:SetTarget(c100427030.pentg)
      e3:SetOperation(c100427030.penop)
      c:RegisterEffect(e3)
      --pendulem
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_LEAVE_GRAVE)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_SPSUMMON_SUCCESS)
      e4:SetRange(LOCATION_GRAVE)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,100427030+200)
      e4:SetCondition(c100427030.pencon2)
      e4:SetTarget(c100427030.pentg2)
      e4:SetOperation(c100427030.penop)
      c:RegisterEffect(e4)
      end
      function c100427030.atkval(e,c)
      return c:GetLevel()*100
      end
      function c100427030.descon(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetBattleMonster(tp)
      return tc and tc:IsSetCard(0x4) and tc:IsFaceup()
      end
      function c100427030.desfilter(c)
      return c:IsType(TYPE_SPELL+TYPE_TRAP)
      end
      function c100427030.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and c100427030.desfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100427030.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g=Duel.SelectTarget(tp,c100427030.desfilter,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
      end
      function c100427030.desop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.Destroy(tc,REASON_EFFECT)
      end
      end
      function c100427030.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
      end
      function c100427030.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function c100427030.penop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function c100427030.penfilter(c,tp)
      return c:IsSetCard(0x4) and c:IsControler(tp)
      end
      function c100427030.pencon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c100427030.penfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
      end
      function c100427030.pentg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
      end
      \ No newline at end of file
      script/c100427031.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネスの銀剣使い
      --
      --Script by Trishula9
      function c100427031.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --atk up
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetRange(LOCATION_PZONE)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(aux.TargetBoolFunction(Card.IsSetCard,0x4))
      e1:SetValue(c100427031.atkval)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_ATTACK_ANNOUNCE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetRange(LOCATION_PZONE)
      e2:SetCountLimit(1,100427031)
      e2:SetCondition(c100427031.thcon)
      e2:SetTarget(c100427031.thtg)
      e2:SetOperation(c100427031.thop)
      c:RegisterEffect(e2)
      --pendulum
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_DESTROYED)
      e3:SetProperty(EFFECT_FLAG_DELAY)
      e3:SetCountLimit(1,100427031+100)
      e3:SetCondition(c100427031.pencon)
      e3:SetTarget(c100427031.pentg)
      e3:SetOperation(c100427031.penop)
      c:RegisterEffect(e3)
      --pendulem
      local e4=Effect.CreateEffect(c)
      e4:SetCategory(CATEGORY_LEAVE_GRAVE)
      e4:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e4:SetCode(EVENT_SPSUMMON_SUCCESS)
      e4:SetRange(LOCATION_GRAVE)
      e4:SetProperty(EFFECT_FLAG_DELAY)
      e4:SetCountLimit(1,100427031+200)
      e4:SetCondition(c100427031.pencon2)
      e4:SetTarget(c100427031.pentg2)
      e4:SetOperation(c100427031.penop)
      c:RegisterEffect(e4)
      end
      function c100427031.atkval(e,c)
      return c:GetLevel()*100
      end
      function c100427031.thcon(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetBattleMonster(tp)
      return tc and tc:IsSetCard(0x4) and tc:IsFaceup()
      end
      function c100427031.thfilter(c)
      return c:IsSetCard(0x4) and c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsAbleToHand()
      end
      function c100427031.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_GRAVE) and chkc:IsControler(tp) and c100427031.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c100427031.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,c100427031.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function c100427031.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then
      Duel.SendtoHand(tc,nil,REASON_EFFECT)
      end
      end
      function c100427031.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsReason(REASON_BATTLE+REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
      end
      function c100427031.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function c100427031.penop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function c100427031.penfilter(c,tp)
      return c:IsSetCard(0x4) and c:IsControler(tp)
      end
      function c100427031.pencon2(e,tp,eg,ep,ev,re,r,rp)
      return eg:IsExists(c100427031.penfilter,1,nil,tp) and not eg:IsContains(e:GetHandler())
      end
      function c100427031.pentg2(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
      end
      script/c100427032.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネスの戦士長
      --Amazoness Warrior Chief
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCondition(s.spcon)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SUMMON_SUCCESS)
      e2:SetCountLimit(1,id+o)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetTarget(s.sstg)
      e2:SetOperation(s.ssop)
      c:RegisterEffect(e2)
      local e3=e2:Clone()
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c)
      return c:IsFacedown() or not c:IsSetCard(0x4)
      end
      function s.spcon(e,tp,eg,ep,ev,re,r,rp)
      return not Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end
      end
      function s.filter(c)
      return c:IsSSetable() and (c:IsType(TYPE_SPELL+TYPE_TRAP) and c:IsSetCard(0x4) or c:IsCode(24094653))
      end
      function s.sstg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
      end
      function s.ssop(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_ATTACK)
      e1:SetTargetRange(LOCATION_MZONE,0)
      e1:SetTarget(s.atktg)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SET)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then Duel.SSet(tp,g) end
      end
      function s.atktg(e,c)
      return not c:IsSetCard(0x4)
      end
      script/c100427033.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネス霊術師
      --
      --Script by Trishula9
      function c100427033.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND+LOCATION_GRAVE)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetCountLimit(1,100427033)
      e1:SetTarget(c100427033.sptg)
      e1:SetOperation(c100427033.spop)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCountLimit(1,100427033+100)
      e2:SetTarget(c100427033.thtg)
      e2:SetOperation(c100427033.thop)
      c:RegisterEffect(e2)
      end
      function c100427033.filter(c,tp)
      return c:IsSetCard(0x4) and not c:IsCode(100427033) and c:IsFaceup() and c:IsAbleToHand() and Duel.GetMZoneCount(tp,c)>0
      end
      function c100427033.sptg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_ONFIELD) and chkc:IsControler(tp) and c100427033.filter(chkc,tp) end
      if chk==0 then return Duel.IsExistingTarget(c100427033.filter,tp,LOCATION_ONFIELD,0,1,nil,tp)
      and e:GetHandler():IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g=Duel.SelectTarget(tp,c100427033.filter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,e:GetHandler(),1,0,0)
      end
      function c100427033.spop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      local c=e:GetHandler()
      if tc:IsRelateToEffect(e) and Duel.SendtoHand(tc,nil,REASON_EFFECT)>0 and tc:IsLocation(LOCATION_HAND)
      and c:IsRelateToEffect(e) then
      Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
      end
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetTargetRange(1,0)
      e1:SetTarget(c100427033.splimit)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function c100427033.splimit(e,c)
      return not c:IsSetCard(0x4) and c:IsLocation(LOCATION_EXTRA)
      end
      function c100427033.thfilter(c)
      return c:IsCode(24094653) and c:IsAbleToHand()
      end
      function c100427033.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(c100427033.thfilter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function c100427033.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,c100427033.thfilter,tp,LOCATION_DECK,0,1,1,nil)
      if g:GetCount()>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      \ No newline at end of file
      script/c100427034.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネス女帝王
      --
      --Script by Trishula9
      function c100427034.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFun2(c,c100427034.matfilter,aux.FilterBoolFunction(Card.IsFusionSetCard,0x4),true)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetCountLimit(1,100427034)
      e1:SetProperty(EFFECT_FLAG_DELAY)
      e1:SetCondition(c100427034.spcon)
      e1:SetTarget(c100427034.sptg)
      e1:SetOperation(c100427034.spop)
      c:RegisterEffect(e1)
      --indes
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e2:SetRange(LOCATION_MZONE)
      e2:SetTargetRange(LOCATION_ONFIELD,0)
      e2:SetTarget(c100427034.indtg)
      e2:SetValue(aux.indoval)
      c:RegisterEffect(e2)
      --cannot be target
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_FIELD)
      e3:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e3:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e3:SetRange(LOCATION_MZONE)
      e3:SetTargetRange(LOCATION_ONFIELD,0)
      e3:SetTarget(c100427034.indtg)
      e3:SetValue(aux.tgoval)
      c:RegisterEffect(e3)
      --multi attack
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
      e4:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e4:SetCode(EVENT_SPSUMMON_SUCCESS)
      e4:SetCondition(c100427034.condition)
      e4:SetOperation(c100427034.operation)
      c:RegisterEffect(e4)
      local e5=Effect.CreateEffect(c)
      e5:SetType(EFFECT_TYPE_SINGLE)
      e5:SetCode(EFFECT_MATERIAL_CHECK)
      e5:SetValue(c100427034.valcheck)
      e5:SetLabelObject(e4)
      c:RegisterEffect(e5)
      end
      function c100427034.matfilter(c)
      return c:IsFusionType(TYPE_FUSION) and c:IsFusionSetCard(0x4)
      end
      function c100427034.spcon(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
      end
      function c100427034.spfilter(c,e,tp)
      return c:IsSetCard(0x4) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c100427034.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsExistingMatchingCard(c100427034.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
      end
      function c100427034.spop(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<=0 then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g=Duel.SelectMatchingCard(tp,c100427034.spfilter,tp,LOCATION_DECK,0,1,1,nil,e,tp)
      if g:GetCount()>0 then
      Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      function c100427034.indtg(e,c)
      return c:IsSetCard(0x4) and c~=e:GetHandler()
      end
      function c100427034.valcheck(e,c)
      e:GetLabelObject():SetLabel(c:GetMaterial():FilterCount(Card.IsCode,nil,4591250,15951532))
      end
      function c100427034.condition(e,tp,eg,ep,ev,re,r,rp)
      return e:GetHandler():IsSummonType(SUMMON_TYPE_FUSION)
      end
      function c100427034.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local ct=e:GetLabel()
      if ct>=1 then
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(100427034,1))
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_EXTRA_ATTACK)
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetValue(1)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      c:RegisterEffect(e1)
      end
      end
      script/c100427035.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネスペット虎獅王
      --
      --Script by Trishula9
      function c100427035.initial_effect(c)
      --fusion material
      c:EnableReviveLimit()
      aux.AddFusionProcFun2(c,c100427035.matfilter,aux.FilterBoolFunction(Card.IsFusionSetCard,0x4),true)
      --atk limit
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_CANNOT_SELECT_BATTLE_TARGET)
      e1:SetRange(LOCATION_MZONE)
      e1:SetTargetRange(0,LOCATION_MZONE)
      e1:SetValue(c100427035.atlimit)
      c:RegisterEffect(e1)
      --destroy and spsummon
      local e2=Effect.CreateEffect(c)
      e2:SetCategory(CATEGORY_DESTROY+CATEGORY_SPECIAL_SUMMON)
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetCountLimit(1,100427035)
      e2:SetCost(c100427035.cost)
      e2:SetTarget(c100427035.target)
      e2:SetOperation(c100427035.operation)
      c:RegisterEffect(e2)
      end
      function c100427035.matfilter(c)
      return c:IsLevelAbove(5) and c:IsFusionSetCard(0x4)
      end
      function c100427035.atlimit(e,c)
      return c~=e:GetHandler()
      end
      function c100427035.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():GetAttackAnnouncedCount()==0 end
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CANNOT_ATTACK)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_OATH)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e:GetHandler():RegisterEffect(e1,true)
      end
      function c100427035.desfilter(c,tp)
      return c:IsFaceup() and c:IsSetCard(0x4) and Duel.GetMZoneCount(tp,c)>0
      end
      function c100427035.spfilter(c,e,tp)
      return c:IsSetCard(0x4) and c:IsRace(RACE_WARRIOR) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
      end
      function c100427035.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return false end
      local c=e:GetHandler()
      if chk==0 then return Duel.IsExistingTarget(c100427035.desfilter,tp,LOCATION_ONFIELD,0,1,nil,tp)
      and Duel.IsExistingTarget(c100427035.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g1=Duel.SelectTarget(tp,c100427035.desfilter,tp,LOCATION_ONFIELD,0,1,1,nil,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local g2=Duel.SelectTarget(tp,c100427035.spfilter,tp,LOCATION_GRAVE,0,1,1,nil,e,tp)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,g2,1,0,0)
      e:SetLabelObject(g1:GetFirst())
      end
      function c100427035.operation(e,tp,eg,ep,ev,re,r,rp)
      local tc1,tc2=Duel.GetFirstTarget()
      if tc1~=e:GetLabelObject() then tc1,tc2=tc2,tc1 end
      if tc1:IsRelateToEffect(e) and Duel.Destroy(tc1,REASON_EFFECT)>0 and tc2:IsRelateToEffect(e) then
      Duel.SpecialSummon(tc2,0,tp,tp,false,false,POS_FACEUP)
      end
      end
      script/c100427036.lua deleted 100644 → 0
      View file @ 5af4f726
      --アマゾネスの秘術
      --Script by mercury233
      --not fully implemented
      local s,id,o=GetID()
      function s.initial_effect(c)
      --Activate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetHintTiming(0,TIMING_END_PHASE)
      e1:SetCountLimit(1,id)
      e1:SetTarget(s.target)
      e1:SetOperation(s.activate)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetType(EFFECT_TYPE_IGNITION)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetCost(aux.bfgcost)
      e2:SetOperation(s.fusop)
      c:RegisterEffect(e2)
      --workaround
      if not aux.fus_mat_hack_check2 then
      aux.fus_mat_hack_check2=true
      function aux.fus_mat_hack_exmat_filter(c)
      return c:IsHasEffect(EFFECT_EXTRA_FUSION_MATERIAL,c:GetControler())
      end
      _GetFusionMaterial=Duel.GetFusionMaterial
      function Duel.GetFusionMaterial(tp,loc)
      if loc==nil then loc=LOCATION_HAND+LOCATION_MZONE end
      local g=_GetFusionMaterial(tp,loc)
      local exg=Duel.GetMatchingGroup(aux.fus_mat_hack_exmat_filter,tp,LOCATION_EXTRA,0,nil)
      return g+exg
      end
      _SendtoGrave=Duel.SendtoGrave
      function Duel.SendtoGrave(tg,reason)
      if reason~=REASON_EFFECT+REASON_MATERIAL+REASON_FUSION or aux.GetValueType(tg)~="Group" then
      return _SendtoGrave(tg,reason)
      end
      local rg=tg:Filter(Card.IsLocation,nil,LOCATION_EXTRA)
      local tc=rg:Filter(aux.fus_mat_hack_exmat_filter,nil):GetFirst()
      if tc then
      local te=tc:IsHasEffect(EFFECT_EXTRA_FUSION_MATERIAL,tc:GetControler())
      te:UseCountLimit(tc:GetControler())
      end
      return _SendtoGrave(tg,reason)
      end
      end
      end
      function s.filter1(c,e)
      return not c:IsImmuneToEffect(e)
      end
      function s.filter2(c,e,tp,m,f,chkf)
      return c:IsType(TYPE_FUSION) and c:IsSetCard(0x4) and (not f or f(c))
      and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp)
      local res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg1,nil,chkf)
      if not res then
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      local mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      res=Duel.IsExistingMatchingCard(s.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg2,mf,chkf)
      end
      end
      return res
      end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
      end
      function s.activate(e,tp,eg,ep,ev,re,r,rp)
      local chkf=tp
      local mg1=Duel.GetFusionMaterial(tp):Filter(s.filter1,nil,e)
      local sg1=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
      local mg2=nil
      local sg2=nil
      local ce=Duel.GetChainMaterial(tp)
      if ce~=nil then
      local fgroup=ce:GetTarget()
      mg2=fgroup(ce,e,tp)
      local mf=ce:GetValue()
      sg2=Duel.GetMatchingGroup(s.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg2,mf,chkf)
      end
      if sg1:GetCount()>0 or (sg2~=nil and sg2:GetCount()>0) then
      local sg=sg1:Clone()
      if sg2 then sg:Merge(sg2) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local tg=sg:Select(tp,1,1,nil)
      local tc=tg:GetFirst()
      if sg1:IsContains(tc) and (sg2==nil or not sg2:IsContains(tc) or not Duel.SelectYesNo(tp,ce:GetDescription())) then
      local mat1=Duel.SelectFusionMaterial(tp,tc,mg1,nil,chkf)
      tc:SetMaterial(mat1)
      Duel.SendtoGrave(mat1,REASON_EFFECT+REASON_MATERIAL+REASON_FUSION)
      Duel.BreakEffect()
      Duel.SpecialSummon(tc,SUMMON_TYPE_FUSION,tp,tp,false,false,POS_FACEUP)
      else
      local mat2=Duel.SelectFusionMaterial(tp,tc,mg2,nil,chkf)
      local fop=ce:GetOperation()
      fop(ce,e,tp,tc,mat2)
      end
      tc:CompleteProcedure()
      end
      end
      function s.fusop(e,tp,eg,ep,ev,re,r,rp)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetDescription(aux.Stringid(id,2))
      e1:SetType(EFFECT_TYPE_FIELD)
      e1:SetCode(EFFECT_EXTRA_FUSION_MATERIAL)
      e1:SetTargetRange(LOCATION_EXTRA,0)
      e1:SetCountLimit(1)
      e1:SetTarget(s.mttg)
      e1:SetValue(s.mtval)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      function s.mttg(e,c)
      return c:IsSetCard(0x4) and c:IsAbleToGrave()
      end
      function s.mtval(e,c)
      if not c then return true end
      return c:IsSetCard(0x4)
      end
      script/c101108000.lua deleted 100644 → 0
      View file @ 5af4f726
      --Libromancer Fire
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_HAND)
      e1:SetCountLimit(1,id)
      e1:SetCost(s.spcost)
      e1:SetTarget(s.sptg)
      e1:SetOperation(s.spop)
      c:RegisterEffect(e1)
      --search
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_SPSUMMON_SUCCESS)
      e2:SetCountLimit(1,id+o)
      e2:SetTarget(s.tg)
      e2:SetOperation(s.op)
      c:RegisterEffect(e2)
      end
      function s.cfilter(c)
      return c:IsType(TYPE_RITUAL) and c:IsType(TYPE_MONSTER) and not c:IsPublic()
      end
      function s.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local g=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND,0,1,1,nil)
      Duel.ConfirmCards(1-tp,g)
      Duel.ShuffleHand(tp)
      end
      function s.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
      local c=e:GetHandler()
      if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,c,1,0,0)
      end
      function s.spop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP) end
      end
      function s.filter(c)
      return c:IsSetCard(0x17c) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand() and not c:IsCode(id)
      end
      function s.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_DECK,0,1,nil) end
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
      end
      function s.op(e,tp,eg,ep,ev,re,r,rp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_DECK,0,1,1,nil)
      if #g>0 then
      Duel.SendtoHand(g,nil,REASON_EFFECT)
      Duel.ConfirmCards(1-tp,g)
      end
      end
      script/c101108081.lua deleted 100644 → 0
      View file @ 5af4f726
      --Colonel on C-String
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --spsummon
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SUMMON_SUCCESS)
      e1:SetTarget(s.tg)
      e1:SetOperation(s.op)
      c:RegisterEffect(e1)
      end
      function s.filter(c,e,tp)
      return c:IsLevelBelow(4) and c:IsRace(RACE_WARRIOR)
      and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEUP_DEFENSE)
      end
      function s.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local g=Duel.GetMatchingGroup(s.filter,tp,LOCATION_HAND,0,nil,e,tp)
      return Duel.GetLocationCount(tp,LOCATION_MZONE)>1 and not Duel.IsPlayerAffectedByEffect(tp,59822133)
      and g:CheckSubGroup(aux.dncheck,2,2) end
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,2,tp,LOCATION_HAND)
      end
      function s.op(e,tp,eg,ep,ev,re,r,rp)
      if Duel.GetLocationCount(tp,LOCATION_MZONE)<2 or Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
      local g=Duel.GetMatchingGroup(s.filter,tp,LOCATION_HAND,0,nil,e,tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
      local sg=g:SelectSubGroup(tp,aux.dncheck,false,2,2)
      if sg then
      Duel.SpecialSummon(sg,0,tp,tp,false,false,POS_FACEUP_DEFENSE)
      end
      end
      script/c101108082.lua deleted 100644 → 0
      View file @ 5af4f726
      --Navy Dragon Mech
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddSynchroProcedure(c,nil,aux.NonTuner(nil),1)
      --negate
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_DISABLE)
      e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e1:SetCode(EVENT_SPSUMMON_SUCCESS)
      e1:SetProperty(EFFECT_FLAG_DELAY+EFFECT_FLAG_CARD_TARGET)
      e1:SetTarget(s.tg)
      e1:SetOperation(s.op)
      c:RegisterEffect(e1)
      --to hand
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,1))
      e2:SetCategory(CATEGORY_TOHAND)
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e2:SetCode(EVENT_TO_GRAVE)
      e2:SetCondition(s.thcon)
      e2:SetTarget(s.thtg)
      e2:SetOperation(s.thop)
      c:RegisterEffect(e2)
      end
      function s.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsOnField() and chkc:IsControler(1-tp) and aux.NegateAnyFilter(chkc) end
      local ct=Duel.GetMatchingGroupCount(Card.IsType,tp,LOCATION_GRAVE,0,nil,TYPE_TUNER)
      if chk==0 then return ct>0 and Duel.IsExistingTarget(aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISABLE)
      local g=Duel.SelectTarget(tp,aux.NegateAnyFilter,tp,0,LOCATION_ONFIELD,1,ct,nil)
      Duel.SetOperationInfo(0,CATEGORY_DISABLE,g,#g,0,0)
      end
      function s.op(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      for tc in aux.Next(g) do
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e2)
      if tc:IsType(TYPE_TRAPMONSTER) then
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_DISABLE_TRAPMONSTER)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e3)
      end
      end
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsReason(REASON_DESTROY) and c:IsReason(REASON_EFFECT) and c:IsPreviousLocation(LOCATION_MZONE)
      and c:IsSummonType(SUMMON_TYPE_SYNCHRO)
      end
      function s.thfilter(c)
      return c:IsType(TYPE_TUNER) and c:IsAbleToHand()
      end
      function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(tp) and chkc:IsLocation(LOCATION_GRAVE) and s.thfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
      local g=Duel.SelectTarget(tp,s.thfilter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g,1,0,0)
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) then Duel.SendtoHand(tc,nil,REASON_EFFECT) end
      end
      script/c101108083.lua deleted 100644 → 0
      View file @ 5af4f726
      --Patissciel Couverture
      --Scripted by mallu11
      function c101108083.initial_effect(c)
      c:EnableReviveLimit()
      aux.AddFusionProcFunRep(c,aux.FilterBoolFunction(Card.IsFusionType,TYPE_PENDULUM),2,true)
      aux.EnablePendulumAttribute(c,false)
      --pendulum set
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(101108083,0))
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1,101108083)
      e1:SetTarget(c101108083.pctg)
      e1:SetOperation(c101108083.pcop)
      c:RegisterEffect(e1)
      --pendulum
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(101108083,1))
      e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e2:SetCode(EVENT_DESTROYED)
      e2:SetProperty(EFFECT_FLAG_DELAY)
      e2:SetCondition(c101108083.pencon)
      e2:SetTarget(c101108083.pentg)
      e2:SetOperation(c101108083.penop)
      c:RegisterEffect(e2)
      end
      function c101108083.pcfilter(c,tp)
      return c:IsFaceup() and c:IsType(TYPE_PENDULUM) and not c:IsForbidden() and c:CheckUniqueOnField(tp,LOCATION_SZONE)
      end
      function c101108083.pctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return (Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1))
      and Duel.IsExistingMatchingCard(c101108083.pcfilter,tp,LOCATION_EXTRA,0,1,nil,tp) end
      end
      function c101108083.pcop(e,tp,eg,ep,ev,re,r,rp)
      if not Duel.CheckLocation(tp,LOCATION_PZONE,0) and not Duel.CheckLocation(tp,LOCATION_PZONE,1) then return end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOFIELD)
      local g=Duel.SelectMatchingCard(tp,c101108083.pcfilter,tp,LOCATION_EXTRA,0,1,1,nil,tp)
      if g:GetCount()>0 then
      Duel.MoveToField(g:GetFirst(),tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      function c101108083.pencon(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      return c:IsPreviousLocation(LOCATION_MZONE) and c:IsFaceup()
      end
      function c101108083.pentg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.CheckLocation(tp,LOCATION_PZONE,0) or Duel.CheckLocation(tp,LOCATION_PZONE,1) end
      end
      function c101108083.penop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then
      Duel.MoveToField(c,tp,tp,LOCATION_PZONE,POS_FACEUP,true)
      end
      end
      script/c101108084.lua deleted 100644 → 0
      View file @ 5af4f726
      --Omega Judgment
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --destroy
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DESTROY)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.tg)
      e1:SetOperation(s.op)
      c:RegisterEffect(e1)
      end
      function s.filter(c)
      return c:IsFaceup() and c:GetOriginalType()&TYPE_MONSTER>0 and c:GetSequence()<5
      end
      function s.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return false end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,LOCATION_SZONE,0,1,nil)
      and Duel.IsExistingTarget(nil,tp,0,LOCATION_ONFIELD,2,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g1=Duel.SelectTarget(tp,s.filter,tp,LOCATION_SZONE,0,1,1,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
      local g2=Duel.SelectTarget(tp,nil,tp,0,LOCATION_ONFIELD,2,2,nil)
      g1:Merge(g2)
      Duel.SetOperationInfo(0,CATEGORY_DESTROY,g1,#g1,0,0)
      end
      function s.op(e,tp,eg,ep,ev,re,r,rp)
      local tg=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
      Duel.Destroy(tg,REASON_EFFECT)
      end
      script/c101108085.lua deleted 100644 → 0
      View file @ 5af4f726
      --Backup Team
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --draw
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_DRAW+CATEGORY_TODECK)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetCountLimit(1,id)
      e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e1:SetHintTiming(0,TIMING_END_PHASE)
      e1:SetTarget(s.tg)
      e1:SetOperation(s.act)
      c:RegisterEffect(e1)
      --set
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_GRAVE)
      e2:SetCountLimit(1,id)
      e2:SetHintTiming(TIMING_END_PHASE)
      e2:SetCondition(s.setcon)
      e2:SetTarget(s.settg)
      e2:SetOperation(s.setop)
      c:RegisterEffect(e2)
      end
      function s.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      local ct=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)
      if chk==0 then return Duel.IsPlayerCanDraw(tp,ct) end
      Duel.SetTargetPlayer(tp)
      Duel.SetOperationInfo(0,CATEGORY_DRAW,nil,0,tp,ct)
      Duel.SetOperationInfo(0,CATEGORY_TODECK,nil,ct,tp,LOCATION_HAND)
      end
      function s.act(e,tp,eg,ep,ev,re,r,rp)
      local p=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER)
      local d=Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)
      Duel.Draw(p,d,REASON_EFFECT)
      Duel.BreakEffect()
      Duel.ShuffleHand(tp)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODECK)
      local g=Duel.GetFieldGroup(p,LOCATION_HAND,0):Select(p,d,d,nil)
      Duel.SendtoDeck(g,nil,SEQ_DECKTOP,REASON_EFFECT)
      local ct=g:FilterCount(Card.IsLocation,nil,LOCATION_DECK)
      if ct>0 then
      Duel.SortDecktop(p,p,ct)
      for i=1,ct do
      local mg=Duel.GetDecktopGroup(p,1)
      Duel.MoveSequence(mg:GetFirst(),SEQ_DECKBOTTOM)
      end
      end
      end
      function s.setcon(e,tp,eg,ep,ev,re,r,rp)
      return Duel.GetCurrentPhase()==PHASE_END
      and Duel.GetFieldGroupCount(tp,0,LOCATION_ONFIELD)>Duel.GetFieldGroupCount(tp,LOCATION_ONFIELD,0)
      end
      function s.settg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():IsSSetable() end
      Duel.SetOperationInfo(0,CATEGORY_LEAVE_GRAVE,e:GetHandler(),1,0,0)
      end
      function s.setop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) and Duel.SSet(tp,c)~=0 then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_LEAVE_FIELD_REDIRECT)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_REDIRECT)
      e1:SetValue(LOCATION_REMOVED)
      c:RegisterEffect(e1)
      end
      end
      script/c101108086.lua deleted 100644 → 0
      View file @ 5af4f726
      --Libromancer Mystigirl
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --cannot target
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_MATERIAL_CHECK)
      e1:SetValue(s.matcheck)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e2:SetTargetRange(LOCATION_MZONE,0)
      e2:SetCondition(s.matcon)
      e2:SetTarget(aux.TargetBoolFunction(Card.IsType,TYPE_RITUAL))
      e2:SetValue(s.tgval)
      c:RegisterEffect(e2)
      --negate
      local e3=Effect.CreateEffect(c)
      e3:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_DISABLE)
      e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
      e3:SetCode(EVENT_SPSUMMON_SUCCESS)
      e3:SetCountLimit(1,id)
      e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
      e3:SetTarget(s.target)
      e3:SetOperation(s.operation)
      c:RegisterEffect(e3)
      end
      function s.matcheck(e,c)
      if c:GetMaterial():IsExists(Card.IsLocation,1,nil,LOCATION_MZONE) then
      c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,0))
      end
      end
      function s.matcon(e)
      local c=e:GetHandler()
      return c:IsSummonType(SUMMON_TYPE_RITUAL) and c:GetFlagEffect(id)>0
      end
      function s.tgval(e,re,rp)
      return re:IsActiveType(TYPE_MONSTER) and rp==1-e:GetHandlerPlayer()
      end
      function s.filter(c)
      return c:IsFaceup() and (c:GetAttack()>0 or aux.NegateMonsterFilter(c))
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(1-tp) and s.filter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(s.filter,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,s.filter,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsFaceup() and tc:IsRelateToEffect(e) then
      Duel.NegateRelatedChain(tc,RESET_TURN_SET)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e1:SetCode(EFFECT_DISABLE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e2:SetCode(EFFECT_DISABLE_EFFECT)
      e2:SetValue(RESET_TURN_SET)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_SET_ATTACK_FINAL)
      e3:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e3:SetValue(0)
      tc:RegisterEffect(e3)
      end
      end
      script/c101108087.lua deleted 100644 → 0
      View file @ 5af4f726
      --Libromancer Fireburst
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      c:EnableReviveLimit()
      --get effect
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_MATERIAL_CHECK)
      e1:SetValue(s.matcheck)
      c:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_SINGLE)
      e2:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
      e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetCondition(s.matcon)
      e2:SetValue(1)
      c:RegisterEffect(e2)
      local e3=Effect.CreateEffect(c)
      e3:SetType(EFFECT_TYPE_SINGLE)
      e3:SetCode(EFFECT_CHANGE_BATTLE_DAMAGE)
      e3:SetCondition(s.matcon)
      e3:SetValue(aux.ChangeBattleDamage(1,DOUBLE_DAMAGE))
      c:RegisterEffect(e3)
      --twice attack
      local e4=Effect.CreateEffect(c)
      e4:SetType(EFFECT_TYPE_SINGLE)
      e4:SetCode(EFFECT_EXTRA_ATTACK_MONSTER)
      e4:SetValue(1)
      c:RegisterEffect(e4)
      --atk up
      local e5=Effect.CreateEffect(c)
      e5:SetCategory(CATEGORY_ATKCHANGE)
      e5:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
      e5:SetCode(EVENT_ATTACK_ANNOUNCE)
      e5:SetRange(LOCATION_MZONE)
      e5:SetCost(s.atkcost)
      e5:SetOperation(s.atkop)
      c:RegisterEffect(e5)
      end
      function s.matcheck(e,c)
      if c:GetMaterial():IsExists(Card.IsLocation,1,nil,LOCATION_MZONE) then
      c:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD,EFFECT_FLAG_CLIENT_HINT,1,0,aux.Stringid(id,0))
      end
      end
      function s.matcon(e)
      local c=e:GetHandler()
      return c:IsSummonType(SUMMON_TYPE_RITUAL) and c:GetFlagEffect(id)>0
      end
      function s.filter(c)
      return c:IsType(TYPE_MONSTER) and c:IsType(TYPE_RITUAL) and c:IsSetCard(0x17c) and c:IsAbleToRemoveAsCost()
      end
      function s.atkcost(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_GRAVE,0,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
      local g=Duel.SelectMatchingCard(tp,s.filter,tp,LOCATION_GRAVE,0,1,1,nil)
      Duel.Remove(g,POS_FACEUP,REASON_COST)
      end
      function s.atkop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsFaceup() and c:IsRelateToEffect(e) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_ATTACK)
      e1:SetValue(200)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
      c:RegisterEffect(e1)
      end
      end
      script/c101108088.lua deleted 100644 → 0
      View file @ 5af4f726
      --Libromancer Realized
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e0=Effect.CreateEffect(c)
      e0:SetType(EFFECT_TYPE_ACTIVATE)
      e0:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e0)
      --token
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_TOKEN)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_SZONE)
      e1:SetCountLimit(1,id)
      e1:SetLabel(0)
      e1:SetCost(s.cost)
      e1:SetTarget(s.tg)
      e1:SetOperation(s.op)
      c:RegisterEffect(e1)
      end
      function s.cfilter(c,tp)
      return c:IsSetCard(0x17c) and c:IsType(TYPE_MONSTER) and c:IsType(TYPE_RITUAL) and not c:IsPublic()
      and Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0,TYPES_TOKEN_MONSTER,0,0,c:GetLevel(),RACE_CYBERSE,ATTRIBUTE_FIRE)
      end
      function s.cost(e,tp,eg,ep,ev,re,r,rp,chk)
      e:SetLabel(100)
      if chk==0 then return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_HAND,0,1,nil,tp) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONFIRM)
      local tc=Duel.SelectMatchingCard(tp,s.cfilter,tp,LOCATION_HAND,0,1,1,nil,tp):GetFirst()
      Duel.ConfirmCards(1-tp,tc)
      e:SetLabel(tc:GetLevel())
      Duel.ShuffleHand(tp)
      end
      function s.tg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then
      local res=e:GetLabel()==100
      e:SetLabel(0)
      return res and Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      end
      Duel.SetOperationInfo(0,CATEGORY_TOKEN,nil,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,0,0)
      end
      function s.op(e,tp,eg,ep,ev,re,r,rp)
      local lv=e:GetLabel()
      if Duel.GetLocationCount(tp,LOCATION_MZONE)>0
      and Duel.IsPlayerCanSpecialSummonMonster(tp,id+o,0,TYPES_TOKEN_MONSTER,0,0,lv,RACE_CYBERSE,ATTRIBUTE_FIRE) then
      local tk=Duel.CreateToken(tp,id+o)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LEVEL)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD-RESET_TOFIELD)
      e1:SetValue(lv)
      tk:RegisterEffect(e1,true)
      Duel.SpecialSummonStep(tk,0,tp,tp,false,false,POS_FACEUP)
      local e2=Effect.CreateEffect(e:GetHandler())
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetRange(LOCATION_MZONE)
      e2:SetAbsoluteRange(tp,1,0)
      e2:SetCondition(s.splimitcon)
      e2:SetTarget(s.splimit)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tk:RegisterEffect(e2,true)
      Duel.SpecialSummonComplete()
      end
      end
      function s.splimitcon(e)
      return e:GetHandlerPlayer()==e:GetOwnerPlayer()
      end
      function s.splimit(e,c)
      return not c:IsSetCard(0x17c)
      end
      script/c101108089.lua deleted 100644 → 0
      View file @ 5af4f726
      --Libromancer Bonded
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      aux.AddCodeList(c,45001322,101108087)
      --ritual summon
      aux.AddRitualProcGreater(c,aux.FilterBoolFunction(Card.IsSetCard,0x17c),LOCATION_HAND,nil,nil,false,s.extraop)
      end
      function s.filter(c)
      return c:IsCode(45001322) and c:IsPreviousLocation(LOCATION_ONFIELD)
      end
      function s.extraop(e,tp,eg,ep,ev,re,r,rp,tc,mat)
      if not (tc and tc:IsCode(101108087) and mat:IsExists(s.filter,1,nil)) then return end
      local c=e:GetHandler()
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(id,0))
      e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD)
      e1:SetValue(1)
      tc:RegisterEffect(e1)
      local e2=Effect.CreateEffect(c)
      e2:SetType(EFFECT_TYPE_FIELD)
      e2:SetCode(EFFECT_CANNOT_REMOVE)
      e2:SetRange(LOCATION_MZONE)
      e2:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
      e2:SetTargetRange(1,1)
      e2:SetTarget(s.rmlimit)
      e2:SetReset(RESET_EVENT+RESETS_STANDARD)
      tc:RegisterEffect(e2)
      end
      function s.rmlimit(e,c,tp,r,re)
      return c==e:GetHandler() and r&REASON_EFFECT>0
      end
      script/c101108090.lua deleted 100644 → 0
      View file @ 5af4f726
      --Libromancer Displaced
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --control
      local e1=Effect.CreateEffect(c)
      e1:SetCategory(CATEGORY_CONTROL+CATEGORY_TOHAND)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
      e1:SetTarget(s.target)
      e1:SetOperation(s.operation)
      c:RegisterEffect(e1)
      end
      function s.thfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x17c)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return false end
      if chk==0 then return Duel.IsExistingTarget(s.thfilter,tp,LOCATION_MZONE,0,1,nil)
      and Duel.IsExistingTarget(Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
      local g1=Duel.SelectTarget(tp,s.thfilter,tp,LOCATION_MZONE,0,1,1,nil)
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CONTROL)
      local g2=Duel.SelectTarget(tp,Card.IsControlerCanBeChanged,tp,0,LOCATION_MZONE,1,1,nil)
      Duel.SetOperationInfo(0,CATEGORY_TOHAND,g1,1,0,0)
      Duel.SetOperationInfo(0,CATEGORY_CONTROL,g2,1,0,0)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local _,hg=Duel.GetOperationInfo(0,CATEGORY_TOHAND)
      local hc=hg:GetFirst()
      local chk=hc:IsType(TYPE_RITUAL)
      if hc:IsControler(tp) and hc:IsRelateToEffect(e)
      and Duel.SendtoHand(hc,nil,REASON_EFFECT)>0 and hc:IsLocation(LOCATION_HAND) then
      local _,tg=Duel.GetOperationInfo(0,CATEGORY_CONTROL)
      local tc=tg:GetFirst()
      if tc:IsControler(1-tp) and tc:IsRelateToEffect(e)
      and Duel.GetControl(tc,tp) and not chk then
      local fid=c:GetFieldID()
      tc:RegisterFlagEffect(id,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END,0,1,fid)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
      e1:SetCode(EVENT_PHASE+PHASE_END)
      e1:SetCountLimit(1)
      e1:SetProperty(EFFECT_FLAG_IGNORE_IMMUNE)
      e1:SetLabelObject(tc)
      e1:SetLabel(fid)
      e1:SetCondition(s.thcon)
      e1:SetOperation(s.thop)
      e1:SetReset(RESET_PHASE+PHASE_END)
      Duel.RegisterEffect(e1,tp)
      end
      end
      end
      function s.thcon(e,tp,eg,ep,ev,re,r,rp)
      local tc=e:GetLabelObject()
      if tc:GetFlagEffectLabel(id)~=e:GetLabel() then
      e:Reset()
      return false
      else return true end
      end
      function s.thop(e,tp,eg,ep,ev,re,r,rp)
      Duel.SendtoHand(e:GetLabelObject(),nil,REASON_EFFECT)
      end
      script/c101108091.lua deleted 100644 → 0
      View file @ 5af4f726
      --Libromancer Prevented
      --Script by Lyris12
      local s,id,o=GetID()
      function s.initial_effect(c)
      --activate
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_ACTIVATE)
      e1:SetCode(EVENT_FREE_CHAIN)
      c:RegisterEffect(e1)
      --can't be material
      local e2=Effect.CreateEffect(c)
      e2:SetDescription(aux.Stringid(id,0))
      e2:SetType(EFFECT_TYPE_QUICK_O)
      e2:SetCode(EVENT_FREE_CHAIN)
      e2:SetRange(LOCATION_SZONE)
      e2:SetCountLimit(1,id)
      e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER)
      e2:SetCondition(s.condition)
      e2:SetTarget(s.target)
      e2:SetOperation(s.operation)
      c:RegisterEffect(e2)
      --to grave
      local e3=Effect.CreateEffect(c)
      e3:SetDescription(aux.Stringid(id,2))
      e3:SetCategory(CATEGORY_TOGRAVE)
      e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_F)
      e3:SetCode(EVENT_PHASE+PHASE_END)
      e3:SetRange(LOCATION_SZONE)
      e3:SetCountLimit(1)
      e3:SetCondition(s.tgcon)
      e3:SetTarget(s.tgtg)
      e3:SetOperation(s.tgop)
      c:RegisterEffect(e3)
      end
      function s.cfilter(c)
      return c:IsFaceup() and c:IsSetCard(0x17c)
      end
      function s.condition(e,tp,eg,ep,ev,re,r,rp)
      return Duel.IsExistingMatchingCard(s.cfilter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsControler(1-tp) and chkc:IsLocation(LOCATION_MZONE) and chkc:IsFaceup() end
      if chk==0 then return Duel.IsExistingTarget(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
      Duel.SelectTarget(tp,Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil)
      end
      function s.operation(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() and tc:IsType(TYPE_MONSTER) then
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
      e1:SetCode(EFFECT_CANNOT_BE_LINK_MATERIAL)
      e1:SetRange(LOCATION_MZONE)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      e1:SetValue(1)
      tc:RegisterEffect(e1)
      local e3=e1:Clone()
      e3:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
      e3:SetValue(s.fuslimit)
      tc:RegisterEffect(e3)
      local e4=e1:Clone()
      e4:SetCode(EFFECT_CANNOT_BE_SYNCHRO_MATERIAL)
      tc:RegisterEffect(e4)
      local e5=e1:Clone()
      e5:SetCode(EFFECT_CANNOT_BE_XYZ_MATERIAL)
      e5:SetDescription(aux.Stringid(id,1))
      e5:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CLIENT_HINT)
      tc:RegisterEffect(e5)
      end
      end
      function s.fuslimit(e,c,sumtype)
      return sumtype==SUMMON_TYPE_FUSION
      end
      function s.filter(c)
      return c:IsFaceup() and c:IsSetCard(0x17c) and c:IsType(TYPE_RITUAL)
      end
      function s.tgcon(e,tp,eg,ep,ev,re,r,rp)
      return not Duel.IsExistingMatchingCard(s.filter,tp,LOCATION_MZONE,0,1,nil)
      end
      function s.tgtg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return true end
      Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,e:GetHandler(),1,0,0)
      end
      function s.tgop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if c:IsRelateToEffect(e) then Duel.SendtoGrave(c,REASON_EFFECT) end
      end
      script/c47558785.lua deleted 100644 → 0
      View file @ 5af4f726
      --マイルド・ターキー
      function c47558785.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --scale change
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(47558785,0))
      e1:SetCategory(CATEGORY_DICE)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1)
      e1:SetTarget(c47558785.sctg)
      e1:SetOperation(c47558785.scop)
      c:RegisterEffect(e1)
      end
      c47558785.toss_dice=true
      c47558785.toss_dice_in_pendulum_only=true
      function c47558785.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():GetLeftScale()>1 end
      Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
      end
      function c47558785.scop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or c:GetLeftScale()<=1 then return end
      local dc=Duel.TossDice(tp,1)
      local sch=math.min(c:GetLeftScale()-1,dc)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LSCALE)
      e1:SetValue(-sch)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_RSCALE)
      c:RegisterEffect(e2)
      end
      script/c77994337.lua deleted 100644 → 0
      View file @ 5af4f726
      --ハロハロ
      function c77994337.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --level
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(77994337,0))
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1)
      e1:SetTarget(c77994337.lvtg)
      e1:SetOperation(c77994337.lvop)
      c:RegisterEffect(e1)
      end
      c77994337.toss_dice=true
      c77994337.toss_dice_in_pendulum_only=true
      function c77994337.lvfilter(c)
      return c:IsFaceup() and c:GetLevel()>0
      end
      function c77994337.lvtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
      if chkc then return chkc:IsLocation(LOCATION_MZONE) and c77994337.lvfilter(chkc) end
      if chk==0 then return Duel.IsExistingTarget(c77994337.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
      Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
      Duel.SelectTarget(tp,c77994337.lvfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
      end
      function c77994337.lvop(e,tp,eg,ep,ev,re,r,rp)
      local tc=Duel.GetFirstTarget()
      if tc:IsRelateToEffect(e) and tc:IsFaceup() then
      local dc=Duel.TossDice(tp,1)
      local e1=Effect.CreateEffect(e:GetHandler())
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_CHANGE_LEVEL)
      e1:SetValue(dc)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
      tc:RegisterEffect(e1)
      end
      end
      script/c84046493.lua deleted 100644 → 0
      View file @ 5af4f726
      --ゴースト・ビーフ
      function c84046493.initial_effect(c)
      --pendulum summon
      aux.EnablePendulumAttribute(c)
      --scale change
      local e1=Effect.CreateEffect(c)
      e1:SetDescription(aux.Stringid(84046493,0))
      e1:SetCategory(CATEGORY_DICE)
      e1:SetType(EFFECT_TYPE_IGNITION)
      e1:SetRange(LOCATION_PZONE)
      e1:SetCountLimit(1)
      e1:SetTarget(c84046493.sctg)
      e1:SetOperation(c84046493.scop)
      c:RegisterEffect(e1)
      end
      c84046493.toss_dice=true
      c84046493.toss_dice_in_pendulum_only=true
      function c84046493.sctg(e,tp,eg,ep,ev,re,r,rp,chk)
      if chk==0 then return e:GetHandler():GetLeftScale()<10 end
      Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
      end
      function c84046493.scop(e,tp,eg,ep,ev,re,r,rp)
      local c=e:GetHandler()
      if not c:IsRelateToEffect(e) or c:GetLeftScale()>=10 then return end
      local dc=Duel.TossDice(tp,1)
      local sch=math.min(10-c:GetLeftScale(),dc)
      local e1=Effect.CreateEffect(c)
      e1:SetType(EFFECT_TYPE_SINGLE)
      e1:SetCode(EFFECT_UPDATE_LSCALE)
      e1:SetValue(sch)
      e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE+RESET_PHASE+PHASE_END)
      c:RegisterEffect(e1)
      local e2=e1:Clone()
      e2:SetCode(EFFECT_UPDATE_RSCALE)
      c:RegisterEffect(e2)
      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