SCAR Code:
program New;
{.include srl/srl.scar}
{.SRL\Core\Bank.scar}
{.SRL\Core\Inventory.scar}
{.SRL\Core\FlagChat.scar}
{.SRL\Core\MapWalk.scar}
var
x,y,i,counter,Loads :integer;
Const
LoadsToDo = 9999;
function FlaxScreen : Boolean;
begin
Result := FindText(x, y, 'spin', NPCChars,314 ,50 ,346 ,57 );
end;
procedure DeclarePlayers;
begin
HowManyPlayers :=1; //How many players to use in script
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0;
Players[0] .Name := ''; // Username
Players[0] .Pass := ''; // Pass
Players[0] .Nick := ''; //3/4 of the characters name (bobbey = bob)
Players[0] .Active := True; // True=yes, False=no//
Players[0] .Booleans[1] := False; // False for brightness Check Once. Just leave at false.
Players[0] .Pin := '0000'; // Your BANK-Pin - Leave at 0000 if you don't have a pin
end;
procedure GetFlax;
begin
MakeCompass('n');
FindObjCustom(x, y, ['ban', 'ooth'], [5137010,8687513], 2);
Mouse(x,y,5,5,false);
wait(800+random(300));
chooseoption('uickly');
wait(1000+random(800));
begin
FindObjCustom(x,y, ['lax', 'ax'], [12696923, 65536], 3);
wait(200+random(340));
Mouse(x,y,5,5,false);
wait(500+random(400));
ChooseOption('X');
wait(500+random(300));
Typesend('28');
wait(200+random(100));
CloseBank;
end;
end;
Procedure Walk1;
begin
Counter := 0
Mouse(622,128,5,5,true);
wait(8000+random(2000));
repeat
until FindObjCustom(x, y, ['stair', 'case'], [6844272,6712430], 2) or (counter=20);
wait(600+random(100));
Mouse(x,y,5,5,false);
ChooseOption('own');
wait(1900+random(900));
end;
Procedure Walk2;
begin
wait(1000+random(800));
if (FindSymbol(x,y,'spin')) then
mouse(x,y,5,5,true);
wait(3000+random(700));
end;
Procedure Spin;
begin
repeat
until FindObjCustom(x, y, ['inning', 'heel'], [14672099,5137011], 5) or (counter=20);
Mouse(x,y,5,5,true);
wait(1300+random(900));
begin
Mouse(265,119,5,5,false);
wait(500+random(800));
ChooseOption('X');
Wait(300+random(400));
TypeSend('28');
HoverSkill('crafting',False );
GameTab(4);
wait(46000+random(4000));
end;
end;
Procedure Walk3;
begin
Mouse(611,97,5,5,true);
FFlag(2);
FindObjCustom(x,y, ['air', 'case'], [6712686,8028803], 5);
Mouse(x,y,5,5,false);
wait(500+random(600));
chooseoption('up');
wait(500+random(700));
end;
Procedure BankFlax;
begin
Mouse(636,44,5,5,true);
FFlag(2);
FindObjCustom(x, y, ['ban', 'ooth'], [5137010,8687513], 2);
Mouse(x,y,5,5,false);
wait(800+random(300));
chooseoption('uickly');
wait(1500+random(900));
if FindDTM(605191, x, y, Mix1, Miy1, Mix2, Miy2) then
begin
Mouse(x, y, 5, 5, False);
wait(400+random(400));
ChooseOption('28');
wait(400+random(400));
begin
Mouse(54,106,5,5,false)
wait(800+random(340));
ChooseOption('X');
wait(800+random(300));
Typesend('28');
wait(300+random(100));
Mouse(486,35,5,5,true);
if not LoggedIn then Exit;
end;
end;
end;
begin
SetupSRL;
DeclarePlayers;
ActivateClient;
LoginPlayer;
GetFlax;
repeat
Walk1;
Walk2;
Spin;
Walk3;
Until (Loads>=LoadsToDo);
end.