From fc37149e9d4e25adc27f832125766642465c9721 Mon Sep 17 00:00:00 2001
From: Applevangelist <post@tniedermeier.com>
Date: Tue, 29 Jul 2025 17:38:11 +0200
Subject: [PATCH] xx

---
 Moose Development/Moose/Core/Zone.lua         |  3 ++-
 .../Moose/Functional/Tiresias.lua             | 20 ++++++++++---------
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/Moose Development/Moose/Core/Zone.lua b/Moose Development/Moose/Core/Zone.lua
index 6ed990101..11a7ce24c 100644
--- a/Moose Development/Moose/Core/Zone.lua	
+++ b/Moose Development/Moose/Core/Zone.lua	
@@ -1280,7 +1280,8 @@ end
 function ZONE_RADIUS:GetScannedSetGroup()
 
   self.ScanSetGroup=self.ScanSetGroup or SET_GROUP:New() --Core.Set#SET_GROUP
-
+  
+  self.ScanSetGroup:Clear(false)
   self.ScanSetGroup.Set={}
 
   if self.ScanData then
diff --git a/Moose Development/Moose/Functional/Tiresias.lua b/Moose Development/Moose/Functional/Tiresias.lua
index 8010abfcd..034787ada 100644
--- a/Moose Development/Moose/Functional/Tiresias.lua	
+++ b/Moose Development/Moose/Functional/Tiresias.lua	
@@ -105,7 +105,7 @@
 TIRESIAS = {
   ClassName         = "TIRESIAS",
   debug             = true,
-  version           = " 0.0.7-OPT" ,
+  version           = " 0.0.7a-OPT" ,
   Interval          = 20,
   GroundSet         = nil,
   VehicleSet        = nil,
@@ -419,8 +419,8 @@ function TIRESIAS:_SwitchOnGroups(group, radius)
   --  Use cached zones to reduce object creation
   local group_name = group:GetName()
   local cache_key = group_name .. " _"  .. radius
-  local zone = self._cached_zones[cache_key]
-  local ground = self._cached_groupsets[cache_key]
+  local zone = self._cached_zones[cache_key] -- Core.Zone#ZONE_RADIUS
+  --local ground = self._cached_groupsets[cache_key] -- Core.Set#SET_GROUP
   
   if not zone then
     zone = ZONE_GROUP:New(" Zone-"  .. group_name, group, UTILS.NMToMeters(radius))
@@ -430,12 +430,14 @@ function TIRESIAS:_SwitchOnGroups(group, radius)
     zone:UpdateFromGroup(group)
   end
   
-  if not ground then
-    ground = SET_GROUP:New():FilterCategoryGround():FilterZones({zone}):FilterOnce()
-    self._cached_groupsets[cache_key] = ground
-  else
-    ground:FilterZones({zone},true):FilterOnce()
-  end
+  --if not ground then
+    --ground = SET_GROUP:New():FilterCategoryGround():FilterZones({zone}):FilterOnce()
+    --self._cached_groupsets[cache_key] = ground
+  --else
+    --ground:FilterZones({zone},true):FilterOnce()
+  zone:Scan({Object.Category.UNIT},{Unit.Category.GROUND_UNIT})
+  local ground = zone:GetScannedSetGroup()
+  --end
   
   local count = ground:CountAlive()