Add files via upload

VgD.Lua

@@ -32,6 +32,7 @@ function VgD.DisCardRideUpFilter(c,e,lv,code,rc)
     return c:IsDiscardable() and Duel.IsExistingMatchingCard(VgD.RideUpFilter1,tp,LOCATION_HAND+LOCATION_RIDE,0,1,c,e,lv,code,rc)
 end
 function VgD.RideUpFilter2(c,e,lv,code,rc)
+    if rc:GetMaterial():GetCode()==rc:GetCode() and rc:IsAttribute(SKILL_SELF_RIDE) then return end
     return c:IsLevel(lv) and c:IsType(TYPE_MONSTER) and c:IsCode(code) and rc:IsAttribute(SKILL_SELF_RIDE) and c:IsCanBeSpecialSummoned(e,SUMMON_TYPE_RIDE,tp,false,false,POS_FACEUP_ATTACK)
 end
 function VgD.RideUpCondition(e,tp,eg,ep,ev,re,r,rp)
@@ -240,7 +241,7 @@ function VgD.OverDressOperation(f)
 end
 function VgD.OverDressSum(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    c:RegisterFlagEffect(ConditionFlag,RESET_EVENT+RESETS_STANDARD,0,1,201)
+    c:RegisterFlagEffect(ConditionFlag,RESET_EVENT+RESETS_STANDARD,EFFECT_FLAG_CLIENT_HINT,1,201,vgf.Stringid(10101006,0))
 end
 
 --战斗阶段
@@ -425,7 +426,7 @@ function VgD.SupportValue(e)
     elseif Duel.GetAttackTarget()==e:GetHandler() then
         local g=Duel.GetMatchingGroup(nil,tp,LOCATION_GZONE,0,nil)
         for tc in vgf.Next(g) do
-            atk=atk+tc:GetAttack()
+            atk=atk+tc:GetDefense()
         end
         return atk
     else
@@ -545,32 +546,34 @@ function VgD.CardTriggerOperation(chkop,f)
             Duel.HintSelection(g2)
             VgF.AtkUp(c,g2,10000,nil)
         elseif c:IsRace(TRRIGGER_DRAW) then
-            Duel.Draw(tp,1,REASON_TRIGGER)
             Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
             local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
             Duel.HintSelection(g)
             VgF.AtkUp(c,g,10000,nil)
+            Duel.Draw(tp,1,REASON_TRIGGER)
         elseif c:IsRace(TRRIGGER_HEAL) then
-            Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODROP)
-            local tc=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_DAMAGE,0,1,1,nil):GetFirst()
-            if tc then
-                Duel.SendtoGrave(tc,REASON_TRIGGER)
-            end
             Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
             local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
             Duel.HintSelection(g)
             VgF.AtkUp(c,g,10000,nil)
+            if Duel.GetMatchingGroupCount(nil,tp,LOCATION_DAMAGE,0,nil)>Duel.GetMatchingGroupCount(nil,tp,0,LOCATION_DAMAGE,nil) then
+                Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_TODROP)
+                local tc=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_DAMAGE,0,1,1,nil):GetFirst()
+                if tc then
+                    Duel.SendtoGrave(tc,REASON_TRIGGER)
+                end
+            end
         elseif c:IsRace(TRRIGGER_ADVANCE) then
             local g=Duel.GetMatchingGroup(VgF.IsSequence,tp,LOCATION_MZONE,0,nil,0,4,5)
             VgF.AtkUp(c,tc,10000,nil)
         end
         if chkop==0 then
             if c:IsRace(TRRIGGER_SUPER) then
-                Duel.Draw(tp,1,REASON_TRIGGER)
                 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
                 local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
                 Duel.HintSelection(g)
                 VgF.AtkUp(c,g,100000000,nil)
+                Duel.Draw(tp,1,REASON_TRIGGER)
                 Duel.Exile(c,REASON_TRIGGER)
             else
                 Duel.Sendto(c,tp,LOCATION_DAMAGE,POS_FACEUP,REASON_EFFECT)
@@ -591,12 +594,12 @@ function VgD.CardTriggerOperation(chkop,f)
             end
         else
             if c:IsRace(TRRIGGER_SUPER) then
