Merge pull request #177 from nekrozar/patch-5

fix "After this card is activated" effect

c20349913.lua

@@ -32,6 +32,7 @@ end
 function c20349913.activate(e,tp,eg,ep,ev,re,r,rp)
 	local p,d=Duel.GetChainInfo(0,CHAININFO_TARGET_PLAYER,CHAININFO_TARGET_PARAM)
 	Duel.Draw(p,d,REASON_EFFECT)
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_CHANGE_DAMAGE)
@@ -40,6 +41,7 @@ function c20349913.activate(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetValue(c20349913.damval)
 		e1:SetReset(RESET_PHASE+PHASE_END)
 		Duel.RegisterEffect(e1,tp)
+	end
 end
 function c20349913.damval(e,re,val,r,rp,rc)
 	return val/2

c22765132.lua

@@ -43,6 +43,7 @@ function c22765132.activate(e,tp,eg,ep,ev,re,r,rp)
 			Duel.ConfirmCards(1-tp,g1)
 		end
 	end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetProperty(EFFECT_FLAG_PLAYER_TARGET)
@@ -55,6 +56,7 @@ function c22765132.activate(e,tp,eg,ep,ev,re,r,rp)
 			e1:SetReset(RESET_PHASE+PHASE_END+RESET_SELF_TURN)
 		end
 		Duel.RegisterEffect(e1,tp)
+	end
 end
 function c22765132.sumlimit(e,c,sump,sumtype,sumpos,targetp,se)
 	return c:IsLocation(LOCATION_EXTRA)

c26285788.lua

@@ -5,6 +5,7 @@ function c26285788.initial_effect(c)
 	e1:SetType(EFFECT_TYPE_ACTIVATE)
 	e1:SetCode(EVENT_FREE_CHAIN)
 	e1:SetCountLimit(1,26285788+EFFECT_COUNT_CODE_OATH)
+	e1:SetTarget(c26285788.target)
 	e1:SetOperation(c26285788.activate)
 	c:RegisterEffect(e1)
 	if c26285788.global_effect==nil then
@@ -26,6 +27,9 @@ function c26285788.addcount(e,tp,eg,ep,ev,re,r,rp)
 		c=eg:GetNext()
 	end
 end
+function c26285788.target(e,tp,eg,ep,ev,re,r,rp,chk)
+	if chk==0 then return e:IsHasType(EFFECT_TYPE_ACTIVATE) end
+end
 function c26285788.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local e1=Effect.CreateEffect(c)

c53208660.lua

@@ -48,6 +48,7 @@ function c53208660.activate(e,tp,eg,ep,ev,re,r,rp)
 		Duel.SendtoHand(g1,nil,REASON_EFFECT)
 		Duel.ConfirmCards(1-tp,g1)
 	end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_INDESTRUCTABLE_EFFECT)
@@ -56,6 +57,7 @@ function c53208660.activate(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetValue(1)
 		e1:SetReset(RESET_PHASE+PHASE_END+RESET_OPPO_TURN)
 		Duel.RegisterEffect(e1,tp)
+	end
 end
 function c53208660.indtg(e,c)
 	return (c:GetSequence()==6 or c:GetSequence()==7) and c:IsSetCard(0x98)

c57728570.lua

@@ -53,6 +53,7 @@ function c57728570.activate(e,tp,eg,ep,ev,re,r,rp)
 		local dg=g:Select(1-tp,1,3,nil)
 		Duel.Destroy(dg,REASON_EFFECT)
 	end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_CHANGE_DAMAGE)
@@ -65,4 +66,5 @@ function c57728570.activate(e,tp,eg,ep,ev,re,r,rp)
 		e2:SetCode(EFFECT_NO_EFFECT_DAMAGE)
 		e2:SetReset(RESET_PHASE+PHASE_END,2)
 		Duel.RegisterEffect(e2,tp)
+	end
 end

c57815601.lua

