2024/1/16 新增：高天新卡

script/c120254050.lua

@@ -26,7 +26,7 @@ end
 function cm.thfilter(c)
 	return c:IsCode(list[1]) and c:IsAbleToHand()
 end
-cm.cost=RD.CostSendHandToDeckBottom(Card.IsAbleToDeckAsCost,2,2,false)
+cm.cost=RD.CostSendHandToDeck(Card.IsAbleToDeckAsCost,2,2,false)
 function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.GetMZoneCount(tp)>0
 		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end

script/c120257002.lua

+local m=120257002
+local cm=_G["c"..m]
+cm.name="高天炸药幻龙"
+function cm.initial_effect(c)
+	--Position
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_POSITION)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Position
+function cm.costfilter(c)
+	return c:IsAttribute(ATTRIBUTE_LIGHT) and c:IsAbleToDeckOrExtraAsCost()
+end
+function cm.posfilter(c)
+	return c:IsPosition(POS_FACEUP_ATTACK) and c:IsLevelAbove(7) and RD.IsCanChangePosition(c) and c:IsCanTurnSet()
+end
+cm.cost=RD.CostSendGraveToDeck(cm.costfilter,2,2)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,nil) end
+	local g=Duel.GetMatchingGroup(cm.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,nil)
+	Duel.SetOperationInfo(0,CATEGORY_POSITION,g,1,0,0)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_SET,cm.posfilter,tp,LOCATION_MZONE,LOCATION_MZONE,1,1,nil,function(g)
+		if RD.ChangePosition(g,POS_FACEDOWN_DEFENSE)~=0 then
+			Duel.BreakEffect()
+			Duel.ConfirmDecktop(tp,3)
+			Duel.ConfirmDecktop(1-tp,3)
+			Duel.SortDecktop(tp,tp,3)
+			Duel.SortDecktop(1-tp,1-tp,3)
+		end
+	end)
+end
\ No newline at end of file

script/c120257004.lua

+local m=120257004
+local list={120196050}
+local cm=_G["c"..m]
+cm.name="高天爪少女"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Summon Procedure
+	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,nil,cm.sumop)
+	--Special Summon
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetCategory(CATEGORY_SPECIAL_SUMMON+CATEGORY_GRAVE_SPSUMMON+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Summon Procedure
+function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c,mg)
+	--Change Base Attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_BASE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(200)
+	e1:SetReset(RESET_EVENT+0xff0000)
+	c:RegisterEffect(e1)
+end
+--Special Summon
+function cm.spfilter(c,e,tp)
+	return c:IsType(TYPE_NORMAL) and c:IsAttribute(ATTRIBUTE_LIGHT)
+		and RD.IsCanBeSpecialSummoned(c,e,tp,POS_FACEUP_DEFENSE)
+end
+function cm.thfilter(c)
+	return c:IsCode(list[1]) and c:IsAbleToHand()
+end
+cm.cost=RD.CostSendHandToDeckBottom(Card.IsAbleToDeckAsCost,2,2,false)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMZoneCount(tp)>0
+		and Duel.IsExistingMatchingCard(cm.spfilter,tp,LOCATION_GRAVE,0,1,nil,e,tp) end
+	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	if RD.SelectAndSpecialSummon(aux.NecroValleyFilter(cm.spfilter),tp,LOCATION_GRAVE,0,1,1,nil,e,POS_FACEUP_DEFENSE)~=0 then
+		RD.CanSelectAndDoAction(aux.Stringid(m,2),HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
+			Duel.BreakEffect()
+			RD.SendToHandAndExists(g,1-tp)
+		end)
+	end
+end
\ No newline at end of file

script/c120257005.lua

