Simba Code:
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;
Simba Code:
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;