foo foo

expansions/script/c33500933.lua

@@ -103,13 +103,17 @@ function cm.xyzop(e,tp,chk,c)
 	if chk==0 then return cnm>=3 or (g1nm==1 and g2nm==1 and  cnm2>=1) end
 	local g=Duel.GetMatchingGroup(cm.refilter3,tp,LOCATION_GRAVE,0,nil)
 	 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_REMOVE)
-	local g1=g:SelectSubGroup(tp,cm.check,false,3,99)	
+	local g1=g:SelectSubGroup(tp,cm.check,false,3,99)   
 	Duel.Remove(g1,POS_FACEUP,REASON_COST)
 end
 --e1
 function cm.spcost(e,tp,eg,ep,ev,re,r,rp,chk)
-	if chk==0 then return e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST) end
+	local ft=0
+	if e:GetHandler():GetFlagEffect(33401301)>0 then ft=1 end
+	if chk==0 then return ((ft==1) or e:GetHandler():CheckRemoveOverlayCard(tp,1,REASON_COST)) end
+	if ft==0 then 
 	e:GetHandler():RemoveOverlayCard(tp,1,1,REASON_COST)
+	end
 end
 function cm.filter(c,e,tp)
 	return c:IsSetCard(0x6341) and c:IsCanBeSpecialSummoned(e,0,tp,true,false)
@@ -125,13 +129,14 @@ function cm.spop(e,tp,eg,ep,ev,re,r,rp)
 	local g=Duel.SelectMatchingCard(tp,cm.filter,tp,LOCATION_EXTRA,0,1,1,nil,e,tp)
 	if g:GetCount()>0 then
 		Duel.SpecialSummon(g,0,tp,tp,true,false,POS_FACEUP)
+		local sc=g:GetFirst()
 		local e1=Effect.CreateEffect(c)
 		e1:SetType(EFFECT_TYPE_SINGLE)
 		e1:SetCode(EFFECT_CANNOT_ATTACK)
 		e1:SetProperty(EFFECT_FLAG_CANNOT_DISABLE)
 		e1:SetReset(RESET_EVENT+RESETS_STANDARD)
-		g:RegisterEffect(e1)
-		   g:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
+		sc:RegisterEffect(e1)
+		   sc:RegisterFlagEffect(m,RESET_EVENT+RESETS_STANDARD,0,1)
 		   local e2=Effect.CreateEffect(c)
 		   e2:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_CONTINUOUS)
 		   e2:SetCode(EVENT_PHASE+PHASE_END)
@@ -178,6 +183,7 @@ function cm.efilter(e,re)
 	return e:GetHandlerPlayer()~=re:GetOwnerPlayer()
 end
 function cm.op(e,tp,eg,ep,ev,re,r,rp)
+	local c=e:GetHandler()
 	--activate limit
 	local e3=Effect.CreateEffect(c)
 	e3:SetType(EFFECT_TYPE_CONTINUOUS+EFFECT_TYPE_FIELD)
@@ -198,22 +204,25 @@ function cm.op(e,tp,eg,ep,ev,re,r,rp)
 	local e6=e4:Clone()
 	e6:SetTargetRange(0,1)
 	e6:SetLabel(1)
+	e6:SetCondition(cm.econ2)
 	e6:SetReset(RESET_PHASE+PHASE_END)
 	Duel.RegisterEffect(e6,tp)
 end
 function cm.counterop(e,tp,eg,ep,ev,re,r,rp)
-	if not re:IsActiveType(TYPE_MONSTER) then return end
 	if ep==tp then
-		Duel.RegisterFlagEffect(m,RESET_EVENT+0x3ff0000+RESET_PHASE+PHASE_END,0,1)
+		Duel.RegisterFlagEffect(tp,m,RESET_EVENT+0x3ff0000+RESET_PHASE+PHASE_END,0,1)
 	else
-		Duel.RegisterFlagEffect(m+1,RESET_EVENT+0x3ff0000+RESET_PHASE+PHASE_END,0,1)
+		Duel.RegisterFlagEffect(1-tp,m,RESET_EVENT+0x3ff0000+RESET_PHASE+PHASE_END,0,1)
 	end
 end
 function cm.cfilter(c,type)
 	return c:IsFaceup() and c:IsType(type)
 end
 function cm.econ(e)
-	return Duel.GetFlagEffect(m+e:GetLabel())>=3
+	return Duel.GetCustomActivityCount(m,tp,ACTIVITY_CHAIN)>=3
+end
+function cm.econ2(e)
+	return Duel.GetCustomActivityCount(m,1-tp,ACTIVITY_CHAIN)>=3
 end
 --e9
 function cm.Eqop1(e,tp,eg,ep,ev,re,r,rp)

expansions/script/c81022031.lua

@@ -3,12 +3,13 @@ local m=81022031
 local cm=_G["c"..m]
 Duel.LoadScript("c81000000.lua")
 function cm.initial_effect(c)
+	aux.EnablePendulumAttribute(c)
 	--to hand
 	local e1=Effect.CreateEffect(c)
 	e1:SetDescription(aux.Stringid(m,1))
 	e1:SetCategory(CATEGORY_SEARCH+CATEGORY_TOHAND)
 	e1:SetType(EFFECT_TYPE_FIELD+EFFECT_TYPE_TRIGGER_O)
-	e1:SetCode(EVENT_SUMMON_SUCCESS)
+	e1:SetCode(EVENT_SPSUMMON_SUCCESS)
 	e1:SetProperty(EFFECT_FLAG_CARD_TARGET+EFFECT_FLAG_DELAY)
 	e1:SetRange(LOCATION_PZONE)
 	e1:SetCountLimit(1,m)