strings and delete

expansions/lflist.conf

@@ -465,12 +465,6 @@
 30558008 0 --破灭幻械 -[创造者]-
 30558009 1 --破灭幻械 -[智眼]-
 30558013 0 --破灭幻械 注魂
-#314
-31400001 0 --超热血捕手
-31400012 0 --永恒的温柔
-31400049 1 --岩热炎龙机
-31470003 0 --红移舌代谢龙
-31470005 0 --白音齿真理龙
 #328
 32828002 1 --风卷浪
 #333
@@ -857,7 +851,6 @@
 65010537 0 --白魔军魂 苏亚雷斯
 65010539 0 --白魔军魂 安娜斯塔西亚
 65010543 1 --白魔军魂 高尔博斯托
-65020211 0 --虚拟水神剑士
 65020212 0 --行星驱逐舰 风雪游隼号
 65020213 0 --「六兆年零一夜物语」凑友希那
 #650-2

expansions/script/c10904020.lua

@@ -40,7 +40,7 @@ function cm.sumsuc(e,tp,eg,ep,ev,re,r,rp)
 	Duel.RegisterEffect(e1,tp)
 end
 function cm.actlimit(e,re,tp)
-	return re:IsActiveType(TYPE_MONSTER) and not re:GetHandler():IsImmuneToEffect(e)
+	return re:IsActiveType(TYPE_MONSTER) and re:GetActivateLocation()==LOCATION_MZONE
 end
 function cm.lvfilter(c,tp)
 	local LeftScale=c:GetLeftScale()

expansions/script/c31400001.lua

---超热血捕手
-function c31400001.initial_effect(c)
-  local e1=Effect.CreateEffect(c)
-  e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
-  e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-  e1:SetCode(EVENT_DAMAGE)
-  e1:SetRange(LOCATION_HAND)
-  e1:SetCondition(c31400001.con)
-  e1:SetTarget(c31400001.tg)
-  e1:SetOperation(c31400001.hop)
-  c:RegisterEffect(e1)
-  local e2=Effect.CreateEffect(c)
-  e2:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_DAMAGE)
-  e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-  e2:SetCode(EVENT_DAMAGE)
-  e2:SetRange(LOCATION_GRAVE)
-  e2:SetCondition(c31400001.con)
-  e2:SetTarget(c31400001.tg)
-  e2:SetOperation(c31400001.gop)
-  c:RegisterEffect(e2)
-end
-function c31400001.con(e,tp,eg,ep,ev,re,r,rp)
-	return ep~=tp and bit.band(r,REASON_EFFECT)~=0
-end
-function c31400001.tg(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)
-  Duel.SetOperationInfo(0,CATEGORY_DAMAGE,nil,0,tp,ev)
-end
-function c31400001.hop(e,tp,eg,ep,ev,re,r,rp)
-  local c=e:GetHandler()
-  local val=Duel.Damage(1-tp,ev,REASON_EFFECT)
-  if c:IsRelateToEffect(e) then
-	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-  end
-end
-function c31400001.gop(e,tp,eg,ep,ev,re,r,rp)
-  local c=e:GetHandler()
-  local val=Duel.Damage(1-tp,ev,REASON_EFFECT)
-  if c:IsRelateToEffect(e) then
-	Duel.SpecialSummon(c,0,tp,tp,false,false,POS_FACEUP)
-	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,true)
-  end
-end
\ No newline at end of file

expansions/script/c31400002.lua