+local m=120257005
+local cm=_G["c"..m]
+cm.name="高天拖拉虎"
+function cm.initial_effect(c)
+	--Summon Procedure
+	RD.AddSummonProcedureOne(c,aux.Stringid(m,0),nil,nil,cm.sumop)
+	--Pierce
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,1))
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.condition)
+	e1:SetCost(cm.cost)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+--Summon Procedure
+function cm.sumop(e,tp,eg,ep,ev,re,r,rp,c,mg)
+	--Change Base Attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_SINGLE)
+	e1:SetCode(EFFECT_SET_BASE_ATTACK)
+	e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetValue(1800)
+	e1:SetReset(RESET_EVENT+0xff0000)
+	c:RegisterEffect(e1)
+end
+--Pierce
+function cm.costfilter(c)
+	return c:IsType(TYPE_MONSTER) and c:IsAbleToGraveAsCost()
+end
+function cm.filter(c)
+	return c:IsFaceup() and RD.IsCanAttachPierce(c)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsAbleToEnterBP()
+end
+cm.cost=RD.CostSendHandToGrave(cm.costfilter,1,1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(aux.Stringid(m,2),cm.filter,tp,LOCATION_MZONE,0,1,1,nil,function(g)
+		RD.AttachPierce(e,g:GetFirst(),aux.Stringid(m,3),RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end)
+end
\ No newline at end of file

script/c120257007.lua

@@ -9,7 +9,7 @@ function cm.initial_effect(c)
 	--Recover
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))
-	e1:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE)
+	e1:SetCategory(CATEGORY_RECOVER+CATEGORY_ATKCHANGE+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
 	e1:SetType(EFFECT_TYPE_IGNITION)
 	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
 	e1:SetRange(LOCATION_MZONE)

script/c120257037.lua

+local m=120257037
+local list={120257001}
+local cm=_G["c"..m]
+cm.name="高天贯通巨星"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Fusion Material
+	RD.AddFusionProcedure(c,list[1],cm.matfilter)
+	--Pierce
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_PIERCE)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(cm.prctg)
+	c:RegisterEffect(e1)
+	--Cannot Be Fusion Material
+	local e2=Effect.CreateEffect(c)
+	e2:SetType(EFFECT_TYPE_FIELD)
+	e2:SetCode(EFFECT_CANNOT_BE_FUSION_MATERIAL)
+	e2:SetProperty(EFFECT_FLAG_SET_AVAILABLE)
+	e2:SetRange(LOCATION_MZONE)
+	e2:SetTargetRange(LOCATION_MZONE,0)
+	e2:SetCondition(cm.fuscon)
+	e2:SetValue(cm.fuslimit)
+	c:RegisterEffect(e2)
+	--Continuous Effect
+	RD.AddContinuousEffect(c,e1,e2)
+end
+--Fusion Material
+cm.unspecified_funsion=true
+function cm.matfilter(c)
+	return c:IsLevelBelow(8) and c:IsFusionAttribute(ATTRIBUTE_LIGHT)
+end
+--Pierce
+function cm.prctg(e,c)
+	return c:IsLevelAbove(7) and c:IsAttribute(ATTRIBUTE_LIGHT)
+end
+--Cannot Be Fusion Material
+function cm.fuscon(e)
+	return Duel.GetTurnPlayer()~=e:GetHandlerPlayer()
+end
+function cm.fuslimit(e,c,sumtype)
+	return sumtype==SUMMON_TYPE_FUSION
+end
\ No newline at end of file

script/c120257038.lua

+local m=120257038
+local list={120257004}
+local cm=_G["c"..m]
+cm.name="高天猫攻击喵"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Fusion Material
+	RD.AddFusionProcedure(c,list[1],cm.matfilter)
+	--Atk Up
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_UPDATE_ATTACK)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(LOCATION_MZONE,0)
+	e1:SetTarget(cm.target)
+	e1:SetValue(200)
+	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_MZONE,0)
+	e2:SetTarget(cm.target)
+	e2:SetValue(cm.indval)
+	c:RegisterEffect(e2)
+	--Continuous Effect
+	RD.AddContinuousEffect(c,e1,e2)
+end
+--Fusion Material
+cm.unspecified_funsion=true
+function cm.matfilter(c)
+	return c:IsFusionAttribute(ATTRIBUTE_LIGHT)
+end
+--Atk Up
+function cm.target(e,c)
+	return c:IsFaceup() and c:IsLevelAbove(7) and c:IsAttribute(ATTRIBUTE_LIGHT)
+end
+--Indes
+cm.indval=RD.ValueEffectIndesType(0,TYPE_MONSTER+TYPE_SPELL+TYPE_TRAP)
\ No newline at end of file