SRL Archive - S.M.A.R.T. Bugs and Improvements.

So I was thinking since you have to run SetTargetDC(SmartGetDC); why not put it all into one procedure?

Of course I rather have the world number so I posted SmartKidz SmartSetupEx as well.

//Same as SmartSetup instead you use world number over prefix.
procedure SmartSetupEx(worldnumber: integer; hiDetail, signed: boolean);
var
  prefix: string;
begin
  prefix := ReadINI('World' + IntToStr(worldnumber), 'Prefix', AppPath + 'includes\SRL\SCSS\worlds.ini');
  if(prefix = '')then
  begin
    writeln('Invalid world number or corrupted world list. Please review your settings');
    TerminateScript;
  end;
  SmartSetup(prefix, hiDetail, signed);
end;

procedure StartSmart(worldnumber: integer; hiDetail, signed: boolean);
begin
  SmartSetupEx(worldnumber, hiDetail, signed);
  repeat
    wait(100);
  until(SmartReady);
  SetTargetDC(SmartGetDC);
end;

Unless there is something else that can interfere with it.

this si very helpful to me, alot less edit more mining.

  repeat
    wait(100);
  until(SmartReady);

It's a lot easier to do

  while not SmartReady do
  Wait(100);