- Added the Chase Module which replicates /rg chaseon functionality

- Ready for testing

init.lua

@@ -146,6 +146,11 @@ local script_actor = RGMercUtils.Actors.register(function(message)
     end
 end)
 
+-- Binds
+mq.bind("/chaseon", function()
+    RGMercModules:execModule("Chase", "ChaseOn")
+end)
+
 while not terminate do
     Main()
     mq.doevents()

modules/chase.lua

@@ -0,0 +1,150 @@
+-- Sample Basic Class Module
+local mq            = require('mq')
+local RGMercsLogger = require("rgmercs.utils.rgmercs_logger")
+local RGMercUtils   = require("rgmercs.utils.rgmercs_utils")
+local ICONS         = require('mq.Icons')
+
+local Module        = { _version = '0.1a', name = "Chase", author = 'Derple' }
+Module.__index      = Module
+
+local function getConfigFileName()
+    local server = mq.TLO.EverQuest.Server()
+    server = server:gsub(" ", "")
+    return mq.configDir ..
+    '/rgmercs/PCConfigs/' .. Module.name .. "_" .. server .. "_" .. RGMercConfig.CurLoadedChar .. '.lua'
+end
+
+function Module:SaveSettings(doBroadcast)
+    mq.pickle(getConfigFileName(), self.settings)
+
+    if doBroadcast then
+        RGMercUtils.BroadcastUpdate(self.name, "SaveSettings")
+    end
+end
+
+function Module:LoadSettings()
+    RGMercsLogger.log("Chase Module Loading Settings for: %s.", RGMercConfig.CurLoadedChar)
+    local settings_pickle_path = getConfigFileName()
+
+    local config, err = loadfile(settings_pickle_path)
+    if err or not config then
+        RGMercsLogger.log_error("\ay[Basic]: Unable to load global settings file(%s), creating a new one!",
+            settings_pickle_path)
+        self.settings = {}
+        self.settings.ChaseOn = false
+        self.settings.ChaseDistance = 25
+        self.settings.ChaseTarget = nil
+        self.settings.RequireLoS = RGMercConfig.RGCasters:contains(mq.TLO.Me.Class.ShortName())
+
+        self:SaveSettings(true)
+    else
+        self.settings = config()
+    end
+end
+
+function Module.New()
+    RGMercsLogger.log("Chase Module Loaded.")
+    local newModule = setmetatable({ settings = {} }, Module)
+
+    newModule:LoadSettings()
+
+    return newModule
+end
+
+function Module:Render()
+    ImGui.Text("Chase Module")
+    ImGui.Text(string.format("Chase Distance: %d", self.settings.ChaseDistance))
+    ImGui.Text(string.format("Chase LOS Required: %s", self.settings.LineOfSight and "On" or "Off"))
+
+    local pressed
+    local chaseSpawn = mq.TLO.Spawn("pc ="..self.settings.ChaseTarget)
+
+    ImGui.Text(string.format("Chase Target: %s", self.settings.ChaseTarget))
+
+    if chaseSpawn then
+        ImGui.Indent()
+        ImGui.Text(string.format("Distance: %d", chaseSpawn.Distance()))
+        ImGui.Text(string.format("ID: %d", chaseSpawn.ID()))
+        ImGui.Text(string.format("LOS: "))
+        if chaseSpawn.LineOfSight() then
+            ImGui.PushStyleColor(ImGuiCol.Text, 0.3, 1.0, 0.3, 0.8)
+        else
+            ImGui.PushStyleColor(ImGuiCol.Text, 1.0, 0.3, 0.3, 0.8)
+        end
+        ImGui.SameLine()
+        ImGui.Text(string.format("%s", chaseSpawn.LineOfSight() and ICONS.FA_EYE or ICONS.FA_EYE_SLASH))
+        ImGui.PopStyleColor(1)
+        ImGui.Unindent()
+    end
+
+    self.settings.ChaseOn, pressed = ImGui.Checkbox("Chase On", self.settings.ChaseOn)
+    if pressed then
+        self:SaveSettings()
+    end
+end
+
+function Module:GiveTime()
+    if mq.TLO.Me.Dead() and self.settings.ChaseOn then
+        RGMercsLogger.log("\awNOTICE:\ax You're dead. I'm not chasing \am%s\ax anymore.", self.settings.ChaseTarget)
+        self.settings.ChaseOn = false
+        self:SaveSettings()
+        return
+    end
+
+    if self.settings.ChaseOn and self.settings.ChaseTarget then
+        local chaseSpawn = mq.TLO.Spawn("pc ="..self.settings.ChaseTarget)
+
+        if not chaseSpawn or chaseSpawn.Dead() or not chaseSpawn.ID() then
+            RGMercsLogger.log("\awNOTICE:\ax Chase Target \am%s\ax is dead or not found in zone - Pausing...", self.settings.ChaseTarget)
+            --self.settings.ChaseOn = false
+            --self:SaveSettings()
+            return
+        end
+
+        local Nav = mq.TLO.Nav
+
+        -- Use MQ2Nav with moveto as a failover if we have a mesh. We'll use a nav
+        -- command if the mesh is loaded and we have a path. If we don't have a path
+        -- we'll use a moveto. This will hopefully get us over spots of the mesh that
+        -- are missing with minimal issues.
+        if Nav.MeshLoaded() then
+            if not Nav.Active() then
+                if Nav.PathExists("id "..chaseSpawn.ID()) then
+                    mq.cmdf("/squelch /nav id %d | log=critical distance %d lineofsight=%s", chaseSpawn.ID(), self.settings.ChaseDistance, self.settings.RequireLoS and "on" or "off")
+                else
+                    -- Assuming no line of site problems.
+                    -- Moveto underwater style until 20 units away
+                    mq.cmdf("/squelch /moveto id %d uw mdist %d", chaseSpawn.ID(), self.settings.ChaseDistance)
+                end
+            end
+        elseif chaseSpawn.Distance() > self.settings.ChaseDistance and chaseSpawn.Distnance() < 400 then
+            -- If we don't have a mesh we're using afollow as legacy RG behavior.
+            mq.cmdf("/squelch /afollow spawn %d", chaseSpawn.ID())
+            mq.cmdf("/squelch /afollow %d", self.settings.ChaseDistance)
+
+            mq.delay("2s")
+
+            if chaseSpawn.Distance() < self.settings.ChaseDistance then
+                mq.cmdf("/squelch /afollow off")
+            end
+        end
+    end
+end
+
+function Module:Shutdown()
+    RGMercsLogger.log("Chase Module UnLoaded.")
+end
+
+function Module:ChaseOn()
+-- Command Binds
+    if mq.TLO.Target.ID() > 0 then
+        self.settings.ChaseOn = not self.settings.ChaseOn
+        self.settings.ChaseTarget = mq.TLO.Target.CleanName()
+        self:SaveSettings()
+    else
+        RGMercsLogger.log("\ayWarning:\ax No valid chase target!")
+    end
+end
+
+
+return Module

