SRL Archive - S.M.A.R.T. General and Q/A.

Hmm, I seem to be having a problem with my SMART not logging in. I would greatly appreciate if someone could help me. I'm using this script :

program New;
{.include SMART.scar}
{.include SRL/SRL.scar}

procedure DeclarePlayers;
begin
  NumberOfPlayers(1);
  CurrentPlayer:= 0;
  
  Players[0].Name:= '';
  Players[0].Pass:= '';
  Players[0].Active:= True;
end;

begin
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
end.

It will load up SMART, type in my username and password, then sit their and do nothing. Here is a screenshot
My SetupSRL; is this

procedure SetupSRL;
begin
  {$IFDEF SMART}
  SmartSetup('me2', false, false);
  wait(10000+random(5000));
  SetTargetDC(SmartGetDC);
  repeat
    wait(100);
  until(SmartGetColor(253, 233)<>1118604);
  {$ENDIF}
  MouseSpeed := 15;
  NickNameBMP := 0;
  CheckHPFirst := True;
  Reincarnate := False;
  TalkAfterRandoms := False;
  RoadColor := 0;
  WaterColor := 0;
  BankColor := 0;
  LampSkill := 'mining';
  SetUpSRLReport;
  SetMouseMode(false);
  LoadCosineArrays;
  SymbolAccuracy:= 0.8;
  LoadNPCArray;
  LoadSRLBitMaps;
  SolveChatRandoms := True;
  SetupSRLAutoResponder
  UseSandWichSolver := True;
  UseBoxSolver := True;
  UseCerterSolver := True;
  UseFindmod := True;
  UseFindtrade := True;
  Screenshots := False;
  TheFile := RewriteFile(AppPath + 'ChatLog.txt', False);
  Writeln ('SRL Compiled in '+  IntToStr(GetTimeRunning) + ' msec');
end;

I've also attached my login.scar.

Again, any help would be greatly appreciated.

restart your computer :)

I had this problem… then it turned out to be like something to do with sending the keys for the login… i forget how i fixed it.

if that does not work try changing your typesend to this :

procedure TypeSend(Text: string);
var
  i: Integer;
  Shift: Boolean;
begin
  for i := 1 to Length(Text) do
  begin
    Shift := (Text[i] = ':') or (Text[i] = '!') or (Text[i] = '+') or
      (Text[i] = '?') or (Text[i] = '<') or (Text[i] = '>') or
      (Text[i] = '@') or (Text[i] = '#') or (Text[i] = '$') or
      (Text[i] = '&') or (Text[i] = '%') or (Text[i] = '*');
    if (Text[i] = '_') then
      Text[i]:= ' ';
    if (Shift) then
    begin
      KeyDown(VK_Shift);
      Wait(5 + Random(20));
    end;
    TypeByte(GetKeyCode(Text[i]));
    if (Shift) then
    begin
      KeyUp(VK_Shift);
      Wait(5 + Random(20));
    end;
    Wait(50 + Random(120));
  end;
  Wait(200 + Random(500));
  TypeByte(13);
end;

idk i do not run smart as often anymore :p

Still happens after restart :(. And the typing works, just clicking the login button doesn't

Redownload 3.13 my friend ;)

I redownloaded it about an hour before I made this post

I thought…
in type send you add that SmartSendKeys or whatever that was

procedure TypeSend(Text: string);
var
i: Integer;
Shift: Boolean;
begin
smartsendkeys(text + chr(10));
end;

Change your TypeSend in text.scar to that.

Hy knows all about this. ;)

From: Wizzup?
Hy knows all about this. ;)

I wonder why…

From: hugolord
I wonder why…

'Cause me is teh gangsta :)

From: Hy71194
'Cause me is teh gangsta :)

rofl S.M.A.R.T. addict ^^ lolz jk

I don't get why I needed to change my TypeSend, but now it works.

Here is what my TypeSend looks like:

procedure TypeSend(Text: string);
var
  i: Integer;
  Shift: Boolean;
begin
  {$IfDef SMART}
  Shift:= True;// Put in so I didn't get hints at start of script
  i:= 0;// Same reason as above.
  SmartSendKeys(Text + Chr(10));
  {$Else}
  for i := 1 to Length(Text) do
  begin
    Shift := (Text[i] = ':') or (Text[i] = '!') or (Text[i] = '+') or
      (Text[i] = '?') or (Text[i] = '<') or (Text[i] = '>') or
      (Text[i] = '@') or (Text[i] = '#') or (Text[i] = '$') or
      (Text[i] = '&') or (Text[i] = '%') or (Text[i] = '*');
    if (Text[i] = '_') then
      Text[i]:= ' ';
    if (Shift) then
    begin
      KeyDown(VK_Shift);
      Wait(5 + Random(20));
    end;
    TypeByte(GetKeyCode(Text[i]));
    if (Shift) then
    begin
      KeyUp(VK_Shift);
      Wait(5 + Random(20));
    end;
    Wait(50 + Random(120));
  end;
  Wait(200 + Random(500));
  TypeByte(13);
  {$EndIf}
end;

From: Bobarkinator
I don't get why I needed to change my TypeSend, but now it works.

Here is what my TypeSend looks like:

procedure TypeSend(Text: string);
var
  i: Integer;
  Shift: Boolean;
begin
  {$IfDef SMART}
  Shift:= True;// Put in so I didn't get hints at start of script
  i:= 0;// Same reason as above.
  SmartSendKeys(Text + Chr(10));
  {$Else}
  for i := 1 to Length(Text) do
  begin
    Shift := (Text[i] = ':') or (Text[i] = '!') or (Text[i] = '+') or
      (Text[i] = '?') or (Text[i] = '<') or (Text[i] = '>') or
      (Text[i] = '@') or (Text[i] = '#') or (Text[i] = '$') or
      (Text[i] = '&') or (Text[i] = '%') or (Text[i] = '*');
    if (Text[i] = '_') then
      Text[i]:= ' ';
    if (Shift) then
    begin
      KeyDown(VK_Shift);
      Wait(5 + Random(20));
    end;
    TypeByte(GetKeyCode(Text[i]));
    if (Shift) then
    begin
      KeyUp(VK_Shift);
      Wait(5 + Random(20));
    end;
    Wait(50 + Random(120));
  end;
  Wait(200 + Random(500));
  TypeByte(13);
  {$EndIf}
end;

Thanks, I was also having this problem, I changed my TypeSend with Bob's post and now it's running smooth as a baby:sasmokin:

From: IceFire908
Thanks, I was also having this problem, I changed my TypeSend with Bob's post and now it's running smooth as a baby:sasmokin:

Me too, had same problem -.- , actually it typed username and password… but after that mouse didn't moved, started working after i replaced typesend with Markus typesend…

I don't get why I needed to change my TypeSend, but now it works.

It's because in Java enter is 10… in scar its 13… chr(13)

From: negaal
Me too, had same problem -.- , actually it typed username and password… but after that mouse didn't moved, started working after i replaced typesend with Markus typesend…

Sorry but I never made/modded a TypeSend, you probably mean Bobs one?

Lol, anyways the one I posted looks for SMART defined, and if its not, it will use regular TypeSend, otherwise it will use the SMART typesend, so it's universal, and I like universal :)