Add files via upload

VgDefinition.Lua

@@ -745,8 +745,8 @@ HINTMSG_REMOVEXYZ		=519	--请选择要取除的超量素材
 HINTMSG_CONTROL			=520	--请选择要改变控制权的怪兽
 HINTMSG_DESREPLACE		=521	--请选择要代替破坏的卡
 HINTMSG_FACEUPATTACK	=522	--
-HINTMSG_FACEUPDEFENSE	=523	--请选择表侧守备表示的怪兽
-HINTMSG_FACEDOWNATTACK	=524	--请选择里侧攻击表示的怪兽
+HINTMSG_FACEUPDEFENSE	=523	--
+HINTMSG_FACEDOWNATTACK	=524	--
 HINTMSG_FACEDOWNDEFENSE	=525	--请选择里侧守备表示的怪兽
 HINTMSG_CONFIRM			=526	--请选择给对方确认的卡
 HINTMSG_TOFIELD			=527	--请选择要放置到场上的卡
@@ -787,6 +787,8 @@ HINTMSG_ATKUP		    =HINTMSG_FMATERIAL	--请选择力量上升的卡
 HINTMSG_CRITICAL_STRIKE	=HINTMSG_SMATERIAL	--请选择☆值上升的卡
 HINTMSG_IMPRISON        =HINTMSG_DESTROY    --请选择要收容的卡
 HINTMSG_VMONSTER        =HINTMSG_FACEUPATTACK       --请选择先导者
+HINTMSG_RMONSTER        =HINTMSG_FACEUPDEFENSE      --请选择后防者
+HINTMSG_MONSTER         =HINTMSG_FACEDOWNATTACK     --请选择单位
 --Select	--请选择
 SELECT_HEADS				=60	--正面
 SELECT_TAILS				=61	--反面

c10102001.lua

@@ -6,14 +6,7 @@ function cm.initial_effect(c)
 end
 function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
-	Duel.RegisterFlagEffect(tp,ConditionFlag,RESET_PHASE+PHASE_END,0,1,m)
-	local e=Effect.CreateEffect(c)
-	e:SetType(EFFECT_TYPE_FIELD)
-	e:SetProperty(EFFECT_FLAG_PLAYER_TARGET+EFFECT_FLAG_CLIENT_HINT)
-	e:SetCode(m)
-	e:SetTargetRange(1,0)
-	e:SetDescription(vgf.Stringid(m,0))
-	Duel.RegisterEffect(e,tp)
+	Duel.RegisterFlagEffect(tp,ConditionFlag,RESET_PHASE+PHASE_END,EFFECT_FLAG_CLIENT_HINT,1,m,vgf.Stringid(m,0))
 end
 function cm.con(e,tp,eg,ep,ev,re,r,rp)
 	return Duel.GetTurnPlayer()==tp and vgf.VMonsterCondition(e)

c10103001.lua

@@ -38,7 +38,7 @@ function cm.filter(c)
 end
 function cm.operation(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RMONSTER)
     local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
     if g:GetCount()>0 then
         Duel.HintSelection(g)

c10401021.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_FIELD,EVENT_BATTLED,cm.op,cm.cost,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 c:GetFlagEffect(SupportFlag)>0 and vgf.RMonsterCondition(e)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then
+		return vgf.OverlayCostOP(1,e,tp,eg,ep,ev,re,r,rp,chk) and c:IsAbleToGraveAsCost()
+	end
+	vgf.OverlayCostOP(1,e,tp,eg,ep,ev,re,r,rp,chk)
+	Duel.SendtoGrave(c,REASON_COST)
 end
\ No newline at end of file

c10401031.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.CardToG(c,nil,cm.op)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_MONSTER)
+	local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		if vgf.RMonsterFilter(tc) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+			e1:SetRange(LOCATION_MZONE)
+			e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e1:SetValue(1)
+			tc:RegisterEffect(e1)
+			vgf.EffectReset(c,e1,EVENT_BATTLED)
+		elseif vgf.VMonsterFilter(tc) then
+			tc:RegisterFlagEffect(DefenseEntirelyFlag,RESET_EVENT+RESETS_STANDARD,0,1)
+		end
+	end
+	local sg=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+	if sg:GetCount()>=2 then
+		sg=sg:FilterSelect(tp,Card.IsDiscardable,1,1,nil,REASON_EFFECT)
+		Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT)
+	end
 end
\ No newline at end of file

c10401036.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.CardToG(c,nil,cm.op)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_MONSTER)
+	local g=Duel.SelectMatchingCard(tp,Card.IsFaceup,tp,LOCATION_MZONE,0,1,1,nil)
+	if g:GetCount()>0 then
+		local tc=g:GetFirst()
+		if vgf.RMonsterFilter(tc) then
+			local e1=Effect.CreateEffect(c)
+			e1:SetType(EFFECT_TYPE_SINGLE)
+			e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+			e1:SetRange(LOCATION_MZONE)
+			e1:SetCode(EFFECT_INDESTRUCTABLE_BATTLE)
+			e1:SetReset(RESET_EVENT+RESETS_STANDARD)
+			e1:SetValue(1)
+			tc:RegisterEffect(e1)
+			vgf.EffectReset(c,e1,EVENT_BATTLED)
+		elseif vgf.VMonsterFilter(tc) then
+			tc:RegisterFlagEffect(DefenseEntirelyFlag,RESET_EVENT+RESETS_STANDARD,0,1)
+		end
+	end
+	local sg=Duel.GetFieldGroup(tp,LOCATION_HAND,0)
+	if sg:GetCount()>=2 then
+		sg=sg:FilterSelect(tp,Card.IsDiscardable,1,1,nil,REASON_EFFECT)
+		Duel.SendtoGrave(sg,REASON_DISCARD+REASON_EFFECT)
+	end
 end
\ No newline at end of file