Merge pull request #23 from CHNcan/main

bt01-v0.1

c10401106.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.SpellActivate(c,m,cm.op,cm.cost)
 end
+function cm.filter(c,p)
+	return c:IsControler(p) and vgf.RMonsterFilter(c)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local g=vgf.SelectMatchingCard(HINTMSG_OPPO,e,tp,vgf.RMonsterFilter,tp,0,LOCATION_MZONE,1,1,nil)
+	if g:GetCount()==0 then return end
+	local sg=vgf.GetColumnGroup(g:GetFirst()):Filter(cm.filter,nil,1-tp)
+	if sg:GetCount()>0 then g:Sub(sg) end
+	vgf.Sendto(LOCATION_DECK,g,nil,0,REASON_EFFECT)
+	local og=Duel.GetOperatedGroup()
+	if #og>1 then
+		Duel.SortDecktop(1-tp,1-tp,#og)
+		for i=1,#og do
+			local dg=Duel.GetDecktopGroup(tp,1)
+			Duel.MoveSequence(dg:GetFirst(),SEQ_DECKBOTTOM)
+		end
+	end
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then
+		vgf.GetMatchingGroup(vgf.VMonsterFilter,tp,LOCATION_MZONE,0,nil,nil):GetFirst():GetOverlayGroup():Filter(Card.IsLevel,nil,3)
+	end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVEXYZ)
+	local g=vgf.GetMatchingGroup(vgf.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst():GetOverlayGroup():FilterSelect(tp,Card.IsLevel,1,1,nil,3)
+	vgf.Sendto(LOCATION_DROP,g,REASON_COST)
+end
\ No newline at end of file

c10401107.lua

+--希望龟甲阵
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+    -- 你的单位在3个以上的话，选择你的1个单位，这次战斗中，力量+15000。
+	vgd.QuickSpell(c,cm.op,nil,cm.con)
 end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    return vgf.IsExistingMatchingCard(nil,tp,LOCATION_MZONE,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,tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
+    local e1=vgf.AtkUp(c,g,15000,EVENT_BATTLED)
+    vgf.EffectReset(c,e1,EVENT_BATTLED)
+end
\ No newline at end of file

c10401108.lua

 local cm,m,o=GetID()
+--智虑的贵公子 埃德加尔
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+    --【自】【R】：这个单位攻击时，通过【费用】[计数爆发1]，这次战斗中，这个单位的力量+5000。
+    vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_ATTACK_ANNOUNCE,cm.operation,vgf.DamageCost(1),vgf.RMonsterCondition)
 end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+	local e1=vgf.AtkUp(c,c,5000,EVENT_BATTLED)
+    vgf.EffectReset(c,e1,EVENT_BATTLED)
+end
+

c10401109.lua

 local cm,m,o=GetID()
+--液压撞击龙
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--【自】【R】：这个单位攻击先导者时，你的封锁区中有指令卡的话，
+	--这次战斗中，这个单位的力量+5000。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_ATTACK_ANNOUNCE,cm.operation,vgf.DamageCost(1),cm.condition)
 end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return vgf.RMonsterCondition and vgf.VMonsterFilter(Duel.GetAttackTarget()) and vgf.IsExistingMatchingCard(cm.filter,tp,LOCATION_REMOVED,0,1,nil,TYPE_SPELL)
+end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+	local e1=vgf.AtkUp(c,c,5000,EVENT_BATTLED)
+    vgf.EffectReset(c,e1,EVENT_BATTLED)
+end
+function cm.filter(c,typ)
+	return c:IsType(typ) and c:IsFaceup()
+end
\ No newline at end of file

c10401110.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.operation,nil,cm.con)
 end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+	vgf.AtkUp(c,c,2000,nil)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	return re:GetHandler()==e:GetHandler()
+end
\ No newline at end of file

c10401111.lua

 local cm,m,o=GetID()
