vme50

expansions/script/c30900404.lua

 --真盖塔·2(c)
-local s,id,o=GetID()
-function s.initial_effect(c)
+local m=30900404
+local cm=_G["c"..m]
+function cm.initial_effect(c)
 	c:EnableReviveLimit()
 	--fusion summon
-	aux.AddFusionProcFunRep(c,s.ffilter,3,true)
+	aux.AddFusionProcFunRep(c,cm.ffilter,3,true)
 	aux.AddContactFusionProcedure(c,Card.IsAbleToRemoveAsCost,LOCATION_ONFIELD,0,Duel.Remove,POS_FACEUP,REASON_COST)
 	local e1=Effect.CreateEffect(c)
 	e1:SetType(EFFECT_TYPE_SINGLE)
 	e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE+EFFECT_FLAG_UNCOPYABLE)
 	e1:SetCode(EFFECT_SPSUMMON_CONDITION)
-	e1:SetValue(s.splimit)
+	e1:SetValue(cm.splimit)
 	c:RegisterEffect(e1)
 	local e2=Effect.CreateEffect(c)
 	e2:SetDescription(aux.Stringid(1561110,0))
@@ -20,68 +21,69 @@ function s.initial_effect(c)
 	e2:SetProperty(EFFECT_FLAG_CARD_TARGET)
 	e2:SetCountLimit(1)
 	e2:SetHintTiming(0,TIMINGS_CHECK_MONSTER+TIMING_END_PHASE)
-	e2:SetCost(s.rmcost)
-	e2:SetTarget(s.rmtg)
-	e2:SetOperation(s.rmop)
+	e2:SetCost(cm.rmcost)
+	e2:SetTarget(cm.rmtg)
+	e2:SetOperation(cm.rmop)
 	c:RegisterEffect(e2)
 	local e3=Effect.CreateEffect(c)
 	e3:SetCategory(CATEGORY_SPECIAL_SUMMON)
 	e3:SetType(EFFECT_TYPE_SINGLE+EFFECT_TYPE_TRIGGER_O)
 	e3:SetCode(EVENT_DESTROYED)
 	e3:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
-	e3:SetCondition(s.spcon2)
-	e3:SetTarget(s.sptg2)
-	e3:SetOperation(s.spop2)
+	e3:SetCondition(cm.spcon2)
+	e3:SetTarget(cm.sptg2)
+	e3:SetOperation(cm.spop2)
 	c:RegisterEffect(e3)
 end
-function s.ffilter(c,fc,sub,mg,sg)
+cm.spchecks=aux.CreateChecks(Card.IsCode,{30900400,30900401,30900402})
+function cm.ffilter(c,fc,sub,mg,sg)
 	return c:IsFusionSetCard(0xc83) and (not sg or not sg:IsExists(Card.IsFusionCode,1,c,c:GetFusionCode()))
 end
-function s.splimit(e,se,sp,st)
+function cm.splimit(e,se,sp,st)
 	return not e:GetHandler():IsLocation(LOCATION_EXTRA) or aux.fuslimit(e,se,sp,st)
 end
-function s.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
+function cm.rmcost(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(Card.IsDiscardable,tp,LOCATION_HAND,0,1,e:GetHandler()) end
 	Duel.DiscardHand(tp,Card.IsDiscardable,1,1,REASON_COST+REASON_DISCARD)
 end
-function s.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+function cm.rmtg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsOnField() and chkc:IsAbleToRemove() end
 	if chk==0 then return Duel.IsExistingTarget(Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,nil) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
 	local g=Duel.SelectTarget(tp,Card.IsAbleToRemove,tp,LOCATION_ONFIELD,LOCATION_ONFIELD,1,1,nil)
 	Duel.SetOperationInfo(0,CATEGORY_REMOVE,g,1,0,0)
 end
-function s.rmop(e,tp,eg,ep,ev,re,r,rp)
+function cm.rmop(e,tp,eg,ep,ev,re,r,rp)
 	local tc=Duel.GetFirstTarget()
 	if tc:IsRelateToEffect(e) then
 		Duel.Remove(tc,POS_FACEUP,REASON_EFFECT)
 	end
 end
-function s.spcon2(e,tp,eg,ep,ev,re,r,rp)
+function cm.spcon2(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	return c:IsReason(REASON_BATTLE)
 		or (rp==1-tp and c:IsReason(REASON_EFFECT) and c:IsPreviousControler(tp))
 end
-function s.spfilter(c,e,tp)
+function cm.spfilter1(c,e,tp)
 	return c:IsFaceup() and c:IsCode(30900400,30900401,30900402)
 		and c:IsCanBeSpecialSummoned(e,0,tp,false,false)
 		and c:IsCanBeEffectTarget(e)
 end
-function s.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
+function cm.sptg2(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return false end
-	local g=Duel.GetMatchingGroup(s.spfilter,tp,LOCATION_REMOVED,0,nil,e,tp)
+	local g=Duel.GetMatchingGroup(cm.spfilter1,tp,LOCATION_REMOVED,0,nil,e,tp)
 	if chk==0 then return Duel.GetLocationCount(tp,LOCATION_MZONE)>2
-		and not Duel.IsPlayerAffectedByEffect(tp,59832133)
-		and g:CheckSubGroupEach(s.spchecks) end
+		and not Duel.IsPlayerAffectedByEffect(tp,59822133)
+		and g:CheckSubGroupEach(cm.spchecks) end
 	Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_SPSUMMON)
-	local sg=g:SelectSubGroupEach(tp,s.spchecks)
+	local sg=g:SelectSubGroupEach(tp,cm.spchecks)
 	Duel.SetTargetCard(sg)
 	Duel.SetOperationInfo(0,CATEGORY_SPECIAL_SUMMON,sg,3,0,0)
 end
-function s.spop2(e,tp,eg,ep,ev,re,r,rp)
+function cm.spop2(e,tp,eg,ep,ev,re,r,rp)
 	local ft=Duel.GetLocationCount(tp,LOCATION_MZONE)
 	local g=Duel.GetChainInfo(0,CHAININFO_TARGET_CARDS):Filter(Card.IsRelateToEffect,nil,e)
-	if g:GetCount()==0 or g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59832133) then return end
+	if g:GetCount()==0 or g:GetCount()>1 and Duel.IsPlayerAffectedByEffect(tp,59822133) then return end
 	if g:GetCount()<=ft then
 		Duel.SpecialSummon(g,0,tp,tp,false,false,POS_FACEUP)
 	else
@@ -91,4 +93,4 @@ function s.spop2(e,tp,eg,ep,ev,re,r,rp)
 		g:Sub(sg)
 		Duel.SendtoGrave(g,REASON_RULE)
 	end
-end
+end
\ No newline at end of file