type
  EWalkStyle = (wsRegular, wsSPS);
  TOnWalkEvent = procedure(Sender:TObject; var myPos: TPoint; doContinue: Boolean);  // extra param say I found something on the minimap I want to stop by?

  TOnMouseEvent = function(Sender: TObject; b: TBox): Boolean;
  (* Call this in mouse, if hook returns true exit.

   procedure w_clickMouse(box:TBox; btn:Int32);
   begin
     if (Assigned(@OnMouseEvent)) then
       if (OnMouseEvent(Self, b)) then
         Exit; // mouse has been performed!!

  {$IFDEF SRL_MOUSE}
    mouse.click(box, btn);
  {$ELSE}
    RaiseException('Not implmented yet');
  {$ENDIF}
  end;
  *)


   TWhileWalkingEvent = procedure(Sender: TObject);
  {
  Call this in your waitflag.. in the waiting loop
  or what should really be done imo is add "hooks?" to override your
  flag/whatever else. eg (so someones could use SRL's.. that has a hook etc.)

  if (@funcWaitFlag <> nil) thenn
    funcWaitFlag()
  else
    W_WaitFlag();
 }