Merge pull request #21 from Kurumi-MX/main

c10401061~c10401080

VgDefinition.Lua

@@ -678,6 +678,7 @@ EVENT_RIDE_START        =VgID+3 --骑升时点
 EVENT_SUPPORT           =VgID+4 --支援时点
 EVENT_TRIGGERCOUNTUP    =VgID+5 --驱动追加
 EVENT_SING              =VgID+6 --演唱时
+EVENT_OVERLAY_FILL      =VgID+7 --灵魂填充时
 
 --攻击时(EVENT_ATTACK_ANNOUNCE)
 --支援时(EVENT_CUSTOM+EVENT_SUPPORT)

VgFuncLib.lua

@@ -596,6 +596,7 @@ function VgF.OverlayFill(num)
         local rc=Duel.GetMatchingGroup(VgF.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst()
         local g=Duel.GetDecktopGroup(tp,num)
         Duel.DisableShuffleCheck()
+        Duel.RaiseEvent(g,EVENT_CUSTOM+EVENT_OVERLAY_FILL,e,0,tp,tp,num)
         return VgF.Sendto(LOCATION_OVERLAY,g,rc)
     end
 end

c10102001.lua

@@ -16,5 +16,6 @@ function cm.op2(e,tp,eg,ep,ev,re,r,rp)
 	Duel.ChangePosition(g,POS_FACEUP_ATTACK)
 end
 function cm.con2(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)==10102001 and vgf.VMonsterCondition(e)
+	local ct=Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)
+	return VgF.GetValueType(ct)=="number" and ct==10102001 and vgf.VMonsterCondition(e)
 end
\ No newline at end of file

c10102003.lua

@@ -12,7 +12,8 @@ function cm.initial_effect(c)
     c:RegisterEffect(e1)
 end
 function cm.con2(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)==10102001
+	local ct=Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)
+	return VgF.GetValueType(ct)=="number" and ct==10102001
 end
 function cm.con(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()

c10102005.lua

@@ -11,7 +11,8 @@ function cm.operation(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	vgf.OverlayFill(1)
 	Duel.BreakEffect()
-	if Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)==10102001 and vgf.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_DAMAGE,0,1,nil) and Duel.SelectEffectYesNo(tp,vgf.stringid(VgID,10)) then
+	local ct=Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)
+	if VgF.GetValueType(ct)=="number" and ct==10102001 and vgf.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_DAMAGE,0,1,nil) and Duel.SelectEffectYesNo(tp,vgf.stringid(VgID,10)) then
         local g=vgf.SelectMatchingCard(HINTMSG_DAMAGE,e,tp,Card.IsFaceup,tp,LOCATION_DAMAGE,0,1,1,nil)
         Duel.ChangePosition(g,POS_FACEDOWN_ATTACK)
 		vgf.AtkUp(c,c,15000)

c10102008.lua

@@ -6,7 +6,8 @@ function cm.initial_effect(c)
 end
 function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local num=1
-	if Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)==10102001 then num=num+1 end
+	local ct=Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)
+	if VgF.GetValueType(ct)=="number" and ct==10102001 then num=num+1 end
 	vgf.OverlayFill(num)(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.con1(e,tp,eg,ep,ev,re,r,rp)

c10401004.lua

@@ -14,7 +14,8 @@ function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
     Duel.RegisterFlagEffect(tp,m,RESET_PHASE+PHASE_END,0,1)
 end
 function cm.con(e,tp,eg,ep,ev,re,r,rp)
-	return Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)==10102001
+	local ct=Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)
+	return VgF.GetValueType(ct)=="number" and ct==10102001
 end
 function cm.con1(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetFlagEffect(tp,m)>0 and cm.con(e,tp,eg,ep,ev,re,r,rp)

c10401061.lua

+--忍妖 凌汛爱子
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--【自】【R】：你的主要阶段中对手的后防者退场时，通过【费用】[将这个单位退场]，查看你的牌堆顶的1张卡，你可以将查看的单位卡CALL到R上。没有这么做的话，将其余的查看的卡放置到灵魂里。	
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,
+	EFFECT_TYPE_FIELD,EVENT_TO_GRAVE,cm.op,cm.cost,cm.con)
 end
