SCAR Code:
function GameTab2(tabnumber: Integer): Boolean;
begin
if ((Tabnumber < 1) or (TabNumber > 15)) then
begin
srl_Warn('GameTab', IntToStr(tabnumber) + ' is no valid GameTab', warn_AllVersions);
Result := False;
Exit;
end;
while not(GetCurrentTab = tabnumber) do
if (tabnumber = 14) then
begin
Mouse(752, 12, 8, 8, True);
Result := (GetCurrentTab = tabnumber);
Exit;
end else
if (tabnumber <= 7) then
begin
MouseBox(537 + (tabnumber - 1) * 35, 175, 537 + (tabnumber - 1) * 35, 192, 1);
Result := (GetCurrentTab = tabnumber);
Exit;
end else
MouseBox(564 + (tabnumber - 8) * 35, 472, 564 + (tabnumber - 8 ) * 35, 490, 1);
Result := (GetCurrentTab = tabnumber);
end;
not a l33t and start but shorter im sure Get Current tab and Tab Exists can be shorted this way 2.