add DefineGetterTemp

script/c101301054.lua

@@ -125,6 +125,7 @@ function s.thtg(e,tp,eg,ep,ev,re,r,rp,chk)
 	local ac=Duel.AnnounceCard(tp,table.unpack(afilter))
 	s.AddToAnnounced(tp,ac)
 	Duel.SetTargetParam(ac)
+	Auxiliary.DefineGetterTemp(getmetatable(e:GetHandler()),"announce_filter",s.announce_filter_func)
 	Duel.SetOperationInfo(0,CATEGORY_ANNOUNCE,nil,0,tp,0)
 	Duel.SetOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_DECK)
 end
@@ -157,16 +158,61 @@ end
 function Auxiliary.DefineGetter(mt,field,f)
 	if not mt._getters then
 		mt._getters = {}
+	end
+	if not mt.__define_getter_registered__ then
+		mt.__define_getter_registered__ = true
+		local old_index = mt.__index
 		mt.__index = function(self, key)
-			if mt._getters[key]~=nil then
+			if mt._getters and mt._getters[key]~=nil then
 				return mt._getters[key](self)
 			end
-			return mt[key]
+			if type(old_index) == "function" then
+				return old_index(self, key)
+			elseif type(old_index) == "table" then
+				return old_index[key]
+			end
+			return nil
 		end
 	end
 	mt._getters[field]=f
 end
 
+function Auxiliary.DefineSetter(mt,field,f)
+	local mtmt=getmetatable(mt)
+	if not mt._setters then
+		mt._setters = {}
+	end
+	if not mtmt.__define_setter_registered__ then
+		mtmt.__define_setter_registered__ = true
+		local old_newindex = mtmt.__newindex
+		mtmt.__newindex = function(self, key, value)
+			if self._setters and self._setters[key]~=nil then
+				self._setters[key](self,value)
+			else
+				if type(old_newindex) == "function" then
+					old_newindex(self, key, value)
+				else
+					rawset(self, key, value)
+				end
+			end
+		end
+	end
+	mt._setters[field]=f
+end
+
+function Auxiliary.DefineGetterTemp(mt, field, f)
+	Auxiliary.DefineGetter(mt, field, f)
+	Auxiliary.DefineSetter(mt, field, function(self, value)
+		if self._getters and self._getters[field] == f then
+			self._getters[field] = nil
+		end
+		if self._setters then
+			self._setters[field] = nil
+		end
+		rawset(self, field, value)
+	end)
+end
+
 function s.announce_filter_func(c)
 	local tp=c:GetControler()
 	local exg=Duel.GetMatchingGroup(aux.AND(Card.IsFaceup,Card.IsSetCard),tp,LOCATION_MZONE,0,nil,0x2cd)
@@ -184,5 +230,3 @@ function s.announce_filter_func(c)
 	end
 	return af
 end
-
-Auxiliary.DefineGetter(s,"announce_filter",s.announce_filter_func)