utils/rgmercs_config.lua

@@ -1,6 +1,7 @@
 local mq                    = require('mq')
 local RGMercUtils           = require("rgmercs.utils.rgmercs_utils")
 local RGMercsLogger         = require("rgmercs.utils.rgmercs_logger")
+local Set                   = require("mq.Set")
 
 local Config                = { _version = '0.1a', author = 'Derple' }
 Config.__index              = Config
@@ -9,6 +10,14 @@ Config.settings             = {}
 Config.CurLoadedChar        = mq.TLO.Me.CleanName()
 Config.CurLoadedClass       = mq.TLO.Me.Class.ShortName()
 
+-- Constants
+Config.RGCasters            = Set.new({"BRD","BST","CLR","DRU","ENC","MAG","NEC","PAL","RNG","SHD","SHM","WIZ"})
+Config.RGMelee              = Set.new({"BRD","SHD","PAL","WAR","ROG","BER","MNK","RNG","BST"})
+Config.RGHybrid             = Set.new({"SHD","PAL","RNG","BST","BRD"})
+Config.RGTank               = Set.new({"WAR","PAL","SHD"})
+Config.RGModRod             = Set.new({"BST","CLR","DRU","SHM","MAG","ENC","WIZ","NEC","PAL","RNG","SHD"})
+Config.RGPetClass           = Set.new({"BST","NEC","MAG","SHM","ENC","SHD"})
+
 function Config:SaveSettings(doBroadcast)
     mq.pickle(self.settings_pickle_path, self.settings)
 

utils/rgmercs_modules.lua

@@ -1,3 +1,5 @@
+local RGMercsLogger  = require("rgmercs.utils.rgmercs_logger")
+
 local Modules = { _version = '0.1a', author = 'Derple' }
 Modules.__index = Modules
 
@@ -6,6 +8,7 @@ function Modules.load()
     local newModules = setmetatable({
         modules = {
             Basic = require("modules.basic").New(),
+            Chase = require("modules.chase").New(),
             SHD   = require("modules.shd").New(),
         }
     }, Modules)
@@ -24,6 +27,7 @@ function Modules:execModule(m, fn, ...)
             return
         end
     end
+    RGMercsLogger.log_error("\arModule: \at%s\ar not found!", m)
 end
 
 function Modules:execAll(fn, ...)