---超热血跑者
-function c31400002.initial_effect(c)
-  local e1=Effect.CreateEffect(c)
-  e1:SetType(EFFECT_TYPE_FIELD)
-  e1:SetCode(EFFECT_SPSUMMON_PROC)
-  e1:SetRange(LOCATION_HAND)
-  e1:SetCondition(c31400002.spcon)
-  e1:SetValue(1)
-  c:RegisterEffect(e1)
-  local e2=Effect.CreateEffect(c)
-  e2:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-  e2:SetType(EFFECT_TYPE_IGNITION)
-  e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-  e2:SetRange(LOCATION_MZONE)
-  e2:SetCountLimit(1,31400002)
-  e2:SetTarget(c31400002.seatg)
-  e2:SetOperation(c31400002.seaop)
-  c:RegisterEffect(e2)
-end
-function c31400002.spcon(e,c)
-  if c==nil then return true end
-  return Duel.GetLocationCount(c:GetControler(),LOCATION_MZONE)>0
-	and Duel.IsExistingMatchingCard(c31400002.spfilter,c:GetControler(),LOCATION_MZONE,0,1,nil)
-end
-function c31400002.spfilter(c)
-	return c:IsFaceup() and c:IsRace(RACE_WARRIOR) and c:GetLevel()==3 and c:IsAttribute(ATTRIBUTE_FIRE)
-end
-function c31400002.seatg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-  if chkc then return chkc:IsOnField() and chkc:IsControler(tp) end
-  if chk==0 then return Duel.IsExistingTarget(c31400002.tg,tp,LOCATION_ONFIELD,0,1,nil) end
-  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TARGET)
-  local g=Duel.SelectTarget(tp,c31400002.tg,tp,LOCATION_ONFIELD,0,1,1,nil)
-  Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c31400002.tg(c)
-  return c:IsFaceup() and c:IsRace(RACE_WARRIOR) and c:GetLevel()==3 and c:IsAttribute(ATTRIBUTE_FIRE) and c:GetAttack()>=500
-end
-function c31400002.seaop(e,tp,eg,ep,ev,re,r,rp)
-  local tc=Duel.GetFirstTarget()
-  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-  local g=Duel.SelectMatchingCard(tp,c31400002.filter,tp,LOCATION_DECK,0,0,math.floor(tc:GetAttack()/500),nil)
-  if g:GetCount()>0 then
-  Duel.SendtoHand(g,nil,REASON_EFFECT)
-  Duel.ConfirmCards(1-tp,g)
-  end
-end
-function c31400002.filter(c)
-  return c:IsRace(RACE_WARRIOR) and c:GetLevel()==3 and c:IsAttribute(ATTRIBUTE_FIRE)
-end
\ No newline at end of file

expansions/script/c31400003.lua

---超热血王牌
-function c31400003.initial_effect(c)
-  local e1=Effect.CreateEffect(c)
-  e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-  e1:SetType(EFFECT_TYPE_TRIGGER_O+EFFECT_TYPE_SINGLE)
-  e1:SetCode(EVENT_SUMMON_SUCCESS)
-  e1:SetCountLimit(1,31400003)
-  e1:SetTarget(c31400003.seatg)
-  e1:SetOperation(c31400003.seaop)
-  c:RegisterEffect(e1)
-  local e2=Effect.CreateEffect(c)
-  e2:SetCategory(CATEGORY_SPECIAL_SUMMON)
-  e2:SetType(EFFECT_TYPE_IGNITION)
-  e2:SetRange(LOCATION_MZONE)
-  e2:SetCountLimit(1)
-  e2:SetCost(c31400003.spcost)
-  e2:SetTarget(c31400003.sptg)
-  e2:SetOperation(c31400003.spop)
-  c:RegisterEffect(e2)
-end
-function c31400003.filter(c)
-  return c:IsRace(RACE_WARRIOR) and c:IsLevel(3) and c:IsAttribute(ATTRIBUTE_FIRE)
-end
-function c31400003.seatg(e,tp,eg,ep,ev,re,r,rp,chk)
-  if chk==0 then return Duel.IsExistingMatchingCard(c31400003.filter,tp,LOCATION_DECK,0,1,nil) end
-  Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function c31400003.seaop(e,tp,eg,ep,ev,re,r,rp)
-  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-  local g=Duel.SelectMatchingCard(tp,c31400003.filter,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 c31400003.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-  if chk==0 then return Duel.CheckReleaseGroup(tp,c31400003.filter,1,nil,tp) end
-  local g=Duel.SelectReleaseGroup(tp,c31400003.filter,1,1,nil,tp)
-  Duel.Release(g,REASON_COST)
-end
-function c31400003.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-  if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>-1
-	and Duel.IsExistingMatchingCard(c31400003.filter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-  Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function c31400003.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,c31400003.filter,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
\ No newline at end of file

expansions/script/c31400004.lua

---超热血教练
-function c31400004.initial_effect(c)
-	c:EnableReviveLimit()
-	aux.AddLinkProcedure(c,c31400004.filter,1,1)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_IGNITION)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetTarget(c31400004.stg)
-	e1:SetCost(c31400004.scost)
-	e1:SetOperation(c31400004.scop)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_FIELD)
-	e2:SetCode(EFFECT_UPDATE_ATTACK)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetTargetRange(LOCATION_MZONE,0)
-	e2:SetTarget(c31400004.attg)
-	e2:SetCondition(c31400004.atcon)
-	e2:SetValue(c31400004.val)
-	c:RegisterEffect(e2)
-end
-function c31400004.filter(c)
-  return c:IsRace(RACE_WARRIOR) and c:IsLevel(3) and c:IsAttribute(ATTRIBUTE_FIRE)
-end
-function c31400004.scosfilter(c)
-  return c31400004.filter(c) and c:IsAbleToGraveAsCost()
-end
-function c31400004.sfilter(c)
-  return c31400004.filter(c) and c:IsSummonable(true,nil)
-end
-function c31400004.stg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c31400004.sfilter,tp,LOCATION_HAND,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_SUMMON,nil,1,0,0)
-	Duel.SetChainLimit(aux.FALSE)
-end
-function c31400004.scost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(c31400004.scosfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,c31400004.filter,tp,LOCATION_DECK,0,1,1,nil,lv)
-	Duel.SendtoGrave(g,REASON_COST)
-end
-function c31400004.scop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SUMMON)
-	local g=Duel.SelectMatchingCard(tp,c31400004.filter,tp,LOCATION_HAND,0,1,1,nil)
-	local tc=g:GetFirst()
-	if tc then
-		Duel.Summon(tp,tc,true,nil)
-	end
-end
-function c31400004.atcon(e)
-	return e:GetHandler():GetSequence()>4
-end
-function c31400004.attg(e,c)
-	return c31400004.filter(c)
-end
-
-function c31400004.val(e,c)
-	return Duel.GetMatchingGroupCount(c31400004.filter,c:GetControler(),LOCATION_MZONE,nil,nil)*1000
-end

