SRL Archive - SRL Suggestions

I think there has been update since this was made, obviously the variables can go, and it can go to just a mouse rather than a mousebox:

procedure ClickSpellMode(Which: Integer);
Var
  x, y, Gap, xsize, ysize : integer;
begin
  if not GameTab(Tab_Magic)then
    Exit;

  x := 585; //Just for easy editing
  y := 443;
  Gap := 21;
  xsize := 15;
  ysize := 15;

  MouseBox(x + Gap * Which, y, x + Gap * Which + xsize, y + ysize, mouse_Left);
  Wait(70+Random(70));
end;

procedure SortBook(By: Integer);
Var
  x, y, Gap, xsize, ysize : integer;
begin
  if (not GameTab(Tab_Magic)) or (BookSortedBy = By) then
    Exit;

  x := 676;
  y := 443;
  Gap := 19;
  xsize := 15;
  ysize := 15;

  MouseBox(x + By * Gap, y, x + By * Gap + xsize, y + ysize, mouse_Left);
  srl_magic_BookSortedBy := By;
end;