+--怨念锁
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--【起】【V】【1回合1次】：通过【费用】[灵魂爆发1]，抽2张卡，
+	--选择你的手牌中的至多1张指令卡，舍弃，没有舍弃的话，选择手牌中的的2张卡舍弃。
+	vgd.EffectTypeIgnition(c,m,LOCATION_MZONE,cm.operation,vgf.OverlayCost(1),vgf.VMonsterCondition,nil,1)
+	--【永】【R】：这个回合中你施放过指令卡的话，这个单位的力量+2000。
+	vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,2000,cm.con)
+	vgd.GlobalCheckEffect(c,m,EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS,EVENT_CHAINING,cm.checkcon,cm.checkop)
 end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+	Duel.Draw(tp,2,REASON_EFFECT)
+	if vgf.SearchCard(LOCATION_HAND,LOCATION_DROP,cm.filter,1,0)(e,tp,eg,ep,ev,re,r,rp)==0 then
+		vgf.SearchCard(LOCATION_HAND,LOCATION_DROP,nil,2,2)(e,tp,eg,ep,ev,re,r,rp)
+	end
+end
+function cm.filter(c)
+	return c:IsType(TYPE_SPELL)
+end
+function cm.checkcon(e,tp,eg,ep,ev,re,r,rp)
+	return re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp
+end
+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.GetFlagEffect(tp,m)>0 and vgf.RMonsterCondition(e)
+end
\ No newline at end of file

c10401112.lua

 local cm,m,o=GetID()
+--共谋怪人 增添螳螂
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	--【自】：这个单位登场到R时，选择你其他的1张后防者，这个回合中，力量+5000。
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,nil,cm.con)
+end
+function cm.con(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.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+    local g=vgf.SelectMatchingCard(HINTMSG_ATKUP,tp,vgf.RMonsterFilter,tp,LOCATION_MZONE,0,1,1,c)
+    vgf.AtkUp(c,g,5000)
 end

c10401118.lua

 local cm,m,o=GetID()
+--泪流之恶意
+--通过【费用】[将你的2张后防者退场]施放！
+--抽1张卡，将这张卡放置到灵魂里，计数回充1。
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.SpellActivate(c,m,cm.operation,cm.cost)
 end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return vgf.IsExistingMatchingCard(vgf.RMonsterFilter,tp,LOCATION_MZONE,0,2,nil) end
+	local g=vgf.SelectMatchingCard(HINTMSG_LEAVEONFIELD,e,tp,vgf.RMonsterFilter,tp,LOCATION_MZONE,0,2,2,nil)
+	vgf.Sendto(LOCATION_DROP,g,REASON_COST)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+	Duel.Draw(tp,1,REASON_TRIGGER)
+    vgf.Sendto(LOCATION_OVERLAY,c)
+	VgF.DamageFill(1)
+end
\ No newline at end of file

c10401119.lua

 local cm,m,o=GetID()
+--幽灵追猎
+--选择你的1个单位，这次战斗中，力量+5000。选择你的1张没有正在被攻击的后防者，返回手牌
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.QuickSpell(c,cm.op)
+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,5000,EVENT_BATTLED)
+	local sg=vgf.SelectMatchingCard(HINTMSG_RTOHAND,vgf.RMonsterFilter,e,tp,vgf.RMonsterFilter,tp,LOCATION_MZONE,0,1,1,Duel.GetAttackTarget())
+	vgf.Sendto(LOCATION_HAND,sg,REASON_EFFECT)
 end

c10401120.lua

 local cm,m,o=GetID()
+--被封闭的道路
 function cm.initial_effect(c)
+	--通过【费用】[计数爆发2]施放！
+    --选择对手的1张先导者，这次战斗中，那个单位的☆-1。
 	vgf.VgCard(c)
+	vgd.SpellActivate(c,m,cm.operation,vgf.DamageCost(2))
 end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	local g=vgf.SelectMatchingCard(HINTMSG_OPPO,e,tp,vgf.VMonsterFilter,tp,0,LOCATION_MZONE,1,1,nil)
+	local e1=vgf.StarUp(c,g,-1,EVENT_BATTLED)
+	vgf.EffectReset(c,e1,EVENT_BATTLED)
+end
\ No newline at end of file