Add files via upload

部分卡片

c10401024.lua

+--鞭挞的少女 伊蕾尼娅
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--【自】：这个单位从手牌登场到R时，通过【费用】[计数爆发1，灵魂爆发1]，选择你的弃牌区中的1张等级2以下的卡，CALL到R上，这个回合中，那个单位的力量+5000。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.operation,cm.cost,cm.condition)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return not(c:IsSummonType(SUMMON_TYPE_RIDE) or c:IsSummonType(SUMMON_TYPE_SELFRIDE)) and c:IsPreviousLocation(LOCATION_HAND)
+end
+--效果二处理
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	vgf.SearchCardSpecialSummonOP(LOCATION_DROP,cm.fliter2,e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetOperatedGroup()
+	vgf.AtkUp(c,g,5000)
+end
+--效果二召唤等级筛选
+function cm.fliter2(c)
+	return vgf.IsLevel(c,0,1,2)
+end
+--计数爆发1，灵魂爆发1
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return vgf.DamageCostOp(1,e,tp,eg,ep,ev,re,r,rp,0) and vgf.OverlayCostOp(1,e,tp,eg,ep,ev,re,r,rp,0) end
+vgf.DamageCostOp(1,e,tp,eg,ep,ev,re,r,rp,1)
+vgf.OverlayCostOp(1,e,tp,eg,ep,ev,re,r,rp,1)
 end

c10401025.lua

+--天惠之源龙王 恩宠吐息
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--追加效果——抽1张卡！选择你的1个单位，这个回合中，☆+1！将当前存在于前列的你所有的单位的力量+10000！你的伤害区中的卡的张数在对手的伤害区中的卡的张数以上的话，选择你的伤害区中的1张卡，回复！
+	VgD.CardTrigger(c,cm.operation)
 end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Draw(tp,1,REASON_TRIGGER)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CRITICAL_STRIKE)
+	local g1=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.HintSelection(g1)
+	VgF.StarUp(c,g1,1,nil)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
+	local g2=Duel.GetMatchingGroup(VgF.IsSequence,tp,LOCATION_MZONE,0,nil,0,4,5)
+            VgF.AtkUp(c,g2,10000,nil)
+	if Duel.GetMatchingGroupCount(nil,tp,LOCATION_DAMAGE,0,nil)>=Duel.GetMatchingGroupCount(nil,tp,0,LOCATION_DAMAGE,nil) then
+    	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODROP)
+        local tc=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_DAMAGE,0,1,1,nil):GetFirst()
+        if tc then
+            Duel.SendtoGrave(tc,REASON_TRIGGER)
+        end
+    	end
+end
\ No newline at end of file

c10401026.lua

+--突贯龙 猛击三角龙
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+
+--【自】【R】：你的先导者攻击时，对手的后防者在2张以下的话，通过【费用】[将这个单位放置到灵魂里]，选择你的1张先导者，这次战斗中，☆+1。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_FIELD,EVENT_ATTACK_ANNOUNCE,cm.operation2,cm.cost,cm.condition2)
 end
+function cm.condition2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=Duel.GetAttacker()
+	return vgf.RMonsterCondition(e) and Duel.GetMatchingGroupCount(vgf.RMonsterFilter,tp,0,LOCATION_MZONE,nil)<=2 and VgF.VMonsterFilter(g)
+
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+    local c=e:GetHandler()
+    if chk==0 then return true end
+    local rc=Duel.GetMatchingGroup(VgF.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst()
+    Duel.Overlay(rc,c)
+end
+
+function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CRITICAL_STRIKE)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	if g:GetCount()>0 then
+		VgF.StarUp(c,g,1,EVENT_BATTLED)
+    end
+end
+function cm.filter(c)
+    return vgf.VMonsterFilter(c)
+end
\ No newline at end of file

c10401027.lua

+--沙尘之凶弹 兰多尔
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--【自】：这个单位被「沙尘之重炮 尤金」RIDE时，抽1张卡，选择你的弃牌区中的至多1张卡，放置到灵魂里。
+	vgd.BeRidedByCard(c,m,10401002,cm.operation)
+	--【自】【V/R】：这个单位攻击时，对手的后防者在2张以下的话，通过【费用】[计数爆发1]，灵魂填充1，这次战斗中，这个单位的力量+5000。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_ATTACK_ANNOUNCE,cm.operation1,vgf.DamageCost(1),cm.condition)
+
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Draw(tp,1,REASON_EFFECT)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+	local c=e:GetHandler()
+	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_GRAVE,0,1,1,nil)
+	if g:GetCount()>0 then
+		Duel.Overlay(VgF.GetVMonster(tp),g)
+	end
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	vgf.OverlayFillOp(1,e,tp,eg,ep,ev,re,r,rp,1)
+	local e1=vgf.AtkUp(c,c,5000)
+	vgf.EffectReset(c,e1,EVENT_BATTLED)
+
+end
+function cm.condition (e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetMatchingGroupCount(vgf.RMonsterFilter,tp,0,LOCATION_MZONE,nil)<=2
 end

c10401028.lua

+--龙族骑士 达巴弗
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--【自】：这个单位登场到R时，通过【费用】[计数爆发2]，灵魂填充1，选择对手的1张后防者，退场。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.operation,VgF.DamageCost(2),cm.condition)
+end
+--这个单位从手牌登场到R时
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return not(c:IsSummonType(SUMMON_TYPE_RIDE) or c:IsSummonType(SUMMON_TYPE_SELFRIDE)) and c:IsPreviousLocation(LOCATION_HAND)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	vgf.OverlayFillOp(1,e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LEAVEONFIELD)
+			local g=Duel.SelectTarget(tp,vgf.RMonsterFilter,tp,0,LOCATION_MZONE,1,1,nil)
+			if g then
+				Duel.HintSelection(g)
+				Duel.SendtoGrave(g,REASON_EFFECT)
+			end
 end

