Loop script

function _OnActivated()
    Task_Loop = NewTask(LoopFunction)
end

function _OnEvent(event, arg, family)
    if event == "MOUSE_BUTTON_PRESSED" and arg == 7 then
        ToggleLoop = not ToggleLoop
        if ToggleLoop then
            PressKey("f")
            Task_Loop.SetRepeat(true)
            Task_Loop.Start()
        else
            Task_Loop.SetRepeat(false)
        end
    end
end

function LoopFunction()
    PressMouseButton(3)
    TaskSleep(500)
    MoveMouseRelative(600, 0)
    TaskSleep(500)
    ReleaseMouseButton(3)
    TaskSleep(6000)
    PressKey("w")
    TaskSleep(350)
    ReleaseKey("w")
    if not Task_Loop.GetRepeat() then
        TaskSleep(300)
        ReleaseKey("f")
    end
end


------------------------------------------------------------------------------------------------------
-- Task Class
------------------------------------------------------------------------------------------------------
-- NewTask(func, ...)   returns a new object, and creates the coroutine with given func and variables
--  .ChangeVars(...)    Change vars to new vars for next .Execute()
--  .SetRepeat(boolean) Sets repeat status to true or false.  If repeat, when the task ends, it restarts.
--  .GetRepeat()    returns if Repeat is set to true or false.
--  .Create()       creates the task, but is not running yet.
--  .Start()        creates if not already created and at the start, then sets the task to Run.
--  .Stop()         stops and finishes the task.  It cannot be resumed.
--  .IsCreated()    checks if the Task's coroutine exists (self._Co ~= nil)
--  .IsRunning()    checks if the Task's is created, if it is running, and not dead (finished running)
--  .IsAtStart()    checks if the Task is created but has not yet run.
--  .IsAtEnd()      checks if the Task has completed, and still exists.
--  .GetStatus()    returns the status of the coroutine, or nil if it doesn't exist
--  .Pause()        stops running the task, but does not destroy it.
--  .Resume()       resumes the task where it left off.
--  .Execute()      run the Task with the given variables.  This should be run every event to keep the task running
--  .Destroy()      stops and removes the Task.  It remove from the TaskHandler and nilled.
--  .Remove()       calls .Destroy()
-- TaskSleep(delay) This will yield within a Task function with the given delay.  Execution will pick up where it left off after the delay.
------------------------------------------------------------------------------------------------------

-------------------------------------------------
--  The following is for polling.  Do not alter.
-------------------------------------------------
_StartUpParameters = {
    PollDevice = "mouse",
    PollDelay = 10,
    AutoTaskSleep = false,
}
function _PreEvent() end
function _PostEvent()
    _TaskHandler.Execute()
end
function OnEvent(event, arg, family)
    if event == "PROFILE_ACTIVATED" then
        _TaskHandler = InitTaskHandler()
        Poll = InitPolling(_StartUpParameters.PollDelay, _StartUpParameters.PollDevice, _PreEvent, _PostEvent)
    end
    Poll.Execute(event, arg, family)
end

----------------------------
-- Polling Class
----------------------------
function InitPolling(PollDelay, PollDevice, PreOnEventFunc, PostOnEventFunc)
    local self = {
        PollDelay = PollDelay,
        PollDevice = PollDevice,
        PreOnEventFunc = PreOnEventFunc,
        PostOnEventFunc = PostOnEventFunc,
        Sleep = Sleep_hook,
    }
    local function CreateEvent() SetMKeyState(1, self.PollDevice) end
    local function OnEvent(event, arg, family)
        if self.PreOnEventFunc then self.PreOnEventFunc() end
        _OnEvent(event, arg, family)
        if self.PostOnEventFunc then self.PostOnEventFunc() end
    end
    function self.Execute(event, arg, family)
        if event == "PROFILE_ACTIVATED" then
            if _OnActivated then _OnActivated(event, arg, family) end
            OnEvent(event, arg, family)
            CreateEvent()                                   -- initiates the first polling event
        elseif event == "M_RELEASED" and family == self.PollDevice then
            OnEvent("POLLING", 0, self.PollDevice)
            CreateEvent()
            self.Sleep(self.PollDelay)
        elseif event == "M_PRESSED" and family == self.PollDevice then
            OnEvent("POLLING", 0, self.PollDevice)
            self.Sleep(self.PollDelay)
        elseif event == "PROFILE_DEACTIVATED" then
            if _OnDeactivated then  _OnDeactivated(event, arg, family) end
        else
            OnEvent(event, arg, family)
        end
    end
    function self.SetPreOnEventFunc(func) self.PreOnEventFunc = func end
    function self.SetPostOnEventFunc(func) self.PosOnEventFunc = func end
    return self
