2024/1/15 新增：骰子新卡

script/c120257009.lua

+local m=120257009
+local list={120257049}
+local cm=_G["c"..m]
+cm.name="骰子的天使"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--To Hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION+CATEGORY_DICE+CATEGORY_RECOVER)
+	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
+cm.toss_dice=true
+--To Hand
+function cm.costfilter(c)
+	return not c:IsCode(list[1]) and c:IsAbleToGraveAsCost()
+end
+function cm.thfilter(c)
+	return c:IsCode(list[1]) and c:IsAbleToHand()
+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.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
+		if RD.SendToHandAndExists(g,1-tp) and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>1 then
+			local d=Duel.TossDice(tp,1)
+			if d~=6 then
+				Duel.Recover(tp,600,REASON_EFFECT)
+			end
+		end
+	end)
+end
\ No newline at end of file

script/c120257010.lua

+local m=120257010
+local list={120257062}
+local cm=_G["c"..m]
+cm.name="骰子的恶魔"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--To Hand
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION+CATEGORY_DICE+CATEGORY_DAMAGE)
+	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
+cm.toss_dice=true
+--To Hand
+function cm.costfilter(c)
+	return not c:IsCode(list[1]) and c:IsAbleToGraveAsCost()
+end
+function cm.thfilter(c)
+	return c:IsCode(list[1]) and c:IsAbleToHand()
+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.thfilter,tp,LOCATION_GRAVE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	RD.SelectAndDoAction(HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(g)
+		if RD.SendToHandAndExists(g,1-tp) and Duel.GetFieldGroupCount(tp,0,LOCATION_MZONE)>1 then
+			local d=Duel.TossDice(tp,1)
+			if d~=1 then
+				Duel.Damage(1-tp,600,REASON_EFFECT)
+			end
+		end
+	end)
+end
\ No newline at end of file

script/c120257011.lua