+--将这个单位退场
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c = e:GetHandler()
+	if chk ==0 then
+		return c:IsAbleToGraveAsCost()
+	end
+	vgf.Sendto(LOCATION_DROP,c,REASON_COST)
+end
+--你的主要阶段中对手的后防者退场时
+function cm.con(e,tp,eg,ep,re,r,rp)
+	return eg:IsExists(cm.filter,1,nil,tp) and Duel.GetCurrentPhase()==PHASE_MAIN1 and Duel.GetTurnPlayer()==tp and vgf.RMonsterCondition(e)
+end
+function cm.filter(c,tp)
+	return c:IsPreviousLocation(LOCATION_MZONE) and c:IsPreviousControler(1-tp) and c:IsPreviousPosition(POS_FACEUP)
+end
+function cm.op(e,tp,eg,ep,re,r,rp)
+	local g=Duel.GetDecktopGroup(tp,1)
+	Duel.ConfirmCards(g)
+	Duel.DisableShuffleCheck()
+	local sg=g:FilterSelect(tp,vgf.IsCanBeCalled,0,1,nil,e,tp)
+	if sg:GetCount()>0 then
+		vgf.Sendto(LOCATION_MZONE,g,0,tp)
+		g:Sub(sg)
+	else
+		local tc=vgf.GetVMonster(tp)
+		vgf.Sendto(LOCATION_OVERLAY,g,tc)
+	end
+end
+
+

c10401067.lua

+--阳光之惩戒
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--通过【费用】[使用1张以上的你希望的张数的卡进行计数爆发]施放！
+--由于这个费用支付的计数爆发1每有1张，选择对手的1张后防者，退场。
+	vgd.SpellActivate(c,m,cm.op,cm.cost)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local ct=vgf.GetMatchingGroupCount(Card.IsFaceup,tp,LOCATION_DAMAGE,0,nil)
+	if chk==0 then
+		if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
+			cm.cos_g=Duel.GetMatchingGroup(Card.IsFaceup,tp,LOCATION_DAMAGE,0,nil)
+			cm.cos_val={nil,1,ct}
+		end
+		return vgf.IsExistingMatchingCard(Card.IsFaceup,tp,LOCATION_DAMAGE,0,1,nil)
+	end
+	local g=vgf.SelectMatchingCard(HINTMSG_DAMAGE,e,tp,Card.IsFaceup,tp,LOCATION_DAMAGE,0,1,ct,nil)
+	local lab=Duel.ChangePosition(g,POS_FACEDOWN_ATTACK)
+	e:SetLabel(lab)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local ct=e:GetLabel()
+	local ct1=vgf.GetMatchingGroupCount(nil,tp,0,LOCATION_MZONE,nil)
+	if ct>ct1 then ct=ct1 end
+	if ct==0 then return end
+	local g=vgf.SelectMatchingCard(HINTMSG_LEAVEONFIELD,e,tp,nil,tp,0,LOCATION_MZONE,1,ct,nil)
+	if g:GetCount()>0 then
+		vgf.Sendto(LOCATION_DROP,g,REASON_EFFECT)
+	end
 end

c10401068.lua

+--清澈的祈祷啊，旺盛燃烧吧
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.QuickSpell(c,cm.op,nil,cm.con)
 end
+--你的伤害区中的卡有3张以上的话，选择你的1个单位，这次战斗中，力量+15000。
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return vgf.IsExistingMatchingCard(nil,tp,LOCATION_DAMAGE,0,3,nil)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=vgf.SelectMatchingCard(HINTMSG_ATKUP,e,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
+	vgf.AtkUp(c,g,15000,nil)
+end
\ No newline at end of file

c10401069.lua

+--自私雕刻师
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--	【自】【R】：这个单位的攻击击中时，灵魂填充1。
+	vgd.EffectTypeTriggerWhenHitting(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,vgf.OverlayFill(1),nil,vgf.RMonsterCondition)
+--	【自】【R】：这个单位攻击的战斗结束时，你的灵魂在10张以上的话，通过【费用】[将这个单位放置到灵魂里]，计数回充1
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_BATTLED,vgf.DamageFill(1),cm.cost,cm.con)
 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=vgf.GetMatchingGroup(vgf.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst()
+	vgf.Sendto(LOCATION_OVERLAY,c,rc)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	return vgf.GetMatchingGroupCount(nil,tp,LOCATION_OVERLAY,0,nil)>=10 and vgf.RMonsterCondition(e)
+end
\ No newline at end of file

c10401070.lua

+--入魂的操兽师 梅甘
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--【永】【R】：这个回合中你进行过灵魂填充的话，这个单位的力量+2000	
+vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,2000,cm.con)
+vgd.GlobalCheckEffect(c,m,EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS,EVENT_CUSTOM+EVENT_OVERLAY_FILL,cm.checkcon,cm.checkop)
 end