expansions/script/c31400012.lua

-local m=31400012
-local cm=_G["c"..m]
-cm.name="永恒的温柔"
-function cm.initial_effect(c)   
-  local e1=Effect.CreateEffect(c)
-  e1:SetCategory(CATEGORY_DESTROY)
-  e1:SetType(EFFECT_TYPE_ACTIVATE)
-  e1:SetCode(EVENT_FREE_CHAIN)
-  e1:SetHintTiming(0,TIMING_END_PHASE+TIMING_EQUIP)
-  e1:SetProperty(EFFECT_FLAG_CARD_TARGET)
-  e1:SetCost(cm.cost)
-  e1:SetTarget(cm.target)
-  e1:SetOperation(cm.activate)
-  c:RegisterEffect(e1)
-  --act in set turn
-  local e2=Effect.CreateEffect(c)
-  e2:SetType(EFFECT_TYPE_SINGLE)
-  e2:SetCode(EFFECT_QP_ACT_IN_SET_TURN)
-  e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
-  c:RegisterEffect(e2)
-end
-function cm.filter(c)
-  return c:IsType(TYPE_MONSTER)
-end
-function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
-  if chk==0 then return Duel.CheckLPCost(tp,1000) end
-  Duel.PayLPCost(tp,1000)
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-  if chkc then return chkc:IsOnField() and cm.filter(chkc) and chkc~=e:GetHandler() end
-  if chk==0 then return Duel.IsExistingTarget(cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,e:GetHandler()) end
-  Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-  local g=Duel.SelectTarget(tp,cm.filter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,e:GetHandler())
-  Duel.SetOperationInfo(0,CATEGORY_DESTROY,g,1,0,0)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-  local tc=Duel.GetFirstTarget()
-  if tc:IsRelateToEffect(e) then
-	Duel.Destroy(tc,REASON_EFFECT)
-  end
-  local c=e:GetHandler()
-  if c:IsRelateToEffect(e) and c:IsCanTurnSet() then
-	Duel.BreakEffect()
-	c:CancelToGrave()
-	Duel.ChangePosition(c,POS_FACEDOWN)
-	Duel.RaiseEvent(c,EVENT_SSET,e,REASON_EFFECT,tp,tp,0)
-  end
-end
\ No newline at end of file

expansions/script/c31400015.lua