@@ -43,6 +43,7 @@ function c57815601.activate(e,tp,eg,ep,ev,re,r,rp)
 		g:Sub(sg)
 		Duel.SendtoGrave(g,REASON_EFFECT)
 	end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_CANNOT_SPECIAL_SUMMON)
@@ -51,6 +52,7 @@ function c57815601.activate(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetTarget(c57815601.splimit)
 		e1:SetReset(RESET_PHASE+PHASE_END)
 		Duel.RegisterEffect(e1,tp)
+	end
 end
 function c57815601.splimit(e,c)
 	return not c:IsSetCard(0xb5)

c63630268.lua

@@ -21,6 +21,7 @@ function c63630268.operation(e,tp,eg,ep,ev,re,r,rp)
 	if tc:IsRelateToEffect(e) and tc:IsPosition(POS_FACEUP_ATTACK) then
 		Duel.ChangePosition(tc,POS_FACEUP_DEFENCE)
 	end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_CHANGE_DAMAGE)
@@ -29,6 +30,7 @@ function c63630268.operation(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetValue(c63630268.damval)
 		e1:SetReset(RESET_PHASE+PHASE_END,1)
 		Duel.RegisterEffect(e1,tp)
+	end
 end
 function c63630268.damval(e,re,val,r,rp,rc)
 	return val/2

c7165085.lua

@@ -23,7 +23,7 @@ function c7165085.activate(e,tp,eg,ep,ev,re,r,rp)
 	local c=e:GetHandler()
 	local tc=Duel.GetFirstTarget()
 	if not tc:IsRelateToEffect(e) or tc:IsFaceup() then
-		if c:IsRelateToEffect(e) then
+		if c:IsRelateToEffect(e) and e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 			c:CancelToGrave()
 			Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
 		end
@@ -73,7 +73,7 @@ function c7165085.activate(e,tp,eg,ep,ev,re,r,rp)
 			end
 		end
 	end
-	if c:IsRelateToEffect(e) then
+	if c:IsRelateToEffect(e) and e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		c:CancelToGrave()
 		Duel.SendtoDeck(c,nil,2,REASON_EFFECT)
 	end

c84117021.lua

@@ -66,6 +66,7 @@ function c84117021.activate(e,tp,eg,ep,ev,re,r,rp)
 			tc:RegisterEffect(e1)
 		end
 	end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_CHANGE_DAMAGE)
@@ -78,6 +79,7 @@ function c84117021.activate(e,tp,eg,ep,ev,re,r,rp)
 		e2:SetCode(EFFECT_NO_EFFECT_DAMAGE)
 		e2:SetReset(RESET_PHASE+PHASE_END)
 		Duel.RegisterEffect(e2,tp)
+	end
 end
 function c84117021.sumcon(e,tp,eg,ep,ev,re,r,rp)
 	return eg:IsExists(c84117021.filter,1,nil)

c95254840.lua

@@ -20,6 +20,7 @@ function c95254840.activate(e,tp,eg,ep,ev,re,r,rp)
 	if g:GetCount()>0 then
 		Duel.ChangePosition(g,POS_FACEUP_DEFENCE)
 	end
+	if e:IsHasType(EFFECT_TYPE_ACTIVATE) then
 		local e1=Effect.CreateEffect(e:GetHandler())
 		e1:SetType(EFFECT_TYPE_FIELD)
 		e1:SetCode(EFFECT_TO_GRAVE_REDIRECT)
@@ -28,6 +29,7 @@ function c95254840.activate(e,tp,eg,ep,ev,re,r,rp)
 		e1:SetValue(LOCATION_HAND)
 		e1:SetReset(RESET_PHASE+PHASE_END)
 		Duel.RegisterEffect(e1,tp)
+	end
 end
 function c95254840.rmtg(e,c)
 	return c:IsSetCard(0x9f) and c:IsReason(REASON_DESTROY) and c:IsReason(REASON_BATTLE+REASON_EFFECT)