+function cm.con(e)
+	local tp=e:GetHandlerPlayer()
+	return vgf.RMonsterCondition(e) and Duel.GetFlagEffect(tp,m)>0
+end
+function cm.checkcon(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnPlayer()==tp and rp==tp
+end
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.RegisterFlagEffect(tp,m,PHASE_END,0,1)
+end
\ No newline at end of file

c10401071.lua

+--出众三头巨犬
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--	【自】【R】：这个单位支援时，这个回合中，这个单位的力量+2000。
+    vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_FIELD,EVENT_CUSTOM+EVENT_SUPPORT,cm.op,nil,cm.con)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    return vgf.RMonsterFilter(c) and eg:IsContains(c)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    vgf.AtkUp(c,c,2000)
 end

c10401072.lua

+--蒸汽艺术家 皮坦纳
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--	【起】【R】：通过【费用】[将这个单位放置到灵魂里]，选择你的1个单位，这个回合中，力量+2000。
+	vgd.EffectTypeIgnition(c,m,LOCATION_MZONE,cm.op,cm.cost,vgf.RMonsterCondition)
 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=vgf.GetMatchingGroup(vgf.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst()
+	vgf.Sendto(LOCATION_OVERLAY,c,rc)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=vgf.SelectMatchingCard(HINTMSG_ATKUP,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
+	VgF.AtkUp(c,g,2000,nil)
+end
\ No newline at end of file

c10401073.lua

+--蒸汽侦探 乌巴里特
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--【自】：这个单位登场到R时，选择你其他的1个与这个单位同纵列的单位，这个回合中，力量+2000。你处于“一气呵成之势”状态的话，力量不+2000而是+5000。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,nil,cm.con)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=vgf.GetColumnGroup(c):FilterSelect(tp,cm.filter,1,1,nil,tp)
+	local atk=2000
+	if Duel.GetFlagEffectLabel(tp,FLAG_CONDITION)==10102001 then
+		atk=5000
+	end
+	vgf.AtkUp(c,g,atk)
+end
+function cm.filter(c,tp)
+	return c:IsControler(tp) and c:IsFaceup()
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return not (c:IsSummonType(SUMMON_TYPE_SELFRIDE) or c:IsSummonType(SUMMON_TYPE_RIDE))
 end

c10401074.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+    vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_FIELD,EVENT_CUSTOM+EVENT_SUPPORT,cm.op,vgf.DamageCost(1),cm.con)
 end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    return vgf.RMonsterFilter(c) and eg:IsContains(c) and vgf.GetVMonster(tp):GetOverlayCount()>=5
+end
+--对手要从手牌将卡CALL到G上之际，不将2张以上同时CALL的话则不能CALL出场。
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e1:SetCode(EFFECT_ACTIVATE_COST)
+    e1:SetRange(LOCATION_MZONE)
+    e1:SetTargetRange(0,1)
+    e1:SetTarget(cm.costtg)
+    e1:SetCost(cm.costchk)
+    e1:SetOperation(cm.costop)
+	e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+    c:RegisterEffect(e1)
+	vgf.EffectReset(c,e1,EVENT_BATTLED)
+end
+function cm.costtg(e,re,tp)
+    e:SetLabelObject(re:GetHandler())
+    return re:IsHasCategory(CATEGORY_DEFENDER) and re:GetHandler():IsLocation(LOCATION_HAND) and re:GetHandlerPlayer()==tp and not vgf.IsExistingMatchingCard(nil,tp,LOCATION_GZONE,0,1,nil) and Duel.GetAttacker()==e:GetHandler()
+end
+function cm.costchk(e,re,tp)
+    return vgf.IsExistingMatchingCard(vgf.IsAbleToGZone,tp,LOCATION_HAND,0,1,re:GetHandler(),LOCATION_HAND)
+end
+function cm.costop(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetLabelObject()
+	local g=vgf.SelectMatchingCard(HINTMSG_TO_GZONE,e,tp,vgf.IsAbleToGZone,tp,LOCATION_HAND,0,1,1,c,LOCATION_HAND)
+    vgf.Sendto(LOCATION_GZONE,g,tp,POS_FACEUP,REASON_EFFECT)
+end
\ No newline at end of file

c10401075.lua

+--深度音速
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+--【自】：这个单位登场到V时，灵魂填充1
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,vgf.OverlayFill(1),nil,cm.con1)
+--【永】【R】：你的回合中，你的灵魂在10张以上的话，这个单位的力量+10000。
+	vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,10000,cm.con2)
+end
+function cm.con1(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return c:IsSummonType(SUMMON_TYPE_RIDE) or c:IsSummonType(SUMMON_TYPE_SELFRIDE)
+end
+function cm.con2(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return vgf.RMonsterCondition(e) and vgf.GetVMonster(tp):GetOverlayCount()>=10
 end

c10401077.lua

+--暴
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)

c10401078.lua

+--引
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)

c10401079.lua

+--前
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)

c10401080.lua

+--治
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)