-local m=31400015
-local cm=_G["c"..m]
-cm.name="龙血融合"
-function cm.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_FUSION_SUMMON+CATEGORY_DECKDES)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetCountLimit(1,31400015+EFFECT_COUNT_CODE_OATH)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)	
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_TOHAND)
-	e2:SetType(EFFECT_TYPE_IGNITION)
-	e2:SetRange(LOCATION_GRAVE)
-	e2:SetCost(cm.thcost)
-	e2:SetTarget(cm.thtg)
-	e2:SetOperation(cm.thop)
-	c:RegisterEffect(e2)
-end
-function cm.filter0(c)
-	return c:IsType(TYPE_MONSTER) and c:IsCanBeFusionMaterial() and c:IsAbleToGrave()
-end
-function cm.filter1(c,e)
-	return not c:IsImmuneToEffect(e)
-end
-function cm.filter2(c,e,tp,m,f,chkf)
-	return c:IsType(TYPE_FUSION) and (c:IsRace(RACE_DINOSAUR) or c:IsRace(RACE_REPTILE) or c:IsRace(RACE_WINDBEAST)) and (not f or f(c)) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_FUSION,tp,false,false) and c:CheckFusionMaterial(m,nil,chkf)
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then
-		local chkf=tp
-		local mg1=Duel.GetFusionMaterial(tp)
-		if Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0)==0 then
-			local mg2=Duel.GetMatchingGroup(cm.filter0,tp,LOCATION_DECK,0,nil)
-			mg1:Merge(mg2)
-		end
-		local res=Duel.IsExistingMatchingCard(cm.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 mg3=fgroup(ce,e,tp)
-				local mf=ce:GetValue()
-				res=Duel.IsExistingMatchingCard(cm.filter2,tp,LOCATION_EXTRA,0,1,nil,e,tp,mg3,mf,chkf)
-			end
-		end
-		return res
-	end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_EXTRA)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	local chkf=tp
-	local mg1=Duel.GetFusionMaterial(tp):Filter(cm.filter1,nil,e)
-	if Duel.GetFieldGroupCount(e:GetHandler():GetControler(),LOCATION_MZONE,0)==0 then
-		local mg2=Duel.GetMatchingGroup(cm.filter0,tp,LOCATION_DECK,0,nil)
-		mg1:Merge(mg2)
-	end
-	local sg1=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg1,nil,chkf)
-	local mg3=nil
-	local sg2=nil
-	local ce=Duel.GetChainMaterial(tp)
-	if ce~=nil then
-		local fgroup=ce:GetTarget()
-		mg3=fgroup(ce,e,tp)
-		local mf=ce:GetValue()
-		sg2=Duel.GetMatchingGroup(cm.filter2,tp,LOCATION_EXTRA,0,nil,e,tp,mg3,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,mg3,nil,chkf)
-			local fop=ce:GetOperation()
-			fop(ce,e,tp,tc,mat2)
-		end
-		tc:CompleteProcedure()
-	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
-function cm.thfilter(c)
-	return c:IsCode(31400015) and c:IsAbleToRemoveAsCost()
-end
-function cm.thcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,cm.thfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToHand() end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,e:GetHandler(),1,0,0)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	if c:IsRelateToEffect(e) then
-		Duel.SendtoHand(c,nil,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,c)
-	end
-end

expansions/script/c31400045.lua

-local m=31400045
-local cm=_G["c"..m]
-cm.name="未定命『命莲托生』"
-function cm.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e1:SetType(EFFECT_TYPE_ACTIVATE)
-	e1:SetCode(EVENT_FREE_CHAIN)
-	e1:SetTarget(cm.target)
-	e1:SetOperation(cm.activate)
-	c:RegisterEffect(e1)
-end
-function cm.filter(c,e,tp)
-	return c:IsCanBeSpecialSummoned(e,0,tp,false,false) and Duel.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_GRAVE,0,nil,c:GetCode())>0
-end
-function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_HAND+LOCATION_DECK,0,1,nil,e,tp) and Duel.GetMZoneCount(tp)>0 end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK+LOCATION_HAND)
-end
-function cm.activate(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.GetMZoneCount(tp)<=0 then return end
-	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_DECK+LOCATION_HAND,0,1,1,nil,e,tp)
-	if g then
-		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
-	end
-end
\ No newline at end of file

