SCAR Code:
program New;
{.Include SRL/SRL.Scar}
Var
BankBoothWords : Integer;
TheCounter : Integer;
furnacep : integer;
Const
Username = '';
Password = '';
Color = 4013377;
procedure LoadBitmaps;
begin
furnacep := BitmapFromString(15, 5, 'z78DA3334353435B470' +
'3101423308696A028466E6C6A6A626E66E6E1640062E12A206A2D' +
'EC90408A1261882CD3424CA6427472320DBCDCDC810C61EFC2653' +
'3F34882171990C0058F36390');
BankBoothWords := 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');
TheCounter := BitmapFromString(1, 10, '6C583296897A948779948779736' +
'C63A59E968C7F6F9686749B8A7685663E');
end;
procedure login;
begin;
Wait(10000);
ClickMouseSpline(449, 288, 10, 3, True);
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;
begin
ClearDebug
end;
procedure lastfurnacewalk;
var x, y :integer;
begin
repeat
Wait(50+random(100))
until(FindSymbol(x, y, 'furnace'))
mouseFlag(x,y,1,1);
end;
procedure FreeBMPs;
begin
FreeBitmap(TheCounter);
FreeBitmap(BankBoothWords);
end;
procedure makeholysymbols;
var
x, y : integer;
begin;
MouseItem(2, true);
FindColorTolerance(x, y, color, 5, 5, 514, 336, 5000); //line 101
ClickMouseSpline(x, y, 0, 0, true);
end;
procedure Ritethescreen;
begin;
MakeCompass('n');
SendArrowWait(0, 3000);
end;
begin
SetUpSRL;
SymbolAccuracy:= 0.1;
clearbug;
loadBitmaps;
ActivateClient;
login;
finishlogin;
Ritethescreen;
OpenBankFast('fwb');
Withdraw(1, 1, 0);
CloseBank;
RadialRoadWalk(FindFallyRoadColor, 300, 360, 41, 0, 0);
RadialRoadWalk(FindFallyRoadColor, 295, 320, 57, 0, 0);
RadialRoadWalk(FindFallyRoadColor, 295, 320, 73, 0, 0);
RadialRoadWalk(FindFallyRoadColor, 270, 300, 33, 0, 0);
lastfurnacewalk;
makeholysymbols;
FreeBMPs;
end.