Merge pull request #20 from ikaros131417/main

（跳过目前包含黑白翼的所有卡）10501064-10501083

c10501003.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
-	vgd.EffectTypeIgnition(c,m,LOCATION_MZONE,cm.op,vgf.DamageCost(1),vgf.VMonsterCondition)
+	-- 【起】【V】【1回合1次】：通过【费用】[计数爆发1]，选择你的指令区中的1张正面表示的歌曲卡，将其歌唱。（发动歌曲卡的能力，那个能力结算完毕后将那张卡转为背面表示。）
+	vgd.EffectTypeIgnition(c,m,LOCATION_MZONE,cm.op,vgf.DamageCost(1),vgf.VMonsterCondition,nil,1)
+	-- 补充一回合一次描述
+	-- 【自】【V】：这个单位攻击时，你的指令区中的背面表示的卡有2张以上的话，选择你的指令区中的1张卡正面表示的歌曲卡，将其歌唱，这次战斗中，对手不能将守护者从手牌CALL到G上。
 	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_ATTACK_ANNOUNCE,cm.op2,nil,cm.con2)
 end
 function cm.op(e,tp,eg,ep,ev,re,r,rp)

c10501064.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--午夜课程 凡努
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】：这个单位登场到R时，通过【费用】[计数爆发2]，查看你的牌堆顶的5张卡，选择至多2张触发单位卡，CALL到不存在单位的R上，然后牌堆洗切。
+    vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,vgf.DamageCost(2),cm.con)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    local g=Duel.GetDecktopGroup(tp,5)
+    Duel.ConfirmCards(tp,g)
+	Duel.DisableShuffleCheck()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CALL)
+	local sg=g:FilterSelect(tp,cm.filter,0,2,nil)
+	if #sg>0 then
+		vgf.Sendto(LOCATION_MZONE,c,0,tp,31,POS_FACEUP_ATTACK,0)
+	end
+	Duel.ShuffleDeck(tp)
+end
+
+function cm.filter(c)
+	return not c:IsRace(TRIGGER_NONE)
+end

c10501065.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--书写记录的思绪 罗玛娜
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【永】【R】：这个回合中你施放了「不移之绯红」和「无尽之苍蓝」的话，这个单位的力量+10000。
+    vgd.GlobalCheckEffect(c,m,EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS,EVENT_CHAIN_SOLVING,cm.checkcon1,cm.checkop1)
+    vgd.GlobalCheckEffect(c,m,EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS,EVENT_CHAIN_SOLVING,cm.checkcon2,cm.checkop2)
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,10000,cm.con)
+end
+
+function cm.con(e)
+    local tp=e:GetHandlerPlayer()
+    return vgf.RMonsterCondition(e) and Duel.GetFlagEffect(tp,m)>0 and Duel.GetFlagEffect(tp,m+1)>0
+end
+
+function cm.checkcon1(e,tp,eg,ep,ev,re,r,rp)
+    local rc = re:GetHandler()
+    return rc:IsCode(10501116) and rp==tp
+end
+
+function cm.checkcon2(e,tp,eg,ep,ev,re,r,rp)
+    local rc = re:GetHandler()
+    return rc:IsCode(10501055) and rp==tp
+end
+
+function cm.checkop1(e,tp,eg,ep,ev,re,r,rp)
+    Duel.RegisterFlagEffect(tp,m,PHASE_END,0,1)
+end
+
+function cm.checkop2(e,tp,eg,ep,ev,re,r,rp)
+    Duel.RegisterFlagEffect(tp,m+1,PHASE_END,0,1)
+end

c10501067.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--亲卫队长 玛尔伦
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【永】【R/G】：你的R上的〈幽灵〉有3张以上的话，这个单位的力量+2000、盾护+5000。
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,2000,cm.con1)
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,5000,cm.con2,tg,EFFECT_UPDATE_DEFENSE,reset,LOCATION_GZONE)
+end
+
+function cm.con1(e)
+    return cm.con2(e) and vgf.RMonsterCondition(e)
+end
+
+function cm.con2(e)
+    local c = e:GetHandler()
+    local tp = e:GetHandlerPlayer()
+    return vgf.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,3)
+end
+
+function cm.filter(c)
+    return c:IsSetCard(0xa013) and vgf.RMonsterFilter(c)
+end

c10501069.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--友情交友 伊尔达
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】：这个单位被放置到G时，选择你的至多1张含有「诚意真心」的后防者，返回手牌。（即使被攻击的单位离场，发起攻击的单位的玩家也要正常进行驱动判定以及结算战斗结束时的能力。）
+    vgd.EffectTypeTrigger(c,m,nil,EFFECT_TYPE_SINGLE,EVENT_MOVE,cm.op,nil,cm.con)
+
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local c = e:GetHandler()
+    return c:IsLocation(LOCATION_GZONE)
+end
+
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    VgF.SearchCard(LOCATION_HAND,LOCATION_MZONE,cm.filter,0,1)(e,tp,eg,ep,ev,re,r,rp)
+    -- local g = vgf.SelectMatchingCard(HINTMSG_ATOHAND,e,tp,cm.filter,tp,LOCATION_MZONE,0,0,1,nil)
+    -- vgf.Sendto(LOCATION_HAND,g)
+end
+
+function cm.filter(c)
+    return c:IsSetCard(0xb6) and vgf.RMonsterFilter(c)
+end
\ No newline at end of file