expansions/script/c31400046.lua

-local m=31400046
-local cm=_G["c"..m]
-cm.name="炎龙机士-龙飞"
-function cm.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e1:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
-	e1:SetProperty(EFFECT_FLAG_DELAY)
-	e1:SetCountLimit(1,131470046)
-	e1:SetTarget(cm.thtg)
-	e1:SetOperation(cm.thop)
-	c:RegisterEffect(e1)
-	local e2=e1:Clone()
-	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_GRAVE)
-	e3:SetCountLimit(1,231470046)
-	e3:SetCost(cm.spcost)
-	e3:SetTarget(cm.sptg)
-	e3:SetOperation(cm.spop)
-	c:RegisterEffect(e3)
-end
-function cm.thfilter(c)
-	return c:IsRace(RACE_DRAGON) and c:IsSetCard(0x5312) and c:IsAbleToHand()
-end
-function cm.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.thfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
-end
-function cm.thop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.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 cm.cfilter(c)
-	return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsAbleToRemoveAsCost()
-end
-function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsAbleToRemoveAsCost() and Duel.IsExistingMatchingCard(cm.cfilter,tp,LOCATION_GRAVE,0,1,e:GetHandler()) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,cm.cfilter,tp,LOCATION_GRAVE,0,1,1,e:GetHandler())
-	g:AddCard(e:GetHandler())
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.spfilter(c,e,tp)
-	return c:IsSetCard(0x5312) and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>0 and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_DECK,0,1,nil,e,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_DECK)
-end
-function cm.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,cm.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_DEFENSE)
-	end
-end
\ No newline at end of file

expansions/script/c31400047.lua

-local m=31400047
-local cm=_G["c"..m]
-cm.name="神炎龙机王-红苍牙"
-function cm.initial_effect(c)
-	c:EnableReviveLimit()
-	aux.AddFusionProcCodeFun(c,31400046,cm.fmfilter,1,true,true)
-	aux.AddContactFusionProcedure(c,cm.cfmfilter,LOCATION_ONFIELD,0,Duel.SendtoHand,nil,REASON_MATERIAL)
-	local e0=Effect.CreateEffect(c)
-	e0:SetType(EFFECT_TYPE_SINGLE)
-	e0:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
-	e0:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e0:SetValue(cm.splimit)
-	--c:RegisterEffect(e0)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
-	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
-	e1:SetTargetRange(0,1)
-	e1:SetRange(LOCATION_MZONE)
-	e1:SetCondition(cm.actcon)
-	e1:SetValue(1)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetRange(LOCATION_MZONE)
-	e2:SetCountLimit(1)
-	e2:SetCondition(cm.spcon)
-	e2:SetTarget(cm.sptg)
-	e2:SetOperation(cm.spop)
-	c:RegisterEffect(e2)
-end
-function cm.splimit(e,se,sp,st)
-	return e:GetHandler():GetLocation()~=LOCATION_EXTRA
-end
-function cm.fmfilter(c)
-	return c:IsLevelAbove(5) and c:IsFusionAttribute(ATTRIBUTE_FIRE) and c:IsRace(RACE_DRAGON)
-end
-function cm.cfmfilter(c)
-	return cm.fmfilter(c) or c:IsFusionCode(31400046) and c:IsAbleToHandAsCost()
-end
-function cm.actcon(e)
-	local ph=Duel.GetCurrentPhase()
-	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
-end
-function cm.spcon(e,tp,eg,ep,ev,re,r,rp)
-	local ph=Duel.GetCurrentPhase()
-	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
-end
-function cm.sptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.GetFieldGroupCount(tp,LOCATION_DECK,0)>=3 end
-end
-function cm.spop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	Duel.ConfirmDecktop(tp,3)
-	local g=Duel.GetDecktopGroup(tp,3)
-	local gf=g:Filter(Card.IsAttribute,nil,ATTRIBUTE_FIRE)
-	local count1=gf:GetCount()
-	local count2=g:FilterCount(Card.IsSetCard,nil,0x5312)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_SINGLE)
-	e1:SetCode(EFFECT_UPDATE_ATTACK)
-	e1:SetValue(1000*count1)
-	e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_DISABLE)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE)
-	e2:SetCode(EFFECT_EXTRA_ATTACK)
-	e2:SetValue(count2)
-	e2:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
-	c:RegisterEffect(e2)
-	Duel.BreakEffect()
-	Duel.SendtoGrave(gf,REASON_EFFECT)
-	Duel.ShuffleDeck(tp)
-end
\ No newline at end of file

