Add files via upload

VgFuncLib.lua

@@ -39,6 +39,24 @@ function VgF.Next(g)
 				else return g:GetNext() end
 			end
 end
+function VgF.GetValueType(v)
+	local t=type(v)
+	if t=="userdata" then
+		local mt=getmetatable(v)
+		if mt==Group then return "Group"
+		elseif mt==Effect then return "Effect"
+		else return "Card" end
+	else return t end
+end
+function VgF.ReturnCard(g)
+    local tc
+    if VgF.GetValueType(g)=="Group" then
+        tc=g:GetFirst()
+    elseif VgF.GetValueType(g)=="Card" then
+        tc=g
+    end
+    return tc
+end
 bit={}
 function bit.band(a,b)
 	return a&b
@@ -58,18 +76,18 @@ end
 function bit.bnot(a)
 	return ~a
 end
-function VgF.RMonsterFilter(c)
+function VgF.VMonsterFilter(c)
     return VgF.IsSequence(c,5)
 end
-function VgF.VMonsterFilter(c)
+function VgF.RMonsterFilter(c)
     return c:GetSequence()<5
 end
-function VgF.VMonsterCondition(e,c)
-    return VgF.VMonsterFilter(e:GetHandler())
-end
 function VgF.RMonsterCondition(e,c)
     return VgF.RMonsterFilter(e:GetHandler())
 end
+function VgF.VMonsterCondition(e,c)
+    return VgF.VMonsterFilter(e:GetHandler())
+end
 function VgF.IsSequence(c,...)
     for i,v in ipairs{...} do
         if c:GetSequence()==v then
@@ -130,10 +148,11 @@ function VgF.LvCondition(e)
     return Duel.IsExistingMatchingCard(VgF.LvConditionFilter,tp,LOCATION_MZONE,0,1,nil,lv)
 end
 function VgF.LvConditionFilter(c,lv)
-    return VgF.RMonsterFilter(c) and c:IsLevelAbove(lv)
+    return VgF.VMonsterFilter(c) and c:IsLevelAbove(lv)
 end
-function VgF.AtkUp(c,tc,val)
-    if not tc then return end
+function VgF.AtkUp(c,g,val)
+    if not g then return end
+    local tc=VgF.ReturnCard(g)
     local e1=Effect.CreateEffect(c)
     e1:SetType(EFFECT_TYPE_SINGLE)
     e1:SetCode(EFFECT_UPDATE_ATTACK)
@@ -141,8 +160,9 @@ function VgF.AtkUp(c,tc,val)
     e1:SetReset(RESET_EVENT+RESETS_STANDARD+RESET_PHASE+PHASE_END)
     tc:RegisterEffect(e1)
 end
-function VgF.StarUp(c,tc,val)
-    if not tc then return end
+function VgF.StarUp(c,g,val)
+    if not g then return end
+    local tc=VgF.ReturnCard(g)
     local e1=Effect.CreateEffect(c)
     e1:SetType(EFFECT_TYPE_SINGLE)
     e1:SetCode(EFFECT_UPDATE_LSCALE)

c10101001.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101002.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101003.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101004.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101005.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101006.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101007.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101008.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101009.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101011.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101012.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101013.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101014.lua

@@ -3,7 +3,7 @@ local cm,m,o=GetID()
 function cm.initial_effect(c)
 	VgD.Rule(c)
 	VgD.RideUp(c)
-	VgD.CallToV(c)
+	VgD.CallToR(c)
 	VgD.MonsterBattle(c)
-	VgD.MonsterTrigger(c,nil)
+	VgD.CardTrigger(c,nil)
 end
\ No newline at end of file

c10101015.lua

+--
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+	VgD.Rule(c)
+	VgD.RideUp(c)
+	VgD.CardTrigger(c,nil)
+	VgD.SpellActivate(c,m,nil,cm.op)
+end
+function cm.op(e,tp,eg,ep,ev,re,r,rp)
+    Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_RTOHAND)
+	local g=Duel.SelectMatchingCard(tp,nil,tp,LOCATION_DROP,0,1,1,nil)
+	if g then Duel.SendtoHand(g,nil,REASON_EFFECT) end
+end
\ No newline at end of file