SCAR Code:
program bsmepl0x;
{.Include srl/srl.scar}
{.include srl/srl/extended/xmapwalk.scar}
//start in lumby bank with flax in inventory, bank pin already entered in, and flax in first bank slot
//thanks to scarscape4life for a couple procedures... everything else done be me, Warbeak1245
//WARBEAK1245's SCRIPT!!!
const
amounttrips=400;//number of flax you have divided by 28
var
tripsdone:Integer;
procedure myscript;
begin
Writeln('Warbeak1245''s Flax Spinner')
Writeln('Easy Money, Good Crafting Exp, sweet script')
Writeln('have fun...')
end;
procedure DeclarePlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Nick := ' ';
Players[0].Active := True;
end;
procedure setup;
begin
setupsrl;
ActivateClient;
end;
procedure findrandoms;
begin
if(findmod) then begin
logout;
end;
begin
SolvePinball;
FindNormalRandoms;
end;
end;
Procedure findbank1;
begin
makecompass('N');
if(FindSymbol(x,y,'bank'))then
begin
FindTalk;
Flag;
mouse(x,y,3,3,true);
end
findrandoms;
end;
procedure ToStairs;
begin
makecompass('N')
RadialWalk(roadcolor,190,200,53,0,0);
flag;
findrandoms;
end;
procedure downstairs;
begin
repeat
FindObj(x, y, 'Staircase', 604499, 30);
Mouse(x, y, 5, 5, false);
until
PopUp('Climb-down');
Wait(100+Random(500));
Mouse(461, 178, 10, 10, true);
Wait(100+Random(500));
findrandoms;
end;
Procedure OpenDoor;
begin
makecompass('e')
If
FindObj(x, y ,'Door', 2515048, 2) or FindObj(x, y ,'Door', 2240608, 5) then
begin
if IsUpText('Close') then
exit;
if IsUpText('Open') then
begin
Mouse(x,y,0,0,True);
Flag;
findrandoms;
end;
end
end;
procedure upstairs;
begin
repeat
FindObj(x, y, 'Staircase', 603212, 30);
Mouse(x, y, 5, 5, false);
until
PopUp('Climb-up');
Wait(1000+Random(500));
Mouse(461, 178, 10, 10, true);
Wait(1000+Random(500));
findrandoms;
end;
procedure spin;
begin
wait(300+random(100));
repeat
FindObj(x, y, 'Spin', 1204365, 5);
Mouse(x, y, 5, 5, false);
until
PopUp('Spin');
flag;
Mouse(261, 138, 5, 5, false);
wait(1000 + random(300));
PopUp('Make X');
wait(1000 + random(300));
TypeSend('99');
Wait(6400+Random(500));
findrandoms;
Wait(6400+Random(500));
findrandoms;
Wait(6400+Random(500));
findrandoms;
Wait(6400+Random(500));
findrandoms;
Wait(6400+Random(500));
findrandoms;
Wait(6400+Random(500));
findrandoms;
Wait(6400+Random(500));
If (FindFight) then begin
opendoor;
tostairs;
upstairs;
Wait(6000+Random(500));
downstairs;
opendoor;
spin;
end;
end;
procedure bankstuffz;
begin
makecompass('N')
repeat
OpenBank3;
until(BankScreen)
wait(700+random(600))
Depositall;
FixBank;
Mouse(98, 81, 10, 10, false);
wait(100+random(50))
PopUp('All');
CloseBank;
tripsdone:=tripsdone+1;
findrandoms;
end;
begin
setup;
myscript;
repeat
findrandoms;
ToStairs;
downstairs;
OpenDoor;
spin;
OpenDoor;
ToStairs;
upstairs;
findbank1;
bankstuffz;
until
(tripsdone=amounttrips);
logout;
end.