potral

expansions/script/c30557001.lua

@@ -60,11 +60,11 @@ function c30557001.thop(e,tp,eg,ep,ev,re,r,rp)
 	end
 end
 
-function c30557001.cfilter(c)
-	return c:IsSetCard(0x306) and c:IsType(TYPE_MONSTER)
+function c30557001.cfilter(c,tp)
+	return c:IsSetCard(0x306) and c:IsType(TYPE_MONSTER) and c:GetPreviousControler()==tp
 end
 function c30557001.descon1(e,tp,eg,ep,ev,re,r,rp)
-	return eg:IsExists(c30557001.cfilter,1,nil)
+	return eg:IsExists(c30557001.cfilter,1,nil,tp)
 end
 function c30557001.spfilter(c,e,tp)
 	return c:IsSetCard(0x306) and c:IsCanBeSpecialSummoned(e,0,tp,false,false,POS_FACEDOWN_DEFENSE)

expansions/script/c33400033.lua

@@ -228,9 +228,11 @@ function c33400033.distg(e,tp,eg,ep,ev,re,r,rp,chk)
 	end
 end
 function c33400033.disop(e,tp,eg,ep,ev,re,r,rp)
-	if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
-		Duel.Destroy(eg,REASON_EFFECT)
-	end 
+	if  Duel.SelectYesNo(tp,aux.Stringid(33400033,6))  then
+		if Duel.NegateActivation(ev) and re:GetHandler():IsRelateToEffect(re) then
+			Duel.Destroy(eg,REASON_EFFECT)
+		end 
+	end
 	 Duel.Hint(HINT_SELECTMSG,tp,HINTMSG_FACEUP)
 	 Duel.SelectTarget(tp,c33400033.filter,tp,LOCATION_ONFIELD,0,1,1,nil)
 	 local tc=Duel.GetFirstTarget()

expansions/script/c65020113.lua

@@ -30,7 +30,7 @@ function c65020113.thfil1(c,e,tp)
 end
 function c65020113.thfil2(c,fc)
 	if c:IsForbidden() or not c:IsAbleToRemove() then return false end
-	return c:IsCode(table.unpack(fc.material)) and not c:IsCode(65020113)
+	return aux.IsMaterialListCode(fc,c:GetCode()) and not c:IsCode(65020113)
 end
 function c65020113.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c65020113.thfil1,tp,LOCATION_EXTRA,0,1,nil,e,tp) end

expansions/script/c65020115.lua

@@ -29,7 +29,7 @@ function c65020115.thfil1(c,e,tp)
 end
 function c65020115.thfil2(c,fc)
 	if c:IsForbidden() or not c:IsAbleToHand() then return false end
-	return c:IsCode(table.unpack(fc.material)) and not c:IsCode(65020115)
+	return aux.IsMaterialListCode(fc,c:GetCode()) and not c:IsCode(65020115)
 end
 function c65020115.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c65020115.thfil1,tp,LOCATION_EXTRA,0,1,nil,e,tp) end

expansions/script/c65020117.lua

@@ -33,7 +33,7 @@ function c65020117.thfil1(c,e,tp)
 end
 function c65020117.thfil2(c,fc)
 	if c:IsForbidden() or not c:IsAbleToGrave() then return false end
-	return c:IsCode(table.unpack(fc.material)) and not c:IsCode(65020117)
+	return aux.IsMaterialListCode(fc,c:GetCode()) and not c:IsCode(65020117)
 end
 function c65020117.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c65020117.thfil1,tp,LOCATION_EXTRA,0,1,nil,e,tp) end

expansions/script/c65020119.lua

@@ -26,7 +26,7 @@ function c65020119.thfil1(c,e,tp)
 end
 function c65020119.thfil2(c,fc,e,tp)
 	if c:IsForbidden() or not c:IsCanBeSpecialSummoned(e,0,tp,false,false) then return false end
-	return c:IsCode(table.unpack(fc.material)) and not c:IsCode(65020119)
+	return aux.IsMaterialListCode(fc,c:GetCode()) and not c:IsCode(65020119)
 end
 function c65020119.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	if chk==0 then return Duel.IsExistingMatchingCard(c65020119.thfil1,tp,LOCATION_EXTRA,0,1,nil,e,tp) and Duel.GetLocationCount(tp,LOCATION_MZONE)>0 end

expansions/script/c65020132.lua

@@ -36,7 +36,7 @@ function c65020132.cfil(c,tp)
 end
 function c65020132.matfil(c,fc)
 	if c:IsForbidden() or not c:IsAbleToHand() then return false end
-	return c:IsCode(table.unpack(fc.material))
+	return aux.IsMaterialListCode(fc,c:GetCode())
 end
 function c65020132.tg(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return chkc:IsLocation(LOCATION_MZONE) and chkc:IsControler(tp) and c65020132.cfil(chkc,tp) end