-                Duel.Draw(tp,1,REASON_TRIGGER)
                 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_ATKUP)
                 local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_MZONE,0,1,1,nil)
                 Duel.HintSelection(g)
                 VgF.AtkUp(c,g,100000000,nil)
                 if f then f(e,tp,eg,ep,ev,re,r,rp) end
+                Duel.Draw(tp,1,REASON_TRIGGER)
                 Duel.Exile(c,REASON_TRIGGER)
             else
                 Duel.SendtoHand(c,nil,REASON_TRIGGER)
@@ -627,6 +630,14 @@ function VgD.Rule(c)
     e1:SetCondition(VgD.RuelDrawCondition)
     e1:SetOperation(VgD.RuelDrawOperation)
 	c:RegisterEffect(e1)
+    local e3=Effect.CreateEffect(c)
+    e3:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
+    e3:SetCode(EVENT_PHASE_START+PHASE_STANDBY)
+    e3:SetRange(LOCATION_ALL)
+    e3:SetCountLimit(1,VgID+3)
+    e3:SetCondition(VgF.RuleCardCondtion)
+    e3:SetOperation(VgD.EventRideStart)
+	c:RegisterEffect(e3)
     local e10=Effect.CreateEffect(c)
     e10:SetType(EFFECT_TYPE_FIELD)
     e10:SetCode(EFFECT_HAND_LIMIT)
@@ -660,6 +671,12 @@ function VgD.Rule(c)
     e15:SetCode(EFFECT_CANNOT_SSET)
     c:RegisterEffect(e15)
 end
+function VgD.EventRideStart(e,tp,eg,ep,ev,re,r,rp)
+    local c=e:GetHandler()
+    if Duel.GetTurnPlayer()==tp then
+        Duel.RaiseEvent(c,EVENT_CUSTOM+EVENT_RIDE_START,e,0,tp,tp,0)
+    end
+end
 function VgD.RuleWin(e,tp,eg,ep,ev,re,r,rp)
     if Duel.GetCurrentChain()>0 then return end
     for WinReason=0x1, 0xff, 1 do

VgDefinition.Lua

@@ -753,7 +753,7 @@ HINTMSG_SPSUMMON		=509	--请选择要特殊召唤的卡
 HINTMSG_SET				=510	--请选择要盖放的卡
 HINTMSG_FMATERIAL		=511	--请选择要作为融合素材的卡
 HINTMSG_SMATERIAL		=512	--请选择要作为同调素材的卡
-HINTMSG_XMATERIAL		=513	--请选择要作为超量素材的卡
+HINTMSG_XMATERIAL		=513	--请选择要充入魂中的卡
 HINTMSG_FACEUP			=514	--请选择表侧表示的卡
 HINTMSG_FACEDOWN		=515	--请选择里侧表示的卡
 HINTMSG_ATTACK			=516	--请选择攻击表示的怪兽
@@ -885,11 +885,12 @@ ConditionFlag           =VgID+4 --处于XX状态标识
 SupportFlag             =VgID+5 --支援状态标识
 --AffectedByEffect
 AFFECT_CODE_MIX         =VgID   --魔合成
-AFFECT_CODE_SendtoG     =VgID+1 --
+AFFECT_CODE_SENDTOG     =VgID+1 --
 --自定时点
 EVENT_TRIGGER           =VgID   --判定时点
 EVENT_CRITICAL_STRIKE   =VgID+1 --暴击值结算时点
-
+EVENT_DAMAGE_TRIGGER    =VgID+2 --受伤判定完毕时点
+EVENT_RIDE_START        =VgID+3 --骑升时点
 
 POS_FACEUP_DEFENCE=POS_FACEUP_DEFENSE
 POS_FACEDOWN_DEFENCE=POS_FACEDOWN_DEFENSE
\ No newline at end of file

VgFuncLib.lua

@@ -200,6 +200,10 @@ function VgF.tgoval(e,re,rp)
 end
 function VgF.Call(g,sumtype,sp,zone)
     if zone then