c10501070.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--扎起头发的憧憬 海尔维希
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】：你的战斗阶段中这个单位登场到R时，通过【费用】[将这个单位放置到灵魂里]，抽1张卡。
+    vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,cm.cost,cm.con)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local c = e:GetHandler()
+    local ph = Duel.GetCurrentPhase() 
+    return not cm.condition(e,tp,eg,ep,ev,re,r,rp) and (ph>=PHASE_BATTLE_START and ph<=PHASE_BATTLE) and Duel.GetTurnPlayer() == tp
+end
+function cm.condition(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.op(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Draw(tp,1,REASON_EFFECT)
+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
\ No newline at end of file

c10501071.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--倾注感情 艾贝莉娜
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】：这个单位被放置到G时，通过【费用】[灵魂爆发1]，选择你的1个含有「诚意真心」的单位，这次战斗中，力量+10000。
+    vgd.EffectTypeTrigger(c,m,nil,EFFECT_TYPE_SINGLE,EVENT_MOVE,cm.op,vgf.OverlayCost(1),cm.con)
+end
+
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
+    local g = vgf.SelectMatchingCard(HINTMSG_ATKUP,e,tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
+    vgf.AtkUp(c,g,10000)
+end
+
+function cm.filter(c)
+    return c:IsSetCard(0xb6) 
+end
+
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local c = e:GetHandler()
+    return c:IsLocation(LOCATION_GZONE)
+end

c10501072.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--魅惑的微笑 采塞利娅
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】：这个单位从手牌登场到R时，你其他的后防者有3张以上的话，通过【费用】[计数爆发1]，抽1张卡。
+    vgd.EffectTypeTrigger(c,m,nil,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,vgf.DamageCost(1),cm.con)
+end
+
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Draw(tp,1,REASON_EFFECT)
+end
+
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local c = e:GetHandler()
+    return vgf.RMonsterFilter(c) and c:IsPreviousLocation(LOCATION_HAND) and vgf.IsExistingMatchingCard(vgf.RMonsterFilter,tp,LOCATION_MZONE,0,3,c)
+end

c10501073.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--舞动的五线谱 艾露梅尔
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】：这个单位被放置到G时，通过【费用】[灵魂爆发1]，你的指令区中的你的卡每有1张，这次战斗中，这个单位的盾护+5000。
+    vgd.EffectTypeTrigger(c,m,nil,EFFECT_TYPE_SINGLE,EVENT_MOVE,cm.op,vgf.OverlayCost(1),cm.con)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local c = e:GetHandler()
+    return c:IsLocation(LOCATION_GZONE)
+end
+
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    local c = e:GetHandler()
+    local ct = Duel.GetMatchingGroupCount(nil,tp,LOCATION_ORDER,0,c)
+    local defup = 5000*ct
+    VgF.DefUp(c,c,defup)
+end
\ No newline at end of file

c10501074.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--最不服输 托蕾因
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【永】【后列的R】：这个单位的获得『支援』的技能，力量-2000。
+    -- 支援
+    local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_SINGLE)
+    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e2:SetCode(EFFECT_ADD_ATTRIBUTE)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetValue(SKILL_SUPPORT)
+    e2:SetCondition(cm.con)
+    c:RegisterEffect(e2)
+    -- -2000
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,-2000,cm.con)
+end
+function cm.con(e)
+    local c = e:GetHandler()
+    return VgF.BackFilter(c)
+end

c10501076.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--爽朗的大姐 欧德莉
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+	vgf.VgCard(c)
+	-- 【永】【R】：你的回合中，你的指令区中有卡存在的话，这个单位的力量+5000。
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,5000,cm.con)
+end
+
+function cm.con(e)
+	local c = e:GetHandler()
+	local tp = e:GetHandlerPlayer()
+    local a = vgf.IsExistingMatchingCard(nil,tp,LOCATION_ORDER,0,1,nil)
+	return vgf.RMonsterCondition(e) and a and Duel.GetTurnPlayer()==tp
+end

c10501077.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--花开的季节 露蒂
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】【R】：你的后防者被返回手牌时，这个回合中，这个单位的力量+5000。
+    vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_FIELD,EVENT_TO_HAND,VgF.AtkUp(c,c,5000),nil,cm.con)
+end
+
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    local c = e:GetHandler()
+    VgF.AtkUp(c,c,5000)
+end
+
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    return VgF.RMonsterCondition(e) and eg:IsPreviousLocation(LOCATION_MZONE)
+end

c10501078.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--紧张的瞬间 凯缇
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【永】【V/R】：对手的回合中，这个单位的力量-2000。
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,-2000,cm.con)
+end
+
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnPlayer() == 1-tp
+end

