10501082

VgD.Lua

@@ -24,10 +24,11 @@ function VgD.RideUp(c)
 end
 function VgD.RideUpFilter1(c,e,lv,code,rc)
     local tp=c:GetControler()
-    if rc:IsAttribute(SKILL_SELF_RIDE) and c:IsCode(code) then
-        return false
-    end
-    return ((c:IsLevel(lv,lv+1) and c:IsLocation(LOCATION_HAND)) or (c:IsLevel(lv+1) and c:IsLocation(LOCATION_RIDE) and VgF.IsExistingMatchingCard(nil,tp,LOCATION_HAND,0,1,nil))) and c:IsType(TYPE_MONSTER)
+    if not c:IsType(TYPE_MONSTER) then return false end
+    if rc:IsAttribute(SKILL_SELF_RIDE) and c:IsCode(code) then return false end
+    if (c:IsLevel(lv,lv+1) and c:IsLocation(LOCATION_HAND)) then return true end
+    if (c:IsLevel(lv+1) and c:IsLocation(LOCATION_RIDE) and (VgF.IsExistingMatchingCard(nil,tp,LOCATION_HAND,0,1,nil) or (Duel.IsPlayerAffectedByEffect(tp,AFFECT_CODE_OVERLAY_INSTEAD_WHEN_RIDE) and VgF.GetVMonster(tp):GetOverlayCount()>0))) then return true end
+    return false
 end
 function VgD.DisCardRideUpFilter(c,e,lv,code,rc)
     local tp=c:GetControler()
@@ -374,7 +375,7 @@ function VgD.MonsterBattle(c)
     e15:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
     e15:SetValue(100)
     c:RegisterEffect(e15)
-    local e16=e15:Clone()
+    local e16=Effect.CreateEffect(c)
     e16:SetType(EFFECT_TYPE_SINGLE)
     e16:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
     e16:SetProperty(EFFECT_FLAG_SINGLE_RANGE+EFFECT_FLAG_CANNOT_DISABLE)

VgDefinition.Lua

@@ -841,14 +841,14 @@ EFFECT_COUNT_CODE_DUEL			=0x20000000 --决斗中使用次数
 EFFECT_COUNT_CODE_CHAIN			=0x40000000 --同一连锁中使用次数
 EFFECT_COUNT_CODE_SINGLE		=0x1		--同一张卡的多个效果公共使用次数
 --特殊选项
-DUEL_TEST_MODE			=0x01		--测试模式(目前暫無)
-DUEL_ATTACK_FIRST_TURN	=0x02		--第一回合可以攻击(用于残局)
-DUEL_OLD_REPLAY			=0x04		--旧录像
-DUEL_OBSOLETE_RULING	=0x08		--使用舊規則
-DUEL_PSEUDO_SHUFFLE		=0x10		--不洗牌
-DUEL_TAG_MODE			=0x20		--双打PP
-DUEL_SIMPLE_AI			=0x40		--AI(用于残局)
-DUEL_RETURN_DECK_TOP	=0x80		--回卡组洗切的卡放到卡组最上方（不洗牌模式下曾经的默认行为）
+DUEL_TEST_MODE			=0x01	--测试模式(目前暫無)
+DUEL_ATTACK_FIRST_TURN	=0x02	--第一回合可以攻击(用于残局)
+DUEL_OLD_REPLAY			=0x04	--旧录像
+DUEL_OBSOLETE_RULING	=0x08	--使用舊規則
+DUEL_PSEUDO_SHUFFLE		=0x10	--不洗牌
+DUEL_TAG_MODE			=0x20	--双打PP
+DUEL_SIMPLE_AI			=0x40	--AI(用于残局)
+DUEL_RETURN_DECK_TOP	=0x80	--回卡组洗切的卡放到卡组最上方（不洗牌模式下曾经的默认行为）
 --Activity counter
 --global: 1-6 (binary: 5,6)
 --custom: 1-5,7 (binary: 1-5)
@@ -880,5 +880,8 @@ AFFECT_CODE_NIGHT       =VgID+3 --黑夜
 AFFECT_CODE_DEEP_NIGHT  =VgID+4 --深渊黑夜
 
 
+AFFECT_CODE_OVERLAY_INSTEAD_WHEN_RIDE   =10501082   --不执行『选择手牌中的1张卡，舍弃』而是执行『灵魂爆发1』来将卡RIDE
+
+
 POS_FACEUP_DEFENCE=POS_FACEUP_DEFENSE
 POS_FACEDOWN_DEFENCE=POS_FACEDOWN_DEFENSE
\ No newline at end of file

c10501082.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_FIELD)
+    e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
+    e1:SetCode(AFFECT_OVERLAY_INSTEAD_WHEN_RIDE)
+    e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(function (e,tp,eg,ep,ev,re,r,rp)
+		return cm.con(e,tp,eg,ep,ev,re,r,rp) and vgf.VMonsterCondition(e)
+	end)
+    e1:SetTargetRange(1,0)
+    c:RegisterEffect(e1)
+	local e2=Effect.CreateEffect(c)
+    e2:SetType(EFFECT_TYPE_SINGLE)
+    e2:SetCode(EFFECT_CANNOT_BE_BATTLE_TARGET)
+    e2:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e2:SetRange(LOCATION_MZONE)
+    e2:SetCondition(function (e,tp,eg,ep,ev,re,r,rp)
+		return not cm.con(e,tp,eg,ep,ev,re,r,rp) and vgf.VMonsterCondition(e)
+	end)
+    e2:SetValue(function (e,tc)
+		return tc:IsLevelBelow(2) and vgf.RMonsterFilter(tc)
+	end)
+    c:RegisterEffect(e2)
+	vgd.EffectTypeTrigger(c,m,nil,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,nil,cm.con1)
 end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+    local a=vgf.IsExistingMatchingCard(cm.filter1,tp,LOCATION_REMOVED,0,1,nil)
+    local b=vgf.IsExistingMatchingCard(cm.filter2,tp,LOCATION_REMOVED,0,1,nil)
+    -- 白翼（你的封锁区中的卡只有奇数的等级的场合才有效）
+    return not a and b
+end
+function cm.filter1(c)
+    return c:GetLevel()%2==1
+end
+function cm.filter2(c)
+    return c:GetLevel()%2==0
+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.op(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetDecktopGroup(tp,1)
+	vgf.Sendto(LOCATION_REMOVED,g,POS_FACEUP,REASON_EFFECT)
+end
\ No newline at end of file