+        if Duel.IsExistingMatchingCard(VgD.CallFilter,sp,LOCATION_MZONE,0,1,nil,sp,zone) then
+            local tc=Duel.GetMatchingGroup(VgD.CallFilter,sp,LOCATION_MZONE,0,nil,sp,zone):GetFirst()
+            Duel.SendtoGrave(tc,REASON_COST)
+        end
 	    return Duel.SpecialSummon(g,sumtype,sp,sp,false,false,POS_FACEUP_ATTACK,zone)
     end
     local sg

c10101006.lua

@@ -15,7 +15,6 @@ function cm.operation2(e,tp,eg,ep,ev,re,r,rp)
 			local g=Duel.SelectTarget(tp,vgf.RMonsterFilter,tp,0,LOCATION_MZONE,1,1,nil)
 			if g then
 				Duel.HintSelection(g)
-				
 				Duel.SendtoGrave(g,REASON_EFFECT)
 			end
 		end

c10102001.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_RIDE_START,cm.op,nil,cm.con)
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_ATTACK_ANNOUNCE,cm.op2,vgf.OverlayCost(5),vgf.VMonsterCondition)
 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)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	return rp==tp and vgf.VMonsterCondition(e)
+end
+function cm.op2(e,tp,eg,ep,ev,re,r,rp)
+	local g=Duel.GetMatchingGroup(vgf.IsSequence,tp,LOCATION_MZONE,0,nil,0,4)
+	Duel.ChangePosition(g,POS_FACEUP_ATTACK)
+end
\ No newline at end of file

c10102002.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,cm.cost,cm.con)
+	local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e1:SetCode(EFFECT_UPDATE_ATTACK)
+    e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.con2)
+    e1:SetValue(5000)
+    c:RegisterEffect(e1)
 end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Draw(tp,1,REASON_EFFECT)
+end
+function cm.filter(c)
+	return c:IsCanOverlay() and vgf.RMonsterFilter(c)
+end
+function cm.cost(e,tp,eg,ep,ev,re,r,rp,chk)
+	local c=e:GetHandler()
+	if chk==0 then return Duel.IsExistingMatchingCard(cm.filter,tp,LOCATION_MZONE,0,1,nil) end
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_XMATERIAL)
+	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_MZONE,0,1,1,nil)
+	Duel.Overlay(c,g)
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return vgf.IsSequence(c,5) and r==REASON_RIDEUP
+end
+function cm.con2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffectLabel(tp,ConditionFlag)==10102001
+end
\ No newline at end of file

c10102003.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.EffectTypeTrigger(c,m,LOCATION_MZONE,EFFECT_TYPE_SINGLE,EVENT_SPSUMMON_SUCCESS,cm.op,nil,cm.con)
+	local e1=Effect.CreateEffect(c)
+    e1:SetType(EFFECT_TYPE_SINGLE)
+    e1:SetProperty(EFFECT_FLAG_SINGLE_RANGE)
+    e1:SetCode(EFFECT_UPDATE_ATTACK)
+    e1:SetRange(LOCATION_MZONE)
+	e1:SetCondition(cm.con2)
+    e1:SetValue(5000)
+    c:RegisterEffect(e1)
 end
+function cm.con2(e,tp,eg,ep,ev,re,r,rp)
+	return Duel.GetFlagEffectLabel(tp,ConditionFlag)==10102001
+end
+function cm.con(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
+	return vgf.IsSequence(c,5) and r==REASON_RIDEUP
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_CALL)
+	local g=Duel.GetMatchingGroup(VgF.VMonsterFilter,tp,LOCATION_MZONE,0,nil):GetFirst():GetOverlayGroup():FilterSelect(tp,Card.IsCanBeSpecialSummoned,1,1,nil,e,0,tp,false,false,POS_FACEUP_ATTACK,0x4)
+	vgf.Call(g,0,tp,0x4)
+end
\ No newline at end of file

c10102004.lua

 local cm,m,o=GetID()
 function cm.initial_effect(c)
 	vgf.VgCard(c)
+	vgd.BeRidedByCard(c,m,nil,cm.operation,nil,cm.condition)
 end
+function cm.operation(e,tp,eg,ep,ev,re,r,rp)
+	Duel.Draw(tp,1,REASON_EFFECT)
+end
+function cm.condition(e,tp,eg,ep,ev,re,r,rp)
+	return tp==1 and Duel.GetTurnPlayer()==tp
+end
\ No newline at end of file