c10401029.lua

+--争斗的忍鬼 不动丸
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--【自】【R】：这个单位的攻击击中时，通过【费用】[将手牌中的1张卡舍弃]，抽1张卡。
+	vgd.EffectTypeTriggerWhenHitting(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,cm.operation, VgF.DisCardCost(1))
 end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Draw(tp,1,REASON_EFFECT)
+end
\ No newline at end of file

c10401030.lua

+--龙族骑士 阿尔瓦利斯
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--【自】：这个单位登场到R时，通过【费用】[计数爆发1，灵魂爆发1]，选择对手的1张等级2以上的后防者，退场。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.operation,cm.cost,cm.condition)
 end
+--计数爆发1，灵魂爆发1
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return vgf.DamageCostOp(1,e,tp,eg,ep,ev,re,r,rp,0) and vgf.OverlayCostOp(1,e,tp,eg,ep,ev,re,r,rp,0) end
+vgf.DamageCostOp(1,e,tp,eg,ep,ev,re,r,rp,1)
+vgf.OverlayCostOp(1,e,tp,eg,ep,ev,re,r,rp,1)
+end
+--选择对手的1张等级2以上的后防者
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return not(c:IsSummonType(SUMMON_TYPE_RIDE) or c:IsSummonType(SUMMON_TYPE_SELFRIDE)) and c:IsPreviousLocation(LOCATION_HAND)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_LEAVEONFIELD)
+			local g=Duel.SelectTarget(tp,cm.fliter,tp,0,LOCATION_MZONE,1,1,nil)
+			if g:GetCount()>0 then
+				Duel.SendtoGrave(g,REASON_EFFECT)
+			end
+end	
+function cm.fliter(c)
+	return vgf.RMonsterFilter(c) and c:IsLevelAbove(3)
+end
\ No newline at end of file

c10401032.lua

+--幻想的奇术师 卡提斯
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--【自】：这个单位登场到R时，你有「重力的支配者 磁力重压」的先导者的话，灵魂填充2。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,VgF.OverlayFill(2),nil,cm.condition)
+--【起】【R】：你的灵魂在10张以上的话，通过【费用】[计数爆发2]，这个回合中，将当前存在于前列的你所有的单位的力量+5000。
+vgd.EffectTypeIgnition(c,m,LOCATION_MZONE,cm.operation,VgF.DamageCost(2),cm.condition1)
 end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return not(c:IsSummonType(SUMMON_TYPE_RIDE) or c:IsSummonType(SUMMON_TYPE_SELFRIDE)) and VgF.GetVMonster(tp):IsCode(10401003)
+end
+function cm.condition1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return vgf.RMonsterCondition(e) and Duel.GetMatchingGroupCount(nil,tp,LOCATION_OVERLAY,0,nil)>=10
+end
+function cm.operation()
+
+	local g2=Duel.GetMatchingGroup(VgF.IsSequence,tp,LOCATION_MZONE,0,nil,0,4,5)
+    VgF.AtkUp(c,g2,10000,nil)
+	
+end
\ No newline at end of file

c10401033.lua

+--电光斯巴达
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--【自】：这个单位被「重力的支配者 磁力重压」RIDE时，通过【费用】[将手牌中的1张卡放置到灵魂里]，抽1张卡，灵魂填充1。
+	vgd.BeRidedByCard(c,m,10401003,cm.operation,cm.cost)
+	--【自】：这个单位登场到R时，通过【费用】[计数爆发1]，灵魂填充2。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.operation1,VgF.DamageCost(1),cm.condition)
+
 end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Draw(tp,1,REASON_EFFECT)
+	VgF.OverlayFillOp(1,e,tp,eg,ep,ev,re,r,rp,1)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return Duel.GetMatchingGroupCount(nil,tp,0,LOCATION_HAND,nil)>=1 end
+	local rc=Duel.GetMatchingGroup(VgF.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst()
+	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_HAND,0,1,1,nil,e,tp)
+		Duel.HintSelection(g)
+	Duel.Overlay(rc,g)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return not(c:IsSummonType(SUMMON_TYPE_RIDE) or c:IsSummonType(SUMMON_TYPE_SELFRIDE))
+end
+function cm.operation1(e,tp,eg,ep,ev,re,r,rp)
+	vgf.OverlayFillOp(2,e,tp,eg,ep,ev,re,r,rp,1)
+end
\ No newline at end of file

c10401034.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
-end
+	local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e1:SetRange(LOCATION_MZONE)
+    e1:SetCode(EFFECT_CANNOT_BE_EFFECT_TARGET)
+	e1:SetCondition(vgf.RMonsterCondition)
+    e1:SetValue(vgf.tgoval)
+    c:RegisterEffect(e1)
+end
\ No newline at end of file