@@(*
@@   Yellow lines mean you should read them.
@@   Go read some tut's also at the forums.
@@*)

program New;
{.Include SRL/SRL.Scar}
Var
BankSymbol : Integer;
BankBooth : Integer;

Const
Username = 'King Shado21';
Password = '';

procedure LoadBitmaps;
begin
  BankSymbol := BitmapFromString(13, 13, 'beNp1kcEJgDAMRXMVL2' +
     '7gwZ28uIZDFQXvjiAeXMEhvNcPH35DaMOnlOTxExIzRtcP0HU/5z5' +
     'T+DNpVhgkxeScAkwsMNK6jGk7UApWLPGliInx2PdOBCgBwgjwhQLg' +
     'ZwND+aYt0rdueVaxsLQqpuXLpzobN6wzseQZyFzQFkm/2HLTH0SaC' +
     'Gs=');

  BankBooth := BitmapFromString(158, 18, 'beNrtWVsSwjAI' +
   'zO28gL/e/xhxxjqVBpZXqtVKho88GkJ3CWC9Xm7XkpKSkpJvkf5oa' +
   'PgTNucsb71TSRtjbp/Un9a8ANJaE4ffzOxgZNTyJ6dLmwB/1ZN+IM' +
   '2jrrmYnQT/w8xSPT/HrBlXi9l5Zvu2DbtCqQ0pEdlcYiQ6azVSnNQ' +
   '1ozxLTxTzL8rLr+0gpCvZHC2ZBnhKBYXZtU/bMM8xVDzB5ALxIhpA' +
   'l0xt3LFRnjXmGYnIPUzqkwYQHJBJ0Tsrbhmeb6yJnuDnQgm8fYtkm' +
   'lke1vh1FgEX4JUCI39YN8DTRz5AV808a95N9EamJ8wz6/G3KLMGg6' +
   'iPq+sZBp3Mopy7QkTJ8rBDL6azKNqRWSW2i+73bsCNPHsEswgH5W6' +
   'ifOqpoBD+YsbUKyjkMzzaQGatCioBfvKgyHyovOf5EU2aS7Bul3AW' +
   'lYhDbtjQFy1Rfg1F3y7ajx4UmncefexHhpOd+M+fqd+NMw/Rxexpb' +
   'pC/dC/Z7R+KT0EdqgHOI3fOAcf9');
end;



procedure login; //Try to use Login(); instead.
begin;
@@  ClickMouseSpline(449, 288, 10, 3, True);  //BAD! Use Mouse(x, y, ranx, rany, (True if leftclick)) instead.
  Wait(1000+Random(3000));
  WriteLn('Clicked Existing User Button');
@@  SendKeysWait(Username+Chr(13), 200, 100);
  Wait(1000+Random(1000));
@@  SendKeysWait(Password, 200, 100);
end;

procedure finishlogin;
begin
  ClickMouseSpline(302, 320, 10, 5, True);
  Wait(5000+Random(2000));
  ClickMouseSpline(333, 337, 10 , 4, True);
  Wait(3000+Random(1000));
end;

@@procedure clearbug; //Not really needed?
begin
  ClearDebug
end;


@@procedure FreeBMPs;
@@begin
@@  FreeBitmap(BankSymbol);
@@  FreeBitmap(BankBooth);
@@end;


procedure findbit;
Var
  x, y :integer;
begin;
  FindBitmapToleranceIn(BankSymbol, x, y, 536, 12, 711, 158, 25);
end;

procedure openbankscreen;
Var
  Points :integer;
  x, y :integer;
  a, b :integer;
begin;
  MakeCompass('n');
  FindColorsSpiralTolerance(x, y, Points, 4679037, 5, 5, 514, 336, 70);
  FindBitmapToleranceIn(BankBooth, a, b, 536, 12, 711, 158, 25);
@@  ClickMouseSpline(X, Y, 4, 4, True); //USE Mouse(x, y, ranx, rany, (True if click left))
  Wait(1000+Random(500));
@@  ClickMouseSpline(a, b, 4, 4, true); //Ditto
end;


begin
  SetUpSRL;
  clearbug;
  loadBitmaps;
  ActivateClient;
  login;
  finishlogin;
  findbit;
  openbankscreen;
@@  FreeBMPs;
end.