Add files via upload

VgD.Lua

@@ -860,14 +860,15 @@ function VgD.BeRidedByCardCondition(code,f)
         return r==REASON_RIDEUP and (VgF.GetValueType(f)=="nil" or f(e,tp,eg,ep,ev,re,r,rp))
     end
 end
-function VgD.BeRidedByCardOperation(m,op,cost,tg)
+function VgD.BeRidedByCardOperation(m,op,cost,tg,stringid)
     return function (e,tp,eg,ep,ev,re,r,rp)
         local c=e:GetHandler()
         local rc=c:GetReasonCard()
         local type=EFFECT_TYPE_TRIGGER_F
+        if not stringid then stringid=2 end
         if VgF.GetValueType(cost)=="function" then type=EFFECT_TYPE_TRIGGER_O end
         local e1=Effect.CreateEffect(rc)
-        e1:SetDescription(VgF.Stringid(m,2))
+        e1:SetDescription(VgF.Stringid(m,stringid))
         e1:SetType(type+EFFECT_TYPE_FIELD)
         e1:SetProperty(EFFECT_FLAG_DELAY)
         e1:SetCode(EVENT_SPSUMMON_SUCCESS)
@@ -884,13 +885,14 @@ function VgD.BeRidedByCardOpCondtion(e,tp,eg,ep,ev,re,r,rp)
     return eg:GetFirst()==e:GetHandler()
 end
 
-function VgD.EffectTypeTrigger(c,m,loc,typ,code,op,cost,con,tg,count,property)
+function VgD.EffectTypeTrigger(c,m,loc,typ,code,op,cost,con,tg,count,property,stringid)
     local type2=EFFECT_TYPE_TRIGGER_F
     if VgF.GetValueType(cost)=="function" then type2=EFFECT_TYPE_TRIGGER_O end
     if not typ then typ=EFFECT_TYPE_SINGLE end
     if not loc then loc=LOCATION_MZONE end
+    if not stringid then stringid=0 end
     local e1=Effect.CreateEffect(c)
-    e1:SetDescription(VgF.Stringid(m,0))
+    e1:SetDescription(VgF.Stringid(m,stringid))
     e1:SetType(typ+type2)
     e1:SetRange(loc)
     e1:SetCode(code)
@@ -902,10 +904,11 @@ function VgD.EffectTypeTrigger(c,m,loc,typ,code,op,cost,con,tg,count,property)
     if VgF.GetValueType(op)=="function" then e1:SetOperation(op) end
     c:RegisterEffect(e1)
 end
-function VgD.EffectTypeIgnition(c,m,loc,op,cost,con,tg,count,property)
+function VgD.EffectTypeIgnition(c,m,loc,op,cost,con,tg,count,property,stringid)
     if not loc then loc=LOCATION_MZONE end
+    if not stringid then stringid=1 end
     local e1=Effect.CreateEffect(c)
-    e1:SetDescription(VgF.Stringid(m,1))
+    e1:SetDescription(VgF.Stringid(m,stringid))
     e1:SetType(EFFECT_TYPE_IGNITION)
     e1:SetRange(loc)
     if property and property>0 then e1:SetProperty(property) end