expansions/script/c31400048.lua

-local m=31400048
-local cm=_G["c"..m]
-cm.name="炎龙机"
-function cm.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_DECK)
-	e1:SetCondition(cm.dspcon)
-	e1:SetOperation(cm.dspop)
-	e1:SetValue(1)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_DESTROY)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_FREE_CHAIN)
-	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCondition(cm.descon)
-	e2:SetCost(cm.descost)
-	e2:SetTarget(cm.destg)
-	e2:SetOperation(cm.desop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e3:SetCode(EVENT_BE_MATERIAL)
-	e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
-	e3:SetCondition(cm.indcon)
-	e3:SetOperation(cm.indop)
-	c:RegisterEffect(e3)
-end
-function cm.cfilter(c)
-	return c:IsCode(31400049) and c:IsAbleToGraveAsCost()
-end
-function cm.dspcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	return ft>-1 and Duel.CheckReleaseGroupEx(tp,cm.cfilter,1,nil,ft,tp)
-end
-function cm.dspop(e,tp,eg,ep,ev,re,r,rp,c)
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	local g=Duel.SelectReleaseGroupEx(tp,cm.cfilter,1,1,nil,ft,tp)
-	Duel.Release(g,REASON_COST)
-end
-function cm.desfilter(c)
-	return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsPosition(POS_FACEUP)
-end
-function cm.descon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsExistingMatchingCard(cm.desfilter,tp,LOCATION_MZONE,0,1,nil)
-end
-function cm.descost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDiscardable() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
-end
-function cm.destg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
-	if chkc then return chkc:IsLocation(LOCATION_MZONE) end
-	if chk==0 then return Duel.IsExistingTarget(nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DESTROY)
-	Duel.SelectTarget(tp,nil,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil)
-end
-function cm.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 cm.indcon(e,tp,eg,ep,ev,re,r,rp)
-	return true
-end
-function cm.indop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local rc=c:GetReasonCard()
-	if rc:IsType(TYPE_FUSION) then
-		local e1=Effect.CreateEffect(c)
-		e1:SetDescription(aux.Stringid(31400048,0))
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT)
-		e1:SetCode(EFFECT_DIRECT_ATTACK)
-		e1:SetValue(1)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		rc:RegisterEffect(e1,true)
-	end
-end
\ No newline at end of file

expansions/script/c31400049.lua