+local m=120257011
+local cm=_G["c"..m]
+cm.name="骰子的大剑士"
+function cm.initial_effect(c)
+	--Multiple Attack
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_DRAW)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+cm.toss_dice=true
+--Multiple Attack
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return true end
+	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_GRAVE)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.TossDice(tp,1)
+	local c=e:GetHandler()
+	if c:IsFaceup() and c:IsRelateToEffect(e) and d>1 then
+		RD.AttachExtraAttack(e,c,d-1,aux.Stringid(m,d),RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end
+	if d<=3 then
+		RD.CanDraw(aux.Stringid(m,1),tp,1)
+	end
+end
\ No newline at end of file

script/c120257012.lua

+local m=120257012
+local list={120257049}
+local cm=_G["c"..m]
+cm.name="骰子的大天使"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Atk & Def Up
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+cm.toss_dice=true
+--Atk & Def Up
+function cm.exfilter(c)
+	return c:IsCode(list[1])
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	if g:GetCount()==0 then return end
+	local d=Duel.TossDice(tp,1)
+	local val=d*100
+	if Duel.IsExistingMatchingCard(cm.exfilter,tp,LOCATION_GRAVE,0,1,nil) then
+		val=d*200
+	end
+	g:ForEach(function(tc)
+		RD.AttachAtkDef(e,tc,val,val,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end)
+end
\ No newline at end of file

script/c120257013.lua

+local m=120257013
+local list={120257062}
+local cm=_G["c"..m]
+cm.name="骰子的大恶魔"
+function cm.initial_effect(c)
+	RD.AddCodeList(c,list)
+	--Atk & Def Down
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+cm.toss_dice=true
+--Atk & Def Down
+function cm.exfilter(c)
+	return c:IsCode(list[1])
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+	if g:GetCount()==0 then return end
+	local d=Duel.TossDice(tp,1)
+	local val=d*-100
+	if Duel.IsExistingMatchingCard(cm.exfilter,tp,LOCATION_GRAVE,0,1,nil) then
+		val=d*-200
+	end
+	g:ForEach(function(tc)
+		RD.AttachAtkDef(e,tc,val,val,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end)
+end
\ No newline at end of file

script/c120257014.lua

+local m=120257014
+local cm=_G["c"..m]
+cm.name="最爱骰子钥匙·卡拉梅尔"
+function cm.initial_effect(c)
+	--Act Limit
+	local e1=Effect.CreateEffect(c)
+	e1:SetType(EFFECT_TYPE_FIELD)
+	e1:SetCode(EFFECT_CANNOT_ACTIVATE)
+	e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTargetRange(0,1)
+	e1:SetCondition(cm.condition)
+	e1:SetValue(cm.aclimit)
+	c:RegisterEffect(e1)
+	--Continuous Effect
+	RD.AddContinuousEffect(c,e1)
+end
+--Act Limit
+function cm.filter(c)
+	return c:IsFaceup() and c:IsLevelAbove(7) and c.toss_dice
+end
+function cm.condition(e)
+	local ph=Duel.GetCurrentPhase()
+	return ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE
+		and Duel.IsExistingMatchingCard(cm.filter,e:GetHandlerPlayer(),LOCATION_MZONE,0,1,nil)
+end
+function cm.aclimit(e,re,tp)
+	return re:GetHandler():IsType(TYPE_TRAP) and re:IsHasType(EFFECT_TYPE_ACTIVATE)
+end
\ No newline at end of file

script/c120257015.lua

+local m=120257015
+local cm=_G["c"..m]
+cm.name="最爱骰子钥匙·敏娜"
+function cm.initial_effect(c)
+	--Atk Up
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_ATKCHANGE+CATEGORY_TOHAND+CATEGORY_GRAVE_ACTION)
+	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
+--Atk Up
+function cm.confilter(c)
+	return c:IsFaceup() and c.toss_dice
+end
+function cm.thfilter(c)
+	return c:IsRace(RACE_FAIRY) and c:IsAttack(300) and RD.IsDefense(c,1200) and c:IsAbleToHand()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.IsExistingMatchingCard(cm.confilter,tp,LOCATION_MZONE,0,1,nil)
+end
+cm.cost=RD.CostSendDeckTopToGrave(1)
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	if g:GetCount()==0 then return end
+	g:ForEach(function(tc)
+		RD.AttachAtkDef(e,tc,600,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
+	end)
+	RD.CanSelectAndDoAction(aux.Stringid(m,1),HINTMSG_ATOHAND,aux.NecroValleyFilter(cm.thfilter),tp,LOCATION_GRAVE,0,1,1,nil,function(sg)
+		RD.SendToHandAndExists(sg,1-tp)
+	end)
+end
\ No newline at end of file

script/c120257016.lua

+local m=120257016
+local cm=_G["c"..m]
+cm.name="骰子炸药女孩·奇洛莉"
+function cm.initial_effect(c)
+	--Dice
+	local e1=Effect.CreateEffect(c)
+	e1:SetDescription(aux.Stringid(m,0))
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_ATKCHANGE)
+	e1:SetType(EFFECT_TYPE_IGNITION)
+	e1:SetRange(LOCATION_MZONE)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.operation)
+	c:RegisterEffect(e1)
+end
+cm.toss_dice=true
+--Dice
+function cm.target(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)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.TossDice(tp,1)
+	local atk=0
+	if d==1 or d==2 then
+		atk=-1000
+	elseif d==3 or d==4 then
+		atk=600
+	elseif d==5 or d==6 then
+		RD.SelectAndDoAction(aux.Stringid(m,1),Card.IsFaceup,tp,0,LOCATION_MZONE,1,1,nil,function(g)
+			atk=g:GetFirst():GetBaseAttack()
+		end)
+	end
+	local c=e:GetHandler()
+	if atk~=0 and c:IsFaceup() and c:IsRelateToEffect(e) then
+		RD.AttachAtkDef(e,c,atk,0,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end
+end
\ No newline at end of file

script/c120257049.lua

+local m=120257049
+local cm=_G["c"..m]
+cm.name="天使的骰子"
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_FREE_CHAIN)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+cm.toss_dice=true
+--Activate
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	if g:GetCount()==0 then return end
+	local d=Duel.TossDice(tp,1)
+	local val=d*100
+	g:ForEach(function(tc)
+		RD.AttachAtkDef(e,tc,val,val,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end)
+end
\ No newline at end of file

script/c120257062.lua

+local m=120257062
+local cm=_G["c"..m]
+cm.name="恶魔的骰子"
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_ATTACK_ANNOUNCE)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+end
+cm.toss_dice=true
+--Activate
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetAttacker():IsControler(1-tp)
+end
+function cm.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsFaceup,tp,0,LOCATION_MZONE,1,nil) end
+	Duel.SetOperationInfo(0,CATEGORY_DICE,nil,0,tp,1)
+end
+function cm.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 return end
+	local d=Duel.TossDice(tp,1)
+	local val=d*-100
+	g:ForEach(function(tc)
+		RD.AttachAtkDef(e,tc,val,val,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+	end)
+end
\ No newline at end of file

script/c120257063.lua

+local m=120257063
+local cm=_G["c"..m]
+cm.name="阿修罗的骰子"
+function cm.initial_effect(c)
+	--Activate
+	local e1=Effect.CreateEffect(c)
+	e1:SetCategory(CATEGORY_DICE+CATEGORY_DAMAGE+CATEGORY_ATKCHANGE+CATEGORY_DEFCHANGE)
+	e1:SetType(EFFECT_TYPE_ACTIVATE)
+	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetProperty(EFFECT_FLAG_DAMAGE_STEP)
+	e1:SetCondition(cm.condition)
+	e1:SetTarget(cm.target)
+	e1:SetOperation(cm.activate)
+	c:RegisterEffect(e1)
+	local e2=e1:Clone()
+	e2:SetCode(EVENT_SPSUMMON_SUCCESS)
+	c:RegisterEffect(e2)
+end
+cm.toss_dice=true
+--Activate
+function cm.confilter(c,tp)
+	return c:GetSummonPlayer()==tp and c:IsFaceup()
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return eg:IsExists(cm.confilter,1,nil,1-tp)
+end
+function cm.target(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_DAMAGE,nil,0,1-tp,100)
+end
+function cm.activate(e,tp,eg,ep,ev,re,r,rp)
+	local d=Duel.TossDice(tp,1)
+	local val=d*100
+	local g1=Duel.GetMatchingGroup(Card.IsFaceup,tp,0,LOCATION_MZONE,nil)
+	local g2=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_MZONE,0,nil)
+	if Duel.Damage(1-tp,val,REASON_EFFECT)~=0 and g1:GetCount()>0 then
+		g1:ForEach(function(tc)
+			RD.AttachAtkDef(e,tc,-val,-val,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		end)
+		if g2:GetCount()==0 then return end
+		Duel.BreakEffect()
+		g2:ForEach(function(tc)
+			RD.AttachAtkDef(e,tc,val,val,RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
+		end)
+	end
+end
\ No newline at end of file