新增对能量发生器的定义

VgDefinition.Lua

 VgDefinition={}
 VgID=10000001
+CARD_ENERGY=10800730
+CARD_ENERGY_EMBLEM=10800851
 --min/max value
 MIN_ID		=1000		--4 digits, by DataManager::GetDesc()
 MAX_ID		=268435455	--28 bits, by DataManager::GetDesc()

VgFuncLib.lua

@@ -639,13 +639,13 @@ function VgF.EnergyCost(val)
             if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
                 VgF.AddMixCostGroupFrom(c,m,"LOCATION_EMBLEM")
                 VgF.AddMixCostGroupTo(c,m,"0")
-                VgF.AddMixCostGroupFilter(c,m,function(tc) tc:IsCode(10800730) end)
+                VgF.AddMixCostGroupFilter(c,m,function(tc) tc:IsCode(CARD_ENERGY) end)
                 VgF.AddMixCostGroupCountMin(c,m,val)
                 VgF.AddMixCostGroupCountMax(c,m,val)
             end
-            return VgF.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_EMBLEM,0,val,nil,10800730)
+            return VgF.IsExistingMatchingCard(Card.IsCode,tp,LOCATION_EMBLEM,0,val,nil,CARD_ENERGY)
         end
-        local sg=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_EMBLEM,0,nil,10800730)
+        local sg=Duel.GetMatchingGroup(Card.IsCode,tp,LOCATION_EMBLEM,0,nil,CARD_ENERGY)
         local g=VgF.GetCardsFromGroup(sg,val)
         return VgF.Sendto(0,g,tp,POS_FACEUP,REASON_COST)
     end

c10800730.lua

---能量
-function c10800730.initial_effect(c)
-	
+local cm,m,o=GetID()
+function cm.initial_effect(c)
+	vgf.VgCard(c)
 end
+

c10800731.lua

+local cm,m,o=GetID()
+function cm.initial_effect(c)
+	vgf.VgCard(c)
+end

c10800855.lua

@@ -32,9 +32,9 @@ function cm.con1(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.op1(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    local code=10800730
+    local code=CARD_ENERGY
     local selfcode1,selfcode2=c:GetOriginalCode()
-    if selfcode2==10800855 then code=code+1 end
+    if selfcode2~=CARD_ENERGY_EMBLEM then code=code+1 end
     local token1=Duel.CreateToken(tp,code)
     local token2=Duel.CreateToken(tp,code)
     local token3=Duel.CreateToken(tp,code)
@@ -46,9 +46,9 @@ function cm.con2(e,tp,eg,ep,ev,re,r,rp)
 end
 function cm.op2(e,tp,eg,ep,ev,re,r,rp)
     local c=e:GetHandler()
-    local code=10800730
+    local code=CARD_ENERGY
     local selfcode1,selfcode2=c:GetOriginalCode()
-    if selfcode2==10800855 then code=code+1 end
+    if selfcode2~=CARD_ENERGY_EMBLEM then code=code+1 end
     if vgf.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_EMBLEM,0,nil,code)>=10 then return end
     local ct=10-vgf.GetMatchingGroupCount(Card.IsCode,tp,LOCATION_EMBLEM,0,nil,code)
     local token1=Duel.CreateToken(tp,code)