end

------------------------
-- Task Class
------------------------
function TaskSleep(delay) return coroutine.yield(delay) end
function NewTask(func, ...)
    local self = {
        _Func = func,
        _Running = false,
        _Co = nil,
        _ResumeRunningTime = -1,
        _AtStart = false,
        _Repeat = false,
        _Vars = nil,
        _TH = _TaskHandler or nil,
    }
    function self.ChangeVars(...)   self._Vars = { ... } end
    function self.SetRepeat(r)  self._Repeat = r end
    function self.GetRepeat()   return self._Repeat end
    function self.Create()
        self._ResumeRunningTime = -1
        self._Running = false
        self._Co = coroutine.create(self._Func)
        self._AtStart = true
    end
    function self.Start()
        if not self.IsAtStart() or not self.IsCreated() then
            self.Create()
        end
        self._Running = true
    end
    function self.Stop() self._Running = false; self._Co = nil end
    function self.GetStatus()
        if self._Co then return coroutine.status(self._Co)
        else return nil end
    end
    function self.IsAtStart() return self._AtStart end
    function self.IsAtEnd() return self.IsDead() end
    function self.IsCreated()
        if self._Co then return true
        else return false   end
    end
    function self.IsDead()
        if self._Co and self.GetStatus() == "dead" then return true
        else return false   end
    end
    function self.IsRunning()
        if self.IsCreated() and self._Running and not self.IsDead() then return true
        else return false end
    end
    function self.IsReady()
        if self._Running and self.IsCreated() and not self.IsDead()
            and self._ResumeRunningTime <= GetRunningTime() then
            return true
        else return false end
    end
    function self.Pause() self._Running = false end
    function self.Resume() self._Running = true end
    function self.Execute()
        if self.GetRepeat() and self.IsDead() and self._Running then self.Start() end
        if self.IsReady() then
            local status, delay = coroutine.resume(self._Co, unpack(self._Vars))
            self._AtStart = false
            if delay then self._ResumeRunningTime = delay + GetRunningTime()
            else self._ResumeRunningTime = -1 end
            return status
        end
    end
    function self.Destroy()
        if self._TH then self._TH.RemoveTask(self) end
        self = nil
        return nil
    end
    function self.Remove() self.Destroy() end
    self.ChangeVars(...)
    self.Create()
    if self._TH then self._TH.AddTask(self) end
    return self
end

--------------------------
--  TaskHandler
--------------------------
function InitTaskHandler()
    local self = {  _TaskList = {}, }
    function self.AddTask(Task) self._TaskList[Task] = true end
    function self.RemoveTask(Task) self._TaskList[Task] = nil end
    function self.Execute()
        for k,v in pairs(self._TaskList) do k.Execute() end
    end
    return self
end
coroutine.running_hook = coroutine.running
function coroutine.running()
    local v = coroutine.running_hook()
    return v
end
Sleep_hook = Sleep
function Sleep(d)
    if _StartUpParameters.AutoTaskSleep and coroutine.running() then return TaskSleep(d)
    else return Sleep_hook(d) end
end