-local m=31400049
-local cm=_G["c"..m]
-cm.name="岩热炎龙机"
-function cm.initial_effect(c)
-	local e1=Effect.CreateEffect(c)
-	e1:SetType(EFFECT_TYPE_FIELD)
-	e1:SetCode(EFFECT_SPSUMMON_PROC)
-	e1:SetProperty(EFFECT_FLAG_UNCOPYABLE)
-	e1:SetRange(LOCATION_DECK)
-	e1:SetCondition(cm.dspcon)
-	e1:SetOperation(cm.dspop)
-	e1:SetValue(1)
-	c:RegisterEffect(e1)
-	local e2=Effect.CreateEffect(c)
-	e2:SetCategory(CATEGORY_NEGATE)
-	e2:SetType(EFFECT_TYPE_QUICK_O)
-	e2:SetCode(EVENT_CHAINING)
-	e2:SetProperty(EFFECT_FLAG_DAMAGE_STEP+EFFECT_FLAG_DAMAGE_CAL)
-	e2:SetRange(LOCATION_HAND)
-	e2:SetCondition(cm.discon)
-	e2:SetCost(cm.discost)
-	e2:SetTarget(cm.distg)
-	e2:SetOperation(cm.disop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e3:SetCode(EVENT_BE_MATERIAL)
-	e3:SetProperty(EFFECT_FLAG_EVENT_PLAYER)
-	e3:SetCondition(cm.indcon)
-	e3:SetOperation(cm.indop)
-	c:RegisterEffect(e3)
-end
-function cm.cfilter(c)
-	return c:IsCode(31400048) and c:IsAbleToGraveAsCost()
-end
-function cm.dspcon(e,c)
-	if c==nil then return true end
-	local tp=c:GetControler()
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	return ft>-1 and Duel.CheckReleaseGroupEx(tp,cm.cfilter,1,nil,ft,tp)
-end
-function cm.dspop(e,tp,eg,ep,ev,re,r,rp,c)
-	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
-	local g=Duel.SelectReleaseGroupEx(tp,cm.cfilter,1,1,nil,ft,tp)
-	Duel.Release(g,REASON_COST)
-end
-function cm.disfilter(c)
-	return c:IsAttribute(ATTRIBUTE_FIRE) and c:IsPosition(POS_FACEUP)
-end
-function cm.discon(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.IsChainNegatable(ev) and Duel.IsExistingMatchingCard(cm.disfilter,tp,LOCATION_MZONE,0,1,nil)
-end
-function cm.discost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDiscardable() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_COST+REASON_DISCARD)
-end
-function cm.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 cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.NegateActivation(ev) then
-		if re:IsHasType(EFFECT_TYPE_ACTIVATE) and re:GetHandler():IsRelateToEffect(re) then
-			Duel.SendtoGrave(eg,REASON_EFFECT)
-		end
-	end
-end
-function cm.indcon(e,tp,eg,ep,ev,re,r,rp)
-	return true
-end
-function cm.indop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local rc=c:GetReasonCard()
-	if rc:IsType(TYPE_FUSION) then
-		local e1=Effect.CreateEffect(c)
-		e1:SetDescription(aux.Stringid(31400049,0))
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_CLIENT_HINT+EFFECT_FLAG_SINGLE_RANGE)
-		e1:SetCode(EFFECT_IMMUNE_EFFECT)
-		e1:SetValue(cm.efilter)
-		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		rc:RegisterEffect(e1,true)
-	end
-end
-function cm.efilter(e,te)
-	return te:GetOwnerPlayer()~=e:GetHandlerPlayer()
-end
\ No newline at end of file

expansions/script/c31430001.lua