c10501079.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--美丽的假日 菲尔缇萝萨
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】：这个单位被RIDE时，通过【费用】[灵魂爆发1]，选择你的弃牌区中的至多1张〈幽灵〉，加入手牌。
+    vgd.BeRidedByCard(c,m,nil,cm.op,OverlayCost(1))
+    -- 【永】【V/R】：你的回合中，你的R上有〈幽灵〉的话，这个单位的力量+2000。
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,2000,cm.con)
+end
+
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    VgF.SearchCard(LOCATION_HAND,LOCATION_GRAVE,cm.filter,1,0)(e,tp,eg,ep,ev,re,r,rp)
+end
+
+function cm.con(e)
+    local tp=e:GetHandlerPlayer()
+    return vgf.IsExistingMatchingCard(cm.filter1,tp,LOCATION_MZONE,0,1,nil) and Duel.GetTurnPlayer()==tp
+end
+
+function cm.filter(c)
+    return c:IsSetCard(0xa013) 
+end
+
+function cm.filter1(c)
+    return c:IsSetCard(0xa013) and vgf.RMonsterFilter(c)
+end
\ No newline at end of file

c10501080.lua

 --爽朗的王子 哈里耶特
--- 未测试
 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
@@ -10,7 +9,6 @@ end
 function cm.con1(e)
 	local c=e:GetHandler()
 	local tp=e:GetHandlerPlayer()
-    local a = vgf.IsExistingMatchingCard(nil,tp,LOCATION_ORDER,0,2,c)
-	return vgf.RMonsterCondition(e) and a and Duel.GetTurnPlayer()==tp
+	return vgf.RMonsterCondition(e) and vgf.IsExistingMatchingCard(nil,tp,LOCATION_ORDER,0,2,nil) and Duel.GetTurnPlayer()==tp
 end
 

c10501081.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--坚实的步伐 佩可莉
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【永】【R】：你的回合中，你有含有「诚意真心」的单位的话，这个单位的力量+2000。
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,2000,cm.con)
+end
+
+function cm.con(e)
+    local c=e:GetHandler()
+	local tp=e:GetHandlerPlayer()
+    local a=vgf.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1)
+	return vgf.RMonsterCondition(e) and a and Duel.GetTurnPlayer()==tp
+end
+
+function cm.filter(c)
+    return c:IsSetCard(0xb6)
+end
\ No newline at end of file

c10501083.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--仓促短跑 瑟尔玛
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】【R】：这个单位支援先导者时，抽1张卡，选择你的手牌中的1张卡，舍弃。
+    vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_FIELD,EVENT_SUPPORT,cm.op,nil,cm.con)
+end
+
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local ca = Duel.GetAttacker()
+    return VgF.VMonsterFilter(ca) and eg:GetFirst()==e:GetHandler()
+end
+
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    Duel.Draw(tp,1,REASON_EFFECT)
+    VgF.SearchCard(LOCATION_GRAVE,LOCATION_HAND,nil,1,1)(e,tp,eg,ep,ev,re,r,rp)
+end
\ No newline at end of file

c10501089.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--精确课程表 莉布谢
+
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【永】【R】：这个回合中你施放了指令卡的话，这个单位的力量+2000。
+    vgd.GlobalCheckEffect(c,m,EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS,EVENT_CHAIN_SOLVING,cm.checkcon,cm.checkop)
+    vgd.EffectTypeContinuousChangeAttack(c,EFFECT_TYPE_SINGLE,2000,cm.con1)
+end
+
+function cm.con1(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 re:IsHasType(EFFECT_TYPE_ACTIVATE) and rp==tp
+end
+
+function cm.checkop(e,tp,eg,ep,ev,re,r,rp)
+    Duel.RegisterFlagEffect(tp,m,PHASE_END,0,1)
+end

c10501090.lua

@@ -8,7 +8,6 @@ function cm.initial_effect(c)
     vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.operation,nil,cm.con2,nil,1)
 end
 function cm.con1(e)
-	local c=e:GetHandler()
 	local tp=e:GetHandlerPlayer()
 	return vgf.VMonsterCondition(e) and not vgf.IsExistingMatchingCard(vgf.RMonsterFilter,tp,LOCATION_MZONE,0,1,nil) and Duel.GetTurnPlayer()==tp
 end

c10501096.lua

-local cm,m,o=GetID()
-function cm.initial_effect(c)
-	vgf.VgCard(c)
-end
+--元气爆发 尤丝缇涅
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+    vgf.VgCard(c)
+    -- 【自】：你的回合中这张卡被从手牌舍弃时，通过【费用】[灵魂爆发1]，将这张卡CALL到不存在单位的R上。
+    vgd.EffectTypeTrigger(c,m,LOCATION_GRAVE,EFFECT_TYPE_SINGLE,EVENT_DISCARD,cm.op,VgF.OverlayCost(1),cm.con)
+end
+
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    vgf.Sendto(LOCATION_MZONE,c,0,tp,31,POS_FACEUP_ATTACK,0)
+end
+
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    return Duel.GetTurnPlayer()==tp
+end
+