-local m=31430001
-local cm=_G["c"..m]
-cm.name="机械本我"
-function cm.initial_effect(c)
-	aux.EnablePendulumAttribute(c)
-	local e2=Effect.CreateEffect(c)
-	e2:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_CONTINUOUS)
-	e2:SetCode(EVENT_TO_GRAVE)
-	e2:SetOperation(cm.rlvcop)
-	c:RegisterEffect(e2)
-	local e3=Effect.CreateEffect(c)
-	e3:SetDescription(aux.Stringid(31430001,1))
-	e3:SetCategory(CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e3:SetType(EFFECT_TYPE_IGNITION)
-	e3:SetRange(LOCATION_PZONE)
-	e3:SetCountLimit(1,131430001)
-	e3:SetCost(cm.pcost)
-	e3:SetTarget(cm.ptg)
-	e3:SetOperation(cm.pop)
-	c:RegisterEffect(e3)
-	local e4=Effect.CreateEffect(c)
-	e4:SetDescription(aux.Stringid(31430001,2))
-	e4:SetCategory(CATEGORY_TOGRAVE)
-	e4:SetType(EFFECT_TYPE_IGNITION)
-	e4:SetRange(LOCATION_HAND)
-	e4:SetCountLimit(1,231430001)
-	e4:SetCost(cm.discost)
-	e4:SetTarget(cm.distg)
-	e4:SetOperation(cm.disop)
-	c:RegisterEffect(e4)
-	local e5=Effect.CreateEffect(c)
-	e5:SetDescription(aux.Stringid(31430001,3))
-	e5:SetCategory(CATEGORY_TOGRAVE+CATEGORY_TOHAND+CATEGORY_SEARCH)
-	e5:SetProperty(EFFECT_FLAG_CANNOT_INACTIVATE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CANNOT_NEGATE)
-	e5:SetType(EFFECT_TYPE_IGNITION)
-	e5:SetRange(LOCATION_HAND)
-	e5:SetCountLimit(1,231430001)
-	e5:SetCost(cm.disscost)
-	e5:SetTarget(cm.disstg)
-	e5:SetOperation(cm.dissop)
-	c:RegisterEffect(e5)
-end
-function cm.rlvcop(e,tp,eg,ep,ev,re,r,rp)
-	local c=e:GetHandler()
-	local g=Duel.GetMatchingGroup(aux.FilterBoolFunction(Card.IsCode,31430001),tp,0xff,0,nil)
-	local tc=g:GetFirst()
-	while tc do
-		local e1=Effect.CreateEffect(c)
-		e1:SetDescription(aux.Stringid(31430001,0))
-		e1:SetType(EFFECT_TYPE_SINGLE)
-		e1:SetProperty(EFFECT_FLAG_UNCOPYABLE+EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_CLIENT_HINT)
-		e1:SetCode(EFFECT_RITUAL_LEVEL)
-		e1:SetValue(0x80004)
-		e1:SetReset(RESET_PHASE+PHASE_END)
-		tc:RegisterEffect(e1,true)
-		local e2=e1:Clone()
-		e2:SetCode(EFFECT_CHANGE_LSCALE)
-		e2:SetValue(8)
-		tc:RegisterEffect(e2,true)
-		local e3=e2:Clone()
-		e3:SetCode(EFFECT_CHANGE_RSCALE)
-		tc:RegisterEffect(e3,true)
-		tc=g:GetNext()
-	end
-end
-function cm.pcostfilter(c)
-	return c:IsSetCard(0xc311) and c:IsType(TYPE_MONSTER) and c:IsAbleToRemoveAsCost()
-end
-function cm.pcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.pcostfilter,tp,LOCATION_GRAVE,0,1,nil) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g=Duel.SelectMatchingCard(tp,cm.pcostfilter,tp,LOCATION_GRAVE,0,1,1,nil)
-	Duel.Remove(g,POS_FACEUP,REASON_COST)
-end
-function cm.ptgfilter(c)
-	return c:IsSetCard(0xc311) and c:IsAbleToHand()
-end
-function cm.ptg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.ptgfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND+CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK)
-end
-function cm.pop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.ptgfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g then
-		Duel.SendtoHand(g,tp,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
-function cm.discost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():IsDiscardable() end
-	Duel.SendtoGrave(e:GetHandler(),REASON_DISCARD)
-end
-function cm.distgfilter(c)
-	return c:IsSetCard(0xc311) and c:IsType(TYPE_MONSTER) and c:IsAbleToGrave()
-end
-function cm.distg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.distgfilter,tp,LOCATION_DECK,0,1,nil) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
-end
-function cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TOGRAVE)
-	local g=Duel.SelectMatchingCard(tp,cm.distgfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g then
-		Duel.SendtoGrave(g,tp,REASON_EFFECT)
-	end
-end
-function cm.disscost(e,tp,eg,ep,ev,re,r,rp,chk)
-	local card=e:GetHandler()
-	if chk==0 then return e:GetHandler():IsDiscardable() and Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,card) end
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_DISCARD)
-	local g=Duel.SelectMatchingCard(tp,Card.IsDiscardable,tp,LOCATION_HAND,0,1,1,card)
-	g:AddCard(card)
-	Duel.SendtoGrave(g,REASON_DISCARD)
-end
-function cm.dissfilter(c)
-	return c:IsSetCard(0xc311) and c:IsType(TYPE_MONSTER) and c:IsAbleToHand()
-end
-function cm.disstgfilter(c,tp)
-	return cm.dissfilter(c) and Duel.IsExistingMatchingCard(cm.distgfilter,tp,LOCATION_DECK,0,1,c)
-end
-function cm.disstg(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return Duel.IsExistingMatchingCard(cm.disstgfilter,tp,LOCATION_DECK,0,1,nil,tp) end
-	Duel.SetOperationInfo(0,CATEGORY_TOGRAVE,nil,1,tp,LOCATION_DECK)
-	Duel.SetOperationInfo(0,CATEGORY_TOHAND+CATEGORY_SEARCH,nil,1,tp,LOCATION_DECK)
-end
-function cm.dissop(e,tp,eg,ep,ev,re,r,rp)
-	cm.disop(e,tp,eg,ep,ev,re,r,rp)
-	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATOHAND)
-	local g=Duel.SelectMatchingCard(tp,cm.dissfilter,tp,LOCATION_DECK,0,1,1,nil)
-	if g then
-		Duel.SendtoHand(g,tp,REASON_EFFECT)
-		Duel.ConfirmCards(1-tp,g)
-	end
-end
\ No newline at end of file